add input URL

This commit is contained in:
Marko Oldenburg 2017-12-13 10:04:13 +01:00
parent 3c7aab77fb
commit 3a71f505f5
2 changed files with 11 additions and 2 deletions

View File

@ -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;
}

View File

@ -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) );