diff --git a/21_HEOSMaster.pm b/21_HEOSMaster.pm index 821e12a..81aafdf 100644 --- a/21_HEOSMaster.pm +++ b/21_HEOSMaster.pm @@ -228,7 +228,7 @@ sub HEOSMaster_Undef($$) { HEOSMaster_Close($hash); delete $modules{HEOSMaster}{defptr}{$hash->{HOST}}; - Log3 $name, 3, "HEOSPlayer ($name) - device $name deleted"; + Log3 $name, 3, "HEOSMaster ($name) - device $name deleted"; return undef; } diff --git a/21_HEOSPlayer.pm b/21_HEOSPlayer.pm index 19b6f2c..2d3d642 100644 --- a/21_HEOSPlayer.pm +++ b/21_HEOSPlayer.pm @@ -39,7 +39,7 @@ use Encode qw(encode_utf8); use URI::Escape; #use Data::Dumper; -my $version = "1.0.1"; +my $version = "1.0.2"; @@ -712,6 +712,15 @@ sub HEOSPlayer_Set($$@) { $heosCmd = 'playQueueItem'; $action = "qid=$cid"; + } elsif ( $sid eq "url" ) { + + #URL abspielen + $heosCmd = 'playStream'; + #$action = "url=".substr($param,4); + $action = "url=$cid"; + + #getestet mit "set HEOSPlayer_Name input url,http://sender.eldoradio.de:8000/128.mp3" ich wollte [cid] nicht nutzen da in einer url ja durchaus mehrere Kommata vorkommen können ob das mit dem substr() so toll ich kann ich leider nicht beurteilen. Auch würde ich bei der $sid ein lc($sid) drum machen aber da es nirgendwo ist :-) + } else { if ( $sid > 0 && $sid < 1024 ) { return "usage: $cmd sid,cid,mid" unless( defined($cid) && defined($mid) );