From bd5e146663db114fab4b4a5a888be954607e4b2a Mon Sep 17 00:00:00 2001
From: LeonGaultier <LeonGaultier@users.noreply.github.com>
Date: Thu, 18 Jan 2018 05:13:08 +0000
Subject: [PATCH] 21_HEOSPlayer: add input URL as set command

git-svn-id: https://svn.fhem.de/fhem/trunk@15920 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED               |  1 +
 fhem/FHEM/21_HEOSPlayer.pm | 11 ++++++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index ff6e9cd3e..f30852bff 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - feature: 21_HEOSPlayer: add input URL as set command
   - feature: 74_Unifi: add new set command to en-/disable Site Status-LEDs
   - bugfix:  74_XiaomiBTLESens: fix ssh gatttool which test
   - new:     74_XiaomiBTLESens: modul replace 74_XiaomiFlowerSens, add Support
diff --git a/fhem/FHEM/21_HEOSPlayer.pm b/fhem/FHEM/21_HEOSPlayer.pm
index 19b6f2c3a..2d3d6426f 100644
--- a/fhem/FHEM/21_HEOSPlayer.pm
+++ b/fhem/FHEM/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) );