################################################################
#
#  $Id$
#
#  (c) 2014 Copyright: Wzut
#  All rights reserved
#
#  FHEM Forum : http://forum.fhem.de/index.php/topic,18517.msg400328.html#msg400328
#
#  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.6    - 31.12.17 remove telnet, add BlockingInformParent
# Version 1.5    - 26.01.17 add playlist bookmarks, change XML to JSON
# Version 1.43   - 18.01.17 add channelUp and channelDown
# Version 1.42   - 15.01.17 add Cover and playlist_json
# Version 1.41   - 12.01.17 add rawTitle 
# Version 1.4    - 11.01.17 add mute, ctp, seekcur, Fix LWP:: , album cover
# Version 1.32   - 03.01.17
# Version 1.31   - 30.12.16
# Version 1.3    - 14.12.16
# Version 1.2    - 10.04.16
# Version 1.1    - 03.02.16
# 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;
use HttpUtils;
use HTML::Entities;
use Cwd 'abs_path';
use JSON;

sub MPD_html($);

my %gets = (
	"music:noArg"          => "",
	"playlists:noArg"      => "",
	"playlistinfo:noArg"   => "",
	"statusRequest:noArg"  => "",
	"currentsong:noArg"    => "",
	"outputs:noArg"        => "",
        "bookmarks:noArg"      => ""
	);

my %sets = (
	"play"                  => "",
	"clear:noArg"           => "",
	"stop:noArg"            => "",
	"pause:noArg"           => "",
	"previous:noArg"        => "",
	"next:noArg"            => "",
	"random:noArg"          => "",
	"repeat:noArg"          => "",
	"volume:slider,0,1,100" => "",
	"volumeUp:noArg"        => "",
	"volumeDown:noArg"      => "",
	"playlist"              => "",
	"playfile"              => "",
	"updateDb:noArg"        => "",
	"mpdCMD"                => "",
	"reset:noArg"           => "",
	"single:noArg"          => "",
	"IdleNow:noArg"         => "",
	"toggle:noArg"          => "",
	"clear_readings:noArg"  => "",
	"mute:on,off,toggle"    => "",
	"seekcur"               => "",
	"forward:noArg"         => "",
	"rewind:noArg"          => "",
	"channel"               => "",
	"channelUp:noArg"       => "",
	"channelDown:noArg"     => "",
	"save_bookmark:noArg"   => "",
	"load_bookmark"         => "",
	"active:noArg" 	        => "",
	"inactive:noArg"        => "",
         );

use constant clb => "command_list_begin\n";
use constant cle => "status\nstats\ncurrentsong\ncommand_list_end";
use constant lfm_artist => "http://ws.audioscrobbler.com/2.0/?method=artist.getinfo&format=json&api_key=";
use constant lfm_album  => "http://ws.audioscrobbler.com/2.0/?method=album.getinfo&format=json&api_key=";
                    
my @Cover;

###################################

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->{AttrFn}       = "MPD_Attr";
	$hash->{AttrList}     = "disable:0,1 password loadMusic:0,1 loadPlaylists:0,1 volumeStep:1,2,5,10 titleSplit:1,0 ".
                                "timeout waits stateMusic:0,1 statePlaylists:0,1 lastfm_api_key image_size:-1,0,1,2,3 ".
                                "cache artist_summary:0,1 artist_content:0,1 player:mpd,mopidy,forked-daapd ".
                                "unknown_artist_image bookmarkDir autoBookmark:0,1 seekStepThreshold seekStep seekStepSmall ".
                                "no_playlistcollection:0,1 ".$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};

	if (!$init_done)
	{
		RemoveInternalTimer($hash);
		InternalTimer(gettimeofday()+5,"MPD_updateConfig", $hash, 0);
		return;
	}

	my $error;
	$hash->{".playlist"}     = "";
	$hash->{".playlists"}    = "";
	$hash->{".musiclist"}    = "";
	$hash->{".music"}        = "";
	$hash->{".outputs"}      = "";
	$hash->{".lasterror"}    = "";
	$hash->{PRESENCE}        = "absent";
	$hash->{".volume"}       =  -1;
        $hash->{".artist"}       = "";
        $hash->{".album"}        = "";
        $hash->{".playlist_crc"} = 0;
        $hash->{helper}{playlistcollection}{val} = -1;

	$hash->{".password"} = AttrVal($name, "password", "");
	$hash->{TIMEOUT}     = AttrVal($name, "timeout", 2);
	$hash->{".sMusicL"}  = AttrVal($name, "stateMusic", 1);
	$hash->{".sPlayL"}   = AttrVal($name, "statePlaylists", 1);
        $hash->{".apikey"}   = AttrVal($name, "lastfm_api_key", "f3a26c7c8b4c4306bc382557d5c04ad5");
        $hash->{".player"}   = AttrVal($name, "player", "mpd");
    
        delete($gets{"music:noArg"}) if ($hash->{".player"} eq "mopidy");
    
	## kommen wir via reset Kommando ?
	if ($hash->{".reset"})
	{
		$hash->{".reset"} = 0;
		RemoveInternalTimer($hash);
		if(defined($hash->{IPID}))
		{
		    BlockingKill($hash->{helper}{RUNNING_PID});
		    Log3 $name,4, "$name, Idle Kill PID : ".$hash->{IPID};
		    delete $hash->{helper}{RUNNING_PID};
		    delete $hash->{IPID};
		    Log3 $name,4,"$name, Reset done";
		}
	} 

        return undef if (IsDisabled($name) == 3);

	if (IsDisabled($name))
	{
		readingsSingleUpdate($hash,"state","disabled",1);
		return undef;
	}
        
	MPD_ClearReadings($hash); # beim Starten etwas aufräumen
        readingsBeginUpdate($hash);
        readingsBulkUpdate($hash,"playlist_json","");
        readingsBulkUpdate($hash,"playlist_num","-1");
        readingsBulkUpdate($hash,"playlistname","");
        readingsBulkUpdate($hash,"playlistinfo","");
        readingsBulkUpdate($hash,"playlistcollection","");
        readingsEndUpdate($hash,0);

        MPD_Outputs_Status($hash);
        mpd_cmd($hash, clb.cle);

        if ($hash->{".volume"} eq "0")
        { # ist Mute aktiv oder soll sie mit Absicht 0 sein ?
          # neuen Restore Wert zu Sicherheit erfinden
           $hash->{"mute"} = 50;
        }
        else
        { # wir haben irgend eine Lautstärke
          $hash->{"mute"} = -1;
          if (ReadingsVal($name,"mute","on") eq "on")
          { # das passt so nicht zusammen !
            readingsSingleUpdate($hash,"mute","off",1);
          }
        }

         if ((AttrVal($name, "icon_size", -1) > -1) && (AttrVal($name, "cache", "") ne ""))
         {
          my $cache = AttrVal($name, "cache", "");
          unless(-e ("./www/".$cache) or mkdir ("./www/".$cache)) 
          {
           #Verzeichnis anlegen gescheitert
           Log3 $name,3,"$name, Could not create directory: www/$cache";
          }
         }
        

	if (MPD_try_idle($hash)) 
	{ 
	#   Playlisten und Musik Dir laden ?
        #   nicht bei Player mopidy, listall wird von ihm nicht unterstützt !
	    if ((AttrVal($name, "loadMusic", "1") eq "1") && !$error && ($hash->{".player"} ne "mopidy"))
	    { 
		$error = mpd_cmd($hash, "i|listall|music");
		Log3 $name,3,"$name, error loading music -> $error" if ($error);
		readingsSingleUpdate($hash,"last_error",$error,1) if ($error);
	    }
	    if ((AttrVal($name, "loadPlaylists", "1") eq "1") && !$error)
	    {
                $error = mpd_cmd($hash, "i|listplaylists|playlists");
		Log3 $name,3,"$name, error loading playlists -> $error" if ($error);
		readingsSingleUpdate($hash,"last_error",$error,1) if ($error);
	    }  
  
	}
	else { readingsSingleUpdate($hash,"state","error",1);}

	return undef;
}

sub MPD_Define($$)
{
  my ($hash, $def) = @_;
  my $name = $hash->{NAME};
  my @a = split("[ \t][ \t]*", $def);

  return "Usage: define <name> $name [<MPD ip-address>] [<MPD port-nr>]" if(int(@a) > 4);

  $hash->{HOST} = (defined($a[2])) ? $a[2] : "127.0.0.1";
  $hash->{PORT} = (defined($a[3])) ? $a[3] : "6600" ;
 
  $hash->{".reset"}  = 0;
  
  Log3 $name,3,"$name, Device defined.";
  readingsSingleUpdate($hash,"state","defined",1);
  

  $attr{$name}{devStateIcon} = 'play:rc_PLAY:stop stop:rc_STOP:play pause:rc_PAUSE:pause error:icoBlitz' unless (exists($attr{$name}{devStateIcon}));
  $attr{$name}{icon}         = 'it_radio' unless (exists($attr{$name}{icon})); 
  $attr{$name}{titleSplit}   = '1'        unless (exists($attr{$name}{titleSplit}));
  $attr{$name}{player}       = 'mpd'      unless (exists($attr{$name}{player}));
  $attr{$name}{loadPlaylists}= '1'       unless (exists($attr{$name}{loadPlaylists}));

  $attr{$name}{unknown_artist_image}  = '/fhem/icons/1px-spacer'  unless (exists($attr{$name}{unknown_artist_image}));
  #$attr{$name}{cache}       = 'lfm'      unless (exists($attr{$name}{cache}));
  #$attr{$name}{loadMusic}   = '1'  unless (exists($attr{$name}{loadMusic})) && ($attr{$name}{player} ne 'mopidy');

  #DevIo_CloseDev($hash); das wird irgendwann auch mal kommen ... :)

  $hash->{DeviceName} = $hash->{HOST}.":".$hash->{PORT};

  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_Attr (@) 
{

 my ($cmd, $name, $attrName, $attrVal) = @_;
 my $hash = $defs{$name};
 my $error;

 if ($cmd eq "set")
 {
   if ($attrName eq "timeout")
   {
     if (int($attrVal) < 1) {$attrVal = 1;}
     $hash->{TIMEOUT}      = $attrVal;
     $_[3] = $attrVal;
   }
   elsif ($attrName eq "password")
   {
       $hash->{".password"}   = $attrVal;
       $_[3] = $attrVal;
   }
   elsif (($attrName eq "disable") && ($attrVal == 1))
   {
       readingsSingleUpdate($hash,"state","disabled",1);
       $_[3] = $attrVal;
   }
   elsif (($attrName eq "disable") && ($attrVal == 0))
   {
       $attr{$name}{disable} = $attrVal;
       readingsSingleUpdate($hash,"state","reset",1);
       $hash->{".reset"} = 1;
       MPD_updateConfig($hash);      
   }
   elsif ($attrName eq "statePlaylists")
   {
       $attr{$name}{statePlaylists} = $attrVal;
       $hash->{".sPlayL"}=$attrVal;
   }
   elsif ($attrName eq "stateMusic")
   {
       $attr{$name}{stateMusic} = $attrVal;
       $hash->{".sMusicL"}=$attrVal;
   }
   elsif ($attrName eq "player")
   {
       $attr{$name}{player} = $attrVal;
       $hash->{".player"}=$attrVal;
   }
   elsif ($attrName eq "bookmarkDir")
   {
     my $abs_path = abs_path($attrVal);
     unless(-e ($abs_path ) or mkdir ($abs_path ))
     {
      $error = "could not access or create bookmark directory $abs_path";
      #Verzeichnis anlegen gescheitert
      Log3 $name,3,"$name, error $error";
      readingsSingleUpdate($hash,"last_error",$error,1);
      return $error;
     }
     $_[3] = $abs_path; # Absoluten Pfad im Attribut speichern. 
   }
   elsif ($attrName eq "cache")
   {
    unless(-e ("./www/".$attrVal) or mkdir ("./www/".$attrVal)) 
    {
      $error = "could not access or create directory: www/$attrVal";
      #Verzeichnis anlegen gescheitert
      Log3 $name,3,"$name, error $error";
      readingsSingleUpdate($hash,"last_error",$error,1);
      return $error;
    }
    $_[3] = $attrVal;
   }
 }
 elsif ($cmd eq "del")
 {
  if ($attrName eq "disable")
  {
      $attr{$name}{disable} = 0;
      readingsSingleUpdate($hash,"state","reset",1);
      $hash->{".reset"}=1;
      MPD_updateConfig($hash);      
  }
  elsif ($attrName eq "statePlaylists") { $hash->{".sPlayL"}  = 1; }
  elsif ($attrName eq "stateMusic")     { $hash->{".sMusicL"} = 1; }
  elsif ($attrName eq "player")         { $hash->{".player"}  = "mpd"; }
 }

   return undef;
}

sub MPD_ClearReadings($)
{
    my ($hash)= @_;
    readingsBeginUpdate($hash);
    if ($hash->{".player"} eq "forked-daapd")
    {
     readingsBulkUpdate($hash,"albumartistsort","");
     readingsBulkUpdate($hash,"artistsort","");
    }
    #readingsBulkUpdate($hash,"albumartist","");
    readingsBulkUpdate($hash,"Album","");
    readingsBulkUpdate($hash,"Artist","");
    readingsBulkUpdate($hash,"file","");
    readingsBulkUpdate($hash,"Genre","");
    readingsBulkUpdate($hash,"Last-Modified","");
    readingsBulkUpdate($hash,"Title","");
    readingsBulkUpdate($hash,"Name","");
    readingsBulkUpdate($hash,"Date","");
    readingsBulkUpdate($hash,"Track","");
    readingsBulkUpdate($hash,"Cover","");
    readingsBulkUpdate($hash,"artist_summary","")  if (AttrVal($hash->{NAME}, "artist_summary",""));
    readingsBulkUpdate($hash,"artist_content","")  if (AttrVal($hash->{NAME}, "artist_content",""));
    readingsEndUpdate($hash, 1);
    return;
}

sub MPD_Set($@)
{
 my ($hash, @a)= @_;
 my $name= $hash->{NAME};
 my $ret ;
 my $channel_cmd = 0;
 my $val;
 
 return join(" ", sort keys %sets) if(@a < 2);
 my $cmd = $a[1];

 if ($cmd eq "active") 
 {
  readingsSingleUpdate($hash, "state", "active", 1);
  $hash->{".reset"} = 1; 

  MPD_updateConfig($hash); 
  return undef;
 }

 return "active" if(IsDisabled($name));
 return join(" ", sort keys %sets) if ($cmd eq "?");


 if ($cmd eq "mpdCMD") 
 {
   my $sub;
   shift @a;
   shift @a;
   $sub = join (" ", @a);
  return $name." ".$sub.":\n".mpd_cmd($hash, "i|$sub|x");
 }

 my $subcmd = (defined($a[2])) ? $a[2] : "";
 return undef if ($subcmd eq '---'); # erster Eintrag im select Feld ignorieren

 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, clb."pause\n".cle);  return $ret; }
 if ($cmd eq "update")  { $ret = mpd_cmd($hash, clb."update\n".cle); return $ret; }

 if ($cmd eq "stop")    
  { 
   readingsBeginUpdate($hash);
   readingsBulkUpdate($hash,"artist_image",AttrVal($name,"unknown_artist_image","/fhem/icons/1px-spacer"));
   readingsBulkUpdate($hash,"artist_image_html","");
   readingsBulkUpdate($hash,"album_image",AttrVal($name,"unknown_artist_image","/fhem/icons/1px-spacer"));
   readingsBulkUpdate($hash,"album_image_html","");
   readingsBulkUpdate($hash,"audio","");
   readingsBulkUpdate($hash,"bitrate","");
   readingsBulkUpdate($hash,"rawTitle","");
   readingsBulkUpdate($hash,"Album","");
   readingsBulkUpdate($hash,"Track","");
   readingsBulkUpdate($hash,"Cover","");
   readingsBulkUpdate($hash,"elapsed","");
   readingsEndUpdate($hash, 1);
   $ret = mpd_cmd($hash, clb."stop\n".cle);   
   return $ret; 
  }
 

 if ($cmd eq "toggle")  
  { 
    $ret = mpd_cmd($hash, clb."play\n".cle) if (($hash->{STATE} eq "stop") || ($hash->{STATE} eq "pause")); 
    if  ($hash->{STATE} eq "play")
    { 
     readingsBeginUpdate($hash);
     readingsBulkUpdate($hash,"artist_image",AttrVal($name,"unknown_artist_image","/fhem/icons/1px-spacer"));
     readingsBulkUpdate($hash,"artist_image_html","");
     readingsBulkUpdate($hash,"album_image",AttrVal($name,"unknown_artist_image","/fhem/icons/1px-spacer"));
     readingsBulkUpdate($hash,"album_image_html","");
     readingsBulkUpdate($hash,"Cover","");
     readingsEndUpdate($hash, 1);
     $ret = mpd_cmd($hash, clb."stop\n".cle);
    }
  }

 if ($cmd eq "previous")
 { 
    if (ReadingsNum($name,"song",0) > 0)
    {
     MPD_ClearReadings($hash);
     return mpd_cmd($hash, clb."previous\n".cle); 
    } 
    else { return undef; }
 }
 
 if ($cmd eq "next")
 { 
  if (ReadingsNum($name,"nextsong",0) != ReadingsNum($name,"song",0))
  {
    MPD_ClearReadings($hash);
    return mpd_cmd($hash, clb."next\n".cle);
   } 
   else { return undef; } 
 }


 if ($cmd eq "random")  
  { 
    $val = (ReadingsNum($name,"random",0)) ? "0" : "1";
    $ret = mpd_cmd($hash, clb."random $val\n".cle);
  }

 if ($cmd eq "repeat")  
  { 
    $val = (ReadingsNum($name,"repeat",0)) ? "0" : "1";
    $ret = mpd_cmd($hash, clb."repeat $val\n".cle);
  }

 if ($cmd eq "single")  
  { 
    $val = (ReadingsNum($name,"single",0)) ? "0" : "1";
    $ret = mpd_cmd($hash, clb."single $val\n".cle);  
  }

 if ($cmd eq "clear")   
  { 
    MPD_ClearReadings($hash);
    $ret = mpd_cmd($hash, clb."clear\n".cle);
    $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"; }

 if ($cmd eq "mute")
 {
  my $mute_state = ReadingsVal($name,"mute","");
  my $mute = $mute_state;
  if    (($subcmd eq "on")  && ($mute_state eq "off")){ $vol_new = "0"; $hash->{"mute"} = $vol_now; $mute="on"; }
  elsif (($subcmd eq "off") && ($mute_state eq "on")) { $vol_new = $hash->{"mute"}; $hash->{"mute"} = -1; $mute="off"; }
  elsif ($subcmd eq "toggle") 
  {
   if ($mute_state eq "on")     { $vol_new = $hash->{"mute"}; $hash->{"mute"} = -1; $mute="off";}
   elsif ($mute_state eq "off") { $vol_new = "0"; $hash->{"mute"} = $vol_now; $mute="on";}
  }
  readingsSingleUpdate($hash,"mute",$mute,1);
 }

 # muessen wir die Laustärke verändern ?
 if (defined($vol_new)) 
 { 
   $ret = mpd_cmd($hash, clb."setvol $vol_new\n".cle); 
 }

 # einfaches Play bzw Play Listenplatz Nr. ?
 if ($cmd eq "play") 
  {
    MPD_ClearReadings($hash);
    $ret = mpd_cmd($hash,clb."play $subcmd\n".cle); 
  }
 
  if (($cmd eq "forward") || ($cmd eq "rewind"))
  {
    my ($elapsed,$total) = split (":",ReadingsVal($name,"time",""));
    $total=int($total);
    return undef if( !defined($total) || $total <= 0);
    my $percent = $elapsed / $total;
    my $step = 0.01*(0.01*AttrVal($name,"seekStepThreshold",0) > $percent ? AttrVal($name,"seekStepSmall",3) : AttrVal($name,"seekStep",7));
    $percent +=$step if $cmd eq "forward";
    $percent -=$step if $cmd eq "rewind";
    $percent = 0     if $percent < 0;
    $percent = 0.99  if $percent > 0.99;
    $cmd = "seekcur";
    $subcmd=int($percent*$total);
  }

 if ($cmd eq "seekcur") 
  {
   if ((int($hash->{SUBVERSION}) < 20) && (AttrVal($name,"player","mpd") eq "mpd"))
   {
    $ret = "command $cmd needs a MPD version of 0.20.0 or greater ! (is ".$hash->{VERSION}.")";
    Log3 $name,3,"$name, $ret";
    readingsSingleUpdate($hash,"last_error",$ret,1);
   }
   else
   {
   if($subcmd=~/^(?:(?:([01]?\d|2[0-3]):)?([0-5]?\d):)?([0-5]?\d)$/) # Matches valid time given as [[hh:]mm:]ss
    {
      $subcmd=(defined($1) ? $1 : 0)*3600+(defined($2) ? $2 : 0)*60+$3;  # Sekunden ausrechnen  
    }
   else { $subcmd--; $subcmd++; } # sicherstellen das subcmd numerisch ist     
   if ( $subcmd > 0 )
   { $ret = mpd_cmd($hash,clb."seekcur $subcmd\n".cle) ; } # ungetestet !
   else { $ret = undef; }
   }
  }

 if ($cmd eq "IdleNow")   
 {
  return "$name: sorry, a Idle process is always running with pid ".$hash->{IPID} if(defined($hash->{IPID}));
  MPD_try_idle($hash);
  return undef;
 }

 if ($cmd eq "clear_readings")   
 {
  MPD_ClearReadings($hash);
  return undef;
 }

 # die ersten beiden brauchen wir nicht mehr
 shift @a;
 shift @a;
   
 # den Rest als ein String
 $subcmd = join(" ",@a);

 if ($cmd eq "save_bookmark")
 {
    return "unknown playlist !" if ($hash->{".playlist"} eq "");
    return "you can't save bookmarks on unknown playlists or radio streams !" if (ReadingsVal($name,"currentTrackProvider","Radio") eq "Radio");
    my $bm_dir = AttrVal($name, "bookmarkDir","");
    return "please set attribute bookmarkDir first, saving is disabled !" if ($bm_dir eq "");

    my $state;
    $state->{playlistname} = $hash->{".playlist"}; 
    $state->{songnumber}   = ReadingsNum($name,"Pos",0);
    $state->{songposition} = ReadingsVal($name,"time","")=~/^(\d+):\d+$/ ? $1 : 0;  # get elapsed seconds from time reading

    my $fname = $hash->{".playlist"};
    #$fname    =~ s/[^A-Za-z0-9\-\.]//g;    # ensure to use only valid characters for filenames
    $fname    = $bm_dir."/".$fname;

    if (!open (FILE , "> ".$fname))
    {
      $ret = "save_bookmark error saving $fname : ".$!;
      readingsSingleUpdate($hash,"last_error",$ret,1);
      Log3 $name, 2, "$name, $ret";
    }
    else 
    {
      print FILE encode_json($state);
      close(FILE);
      Log3 $name, 4, "$name, save_bookmark ".$subcmd."saved bookmark $fname";
    }
   if ($ret)
   {
     Log3 $name, 3, "$name, $ret";
     readingsSingleUpdate($hash,"last_error",$ret,1);
    return $ret ;
   }
  }

  if ($cmd eq "load_bookmark")
  {
    return "unknown playlist" if (($hash->{".playlist"} eq "") && ($subcmd eq ""));
    return "you can't load bookmarks for radio streams !" if ((ReadingsVal($name,"currentTrackProvider","Radio") eq "Radio") && ($subcmd eq ""));

    my $bm_dir = AttrVal($name, "bookmarkDir","");
    return format_get_output("Get Bookmark","attribute bookmarkDir not set, loading disabled") if ($bm_dir eq "");

    my $state;
    my $data;
    my $fname = ($subcmd eq "") ? $hash->{".playlist"} : $subcmd;

    #$fname    =~ s/[^A-Za-z0-9\-\.]//g;    # ensure to use only valid characters for filenames

    $fname = $bm_dir."/".$fname;
    if (-e $fname) # gibt es überhaupt eine Bookmark ?
    {
     if (!open (FILE , $fname))
     {
      $ret = "error reading $fname: ".$!;
      Log3 $name, 4, "$name, $ret";
      readingsSingleUpdate($hash,"last_error",$ret,1);
     }
     else 
     {
      while(<FILE>){ $data = $data.$_;}
      close (FILE);
      eval { $state = decode_json($data); 1; } or do 
           {
             $ret = "invalid content in playlist bookmark file";
             Log3 $name, 2, "$name, $ret";
             readingsSingleUpdate($hash,"last_error",$ret,1);
           };
     }
     if (!$ret) # bis jetzt wohl ohne Fehler ...
     {
      $state->{songnumber}  += 0; # ensure it is numeric
      $state->{songposition}+= 0;
      # wechsele auf die neue Playliste ?

      Log3 $name, 4, "$name, load_bookmark $fname - Song:".$state->{songnumber}." - Pos:".$state->{songposition};

      if ($subcmd ne "")
      {
       $subcmd = $state->{playlistname}."|".$state->{songnumber}."|".$state->{songposition};
       $cmd    = "playlist";
       Log3 $name, 4, "$name, load_bookmark new cmd -> playlist ".$subcmd;
      }
      else
      {
       Log3 $name, 4, "$name, load_bookmark new cmd -> play & seekcur";
       $ret  = mpd_cmd($hash,"play ".$state->{songnumber}); 
       $ret .= mpd_cmd($hash,"seekcur ".$state->{songposition}) if (($state->{songposition} > 9) && (int($hash->{SUBVERSION}) > 19));
      }
     }
   } else { $ret = "no bookmark $fname found"; }

   if ($ret)
   {
    Log3 $name, 3, "$name, $ret";
    readingsSingleUpdate($hash,"last_error",$ret,1);
    return $ret ;
   }
 }

 if ($cmd eq "channel")
 { 
    if ( $subcmd <= $hash->{helper}{playlistcollection}{val})
    { 
     $cmd = "playlist"; 
     $subcmd = $hash->{helper}{playlistcollection}{$subcmd};
     $channel_cmd = 1;
    }
 }

 if ($cmd eq "channelUp")
 { 
    my $i = ReadingsNum($name,"playlist_num",-1);
    $i++;
    if ($i <= $hash->{helper}{playlistcollection}{val})
    { 
     $cmd = "playlist"; 
     $subcmd = $hash->{helper}{playlistcollection}{$i};
     $channel_cmd = 1;
    }
 }

 if ($cmd eq "channelDown")
 { 
    my $i = ReadingsNum($name,"playlist_num",0);
    $i--;
    if ($i > -1)
    {
     $cmd = "playlist"; 
     $subcmd = $hash->{helper}{playlistcollection}{$i};
     $channel_cmd = 1;
    }
 }

 if ($cmd eq "playlist") 
 {
   return "$name : no playlist name !" if (!$subcmd);
   my ($list,$song,$pos) = split("\\|",$subcmd);
   $song = "0" if (!$song);
   $pos  = "0" if (!$pos);
   my $error;
   my $nr = -1;

   # ToDo : prüfen ob es Liste überhaupt gibt !

   # nicht schön aber vermeidet den Fehler
   # PERL WARNING: main::MPD_Set() called too early to check prototype at ./FHEM/73_MPD.pm line 771, <$fh> line 412
   MPD_SaveBookmark($hash) if(AttrVal($name,"autoBookmark","0") eq "1");

   MPD_ClearReadings($hash);
   $hash->{".music"}    = "";

   $hash->{".playlist"} = $list; # interne Playlisten Verwaltung
   readingsSingleUpdate($hash,"playlistname",$subcmd,1);
   
   $ret = mpd_cmd($hash, clb."stop\nclear\nload \"$list\"\nplay $song\n".cle);
   if (int($pos > 9))
   {
     $ret .= mpd_cmd($hash,"seekcur ".$pos) if (int($hash->{SUBVERSION}) > 19);
   }

   # welche Listen Nr ?
   for (my $i=0; $i <= $hash->{helper}{playlistcollection}{val}; $i++)
   {
    $nr = $i if ($hash->{helper}{playlistcollection}{$i} eq $subcmd);
   }
   readingsSingleUpdate($hash,"playlist_num",$nr,1) if ($nr > -1);

   my $json = ReadingsVal($name,"playlist_json","");
 
   if ($json ne "")
   {
     undef(@Cover);
     my $result;
     eval {
           $result = decode_json($json);
           1;
          } or do 
          {
            $error = "invalid playlist_json: $json";
            Log3 $name, 3, "$name, $error";
            readingsSingleUpdate($hash,"last_error",$error,1);
            return $error;
          };
     foreach (@$result) 
     { 
      push(@Cover, $_->{'Cover'}); 
      Log3 $name, 5, "$name, Cover : ".$_->{'Cover'}; 
     }
   }
  return $ret;
 }

 if ($cmd eq "playfile")
 {
   return "$name, no File !" if (!$subcmd);

   MPD_ClearReadings($hash);

   $hash->{".playlist"} = "";
   readingsSingleUpdate($hash,"playlistname","",1);
   $hash->{".music"}    = $subcmd; # interne Song Verwaltung
   
   $ret = mpd_cmd($hash, clb."stop\nclear\nadd \"$subcmd\"\nplay\n".cle);

 }

 if ($cmd eq "updateDb")
 {
   $ret = mpd_cmd($hash, clb."rescan\n".cle);
 }

 if ($cmd eq "inactive") 
 {
  mpd_cmd($hash, clb."stop\nclear\n".cle);
  MPD_ClearReadings($hash);
  readingsSingleUpdate($hash, "state", "inactive", 1);
  $hash->{STATE} = "inactive";
  $hash->{".reset"} = 1;
  MPD_updateConfig($hash); 
  return undef;
 }


  if (substr($cmd,0,13) eq "outputenabled")
  {
   my $oid = substr($cmd,13);
   if ($subcmd eq "1")
    {
     $ret = mpd_cmd($hash, "i|enableoutput $oid|x");
     Log3  $name , 5, "$name, enableoutput $oid | $subcmd";
    }
     else
    {
     $ret = mpd_cmd($hash, "i|disableoutput $oid|x");
     Log3  $name , 5 ,"$name, disableoutput $oid | $subcmd";
    }
   
   MPD_Outputs_Status($hash);
  }
  return $ret;
}



sub MPD_Get($@)
{
 my ($hash, @a)= @_;
 my $name= $hash->{NAME};
 my $ret;
 my $cmd;

 return "get $name needs at least one argument" if(int(@a) < 2);

 $cmd = $a[1];

 return(MPD_html($hash)) if ($cmd eq "webrc"); 

 return "no get cmd on a disabled device !" if(IsDisabled($name));

 if ($cmd eq "playlists")
  { 
    $hash->{".playlists"} = "";
    #mpd_cmd($hash, "i|lsinfo|playlists");
    mpd_cmd($hash, "i|listplaylists|playlists");
    return format_get_output("Playlists",$hash->{".playlists"});

  }
 
 if ($cmd eq "music")         
  {
    return "Command is not supported by player mopidy !" if ($hash->{".player"} eq "mopidy");
    $hash->{".musiclist"} = "";
    mpd_cmd($hash, "i|listall|music"); 
    return format_get_output("Music",$hash->{".musiclist"});
  }

  if ($cmd eq "statusRequest") 
  {  
    mpd_cmd($hash, clb.cle);
    $ret = mpd_cmd($hash, "i|".clb.cle."|x|s");
    return format_get_output("Status Request", $ret) if($ret);
    return undef;
  }

  if ($cmd eq "bookmarks")
  {
    my $bm_dir = AttrVal($name, "bookmarkDir","");
    return format_get_output("Get Bookmarks","attribute bookmarkDir not set !") if ($bm_dir eq "");

    opendir(DIR,$bm_dir);
    while(my $d = readdir(DIR)) {$ret .= $d."\n" if (($d ne "..") && ($d ne "."));}
    closedir(DIR);

   return format_get_output("Get Bookmarks",$ret) if($ret);
   return undef;
 }

 if ($cmd eq "outputs") 
  {  
    MPD_Outputs_Status($hash);
    return format_get_output("Outputs", $hash->{".outputs"});
  }

  return format_get_output("Current Song", mpd_cmd($hash, "i|currentsong|x"))  if ($cmd eq "currentsong");
  return format_get_output("Playlist Info",mpd_cmd($hash, "i|playlistinfo|x")) if ($cmd eq "playlistinfo");
  return "$name get with unknown argument $cmd, choose one of " . join(" ", sort keys %gets); 
}


sub format_get_output($$)
{
 my ($head,$ret)= @_;
 my $width = 10;
 my @arr = split("\n",$ret);
 #my @sort = sort(@arr);
 
 foreach(@arr) { $width = length($_) if(length($_) > $width); }
 return $head."\n".("-" x $width)."\n".$ret;
}

sub MPD_Outputs_Status($)
{
 my ($hash)= @_;
 my $name = $hash->{NAME};
 $hash->{".outputs"} = mpd_cmd($hash, "i|outputs|x");
 my @outp = split("\n" , $hash->{".outputs"});
 readingsBeginUpdate($hash);
 my $outpid = "0";
 foreach (@outp)
 {
   my @val = split(": " , $_);
   Log3  $name, 4 ,"$name, MPD_Outputs_Status -> $val[0] = $val[1]";
   $outpid = ($val[0] eq "outputid") ? $val[1] : $outpid;
   readingsBulkUpdate($hash,$val[0].$outpid,$val[1]) if ($val[0] ne "outputid");
   $sets{$val[0].$outpid.":0,1"} = "" if ($val[0] eq "outputenabled");
 }
 readingsEndUpdate($hash, 1);
}

sub mpd_cmd($$)
{

 my ($hash,$a)= @_;
 my $output = "";
 my $sp1;
 my $sp2;
 my $artist;
 my $album;
 my $name_ = "";
 my $title = "";
 my $exot  = "";
 my $rawTitle;
 my $name       = $hash->{NAME};
 my $old_plists = $hash->{".playlists"};


 $hash->{VERSION}    = undef;
 $hash->{SUBVERSION} = undef;
 $hash->{PRESENCE}   = "absent";


 my $sock = IO::Socket::INET->new(
    PeerHost => $hash->{HOST},
    PeerPort => $hash->{PORT},
    Proto    => 'tcp',
    Timeout  => $hash->{TIMEOUT});

 if (!$sock) 
 { 
  readingsBeginUpdate($hash);
  readingsBulkUpdate($hash,"state","error");
  readingsBulkUpdate($hash,"last_error",$!);
  readingsBulkUpdate($hash,"presence","absent"); # MPD ist wohl tot :(
  readingsEndUpdate($hash, 1 );
  Log3 $name, 2 , "$name, cmd error : ".$!;
  return $!; 
 }

 while (<$sock>)  # 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->{PRESENCE}  = "present";

 my ($b , $c) = split("OK MPD " , $_);
 $hash->{VERSION} = $c;
 (undef,$hash->{SUBVERSION},undef) = split("\\.",$c);
 # ok, now we're connected - let's issue the commands.

 if ($hash->{".password"} ne "")
 {
  # lets try to authenticate with a password
  print $sock "password ".$hash->{".password"}."\r\n";
  while (<$sock>) { last if $_ ; } # end of output.
  
  chomp;

  if ($_ !~ /^OK$/)
  {
    print $sock "close\n";
    close($sock);
    readingsSingleUpdate($hash,"last_error",$_,1);
    return "password auth failed : ".$_ ;
  }
 }

 my @commands =  split("\\|" , $a);

 if ($commands[0] ne "i")
 { # start Ausgabe nach Readings oder Internals

  readingsBeginUpdate($hash);
  readingsBulkUpdate($hash,"presence","present"); # MPD lebt
  
  foreach (@commands) 
  {
    my $cmd = $_;
    print $sock "$cmd\r\n";
    Log3 $name, 5 , "$name, mpd_cmd[1] -> $cmd";
 
    while (<$sock>) 
    {
     chomp $_;
     return  "MPD_Msg ACK ERROR ".$_ if $_ =~ s/^ACK //; # oops - error.
     last if $_ =~ /^OK/;    # end of output.
     Log3 $name, 5 , "$name, rec: ".$_;

     ($b , $c , $exot) = split(": " , $_);
     
     if ($b && defined($c)) # ist das ein Reading ?
      { 
;
        if ($b eq "volume") { $hash->{".volume"} = $c; }  # Sonderfall volume
    
        $artist = $c if ($b eq "Artist");
        $album  = $c if ($b eq "Album");
        $name_  = $c if ($b eq "Name");

        if ($b eq "Title")
        {
         $rawTitle = $_;
         $rawTitle =~ s/Title: //;
         readingsBulkUpdate($hash,"rawTitle",$rawTitle);

         $title = $c;
         $c =~ s/\+\+\+//; # +++ = Tickermeldungen
         $c =~ s/feat./ \/ /; 
         $c .= " - ".$exot if (defined($exot) && ($exot  ne "")); # Sonderfall Bayern 3

         $sp1 = index($c, " - ");
         $sp2 = index($c, "-");
     
         if (AttrVal($name, "titleSplit", 1) && ($sp1>0)) # wer nicht mag solls eben abschalten
          {
            $artist = substr($c,0,$sp1);
            readingsBulkUpdate($hash,"Artist",$artist);
            readingsBulkUpdate($hash,"Title",substr($c,$sp1+3));
            $title = substr($c,$sp1+3);
          }
         elsif (AttrVal($name, "titleSplit", 1) && ($sp2>0)) # wer nicht mag solls eben abschalten
          {
            $artist = substr($c,0,$sp2);
            readingsBulkUpdate($hash,"Artist",$artist);
            readingsBulkUpdate($hash,"Title",substr($c,$sp2+1));
            $title = substr($c,$sp2+1);
          }
          else { readingsBulkUpdate($hash,"Title",$c); } # kein Titel Split
        }
        else { readingsBulkUpdate($hash,$b,$c); } # irgendwas aber kein Titel
      } # defined $c
    } # while
  } # foreach

  readingsBulkUpdate($hash,"currentTrackProvider",($name_) ? "Radio" : "Bibliothek") if ($artist && $title);

  readingsEndUpdate($hash, 1 );

  if (AttrVal($name, "image_size", -1) > -1)  
  {
   
   MPD_get_artist_info($hash, urlEncode($artist)) if ($artist);
   MPD_get_album_info($hash,  urlEncode($album))  if ($album);
  }
  if (ReadingsVal($name,"playlist_json","") ne "")
  {
   my $pos = ReadingsNum($name,"Pos",-1);
   readingsSingleUpdate($hash,"Cover",$Cover[$pos],1) if($pos > -1) && defined($Cover[$pos]);
  }
 } # Ende der Ausgabe Readings und Internals, ab jetzt folgt nur noch Bildschirmausgabe
 else
 { # start internes cmd
  print $sock $commands[1]."\r\n";
  Log3 $name, 5 , "$name, mpd_cmd[2] -> ".$commands[1];
  my $d;
  while (<$sock>) 
   {
     return  "mpd_Msg ACK ERROR ".$_ if $_ =~ s/^ACK //; # oops - error.
     last if $_ =~ /^OK/;    # end of output.
      my $sp = index($_, ": ");
      $b = substr($_,0,$sp);
      $c = substr($_,$sp+2);

     if    (($b eq "file" )     && ($commands[2] eq "music"))     {$hash->{".musiclist"} .= $c; } # Titelliste füllen
     elsif (($b eq "playlist" ) && ($commands[2] eq "playlists")) {$hash->{".playlists"} .= $c; } # Playliste füllen

     if ($commands[2] eq "x") { $output .= $_; } 
   } # while

   if (defined($commands[3])) 
   { 
     my @arr = split("\n",$output); 
     @arr = sort(@arr);
     $output = join("\n",@arr);
   }

  } # end internes cmd

 print $sock "close\n";
 close($sock); 

 if ($hash->{".playlists"} ne $old_plists) # haben sich sich die Listen geändert ?
 {
  $hash->{".playlists"} =~ s/\n+\z//;
  $old_plists = $hash->{".playlists"};
  my @arr     = split("\n",$old_plists);
  my $i       = 0 ;; 
  foreach (@arr)
  {
   $hash->{helper}{playlistcollection}{$i} = $_;
   $i++;
  }
  $hash->{helper}{playlistcollection}{val} = $i-1;
  $old_plists =~ tr/\n/\:/; # TabletUI will diese Art der Liste
  readingsSingleUpdate($hash,"playlistcollection", $old_plists,1) if (!AttrVal($name,"no_playlistcollection",""));
  Log3 $name ,5 ,"$name, new playlistcollection -> $old_plists";
 }

 return $output; # falls es einen gibt , wenn nicht - auch gut ;)

} # end mpd_msg


sub MPD_IdleStart($)
{
 my ($name) = @_;
 return unless(defined($name));

 my $logname      = $name."[".$$."]"; 
 my $hash         = $defs{$name};
 my $old_event    = "";
 my $output; 
 my $crc      = 0;
 $hash->{CRC} = 0;

 my $sock = IO::Socket::INET->new(
            PeerHost => $hash->{HOST},
            PeerPort => $hash->{PORT},
            Proto    => 'tcp',
            Timeout  => $hash->{TIMEOUT});

 return $name."|IdleStart: $!" if (!$sock);

 while (<$sock>) { last if $_ ; }

 chomp $_;

 return  $name."|not a valid mpd server, welcome string was: ".$_ if $_ !~ /^OK MPD (.+)$/;

 # Waits until there is a noteworthy change in one or more of MPD's subsystems. 
 # As soon as there is one, it lists all changed systems in a line in the format changed: SUBSYSTEM, 
 # where SUBSYSTEM is one of the following: 
 # - database: the song database has been modified after update. 
 # - update: a database update has started or finished. If the database was modified during the update, the database event is also emitted. 
 # - stored_playlist: a stored playlist has been modified, renamed, created or deleted 
 # +- playlist: the current playlist has been modified 
 # +- player: the player has been started, stopped or seeked 
 # +- mixer: the volume has been changed 
 # - output: an audio output has been enabled or disabled 
 # +- options: options like repeat, random, crossfade, replay gain 
 # - sticker: the sticker database has been modified. 
 # - subscription: a client has subscribed or unsubscribed to a channel 
 # - message: a message was received on a channel this client is subscribed to; this event is only emitted when the queue is empty

 BlockingInformParent("MPD_statusRequest", [$name],0);

 print $sock "idle\n";

 my $step = 0;
 while (<$sock>) 
 {
  if ($_)    # es hat sich was getan.
  {
     chomp $_; 

     if ($_ =~ s/^ACK //) # oops - error.
     {
       print $sock "close\n";
       close($sock);
       return  $name."|ACK ERROR : ".$_;
     }

     $_ =~s/changed: //g;

     if (($_ ne $old_event) && ($_ ne "OK") && (index($_,": ") == -1))  
     { 
      $output   .= ($old_event eq "") ? $_ : "+".$_; 
      $old_event = $_;
      $step=0; 
     }
     elsif (index($_,": ") > -1){
       $output .= "|".$_; 
       $step=1;
     } 
     else #if ($_ eq "OK")  
     {
       print $sock "idle\n" if($step) ;  
       print $sock "playlistinfo\n" if(!$step) ;
       $step=2 if ($step==1); 
     } # OK
  } # $_

  if ((($old_event eq "player")  || 
       ($old_event eq "playlist")|| 
       ($old_event eq "mixer")   || 
       ($old_event eq "options")) && ($step==2)
     ) # muessen wir den Parentprozess informieren ?
     {
        #xxx
        Log3 $logname,5,"$logname, Idle Output : $output";
        $crc   = unpack ("%16C*",$output);
        if (int($hash->{CRC}) != int($crc))
        {
         $hash->{CRC} = $crc;
         Log3 $logname,5,"$logname, $old_event : parent informed crc [".$crc."]";
         BlockingInformParent("MPD_EVENT", [$name,$output],0);
        }
        else
        {
         Log3 $logname,5,"$logname, $old_event : parent not informed crc [".$crc."]";
        }
        $old_event   = "";
        $output      = "";
        $step        = 0;
     } 
   } #while 
 
  close($sock);
  return $name."|socket error";  
} 

sub MPD_EVENT($$)
{
  my ($name, $line) = @_;
  my $hash = $defs{$name};
  my (@arr) = split("\\|",$line); 
  Log3 $name,5,"$name, MPD_EVENT : ".$line;
  my $cmd = $arr[0];
  readingsSingleUpdate($hash,"mpd_event",$cmd,1);
  Log3 $name,4,"$name, MPD_EVENT : ".$cmd;
  mpd_cmd($hash, clb.cle) if ($cmd ne "playlist"); 
  shift @arr;
  MPD_NewPlaylist($hash,join ("\n", @arr));
  return undef;
}

sub MPD_statusRequest($)
{
  my ($name) = @_;
  my $hash = $defs{$name};
  mpd_cmd($hash, clb.cle);
  mpd_cmd($hash, "i|".clb.cle."|x|s");
  return undef;
}

sub MPD_IdleDone($)
{
  my ($string) = @_;
  return unless(defined($string));

  my @r = split("\\|",$string);
  my $hash = $defs{$r[0]};
  my $ret = (defined($r[1])) ? $r[1] : "unknow error";
  my $name = $hash->{NAME};

  Log3 $name, 5,"$name, IdleDone -> $string";

  delete($hash->{helper}{RUNNING_PID});
  delete $hash->{IPID};

  readingsBeginUpdate($hash);
  readingsBulkUpdate($hash,"state","error");
  readingsBulkUpdate($hash,"last_error",$ret);
  readingsBulkUpdate($hash,"presence","absent"); 
  readingsEndUpdate($hash, 1 );

  Log3 $name, 4 , "$name, idle error -> $ret";
  return if(IsDisabled($name));

  RemoveInternalTimer($hash);
  InternalTimer(gettimeofday()+AttrVal($name, "waits", 60), "MPD_try_idle", $hash, 0);

  return;
}

sub MPD_try_idle($)
{
  my ($hash) = @_;
  my $name   = $hash->{NAME};
  my $waits  = AttrVal($name, "waits", 60);

  $hash->{helper}{RUNNING_PID} = BlockingCall("MPD_IdleStart",$name, "MPD_IdleDone") unless(exists($hash->{helper}{RUNNING_PID}));
  if (defined($hash->{helper}{RUNNING_PID}))
  {
    $hash->{IPID} = $hash->{helper}{RUNNING_PID}{pid};
    Log3 $name, 4 , $name.", Idle new PID : ".$hash->{IPID};
    RemoveInternalTimer($hash);
    InternalTimer(gettimeofday()+$waits, "MPD_watch_idle", $hash, 0); # starte die Überwachung
    return 1;
  }
  else 
  {
    my $error = "Idle Start failed, waiting $waits seconds for next try";
    Log3 $name, 4 , "$name, $error";
    readingsSingleUpdate($hash,"last_error",$error,1);
    RemoveInternalTimer($hash);
    InternalTimer(gettimeofday()+$waits, "MPD_try_idle", $hash, 0);
    return 0;
  }
}

sub MPD_watch_idle($)
{
  # Lebt denn der Idle Prozess überhaupt noch ? 
  my ($hash) = @_;
  my $name   = $hash->{NAME};

  RemoveInternalTimer($hash);
  return if (IsDisabled($name));
  return if (!defined($hash->{IPID}));

  my $waits  = AttrVal($name, "waits", 60);
  my $cmd    = "ps -e | grep '".$hash->{IPID}." '";
  my $result = qx($cmd); 

  if  (index($result,"perl") == -1)
  {
   Log3 $name, 2 , $name.", cant find idle PID ".$hash->{IPID}." in process list !";
   BlockingKill($hash->{helper}{RUNNING_PID});
   delete $hash->{helper}{RUNNING_PID};
   delete $hash->{IPID};
   InternalTimer(gettimeofday()+2, "MPD_try_idle", $hash, 0);
   return;
  }
  else 
  { 
    Log3 $name, 5 , $name.", idle PID ".$hash->{IPID}." found";
    if ((ReadingsVal($name,"presence","") eq "present") && 
        ($hash->{STATE} eq "play") &&
        (ReadingsVal($name,"currentTrackProvider","") ne "Radio")
       ) 
    {
     # Wichtig um das Readings elapsed aktuell zu halten (TabletUI)
     mpd_cmd($hash, "status");
     readingsSingleUpdate($hash,"playlistname",$hash->{".playlist"},1) if ($hash->{READINGS}{"playlistname"}{VAL} ne $hash->{".playlist"});
    }
  }

  InternalTimer(gettimeofday()+$waits, "MPD_watch_idle", $hash, 0);
  return;
}


sub MPD_get_artist_info ($$)
{
    my ($hash, $artist) = @_;
    my $name = $hash->{NAME};
    return undef if (($hash->{'.artist'} eq $artist) || ($artist eq ""));

    $hash->{'.artist'} = $artist;
    my $data;
    my $cache = AttrVal($name,"cache",""); # default

    my $param = {
                 url      => lfm_artist.$hash->{'.apikey'}."&artist=".$artist,
                 timeout  => 5,
                 hash     => $hash,     
		 header   => "User-Agent: Mozilla/5.0\r\nAccept: application/json\r\nAccept-Charset: utf-8",
                 method   => "GET",     
                 callback =>  \&MPD_lfm_artist_info
                };

    if ((-e "www/$cache/".$artist.".json") && ($cache ne ""))
    {
     Log3 $name ,4,"$name, artist file ".$artist.".json already exist";
     if (!open (FILE , "www/$cache/".$artist.".json"))
     {
      my $error = "error reading ".$artist.".json : ".$!;
      Log3 $name, 2, "$name, $error";
      readingsSingleUpdate($hash,"last_error",$error,1);
      $hash->{JSON} = 0;
     }
     else 
     {
      while(<FILE>){ $data = $data.$_;}
      close (FILE);
      MPD_lfm_artist_info($param,"",$data,'local');
     }
    }
    else # json von lastfm holen 
    { 
      Log3 $name ,4,"$name, new artist ".$artist." , try to get it from Last.fm";
      HttpUtils_NonblockingGet($param); 
    }
    return undef;
}

sub MPD_get_album_info ($$)
{   
    my ($hash, $album) = @_;
    my $name = $hash->{NAME};
    return undef if (($hash->{'.album'} eq $album) || ($album eq ""));
    $hash->{'.album'}   = $album;
    my $artist = $hash->{'.artist'};
    my $data;
    my $cache = AttrVal($name,"cache",""); # default

    my $param = {
                 url      => lfm_album.$hash->{'.apikey'}."&album=".$album."&artist=".$artist,
                 timeout  => 5,
                 hash     => $hash,     
		 header   => "User-Agent: Mozilla/5.0\r\nAccept: application/json\r\nAccept-Charset: utf-8",
                 method   => "GET",     
                 callback =>  \&MPD_lfm_album_info
                };
    
    my $fname = "www/$cache/".$artist."_".$album.".json";

    if (-e $fname && ($cache ne ""))
    {
     Log3 $name ,4,"$name, album file $fname already exist";
     if (!open (FILE , $fname))
     {
      my $error = "error reading $fname : $!";
      Log3 $name, 2, "$name, $error";
      readingsSingleUpdate($hash,"last_error",$error,1);
      $hash->{JSON} = 0;
     }
     else 
     {
      while(<FILE>){ $data = $data.$_;}
      close (FILE);
      MPD_lfm_album_info($param,"",$data,'local');
     }
    }
    else # json von lastfm holen 
    { 
      $fname = $artist."_".$album.".json";
      Log3 $name ,4,"$name, new album $fname , try to get it from Last.fm";
      HttpUtils_NonblockingGet($param); 
    }
    return undef;
}

sub MPD_lfm_artist_info(@)
{
    my ($param, $err, $data, $local) = @_;
    my $hash   = $param->{hash};
    my $name   = $hash->{NAME};
    my $artist = $hash->{'.artist'};
    my $size   = AttrVal($name,"image_size",0); # default
    my $cache  = AttrVal($name,"cache","");
    my $url;

    return if ($size < 0);
  
    if (!$data || $err)
    {
     Log3 $name ,3,"$name, error got artist info [$artist] from Last.fm -> $err";
     MPD_artist_image($hash,"/fhem/icons/10px-kreis-rot","");
     return undef;
    }

    if (!$local) {Log3 $name,4,"$name, new json data for $artist from Last.fm";}
    if ($cache ne "")
    {
     # json lokal speichern ?
     if (-e "www/$cache/".$hash->{'.artist'}.".json")
     {
       Log3 $name ,5,"$name, artist ".$artist." already exist";
       $hash->{JSON} = 1;
     }
     else
     {
      if (!open (FILE , ">"."www/$cache/".$artist.".json"))
       {
         my $error = "error saving ".$artist.".json : ".$!;
         Log3 $name, 2, "$name, $error";
         readingsSingleUpdate($hash,"last_error",$error,1);
         $hash->{JSON} = 0;
       }
        else 
        {
         print FILE $data;
         close(FILE);
         $hash->{JSON} = 1;
        }
     }
    }

  
    my $res;
    eval { $res = decode_json($data); 1; } or do 
    {
      my $error = "invalid file content in file ".$artist.".json";
      Log3 $name, 3, "$name, $error";
      readingsSingleUpdate($hash,"last_error",$error,1);
      return undef;
    };

    my $hw="width='32' height='32'";
    $hw="width='64' height='64'"   if ($size == 1);
    $hw="width='174' height='174'" if ($size == 2);
    $hw="width='300' height='300'" if ($size == 3);

    if ((exists $res->{'artist'}->{'bio'}->{'summary'}) && AttrVal($name,"artist_summary",0))

    {
     readingsSingleUpdate($hash,"artist_summary",$res->{'artist'}->{'bio'}->{'summary'},1);
    }

    if ((exists $res->{'artist'}->{'bio'}->{'content'}) && AttrVal($name,"artist_content",0))
    {
     readingsSingleUpdate($hash,"artist_content",$res->{'artist'}->{'bio'}->{'content'},1);
    }

    if (exists $res->{'artist'}->{'image'}[$size]->{'#text'})
    {
      $url = $res->{'artist'}->{'image'}[$size]->{'#text'};
    }

    if (!$cache || !$hash->{JSON}) # cache verwenden ?
      {
      if ($url)
      {
       if (index($url,"http") < 0)
        {
         MPD_artist_image($hash,"/fhem/icons/10px-kreis-rot","");
         my $error = "falsche info  URL : $url";
         readingsSingleUpdate($hash,"last_error",$error,1);
         Log3 $name,1,"$name, $error";
         return undef;
        }
        Log3 $name,4,"$name, try to get image from $url";  
        MPD_artist_image($hash,$url,$hw);
      }

       else
       {
        MPD_artist_image($hash,"/fhem/icons/10px-kreis-rot", "");
        Log3 $name,4,"$name, no picture on Last.fm";
       }
       return undef;
    } # kein cache verwenden

   if ($url)
   {
    $hash->{'.suffix'} = substr($url,-4);
    if (length($hash->{'.suffix'})>3)
    {
    my $fname = $hash->{'.artist'}."_$size".$hash->{'.suffix'};

    if (-e "www/$cache/".$fname)
    {
       Log3 $name ,4,"$name, artist image ".$fname." local found";
       MPD_artist_image($hash,"/fhem/$cache/".$fname,$hw);
       return undef;
    }

    Log3 $name ,4,"$name, no local artist image ".$fname." found, try to get it from Last.fm";

    $param = {
        url      => $url,
        timeout  => 5,
        hash     => $hash,     
        header   => "User-Agent: Mozilla/5.0\r\nAccept: application/json\r\nAccept-Charset: utf-8",
        method   => "GET",     
        callback =>  \&MPD_lfm_artist_image 
    };

    HttpUtils_NonblockingGet($param);
    MPD_artist_image($hash,"/fhem/icons/10px-kreis-gelb","");
    return undef;
   }# zu kurz
   }# gibt es nicht oder ist leer

   MPD_artist_image($hash,"/fhem/icons/10px-kreis-rot",""); 
   Log3 $name ,4,"$name, image infos missing , delete old json";
   unlink ("www/$cache/".$artist.".json");
   # keine Image Infos vorhanden !
   return undef;
}

sub MPD_lfm_album_info(@)
{
    my ($param, $err, $data, $local) = @_;
    my $hash  = $param->{hash};
    my $name  = $hash->{NAME};
    my $artist= $hash->{'.artist'};
    my $album = $hash->{'.album'};
    my $size  = AttrVal($name,"image_size",0); # default
    my $cache = AttrVal($name,"cache","");
    my $url;

    return if ($size < 0);
  
    if (!$data || $err)
    {
     Log3 $name ,3,"$name, error got album info from Last.fm -> $err";
     MPD_album_image($hash,"/fhem/icons/10px-kreis-rot","");
     return undef;
    }

    if (!$local) {Log3 $name,4,"$name, new json data for $album from Last.fm";}

    my $fname =  "www/$cache/".$artist."_".$album.".json";

    if ($cache ne "")
    {
     # json lokal speichern ?
     if (-e $fname)
     {
       Log3 $name ,5,"$name, album $fname already exist";
     }
     else
     {
      if (!open (FILE , "> ".$fname))
       {
         my $error = "error saving $fname : ".$!;
         readingsSingleUpdate($hash,"last_error",$error,1);
         Log3 $name, 2, "$name, $error";
       }
        else 
        {
         print FILE $data;
         close(FILE);
        }
     }
    }

    my $res;
    eval { $res = decode_json($data); 1; } or do 
    {
      my $error = "invalid file content in file ".$album.".json";
      Log3 $name, 3, "$name, $error";
      readingsSingleUpdate($hash,"last_error",$error,1);
      return undef;
    };

    my $hw="width='32' height='32'";
    $hw="width='64' height='64'"   if ($size == 1);
    $hw="width='174' height='174'" if ($size == 2);
    $hw="width='300' height='300'" if ($size == 3);

      if (!$cache || !$hash->{JSON}) # cache verwenden ?
      {
      if (exists $res->{'album'}->{'image'}[$size]->{'#text'})
      {
      $url = $res->{'album'}->{'image'}[$size]->{'#text'};
       if (index($url,"http") < 0)
       {
         MPD_album_image($hash,"/fhem/icons/10px-kreis-rot","");
         my $error = "falsche info  URL : $url";
         readingsSingleUpdate($hash,"last_error",$error,1);
         Log3 $name,1,"$name, $error";
         return undef;
       }
        MPD_album_image($hash,$url,$hw);
      }
      else
      {
       MPD_album_image($hash,"/fhem/icons/10px-kreis-rot", "");
       Log3 $name,4,"$name, unknown album";
      }
       return undef;
    } # kein cache verwenden

  if (exists $res->{'album'}->{'image'}[$size]->{'#text'})
   {
    $url = $res->{'album'}->{'image'}[$size]->{'#text'};
    $hash->{'.suffix'} = substr($url,-4);
    my $fname = $artist."_".$album."_".$size.$hash->{'.suffix'};

    if (-e "www/".$cache."/".$fname)
    {
       Log3 $name ,4,"$name, album image ".$fname." local found";
       MPD_album_image($hash,"/fhem/".$cache."/".$fname,$hw);
       return undef;
    }

    Log3 $name ,4,"$name, no local album image ".$fname." found, try to get it from Last.fm";

    $param = {
        url      => $url,
        timeout  => 5,
        hash     => $hash,    
        header   => "User-Agent: Mozilla/5.0\r\nAccept: application/json\r\nAccept-Charset: utf-8", 
        method   => "GET",     
        callback =>  \&MPD_lfm_album_image 
    };

    HttpUtils_NonblockingGet($param);
    MPD_album_image($hash,"/fhem/icons/10px-kreis-gelb","");
   }
 return undef;
}



sub MPD_artist_image($$$)
{
  my ($hash, $im , $hw) = @_;
  $im =~s/\%/\%25/g;
  readingsBeginUpdate($hash);
  readingsBulkUpdate($hash,"artist_image_html","<img src='$im' $hw />");
  readingsBulkUpdate($hash,"artist_image","$im");
  readingsBulkUpdate($hash,"album_image_html","");
  readingsBulkUpdate($hash,"album_image","");
  readingsEndUpdate($hash, 1);
  return;
}

sub MPD_album_image($$$)
{
  my ($hash, $im , $hw) = @_;
  readingsBeginUpdate($hash);
  $im =~s/\%/\%25/g;
  readingsBulkUpdate($hash,"album_image_html","<img src='$im' $hw />");
  readingsBulkUpdate($hash,"album_image","$im");
  readingsEndUpdate($hash, 1);
  return;
}

sub MPD_lfm_artist_image(@)
{
    my ($param, $err, $data) = @_;
    my $hash  = $param->{hash};
    my $name  = $hash->{NAME};
    my $artist= $hash->{'.artist'};
    my $cache = AttrVal($name,"cache","");
    my $size  = AttrVal($name,"image_size",0);

    my $hw="width='32' height='32'";
    $hw="width='64' height='64'"   if ($size == 1);
    $hw="width='174' height='174'" if ($size == 2);
    $hw="width='300' height='300'" if ($size == 3);

    my $fname = $artist."_".$size.$hash->{'.suffix'};
    $artist = urlDecode($artist);

    if($err ne "")          
    {
        my $error = "error to get artist image [$artist] while requesting ".$param->{url}." - $err";
        readingsSingleUpdate($hash,"last_error",$error,1);
        Log3 $name, 3, "$name, $error";
    }
     elsif(($data ne "") && ($data =~ /PNG/i))                                                   
    {
        Log3 $name,4,"$name, got new image $fname from Last.fm";        
    
        if (!open(FILE, "> www/$cache/$fname"))
        {
         Log3 $name, 2, "$name, error saving image $fname : ".$!;
         MPD_artist_image($hash,"/fhem/icons/10px-kreis-rot"," ");
         return undef;
        }
        binmode(FILE);
        print FILE $data;
        close(FILE);
    
        MPD_artist_image($hash,"/fhem/$cache/".$fname,$hw);
        return undef;
    }

    Log3 $name,3,"$name, empty or invalid artist image [$artist] from Last.fm";
    # ToDo : da nochmal genau reinsehen !
    #system("cp www/$cache/".$hash->{'.artist'}.".json www/$cache/".$hash->{'.artist'}.".def");      
    unlink ("www/$cache/$fname");
    MPD_artist_image($hash,"/fhem/icons/10px-kreis-rot","");
    return undef;
}

sub MPD_lfm_album_image(@)
{
    my ($param, $err, $data) = @_;
    my $hash  = $param->{hash};
    my $name  = $hash->{NAME};
    my $artist= $hash->{'.artist'};
    my $album = $hash->{'.album'};
    my $cache = AttrVal($name,"cache","");
    my $size  = AttrVal($name,"image_size",0);
    my $hw="width='32' height='32'";
    my $error;

    $hw="width='64' height='64'"   if ($size == 1);
    $hw="width='174' height='174'" if ($size == 2);
    $hw="width='300' height='300'" if ($size == 3);
  

    my $fname = $artist."_".$album."_".$size.$hash->{'.suffix'};
    $artist = urlDecode($artist);
    $album  = urlDecode($album);
 
    if($err ne "")          
    {
        $error = "error to get album image [$album] for artist [$artist] while requesting ".$param->{url}." - $err";
        readingsSingleUpdate($hash,"last_error",$error,1);
        Log3 $name, 3, "$name, $error";
    }
     elsif(($data ne "") && ($data =~ /PNG/i))                                                   
    {
        Log3 $name,4,"$name, got new image $fname for $album from Last.fm";        
    
        if (!open(FILE, "> www/".$cache."/".$fname))
        {
         $error = "error saving image $fname : ".$!;
         readingsSingleUpdate($hash,"last_error",$error,1);
         Log3 $name, 2, "$name, $error";
         MPD_album_image($hash,"/fhem/icons/10px-kreis-rot"," ");
         return undef;
        }
        binmode(FILE);
        print FILE $data;
        close(FILE);
    
        MPD_album_image($hash,"/fhem/$cache/".$fname,$hw);
        return undef;
    }

    Log3 $name,3,"$name, empty or invalid image for album [$album] from Last.fm";
    unlink ("www/".$cache."/".$fname);
    MPD_album_image($hash,"/fhem/icons/10px-kreis-rot","");
    return undef;
}


sub MPD_NewPlaylist($$)
{
  my ($hash, $list) = @_;
  my $name  = $hash->{NAME};
  my $crc   = unpack ("%16C*",$list);

  Log3 $name,5,"$name, new Playlist in -> $list";
  return if (int($crc) == int($hash->{".playlist_crc"}));
  Log3 $name,4,"$name, new CRC : $crc";
  $hash->{".playlist_crc"} = $crc;

  $list =~ s/"/\\"/g;
  $list = "\n".$list;  
  my @artist   = ($list=~/\nArtist:\s(.*)\n/g);
  my @title    = ($list=~/\nTitle:\s(.*)\n/g);
  my @album    = ($list=~/\nAlbum:\s(.*)\n/g);
  my @time     = ($list=~/\nTime:\s(.*)\n/g);
  my @file     = ($list=~/\nfile:\s(.*)\n/g);
  my @track    = ($list=~/\nTrack:\s(.*)\n/g);
  my @albumUri = ($list=~/\nX-AlbumUri:\s(.*)\n/g);  # von Mopidy ?
  my $ret = '[';
  my $lastUri = '';
  my $url;
  my $error;
  my $lastcover; 
  my $i;


  # Radiostream ohne Artist ?
  if (!@artist && @title && AttrVal($name, "titleSplit", 1))
  {
     for $i (0 .. $#title)
     {
     $title[$i] =~ s/: / - /;
     $title[$i] =~ s/\+\+\+//;
     $title[$i] =~ s/feat./ \/ /;
     my  $sp = index($title[$i], " - ");
     if ($sp>0) 
      {
       $artist[$i] = substr($title[$i],0,$sp);
       $title[$i]  = substr($title[$i],$sp+3);
      } 
      else 
      {
       $sp = index($title[$i], "-");
       if ($sp>0) 
       {
        $artist[$i] = substr($title[$i],0,$sp);
        $title[$i]  = substr($title[$i],$sp+1);
       } 
        else {$artist[$i] = "???";}

      }
     }
  }


  for $i (0 .. $#artist)
  {
    $lastcover = AttrVal($name,"unknown_artist_image","/fhem/icons/1px-spacer"); # default 

    if (defined($albumUri[$i]))
    {
     if ( $lastUri ne $albumUri[$i]) 
     {
       $lastUri   = $albumUri[$i];
       eval "use LWP::UserAgent";
       if($@)
        {
         $error = "please install LWP::UserAgent to get album cover from spotify.com";
         Log3 $name,3,"$name, $error";
         readingsBeginUpdate($hash); 
         readingsBulkUpdate($hash,"playlistinfo","");
         readingsBulkUpdate($hash,"last_error",$error);
         readingsEndUpdate($hash,1);
        }
        else
        {    
          my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 1 } );
          my $response = $ua->get("https://embed.spotify.com/oembed/?url=".$albumUri[$i]);
          my $data = '';
          if ( $response->is_success ) 
          {
            $data = $response->decoded_content;
            eval 
            {
             $url = decode_json( $data );
             $lastcover = $url->{'thumbnail_url'};
             1;
            } or do 
            {
             $error = "invalid JSON: $data";
             Log3 $name, 3, "$name, $error";
             readingsBeginUpdate($hash);
             readingsBulkUpdate($hash,"last_error",$error);
             readingsBulkUpdate($hash,"playlistinfo","");
             readingsEndUpdate($hash,1);
            }
           } #  
         #} # JSON 
        } # LWP
      } #$lastUri ne $albumUri[$i]
     } # defined($albumUri[$i]), vesuchen wir es mit Last.fm
     elsif (AttrVal($name,"image_size",-1) > -1 && (AttrVal($name,"cache","") ne ""))
     {
      my $cache = AttrVal($name,"cache","");
      my $size  = AttrVal($name,"image_size",0);
      if (-e "www/$cache/".urlEncode($artist[$i])."_".$size.".png")
            { $lastcover = "/fhem/www/".$cache."/".urlEncode($artist[$i])."_".$size.".png"; }
     }

   $ret .= '{"Artist":"'.$artist[$i].'",';
   $ret .= '"Title":';
   $ret .= (defined($title[$i])) ? '"'.$title[$i].'",' : '"",';
   $ret .= '"Album":';
   $ret .= (defined($album[$i])) ? '"'.$album[$i].'",' : '"",';
   $ret .= '"Time":';
   $ret .= (defined($time[$i])) ? '"'.$time[$i].'",' : '"",';
   $ret .= '"File":';
   $ret .= (defined($file[$i])) ? '"'.$file[$i].'",' : '"",';
   $ret .= '"Track":';
   $ret .= (defined($track[$i])) ? '"'.$track[$i].'",' : '"",';
   $ret .= '"Cover":"'.$lastcover.'"}';
   $ret .= ',' if ($i<$#artist); 
  }
  
  $ret .= ']';
  $ret =~ s/;//g;
  $ret =~ s/\\n//g;
  Log3 $name,5,"$name, new Playlist out -> $ret";
  Log3 $name,5,"$name, list : $list" if ($ret eq "[]");
  readingsBeginUpdate($hash);
   readingsBulkUpdate($hash,"playlistinfo",$ret);
   readingsBulkUpdate($hash,"playlist_crc",$crc);
  readingsEndUpdate($hash,1);
  return;  
}



###############################################

sub MPD_html($) {
 my ($hash)= @_;
 my $name         = $hash->{NAME};
 my $playlist     = $hash->{".playlist"};
 my $playlists    = $hash->{".playlists"};
 my $musiclist    = $hash->{".musiclist"};
 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  = "<div class=\"remotecontrol\" id=\"$name\">";
 $html .= "<table class=\"rc_body\" border=0>";
 if ($playlists||$music) 
 {
 
  if ($playlists) { 
     $html .= "<tr><td colspan=\"5\" align=center><select  id=\"".$name."_List\" name=\"".$name."_List\" class=\"dropdown\" onchange=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name playlist ' + this.options[this.selectedIndex].value)\" style=\"font-size:11px;\">";

    $html .= "<optgroup label=\"Playlists\">"; 
    $html .= "<option>---</option>";
    @list = sort(split ("\n",$playlists));
    foreach (@list) 
    {
      $sel = ($_ eq $playlist) ? " selected" : "";
      $html .= "<option ".$sel." value=\"".uri_escape($_)."\">".$_."</option>";
    }
    $html .= "</optgroup></select></td></tr>";
   }
 
   if ($musiclist) { 
   $html .= "<tr><td colspan=\"5\" align=center><select  id=\"".$name."_List\" name=\"".$name."_List\" class=\"dropdown\" onchange=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name playfile ' + this.options[this.selectedIndex].value)\" style=\"font-size:11px;\">";
   $html .= "<optgroup label=\"Music\">";
   $html .= "<option>---</option>"; 
     @list = sort(split ("\n",$musiclist));
      foreach (@list) 
      {
      $sel = ($_ eq $music) ? " selected" : "";
      $html .= "<option ".$sel." value=\"".uri_escape($_)."\">".$_."</option>";
      }
    $html .= "</optgroup></select></td></tr>";
  }
 }

 $html .= "<tr><td>&nbsp;</td>";
 
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name play')\"><img src=\"/fhem/icons/remotecontrol/black_btn_PLAY\" title=\"PLAY\"></a></td>";
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name pause')\"><img src=\"/fhem/icons/remotecontrol/black_btn_PAUSE\" title=\"PAUSE\"></a></td>";
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name stop')\"><img src=\"/fhem/icons/remotecontrol/black_btn_STOP\" title=\"STOP\"></a></td>";
 $html .= "<td>&nbsp;</td></tr>";
 
 $html .= "<tr><td>&nbsp;</td>";
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name previous')\"><img src=\"/fhem/icons/remotecontrol/black_btn_REWIND\" title=\"PREV\"></a></td>";
 $html .= "<td style=\"font-size:14px; align:center;\">".$pos."</td>";
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name next')\"><img src=\"/fhem/icons/remotecontrol/black_btn_FF\" title=\"NEXT\"></a></td>";
 $html .= "<td>&nbsp;</td></tr>";

 $html .= "<tr><td>&nbsp;</td>";
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name volumeDown')\"><img src=\"/fhem/icons/remotecontrol/black_btn_VOLDOWN2\" title=\"VOL -\"></a></td>";
 $html .= "<td style=\"font-size:14px; align:center;\">".$volume."</td>";
 $html .= "<td class=\"rc_button\"><a onClick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name volumeUp')\"><img src=\"/fhem/icons/remotecontrol/black_btn_VOLUP2\" title=\"VOL +\"></a></td>";
 $html .= "<td>&nbsp;</td></tr>";

 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 ($oen ne "")
     {
      $html .= "<tr>";
      $html .="<td style='font-size:10px;' colspan='5' align='center'>$oid.$oname ";
      $osel = ($oen eq "1") ? "checked" : "";
      $html .="<input type='radio' name='B".$oid." value='1' $osel onclick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name mpdCMD enableoutput $oid')\">on&nbsp;";
      $osel = ($oen ne "1") ? "checked" : "";
      $html .="<input type='radio' name='B".$oid." value='0' $osel onclick=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name mpdCMD disableoutput $oid')\">off</td>";
      $html .="</tr>";
      $oen = "";
     }
    }
 }

 $html .= "</table></div>";

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 $music        = $hash->{".music"};
        my $musiclist    = $hash->{".musiclist"};

        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  = "<a onClick=\"FW_cmd('/fhem?XHR=1&$link&room=$room')\">".$txt."</a>" if ($link);

        my $hw;
        my $file   = (ReadingsVal($name,"file",  "")) ? $hash->{READINGS}{"file"}{VAL}."&nbsp;<br />"  : "";
        my $title  = (ReadingsVal($name,"Title", "")) ? $hash->{READINGS}{"Title"}{VAL}."&nbsp;<br />" : "";
        my $artist = (ReadingsVal($name,"Artist","")) ? $hash->{READINGS}{"Artist"}{VAL}."&nbsp;<br />": "";
        my $album  = (ReadingsVal($name,"Album", "")) ? $hash->{READINGS}{"Album"}{VAL}."&nbsp;"       : "";
        my $rname  = (ReadingsVal($name,"Name",  "")) ? $hash->{READINGS}{"Name"}{VAL}."&nbsp;<br />"  : ""; 

	$html  ="<table><tr><td>$txt</td><td>";
         if (($playlists) && $hash->{".sPlayL"})
         { 
          $html .= "<select  id=\"".$name."_List\" name=\"".$name."_List\" class=\"dropdown\" onchange=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name playlist ' + this.options[this.selectedIndex].value)\">";
          $html .= "<optgroup label=\"Playlists\">"; 
          $html .= "<option>---</option>";
          @list = sort( split ("\n",$playlists));
          foreach (@list) 
          {
           $sel = ($_ eq $playlist) ? " selected" : "";
           $html .= "<option ".$sel." value=\"".uri_escape($_)."\">".$_."</option>";
          }
          $html .= "</optgroup></select><br/>";
         }
         
         if (($musiclist) && $hash->{".sMusicL"}) 
         { 
          $html .= "<select  id=\"".$name."_List\" name=\"".$name."_List\" class=\"dropdown\" onchange=\"FW_cmd('/fhem?XHR=1&cmd.$name=set $name playfile ' + this.options[this.selectedIndex].value)\">";
          $html .= "<optgroup label=\"Music\">"; 
          $html .= "<option>---</option>";
          @list = sort (split ("\n",$musiclist));
          foreach (@list) 
          {
           $sel = ($_ eq $music) ? " selected" : "";
           $html .= "<option ".$sel." value=\"".uri_escape($_)."\">".$_."</option>";
          }
          $html .= "</optgroup></select>";
         }

         $html.= "</td><td>";

        if ($rname.$artist.$title.$album ne "") 
        {
	 $html .= (($state eq "play") || ($state eq "pause")) ? $rname.$artist.$title.$album : "&nbsp;";
         if ((ReadingsVal($name,"artist_image","") ne "") && (($state eq "play") || ($state eq "pause")))
         {
          $hw = (index(ReadingsVal($name,"artist_image",""),"icon") == -1) ? " width='32' height='32'" : "";
          $html .= "</td><td><img src='".ReadingsVal($name,"artist_image","")."' alt='".$hash->{'.artist'}."' $hw/>";
         }
         if ((ReadingsVal($name,"album_image","") ne "") && (($state eq "play") || ($state eq "pause")))
         {
          $hw = (index(ReadingsVal($name,"album_image",""),"icon") == -1) ? " width='32' height='32'" : "";
          $html .= "</td><td><img src='".ReadingsVal($name,"album_image","")."' $hw />";
         }
        }
        else
        {
	 $html .= (($state eq "play") || ($state eq "pause")) ? $file : "&nbsp;";
        }

        $html .= "</td></tr></table>";
	return $html;	
}

sub MPD_SaveBookmark($)
{
 my ($hash)= @_;
 my $name= $hash->{NAME};
 MPD_Set($hash,$name,"save_bookmark","auto");
 return;
}


1;

=pod
=item device
=item summary  controls MPD or Mopidy music server
=item summary_DE steuert den MPD oder Mopidy Musik Server
=begin html

<a name="MPD"></a>
<h3>MPD</h3>
 FHEM module to control a MPD (or Mopidy) like the MPC (MPC =  Music Player Command, the command line interface to the <a href='http://en.wikipedia.org/wiki/Music_Player_Daemon'>Music Player Daemon</a> )<br>
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<br>
FHEM Forum : <a href='http://forum.fhem.de/index.php/topic,18517.0.html'>Modul f&uuml;r MPD</a> ( in german )<br>
Modul requires JSON -> sudo apt-get install libjson-perl <br>
If you are using Mopidy with Spotify support you may also need LWP::UserAgent -> sudo apt-get install libwww-perl<br>
<ul>
 <a name="MPDdefine"></a>
  <b>Define</b>
  <ul>
  define &lt;name&gt; MPD &lt;IP MPD Server | default localhost&gt; &lt;Port  MPD Server | default 6600&gt;<br>
  Example:<br>
  <pre>
  define myMPD MPD 192.168.0.99 7000
  </pre>
  if FHEM and MPD a running on the same device : 
  <pre>
  define myMPD MPD
  </pre>
  </ul>
  <br>
  <a name="MPDset"></a>
  <b>Set</b><ul>
    <code>set &lt;name&gt; &lt;what&gt;</code>
    <br>&nbsp;<br>
    Currently, the following commands are defined.<br>
    &nbsp;<br>
    play     => like MPC play , start playing song in playlist<br>
    clear    => like MPC clear , delete MPD playlist<br>
    stop     => like MPC stop, stops playing <br>
    pause    => like MPC pause<br>
    previous => like MPC previous, play previous song in playlist<br>
    next     => like MPC next, play next song in playlist<br>
    random   => like MPC random, toggel on/off<br>
    repeat   => like MPC repeat, toggel on/off<br>
    toggle   => toggles from play to stop or from stop/pause to play<br>
    updateDb => like MPC update<br>
    volume (%) => like MPC volume %, 0 - 100<br>
    volumeUp => inc volume ( + attr volumeStep size )<br>
    volumeDown => dec volume ( - attr volumeStep size )<br>
    playlist (playlistname|songnumber|position) set playlist on MPD Server. If songnumber and/or postion not defined<br>
    MPD starts playing with the first song at position 0<br> 
    playfile (file) => create playlist + add file to playlist + start playing<br>
    IdleNow => send Idle command to MPD and wait for events to return<br>
    reset => reset MPD Modul<br>
    mpdCMD (cmd) => send a command to MPD Server ( <a href='http://www.musicpd.org/doc/protocol/'>MPD Command Ref</a> )<br>
    mute => on,off,toggle<br>
    seekcur (time) => Format: [[hh:]mm:]ss. Not before MPD version 0.20.<br>
    forward => jump forward in the current track as far as defined in the <i>seekStep</i> Attribute, default 7%<br>
    rewind => jump backwards in the current track, as far as defined in the <i>seekStep</i> Attribute, default 7%<br>
    channel (no) => loads the playlist with the given number<br>
    channelUp => loads the next playlist<br>
    channelDown => loads the previous playlist<br>
    save_bookmark => saves the current state of the playlist (track number and position inside the track) for the currently loaded playlist
    This will only work if the playlist was loaded through the module and if the attribute bookmarkDir is set. (not on radio streams !)<br>
    load_bookmark <name> => resumes the previously saved state of the currently loaded playlist and jumps to the associated tracknumber and position inside the track<br>
   </ul>
  <br>
  <a name="MPDget"></a>
  <b>Get</b><ul>
    <code>get &lt;name&gt; &lt;what&gt;</code>
    <br>&nbsp;<br>
    Currently, the following commands are defined.<br>
    music => list all MPD music files in MPD databse<br>
    playlists => list all MPD playlist in MPD databse<br>
    playlistsinfo => show current playlist informations<br>
    webrc => HTML output for a simple Remote Control on FHEM webpage e.g :.<br>
    <pre>
       define &lt;name&gt; weblink htmlCode {fhem("get &lt;name&gt; webrc", 1)}
       attr &lt;name&gt; room MPD
    </pre>
    statusRequest => get MPD status<br>
    currentsong => get infos from current song in playlist<br>
    outputs => get name,id,status about all MPD output devices in /etc/mpd.conf<br>
    bookmarks => list all stored bookmarks<br>
  </ul>
  <br>
  <a name="MPDattr"></a>
  <b>Attributes</b>
  <ul>
      <li>password <pwd>,  if password in mpd.conf is set</li>
      <li>loadMusic 1|0 => load titles from MPD database at startup (not supported by modipy)</li>
      <li>loadPlaylists 1|0 => load playlist names from MPD database at startup</li>
      <li>volumeStep 1|2|5|10 =>  Step size for Volume +/- (default 5)</li>
      <li>titleSplit 1|0 => split title to artist and title if no artist is given in songinfo (e.g. radio-stream default 1)</li>
      <li>timeout (default 1) => timeout in seconds for TCP connection timeout</li>
      <li>waits (default 60) => if idle process ends with error, seconds to wait</li>
      <li>stateMusic 1|0 => show Music DropDown box in web frontend</li>
      <li>statePlaylists 1|0 => show Playlists DropDown box in web frontend</li>
      <li>player  mpd|mopidy|forked-daapd => which player is controlled by the module</li>
      <li>Cover Art functions from <a href="http://www.last.fm/"><b>Last.fm</b></a> :</li>
      <li>image_size -1|0|1|2|3  (default -1 = don't use artist images and album cover from Last.fm)<br>
      Last.fm is using diffrent image sizes :<br>
      0 = 32x32 , 1 = 64x64 , 2 = 174x174 , 3 = 300x300</li>
      <li>artist_content 0|1 => store artist informations in Reading artist_content</li>
      <li>artist_summary 0|1 => stote more artist informations in Reading artist_summary<br>
      Example with readingsGroup :<br>
      <pre>
       define rg_artist readingsGroup &ltMPD name&gt:artist,artist_image_html,artist_summary
      attr rg_artist room MPD
     </pre></li>
      <li>cache (default lfm => /fhem/www/lfm) store artist image and album cover in a local directory</li>
      <li>unknown_artist_image => show this image if no other image is avalible (default : /fhem/icons/1px-spacer)</li>
      <li>bookmarkDir => set a writeable directory here to enable saving and restoring of playlist states using the set bookmark and get bookmark commands</li>
      <li>autoBookmark => set this to 1 to enable automatic loading and saving of playlist states whenever the playlist is changed using this module</li>
      <li>seekStep => set this to define how far the forward and rewind commands jump in the current track. Defaults to 7 if not set</li>
      <li>seekStepSmall (default 1) => set this on top of seekStep to define a smaller step size, if the current playing position is below seekStepThreshold percent. This is useful to skip intro music, e.g. in radio plays or audiobooks.</li>
      <li>seekStepSmallThreshold (default 0) => used to define when seekStep or seekStepSmall is applied. Defaults to 0. If set e.g. to 10, then during the first 10% of a track, forward and rewind are using the seekStepSmall value.</li>
      <li>no_playlistcollection (default 0) => if set to 1 , dont create reading playlistcollection</li>
  </ul>
  <br>
  <b>Readings</b>
  <ul>
    all MPD internal values<br>
    artist_image : (if using Last.fm)<br>
    artist_image_html : (if using Last.fm)<br>
    album_image : (if using Last.fm)<br>
    album_image_html : (if using Last.fm)<br>
    artist_content : (if using  Last.fm)<br>
    artist_summary : (if using  Last.fm)<br>
    currentTrackProvider : Radio / Bibliothek<br>
    playlistinfo : (TabletUI Medialist)<br>
    playlistcollection : (TabletUI)<br>
    playlistname : (TabletUI) current playlist name<br> 
    playlist_num : current playlist number<br>
    playlist_json : (Medialist Modul)<br>
    rawTitle : Title information without changes from the modul
  </ul>
</ul>
=end html

=begin html_DE

<a name="MPD"></a>
<h3>MPD</h3>
<ul>
  FHEM Modul zur Steuerung des MPD (oder Mopidy) &auml;hnlich dem MPC (MPC =  Music Player Command, das Kommando Zeilen Interface f&uuml;r den 
  <a href='http://en.wikipedia.org/wiki/Music_Player_Daemon'>Music Player Daemon</a> ) (englisch)<br>
  Um den MPD auf einem Raspberry Pi zu installieren finden sich im Internet zahlreiche gute Dokumentaionen 
  z.B. <a href="http://www.forum-raspberrypi.de/Thread-tutorial-music-player-daemon-mpd-und-mpc-auf-dem-raspberry-pi"><b>hier</b></a><br>
  Thread im FHEM Forum : <a href='http://forum.fhem.de/index.php/topic,18517.0.html'>Modul f&uuml;r MPD</a><br>
  Das Modul ben&ouml;tigt zwingend JSON, installation z.B. mit <i>sudo apt-get install libjson-perl</i><br>
  <a name="MPDdefine"></a>
  <b>Define</b>
  <ul>
    define &lt;name&gt; MPD &lt;IP MPD Server | default localhost&gt; &lt;Port  MPD Server | default 6600&gt;<br>
    Beispiel :<br>
    <ul><pre>
    define myMPD MPD 192.168.0.99 7000
    </pre>
    wenn FHEM und der MPD auf dem gleichen PC laufen : 
    <pre>
    define myMPD MPD
    </pre>
    </ul>
  </ul>
  <br>
  <a name="MPDset"></a>
  <b>Set</b><ul>
    <code>set &lt;name&gt; &lt;was&gt;</code>
    <br>&nbsp;<br>
    z.Z. unterst&uuml;tzte Kommandos<br>
    &nbsp;<br>
    play  => spielt den aktuellen Titel der MPD internen Playliste<br>
    clear => l&ouml;scht die MPD interne Playliste<br>
    stop  => stoppt die Wiedergabe<br>
    pause => Pause an/aus<br>
    previous => spielt den vorherigen Titel in der Playliste<br>
    next => spielt den n&aumlchsten Titel in der Playliste<br>
    random => zuf&auml;llige Wiedergabe an/aus<br>
    repeat => Wiederholung an/aus<br>
    toggle => wechselt von play nach stop bzw. stop/pause nach play<br>
    volume (%) => &auml;ndert die Lautst&auml;rke von 0 - 100%<br>
    volumeUp => Lautst&auml;rke schrittweise erh&ouml;hen , Schrittweite = ( attr volumeStep size )<br>
    volumeDown => Lautst&auml;rke schrittweise erniedrigen , Schrittweite = ( attr volumeStep size )<br>
    playlist (name|SongNr|Position) => lade Playliste <name> aus der MPD Datenbank und starte die Wiedergabe<br>
    Werden SongNr und/oder Position nicht mit &uuml;bergeben, startet die Wiedergabe mit dem ersten Titel (Song=0) am Anfang (Position=0)<br>
    playfile (file) => erzeugt eine MPD interne Playliste mit file als Inhalt und spielt dieses ab<br>  
    updateDb => wie MPC update, Update der MPD Datenbank<br>
    reset => reset des FHEM MPD Moduls<br>
    mpdCMD (cmd) => sende cmd direkt zum MPD Server ( siehe auch <a href="http://www.musicpd.org/doc/protocol/">MPD Comm Ref</a> )<br>
    IdleNow => sendet das Kommando idle zum MPD und wartet auf Ereignisse<br>
    clear_readings => l&ouml;scht sehr viele Readings<br>
    mute => on,off,toggle<br>
    seekcur (zeit) => Format: [[hh:]mm:]ss. nicht vor MPD Version 0.20<br>
    forward => Springt im laufenden Track um einen optional per seekStep oder seekStepSmall definierten Wert nach vorne bzw. defaultm&auml;ßig um 7%. <br>
    rewind => Springt so wie bei forward beschrieben entsprechend zur&uuml;ck. <br>
    channel => Wechsele zur Playliste mit der angegebenen Nummer<br>
    channelUp => wechselt zur n&auml;chsten Playliste<br>
    channelDown => wechselt zur vorherigen Playliste<br>
    save_bookmark => speichert den aktuellen Zustand (Tracknummer und Position innerhalb des Tracks für die gerade geladene Playliste<br>. 
    dies sunktioniert nur, wenn die Playliste mit dem Modul geladen wurde und wenn das Attribut bookmarkDir gesetzt ist.<br>
    load_bookmark <name> => stellt den zuletzt gespeicherten Zustand (set bookmark) der geladenen Playliste wieder her und springt zum gespeicherten Track und Position<br>
    wird <name> zusätzlich mit übergeben wird zuvor die entsprechend Playliste geladen<br>
   </ul>
  <br>
  <a name="MPDget"></a>
  <b>Get</b><ul>
    <code>get &lt;name&gt; &lt;was&gt;</code>
    <br>&nbsp;<br>
    z.Z. unterst&uuml;tzte Kommandos<br>
    music => zeigt alle Dateien der MPD Datenbank<br>
    playlists => zeigt alle Playlisten der MPD Datenbank<br>
    playlistsinfo => zeigt Informationen der aktuellen Playliste<br>
    webrc => HTML Ausgabe einer einfachen Web Fernbedienung Bsp :.<br>
    <pre>
      define &lt;name&gt; weblink htmlCode {fhem("get &lt;name&gt; webrc", 1)}
      attr &lt;name&gt; room MPD
    </pre>
    statusRequest => hole aktuellen MPD Status<br>
    currentsong => zeigt Informationen zum aktuellen Titel der MPD internen Playliste<br>
    outputs => zeigt Informationen der definierten MPD Ausgabe Kan&auml;le ( aus /etc/mpd.conf )<br>
    bookmarks => zeigt eine Liste aller bisher gespeicherten Bookmarks<br>
  </ul>
  <br>
  <a name="MPDattr"></a>
  <b>Attribute</b>
  <ul> 
    <li>password <pwd> => Password falls in der mpd.conf definiert</li>
    <li>loadMusic 1|0  => lade die MPD Titel beim FHEM Start :  mpd.conf - music_directory</li>
    <li>loadPlaylists 1|0 => lade die MPD Playlisten beim FHEM Start : mpd.conf - playlist_directory</li>
    <li>volumeStep x => Schrittweite f&uuml;r Volume +/-</li>
    <li>titleSplit 1|0 => zerlegt die aktuelle Titelangabe am ersten Vorkommen von - (BlankMinusBlank) in die zwei Felder Artist und Titel,<br>
    wenn im abgespielten Titel die Interpreten Information nicht verf&uuml;gbar ist (sehr oft bei Radio-Streams default 1)<br>
    Liegen keine Titelangaben vor wird die Ausgabe durch den Namen der Radiostation ersetzt</li>
    <li>timeout (default 1) => Timeoutwert in Sekunden für die Verbindung fhem-mpd</li>
    <li>waits (default 60) => &Uuml;berwachungszeit in Sekunden f&uuml;r den Idle Prozess. In Verbindung mit refresh_song der Aktualisierungs Intervall für die aktuellen Songparamter,<br>
       (z.B. um den Fortschrittsbalken bei TabletUI aktuell zu halten) </li>
    <li>stateMusic 1|0 => zeige Musikliste als DropDown im Webfrontend</li>
    <li>statePlaylists 1|0 => zeige Playlisten als DropDown im Webfrontend</li>
    <li>player  mpd|mopidy|forked-daapd (default mpd) => welcher Player wird gesteuert<br>
    <b>ACHTUNG</b> : Mopidy unterst&uuml;tzt nicht alle Kommandos des echten MPD ! (siehe <a href="https://docs.mopidy.com/en/latest/ext/mpd/">Mopidy Dokumentation</a>)</li>
    <li>Cover Art Funktionen von <a href="http://www.last.fm/"><b>last.fm</b></a> :</li>
    <li>image_size -1|0|1|2|3  (default -1 = keine Interpretenbilder und Infos von last.fm verwenden)<br>
    last.fm stellt verschiedene Bildgroessen zur Verfügung :<br>
     0 = 32x32 , 1 = 64x64 , 2 = 174x174 , 3 = 300x300</li>
   <li>artist_content 0|1 => stellt Interpreteninformation im Reading artist_content zur Verf&uuml;gung</li>
   <li>artist_summary 0|1 => stellt weitere Interpreteninformation im Reading artist_summary zur Verf&uuml;gung<br>
    Beispiel Anzeige mittels readingsGroup :<br>
    <pre>
      define rg_artist readingsGroup &ltMPD name&gt:artist,artist_image_html,artist_summary
      attr rg_artist room MPD
    </pre></li>
   <li>cache (default lfm => /fhem/www/lfm) Zwischenspeicher für die JSON und PNG Dateien<br>
   <b>Wichtig</b> : Der User unter dem der fhem Prozess ausgef&uuml;hrt wird (default fhem) muss Lese und Schreibrechte in diesem Verzeichniss haben !<br>
   Das Verzeichnis sollte auch unterhalb von www liegen, damit der fhem Webserver direkten Zugriff auf die Bilder hat.</li>
   <li>unknown_artist_image => Ersatzimage wenn kein anderes Image zur Verf&uuml;gung steht (default : /fhem/icons/1px-spacer)</li>
   <li>bookmarkDir => ein vom FHEM User les- und beschreibbares Verzeichnis. Wennn dieses definiert wird, ist das Speichern und Wiederherstellen von Playlistzust&auml;nden mit Hilfe von set/get bookmark m&ouml;glich</li>
   <li>autoBookmark => wenn dies auf 1 gesetzt wird, dann werden automatisch Playlistenzust&auml;nde geladen und gespeichert, immer wenn die Playliste mit diesem Modul gewechselt wird</li>
   <li>seekStep => wenn definiert, wird dadurch die Sprungweite von forward und rewind gesetzt. Der Wert gilt als Prozentwert. default: 7</li>
   <li>seekStepSmall => Wenn diesem Attribut kann für den Anfang eines Tracks innerhalb der ersten per seekStepSmall definierten Prozent eine kleinere Sprungweite definiert werden,<br>
   um so z.B. die Intromusik von H&ouml;rspielen oder H&ouml;rb&uuml;chern &uuml;berspringen zu k&ouml;nnen. default: 1</li>
   <li>seekStepSmallThreshold => unterhalb dieses Wertes wird seekStepSmall benutzt, oberhalb seekStep default: 0 (ohne Funktion)</li>
   <li>no_playlistcollection (default 0) => wenn auf 1 gesetzt wird das Reading playlistcollection nicht erzeugt</li> 
   </ul>
  <br>
  <b>Readings</b>
  <ul>
    - alle MPD internen Werte<br>
    - vom Modul direkt erzeugte Readings :<br>
    playlistinfo : (TabletUI Medialist)<br>
    playlistcollection : (TabletUI)<br>
    playlistname : (TabletUI)<br> 
    artist_image : (bei Nutzung von Last.fm)<br>
    artist_image_html : (bei Nutzung von Last.fm)<br>
    album_image : (bei Nutzung von Last.fm)<br>
    album_image_html : (bei Nutzung von Last.fm)<br>
    artist_content : (bei Nutzung von Last.fm)<br>
    artist_summary : (bei Nutzung von Last.fm)<br>
    playlistinfo : (z.B. f&uuml;r die TabletUI Medialist)<br>
    playlistcollection : (TabletUI) Liste der Playlisten<br>
    playlistname : (TabletUI) Name der aktuellen Playliste aus playlistcollection<br> 
    playlist_num : Playlisten Nr. (0 .. n) der aktuellen Playliste aus playlistcollection 
    playlist_json : (notwendig f&uuml; das Medialist Modul)<br>
    Cover : Cover Bild zum aktuellen Song aus playlist_json<br> 
    currentTrackProvider : Radio / Bibliothek - Unterscheidung Radio Stream oder lokale Datei<br>
    rawTitle : Title Information ohne Ver&auml;nderungen durch das Modul
  </ul>
</ul>
=end html_DE

=cut