MPFire Streaming beigebracht, zumindest m3u Files

[ipfire-2.x.git] / config / mpfire / mpfire.pl

diff --git a/config/mpfire/mpfire.pl b/config/mpfire/mpfire.pl
index ee21f4a2a6349a1e81c6c95875c96d20d546992a..a3bfb9d7fd6c6ea005fa570b88fd8162c38de28c 100644 (file)
--- a/config/mpfire/mpfire.pl
+++ b/config/mpfire/mpfire.pl
@@ -9,7 +9,7 @@ require "${General::swroot}/header.pl";
 
 my $filename = "";
 my %songs = "";
-my $debug = 0;
+my $debug = 1;
 
 if ($ARGV[0] eq 'scan') {
 my $command = "find ";
@@ -43,8 +43,11 @@ if ($ARGV[0] eq 'play') {
   
 if ($ARGV[0] eq 'stop') {
   my $PID =  `ps -ef | grep mpg123 | grep playlist | head -1 | awk '{  print \$2 }'`;
-  if ($debug){print "Stopping $PID\n";}
-  system("kill -KILL $PID");
+  if ( $PID ne "" ){
+    if ($debug){print "Stopping $PID\n";}
+    system("kill -KILL $PID");
+    }
+  else {&stopweb();}
   }
 
 if ($ARGV[0] eq 'volup') {
@@ -80,6 +83,39 @@ if ($ARGV[0] eq 'next') {
   system("kill -SIGINT $PID");
   }
 
+if ($ARGV[0] eq 'song') {
+  my $song = `lsof -nX \| grep mpg123 \| grep REG \| grep mem | grep mp3`;
+  my @song = split(/\//,$song);
+  my $i = @song;
+  print $song[$i-1];
+  }
+
+if ($ARGV[0] eq 'playweb') {
+  &General::readhash("${General::swroot}/proxy/settings", \%proxysettings);
+  if ($debug){print "Playing webstream\n";}
+                       if ($proxysettings{'UPSTREAM_PROXY'}) {
+                         if ($proxysettings{'UPSTREAM_USER'}) {
+          system("wget -qO - `wget -qO -  $ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - -p $proxysettings{'UPSTREAM_USER'}:$proxysettings{'UPSTREAM_PASSWORD'}@$proxysettings{'UPSTREAM_PROXY'} 2>/dev/null >/dev/null &");
+          }
+          else {          system("wget -qO - `wget -qO -  $ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - -p $proxysettings{'UPSTREAM_PROXY'} 2>/dev/null >/dev/null &");} 
+                       } else {
+        system("wget -qO - `wget -qO -  $ARGV[1]` | mpg123 -b 1024 --aggressive -Zq - 2>/dev/null >/dev/null &"); 
+                       }
+  }
+
+if ($ARGV[0] eq 'stopweb') {
+  &stopweb();
+  }
+
+sub stopweb(){
+  my $PID =  `ps -ef | grep wget | grep EXTM3U | head -1 | awk '{  print \$2 }'`;
+  if ($debug){print "Stopping $PID\n";}
+  system("kill -KILL $PID");
+  my $PID =  `ps -ef | grep "mpg123 -b 1024 --aggressive -Zq -" | head -1 | awk '{  print \$2 }'`;
+  if ($debug){print "Killing Process $PID\n";}
+  system("kill -KILL $PID");
+  }
+
 sub getSongInfo(){
   my $mp3 = MP3::Tag->new($filename);
   my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();