################################################################ # # $Id$ # # (c) 2014 Copyright: Wzut # All rights reserved # # FHEM Forum : http://forum.fhem.de/index.php/topic,18517.0.html # # This code is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # The GNU General Public License can be found at # http://www.gnu.org/copyleft/gpl.html. # A copy is found in the textfile GPL.txt and important notices to the license # from the author is found in LICENSE.txt distributed with these scripts. # This script is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. ################################################################ # Version 1.01 - 18.08.14 # add set toggle command # Version 1.0 - 21.02.14 # add german doc , readings & state times only on change, devStateIcon # Version 0.95 - 17.02.14 # add command set IdleNow # Version 0.9 - 15.02.14 # Version 0.8 - 01.02.14 , first version package main; use strict; use warnings; use Time::HiRes qw(gettimeofday); use URI::Escape; use POSIX; use Blocking; # http://www.fhemwiki.de/wiki/Blocking_Call use IO::Socket; use Getopt::Std; sub AttrVal($$$); sub MPD_html($); my %gets = ( "music:noArg" => "", "playlists:noArg" => "", "playlistinfo:noArg" => "", "webrc:noArg" => "", "statusRequest:noArg" => "", "mpdCMD" => "", "currentsong:noArg" => "", "outputs:noArg" => "" ); my %sets = ( "play" => "", "clear:noArg" => "", "stop:noArg" => "", "pause:noArg" => "", "previous:noArg" => "", "next:noArg" => "", "random:noArg" => "", "repaet:noArg" => "", "volume:slider,0,1,100" => "", "volumeUp:noArg" => "", "volumeDown:noArg" => "", "playlist" => "", "playfile" => "", "updateDb:noArg" => "", "interval" => "", "mpdCMD" => "", "reset:noArg" => "", "IdleNow:noArg" => "", "toggle:noArg" => "" ); my %readings = ( "title" => "", "name" => "", "playlist" => "", "file" => "", "artist" => "", "album" => "", "songid" => "", "nextsong" => "", "nextsongid" => "", "song" => "", "playlistlength" => "", "xfade" => "", "mixrampdelay" => "", "mixrampdb" => "", "consume" => "", "elapsed" => "", "time" => "", "audio" => "", "bitrate" => "", "pos" => "", "id" => "", "date" => "", "genre" => "", "track" => "", "state" => "", "last-modified" => "", "repeat" => "", "ramdom" => "", "single" => "", "volume" => "", "error" => "", "random" => "" ); ################################### sub MPD_Initialize($) { my ($hash) = @_; my $name = $hash->{NAME}; $hash->{GetFn} = "MPD_Get"; $hash->{SetFn} = "MPD_Set"; $hash->{DefFn} = "MPD_Define"; $hash->{UndefFn} = "MPD_Undef"; $hash->{ShutdownFn} = "MPD_Undef"; $hash->{AttrList} = "useIdle:0,1 interval password loadMusic:0,1 loadPlaylists:0,1 volumeStep:1,2,5,10 titleSplit:1,0 lcdDevice ".$readingFnAttributes; $hash->{FW_summaryFn} = "MPD_summaryFn"; } sub MPD_updateConfig($) { # this routine is called 5 sec after the last define of a restart # this gives FHEM sufficient time to fill in attributes my ($hash) = @_; my $name = $hash->{NAME}; $hash->{INTERVAL} = AttrVal($name, "interval", 30); $hash->{".htmlCode"} = ""; $hash->{".playlist"} = ""; $hash->{".music"} = ""; $hash->{".outputs"} = ""; $hash->{".lasterror"} = ""; $hash->{".lcd"} = AttrVal($name, "lcdDevice", undef); $hash->{PRESENT} = 0; $hash->{VOLUME} = -1; ## kommen wir via reset Kommando ? if ($hash->{".reset"}) { $hash->{".reset"} = 0; RemoveInternalTimer($hash); if(defined($hash->{helper}{RUNNING_PID})) { BlockingKill($hash->{helper}{RUNNING_PID}); Log 3 , "$name Idle Kill PID : ".$hash->{helper}{RUNNING_PID}{pid}; delete $hash->{helper}{RUNNING_PID}; $hash->{IPID} = ""; Log 3 ,"$name Reset done"; } } my $error = mpd_cmd($hash, "status"); # Playlisten und Dateien laden ? if (AttrVal($name, "loadMusic", 0) && !$error) { $error = mpd_cmd($hash, "i|lsinfo|music"); Log 3 ,"$name could not load music -> $error" if ($error); } if (AttrVal($name, "loadPlaylists", 0) && !$error) { $error = mpd_cmd($hash, "i|lsinfo|playlists"); Log 3 ,"$name could not load playlists -> $error" if ($error); } if (!$error) { $hash->{".outputs"} = mpd_cmd($hash, "i|outputs|x"); refresh_outputs($hash); readingsSingleUpdate($hash,"state","Initialized",1); } else { readingsSingleUpdate($hash,"state","not conected",1); } InternalTimer(gettimeofday()+$hash->{INTERVAL}, "MPD_GetUpdate", $hash, 0) if ($hash->{INTERVAL}); readingsSingleUpdate($hash,"error",$error,1) if ($error); return undef; } sub MPD_Define($$) { my ($hash, $def) = @_; my $name = $hash->{NAME}; my @a = split("[ \t][ \t]*", $def); return "Usage: define $name " if(int(@a) > 4); $hash->{HOST} = (defined($a[2])) ? $a[2] : "localhost"; $hash->{PORT} = (defined($a[3])) ? $a[3] : "6600" ; $hash->{".reset"} = 0; Log 3, "MPD: Device $name defined."; readingsSingleUpdate($hash,"state","defined",1); $attr{$name}{devStateIcon} = 'play:rc_PLAY:stop stop:rc_STOP:play pause:rc_PAUSE:pause' unless (exists($attr{$name}{devStateIcon})); $attr{$name}{icon} = 'it_radio' unless (exists($attr{$name}{icon})); RemoveInternalTimer($hash); InternalTimer(gettimeofday()+5, "MPD_updateConfig", $hash, 0); return undef; } sub MPD_Undef ($$) { my ($hash, $arg) = @_; RemoveInternalTimer($hash); if(defined($hash->{helper}{RUNNING_PID})) { BlockingKill($hash->{helper}{RUNNING_PID}); } return undef; } sub MPD_GetUpdate($) { my ($hash) = @_; my $name = $hash->{NAME}; my $lasterror = $hash->{".lasterror"}; my $error = mpd_cmd($hash, "status"); if (!$hash->{PRESENT} && $hash->{INTERVAL} eq "0") {$hash->{INTERVAL} = 300;} # neues Intvall falls keine Verbindung zum MPD Server if (!$error && (($hash->{STATE} eq "play") || $hash->{READINGS}{"playlistlength"}{VAL})) { $error = mpd_cmd($hash, "currentsong"); } readingsBeginUpdate($hash); #readingsBulkUpdate($hash, "state", $hash->{STATE}); readingsBulkUpdate($hash, "error", $error) if ($error); readingsEndUpdate($hash, 1); if ($error && ($error ne $lasterror)) { Log 3 , "$name, $error"; $hash->{".lasterror"} = $error; } InternalTimer(gettimeofday()+$hash->{INTERVAL}, "MPD_GetUpdate", $hash, 0) if ($hash->{INTERVAL}); my_lcd($hash) if (defined($hash->{".lcd"})); # erster Start bzw neuer Versuch nach Fehler ? if (AttrVal($name, "useIdle", 0) && !$error) { $hash->{helper}{RUNNING_PID} = BlockingCall("MPD_IdleStart", $name."|".$hash->{HOST}."|".$hash->{PORT}, "MPD_IdleDone", $hash) unless(exists($hash->{helper}{RUNNING_PID})); $hash->{IPID} = $hash->{helper}{RUNNING_PID}; Log 4 , "$name IdleStart with PID : ".$hash->{helper}{RUNNING_PID}{pid} if($hash->{helper}{RUNNING_PID}); } return; } sub MPD_Set($@) { my ($hash, @a)= @_; my $name= $hash->{NAME}; my $ret ; return join(" ", sort keys %sets) if(@a < 2); my $cmd = $a[1]; return join(" ", sort keys %sets) if ($cmd eq "?"); if ($cmd eq "mpdCMD") { $ret = MPD_Get($hash, @a); } # pseudo Kommando , gleich mit get mpdCMD my $subcmd = (defined($a[2])) ? $a[2] : ""; return if ($subcmd eq '---'); # erster Eintrag im select Feld ignorieren RemoveInternalTimer($hash); my $step = int(AttrVal($name, "volumeStep", 5)); # vllt runtersetzen auf default = 2 ? my $vol_now = int($hash->{VOLUME}); my $vol_new; if ($cmd eq "reset") { $hash->{".reset"} = 1; MPD_updateConfig($hash); return undef;} if ($cmd eq "pause") { $ret = mpd_cmd($hash, "pause"); } if ($cmd eq "stop") { $ret = mpd_cmd($hash, "stop"); } if ($cmd eq "update") { $ret = mpd_cmd($hash, "update"); } if ($cmd eq "toggle") { $ret = mpd_cmd($hash, "play") if (($hash->{STATE} eq "stop") || ($hash->{STATE} eq "pause")); $ret = mpd_cmd($hash, "stop") if ($hash->{STATE} eq "play"); } if ($cmd eq "previous") { if (defined($hash->{READINGS}{"song"}{VAL}) > 0) { $hash->{READINGS}{"title"}{VAL} = ""; $hash->{READINGS}{"artist"}{VAL} = ""; $ret = mpd_cmd($hash, "previous"); mpd_cmd($hash, "currentsong") if (!$ret); } else { return; } } if ($cmd eq "next") { if ($hash->{READINGS}{"nextsong"}{VAL} != $hash->{READINGS}{"song"}{VAL}) { $hash->{READINGS}{"title"}{VAL} = ""; $hash->{READINGS}{"artist"}{VAL} = ""; $ret = mpd_cmd($hash, "next"); mpd_cmd($hash, "currentsong") if (!$ret); } else { return; } } if ($cmd eq "random") { my $rand = ($hash->{RANDOM}) ? "0" : "1"; $ret = mpd_cmd($hash, "random $rand"); } if ($cmd eq "repeat") { my $rep = ($hash->{REPEAT}) ? "0" : "1"; $ret = mpd_cmd($hash, "repeat $rep"); } if ($cmd eq "clear") { $hash->{READINGS}{"title"}{VAL} = ""; $hash->{READINGS}{"artist"}{VAL} = ""; $ret = mpd_cmd($hash, "clear"); $hash->{".music"} = ""; $hash->{".playlist"} = ""; } if ($cmd eq "volume") { if (int($subcmd) > 100) { $vol_new = "100"; } elsif (int($subcmd) < 0) { $vol_new = "0"; } else { $vol_new = $subcmd; } # sollte nun zwischen 0 und 100 sein } if ($cmd eq "volumeUp") { $vol_new = (($vol_now + $step) <= 100) ? $vol_now+$step : "100"; } if ($cmd eq "volumeDown") { $vol_new = (($vol_now - $step) >= 0) ? $vol_now-$step : " 0"; } # muessen wir die Laustärke verändern ? if (defined($vol_new)) { $ret = mpd_cmd($hash, "setvol $vol_new"); } # einfaches Play bzw Play Listenplatz Nr. ? if ($cmd eq "play") { $ret = mpd_cmd($hash, "play $subcmd"); if (!$ret) { $ret = mpd_cmd($hash, "currentsong"); } } if ($cmd eq "interval") { return "$name: Set with short interval, must be 0 or greater" if(int($a[2]) < 0); # update timer RemoveInternalTimer($hash); $hash->{INTERVAL} = $a[2]; InternalTimer(gettimeofday()+$hash->{INTERVAL}, "MPD_GetUpdate", $hash, 0) if ($hash->{INTERVAL}); return undef; } if ($cmd eq "IdleNow") { return "$name: sorry, one Idle process is always running with pid ".$hash->{helper}{RUNNING_PID}{pid} if($hash->{helper}{RUNNING_PID}); $hash->{helper}{RUNNING_PID} = BlockingCall("MPD_IdleStart", $name."|".$hash->{HOST}."|".$hash->{PORT}, "MPD_IdleDone", $hash) unless(exists($hash->{helper}{RUNNING_PID})); if($hash->{helper}{RUNNING_PID}) { $hash->{IPID} = $hash->{helper}{RUNNING_PID}{pid}; return "$name: idle process started with PID : ".$hash->{IPID}; } else { return "$name: idle process start failed !"; } } # die ersten beiden brauchen wir nicht mehr shift @a; shift @a; # den Rest als ein String $subcmd = join(" ",@a); if ($cmd eq "playlist") { return "$name : no name !" if (!$subcmd); $hash->{READINGS}{"title"}{VAL} = ""; $hash->{READINGS}{"artist"}{VAL} = ""; $hash->{".music"} = ""; $hash->{".playlist"} = $subcmd; # interne PL Verwaltung $ret = mpd_cmd($hash, "stop|clear|load $subcmd|play"); # kein Fehler, dann noch die Song Infos holen if (!$ret) { $ret = mpd_cmd($hash, "currentsong"); } } if ($cmd eq "playfile") { return "$name : no File !" if (!$subcmd); $hash->{READINGS}{"title"}{VAL} = ""; $hash->{READINGS}{"artist"}{VAL} = ""; $hash->{".playlist"} = "", $hash->{".music"} = $subcmd; # interne Song Verwaltung $ret = mpd_cmd($hash, "clear|command_list_begin\nadd \"$subcmd\"\ncommand_list_end|play"); # kein Fehler, dann noch die Song Infos holen if (!$ret) { $ret = mpd_cmd($hash, "currentsong"); } } mpd_cmd($hash, "status"); # readingsSingleUpdate($hash,"error",$ret,1) if($ret); ToDo : warum ist error manchmal = "0" ?? InternalTimer(gettimeofday()+$hash->{INTERVAL}, "MPD_GetUpdate", $hash, 0) if ($hash->{INTERVAL}); my_lcd($hash) if (defined($hash->{".lcd"})); return $ret; } sub MPD_Get($@) { my ($hash, @a)= @_; my $name= $hash->{NAME}; my $ret; return "get $name needs at least one argument" if(int(@a) < 2); my $cmd = $a[1]; if ($cmd eq "webrc") { return(MPD_html($hash)); } if ($cmd eq "playlists") { $hash->{".playlists"} = ""; mpd_cmd($hash, "i|lsinfo|playlists"); return $name." playlists:\n".$hash->{".playlists"}; } if ($cmd eq "music") { $hash->{".music"} = ""; mpd_cmd($hash, "i|lsinfo|music"); return $name." music:\n".$hash->{".music"}; } if ($cmd eq "statusRequest") { $ret = mpd_cmd($hash, "status"); if (!$ret && $hash->{READINGS}{"playlistlength"}{VAL}) { $ret = mpd_cmd($hash, "currentsong"); } if ($ret) { return $ret; } else { return $name." statusRequest:\n".mpd_cmd($hash, "i|status|x"); } } if ($cmd eq "currentsong") { mpd_cmd($hash, "currentsong"); return $name." currentsong:\n".mpd_cmd($hash, "i|currentsong|x"); } if ($cmd eq "outputs") { $hash->{".outputs"} = mpd_cmd($hash, "i|outputs|x"); refresh_outputs($hash); return $name." outsputs:\n".$hash->{".outputs"}; } if ($cmd eq "mpdCMD") { my $sub; shift @a; shift @a; $sub = join (" ", @a); return $name." ".$sub.":\n".mpd_cmd($hash, "i|$sub|x"); } if ($cmd eq "playlistinfo") { return $name." playlistinfo:\n".mpd_cmd($hash, "i|playlistinfo|x"); } return "$name get with unknown argument $cmd, choose one of " . join(" ", sort keys %gets); } sub my_lcd($) { my ($hash)= @_; my $error = $hash->{READINGS}{"error"}{VAL} ne "" ? $hash->{READINGS}{"error"}{VAL}. " ".$hash->{READINGS}{"error"}{TIME} : ""; if (($hash->{STATE} eq "play") || ($hash->{STATE} eq "pause")) { my $artist = defined($hash->{READINGS}{"artist"}{VAL}) ? $hash->{READINGS}{"artist"}{VAL} : ""; my $name = defined($hash->{READINGS}{"name"}{VAL}) ? $hash->{READINGS}{"name"}{VAL} : $hash->{".playlist"}; my $state = $hash->{STATE} eq "pause" ? "P" : "*"; my $repeat = $hash->{REPEAT} ? "R" : "-"; my $title = defined($hash->{READINGS}{"title"}{VAL}) ? $hash->{READINGS}{"title"}{VAL} : ""; my $song = defined($hash->{READINGS}{"song"}{VAL}) ? $hash->{READINGS}{"song"}{VAL}+1 : "--"; my $len = defined($hash->{READINGS}{"playlistlength"}{VAL}) ? $hash->{READINGS}{"playlistlength"}{VAL} : "--"; fhem("set ".$hash->{".lcd"}." writeXY 0,0,20,l $artist"); fhem("set ".$hash->{".lcd"}." writeXY 0,1,20,l $title"); fhem("set ".$hash->{".lcd"}." writeXY 0,2,20,l $name"); fhem("set ".$hash->{".lcd"}." writeXY 0,3,3,r ".$hash->{VOLUME}); fhem("set ".$hash->{".lcd"}." writeXY 5,3,9,l $song/$len $state $repeat"); } else { fhem("set ".$hash->{".lcd"}." text $error"); $hash->{READINGS}{"error"}{VAL}=""; } if (($hash->{STATE} eq "play") || ($hash->{STATE} eq "pause") || $error) {fhem("set ".$hash->{".lcd"}." backlight on"); } else {fhem("set ".$hash->{".lcd"}." backlight off"); } # Log 4 ,"mylcd"; } sub mpd_cmd($$) { my ($hash,$a)= @_; my $output = "";; my $name = $hash->{NAME}; my $old_state = $hash->{STATE}; # save state $hash->{VERSION} = undef; $hash->{PRESENT} = 0; $hash->{STATE} = "not connected"; my $iaddr = inet_aton($hash->{HOST}) || return "no host: ".$hash->{HOST}; my $paddr = sockaddr_in($hash->{PORT}, $iaddr); my $proto = getprotobyname('tcp'); socket(SOCK, PF_INET, SOCK_STREAM, $proto) || return "socket: $!"; connect(SOCK, $paddr) || return "connect: $!"; select(SOCK); $| = 1; while () # MPD rede mit mir , egal was ;) { last if $_ ; # end of output. } chomp $_; return "not a valid mpd server, welcome string was: ".$_ if $_ !~ /^OK MPD (.+)$/; $hash->{PRESENT} = 1; my ($b , $c) = split("OK " , $_); $hash->{VERSION} = $c; # ok, now we're connected - let's issue the commands. # old state back $hash->{STATE} = $old_state; my @commands = split("\\|" , $a); if ($commands[0] ne "i") { # start Ausgabe nach Readings oder Internals foreach (@commands) { my $cmd = $_; print SOCK "$cmd\r\n"; while () { chomp $_; return "mpd_Msg ACK ERROR ".$_ if $_ =~ s/^ACK //; # oops - error. last if $_ =~ /^OK/; # end of output. ($b , $c) = split(": " , $_); $b = lc($b); if ($b && defined($readings{$b})) # ist das ein Internals oder Reading ? { # if ($b eq "state") { $hash->{STATE} = $c; } # Sonderfall state if ($b eq "volume") { $hash->{VOLUME} = $c; } # Sonderfall volume if ($b eq "title") { my $sp = index($c, " - "); if (AttrVal($name, "titleSplit", 1) && ($sp>0)) # wer nicht mag solls eben abschaltten { readingsSingleUpdate($hash,"artist",substr($c,0,$sp),1); readingsSingleUpdate($hash,"title",substr($c,$sp+3),1); } else { readingsSingleUpdate($hash,"title",$c,1); } # kein Titel Split } elsif ($b eq "state") { readingsSingleUpdate($hash,"state",$c,1) if ($c ne $hash->{STATE}); } else { readingsSingleUpdate($hash,$b,$c,1) if ($c ne defined($hash->{READINGS}{$b}{VAL}));} # irgendwas aber kein Titel oder State } else { $hash->{uc($b)} = $c; } # Internal } # while } # foreach } # end Ausgabe nach Readings oder Internals , ab jetzt Bildschirmausgabe else { # start internes cmd print SOCK $commands[1]."\r\n"; while () { # chomp $_; - lassen wir das \n ersteinmal noch dran return "mpd_Msg ACK ERROR ".$_ if $_ =~ s/^ACK //; # oops - error. last if $_ =~ /^OK/; # end of output. ($b , $c) = split(": " , $_); if (($b eq "file" ) && ($commands[2] eq "music")) {$hash->{".music"} .= $c; } # Titelliste füllen elsif (($b eq "playlist" ) && ($commands[2] eq "playlists")) {$hash->{".playlists"} .= $c; } # Playliste füllen elsif (($b eq "directory" ) && ($commands[2] eq "dir")) {$hash->{".dir"} .= $c; } # Dir liste füllen elsif ($commands[2] eq "x") { $output .= $_; } } # while } # end internes cmd print SOCK "close\n"; close(SOCK) || return "socketclose: $!"; return $output; # falls es einen gibt , wenn nicht - auch gut ;) } # end msg sub MPD_IdleStart($) { my ($string) = @_; return unless(defined($string)); my @a = split("\\|" ,$string); my $output = $a[0]; # Name my $host = $a[1]; my $port = $a[2]; my $old_event = ""; my $iaddr = inet_aton($host) || return $output."|E no host: $host"; my $paddr = sockaddr_in($port, $iaddr); my $proto = getprotobyname('tcp'); socket(SOCK, PF_INET, SOCK_STREAM, $proto) || return $output."|E socket: $!"; connect(SOCK, $paddr) || return $output."|E connect: $!"; select(SOCK); $| = 1; while () { last if $_ ; } chomp $_; return $output."|E not a valid mpd server, welcome string was: ".$_ if $_ !~ /^OK MPD (.+)$/; print SOCK "idle\r\n"; while () { chomp $_; return $output."|E mpd_Msg ACK ERROR ".$_ if $_ =~ s/^ACK //; # oops - error. last if $_ =~ /^OK/; # es hat sich was getan. if ($_ ne $old_event) { $output .= "|".$_; $old_event = $_; } } print SOCK "close\n"; close(SOCK); return $output; } sub MPD_IdleDone($) { my ($string) = @_; return unless(defined($string)); my ($h,$ret) = split("\\|",$string); my $hash = $defs{$h}; my $name = $hash->{NAME}; Log 4 , "$name IdleDone PID : ".$hash->{helper}{RUNNING_PID}{pid}; delete($hash->{helper}{RUNNING_PID}); $hash->{IPID} = ""; return if($hash->{helper}{DISABLED}); if (substr($ret,0,1) ne "E") { # ToDO , den $ret noch nach Typen aufdröseln, jetzt muss ersteinmal status und currentsong reichen my $error = mpd_cmd($hash, "status"); if (!$error && (($hash->{STATE} eq "play") || $hash->{READINGS}{"playlistlength"}{VAL})) { $error = mpd_cmd($hash, "currentsong");} readingsBeginUpdate($hash); #readingsBulkUpdate($hash, "state", $hash->{STATE}); readingsBulkUpdate($hash, "error", $error) if ($error); readingsBulkUpdate($hash, "mpd_event", $ret); readingsEndUpdate($hash, 1); # weiter auf Events warten ? oder wurden inzwischen vllt. via attr geändert ? if (AttrVal($name, "useIdle", 0) && !$error) { $hash->{helper}{RUNNING_PID} = BlockingCall("MPD_IdleStart", $name."|".$hash->{HOST}."|".$hash->{PORT}, "MPD_IdleDone", $hash) unless(exists($hash->{helper}{RUNNING_PID})); Log 4 , "$name Idle has new PID : ".$hash->{helper}{RUNNING_PID}{pid} if (exists($hash->{helper}{RUNNING_PID})); $hash->{IPID} = $hash->{helper}{RUNNING_PID}{pid} if (exists($hash->{helper}{RUNNING_PID})); } Log 3 , "$name, $error" if ($error); my_lcd($hash) if (defined($hash->{".lcd"})); return; } readingsSingleUpdate($hash,"mpd_event",$ret,1); Log 3 , "$name MPD idle comes back with error : $ret , MPD Idle is now disabled use reset cmd to restart"; my_lcd($hash) if (defined($hash->{".lcd"})); return; } ############################################### sub refresh_outputs($) { my ($hash) = @_; my @outp = split("\n" , $hash->{".outputs"}); my $oname; my $oen; foreach (@outp) { my @val = split(": " , $_); $oname = $val[1] if ($val[0] eq "outputname"); if ($val[0] eq "outputenabled") { $oen = ($val[1] eq "1") ? "on" : "off"}; if ($oen && $oname) {$hash->{uc $oname} = $oen; $oname = ""; $oen = "";} } } sub MPD_html($) { my ($hash)= @_; my $name = $hash->{NAME}; my $playlist = $hash->{".playlist"}; my $playlists = $hash->{".playlists"}; my $music = $hash->{".music"}; my $volume = (defined($hash->{VOLUME})) ? $hash->{VOLUME} : "???"; my $len = (defined($hash->{READINGS}{"playlistlength"}{VAL})) ? $hash->{READINGS}{"playlistlength"}{VAL} : "--"; my $html; my @list; my $sel = ""; my $pos = (defined($hash->{READINGS}{"song"}{VAL}) && $len) ? $hash->{READINGS}{"song"}{VAL} : "--"; $pos .= "/"; $pos .= ($len) ? $len : "0"; $html = "
"; $html .= ""; if ($playlists||$music) { if ($playlists) { $html .= ""; } if ($music) { $html .= ""; } } $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; $html .= ""; if ($hash->{".outputs"}) { my @outp = split("\n" , $hash->{".outputs"}); my $oid; my $oname; my $oen; my $osel; foreach (@outp) { my @val = split(": " , $_); $oid = $val[1] if ($val[0] eq "outputid"); $oname = $val[1] if ($val[0] eq "outputname"); $oen = $val[1] if ($val[0] eq "outputenabled"); if (defined($oen)) { $html .= ""; $html .=""; $osel = $oen ? "checked" : ""; $html .=""; $html .=""; $oen=undef; } } } $html .= "
  
 ".$pos." 
 ".$volume." 
$oid.$onameon "; $osel = !$oen ? "checked" : ""; $html .="off 
"; return $html; } sub MPD_summaryFn($$$$) { my ($FW_wname, $hash, $room, $pageHash) = @_; $hash = $defs{$hash}; my $state = $hash->{STATE}; my $txt = $state; my $name = $hash->{NAME}; my $playlist = $hash->{".playlist"}; my $playlists = $hash->{".playlists"}; my ($icon,$isHtml,$link,$html,@list,$sel); ($icon, $link, $isHtml) = FW_dev2image($name); $txt = ($isHtml ? $icon : FW_makeImage($icon, $state)) if ($icon); $link = "cmd.$name=set $name $link" if ($link); $txt = "".$txt."" if ($link); my $title = defined($hash->{READINGS}{"title"}{VAL}) ? $hash->{READINGS}{"title"}{VAL} : " "; my $artist = defined($hash->{READINGS}{"artist"}{VAL})? $hash->{READINGS}{"artist"}{VAL}."
" : " "; my $rname = defined($hash->{READINGS}{"name"}{VAL}) ? $hash->{READINGS}{"name"}{VAL} : " "; if (!$title && !$artist) { $title = $rname; } # besser das als nix $html ="
$txt"; if ($playlists) { $html .= ""; } $html .= (($state eq "play") || ($state eq "pause")) ? $artist.$title : " "; $html .= "
"; return $html; } 1; =pod =begin html

MPD

FHEM module to control a MPD like the MPC (MPC = Music Player Command, the command line interface to the Music Player Daemon )
To install a MPD on a Raspberry Pi you will find a lot of documentation at the web e.g. http://www.forum-raspberrypi.de/Thread-tutorial-music-player-daemon-mpd-und-mpc-auf-dem-raspberry-pi in german
FHEM Forum : Modul für MPD ( in german )
    Define
      define <name> MPD <IP MPD Server | default localhost> <Port MPD Server | default 6600>
      Example:
        define myMPD MPD 192.168.0.99 7000
      if FHEM and MPD a running on the same device : 
        define myMPD MPD

    Set
      set <name> <what>
       
      Currently, the following commands are defined.
       
      play => like MPC play , start playing song in playlist
      clear => like MPC clear , delete MPD playlist
      stop => like MPC stop, stops playing
      pause => like MPC pause
      previous => like MPC previous, play previous song in playlist
      next => like MPC next, play next song in playlist
      random => like MPC random, toggel on/off
      repaet => like MPC repeat, toggel on/off
      toggle => toggles from play to stop or from stop/pause to play
      updateDb => like MPC update
      volume (%) => like MPC volume %, 0 - 100
      volumeUp => inc volume ( + attr volumeStep size )
      volumeDown => dec volume ( - attr volumeStep size )
      playlist (playlist name) => set playlist on MPD Server
      playfile (file) => create playlist + add file to playlist + start playing
      IdleNow => send Idle command to MPD and wait for events to return
      interval => set polling interval of MPD server, overwrites attr interval temp , use 0 to disable polling
      reset => reset MPD Modul
      mpdCMD => same as GET mpdCMD

    Get
      get <name> <what>
       
      Currently, the following commands are defined.
      music => list all MPD music files in MPD databse
      playlists => list all MPD playlist in MPD databse
      playlistsinfo => show current playlist informations
      webrc => HTML output for a simple Remote Control on FHEM webpage e.g :.
             define <name> weblink htmlCode {fhem("get <name> webrc", 1)}
       attr <name> room MPD
      statusRequest => get MPD status
      mpdCMD (cmd) => send a command to MPD Server ( MPD Command Ref )
      currentsong => get infos from current song in playlist
      outputs => get name,id,status about all MPD output devices in /etc/mpd.conf

    Attributes
    • interval = polling interval at MPD server, use 0 to disable polling (default 30)
    • password (not ready yet) if password on MPD server is set
    • loadMusic 0|1 = load titles from MPD database at startup
    • loadPlaylists 0|1 = load playlist names from MPD database at startup
    • volumeStep 1|2|5|10 = Step size for Volume +/- (default 5)
    • useIdle 0|1 = send Idle command to MPD and wait for MPD events needs MPD Version 0.16.0 or greater
    • titleSplit 1|0 = split title to artist and title if no artist is given in songinfo (e.g. radio-stream)

    Readings
      all MPD internal values
=end html =begin html_DE

MPD

    FHEM Modul zur Steuerung des MPD ähnlich dem MPC (MPC = Music Player Command, das Kommando Zeilen Interface für den Music Player Daemon ) (englisch)
    Um den MPD auf einem Raspberry Pi zu installieren finden sich im Internet zahlreiche gute Dokumentaionen z.B. hier
    Thread im FHEM Forum : Modul für MPD

     
    Define
      define <name> MPD <IP MPD Server | default localhost> <Port MPD Server | default 6600>
      Beispiel :
            define myMPD MPD 192.168.0.99 7000
        wenn FHEM und der MPD auf dem gleichen PC laufen : 
            define myMPD MPD

    Set
      set <name> <was>
       
      z.Z. unterstützte Kommandos
       
      play => spielt den aktuellen Titel der geladenen Playliste
      clear => löscht die Playliste
      stop => stoppt die Wiedergabe
      pause => Pause an/aus
      previous => spielt den vorherigen Titel in der Playliste
      next => spielt den nächsten Titel in der Playliste
      random => zufällige Wiedergabe an/aus
      repaet => Wiederholung an/aus
      toggle => wechselt von play nach stop bzw. stop/pause nach play
      volume (%) => ändert die Lautstärke von 0 - 100%
      volumeUp => Lautstärke schrittweise erhöhen , Schrittweite = ( attr volumeStep size )
      volumeDown => Lautstärke schrittweise erniedrigen , Schrittweite = ( attr volumeStep size )
      playlist (playlist name) => lade Playliste aus der MPD Datenbank und starte Wiedergabe mit dem ersten Titel
      playfile (file) => erzeugt eine temoräre Playliste mit file und spielt dieses ab
      updateDb => wie MPC update, Update der MPD Datenbank
      interval => in Sekunden bis neue aktuelle Informationen vom MPD geholt werden. Überschreibt die Einstellung von attr interval Ein Wert von 0 deaktiviert diese Funktion
      reset => reset des FHEM MPD Moduls
      mpdCMD => gleiche Funktion wie get mpdCMD
      IdleNow => sendet das Kommando idle zum MPD und wartet auf Ereignisse - siehe auch Attribut useIdle

    Get
      get <name> <was>
       
      z.Z. unterstützte Kommandos
      music => zeigt alle Dateien der MPD Datenbank
      playlists => zeigt alle Playlisten der MPD Datenbank
      playlistsinfo => zeigt Informationen der aktuellen Playliste
      webrc => HTML Ausgabe einer einfachen Web Fernbedienung Bsp :.
            define <name> weblink htmlCode {fhem("get <name> webrc", 1)}
      attr <name> room MPD
      statusRequest => hole aktuellen MPD Status
      mpdCMD (cmd) => sende cmd direkt zum MPD Server ( siehe auch MPD Comm Ref )
      currentsong => zeigt Informationen zum aktuellen Titel in der Playliste
      outputs => zeigt Informationen der definierten MPD Ausgabe Kanäle ( aus /etc/mpd.conf )

    Attribute
    • interval 0..x => polling Interval des MPD Servers, 0 zum abschalten oder in Verbindung mit useIdle
    • password => (z.Z. nicht umgesetzt)
    • loadMusic 0|1 => lade die MPD Titel beim FHEM Start
    • loadPlaylists 0|1 => lade die MPD Playlisten beim FHEM Start
    • volumeStep x => Schrittweite für Volume +/-
    • useIdle 0|1 => sendet das Kommando idle zum MPD und wartet auf Ereignisse - benötigt MPD Version 0.16.0 oder höher
      Wenn useIdle benutzt wird kann das Polling auf einen hohen Wert (300-600) gesetzt werden oder gleich ganz abgeschaltet werden.
      FHEM startet einen Hintergrundprozess und wartet auf Änderungen des MPD , wie z.B Titelwechsel im Stream, start/stop, etc.
      So lassen sich relativ zeitnah andere Geräte an/aus schalten oder z.B. eine LCD Anzeige aktualisieren ohne erst den nächsten Polling Intervall abwarten zu müssen !
    • titleSplit 1|0 = zerlegt die aktuelle Titelangabe am ersten Vorkommen von - (BlankMinusBlank) in die zwei Felder Artist und Titel,
      wenn im abgespielten Titel die Artist Information nicht verfügbar ist (sehr oft bei Radio-Streams)
      Liegen keine Titelangaben vor wird die Ausgabe durch den Namen der Radiostation erstetzt

    Readings
      alle MPD internen Werte
=end html_DE =cut