G15 on Linux

Warning... this was a real quick and dirty fixup. I'm sure someone who spent more time on it than I could make it look a bit nicer... and maybe add some of the features of the threaded version. I literally just took out anything that required threading to see if I could get it working. I'd LOVE to have a progress bar and current time... but I haven't messed with it enough to try that without threading.

#!/usr/bin/perl -w</p>
<p>use strict;</p>
<p>my $pipe = "$ENV{HOME}/.g15amaroklcdpipe";</p>
<p>my $mknod = system("mknod $pipe p");</p>
<p>my $G15Cpid = open(G15COMPOSER, "| g15composer $pipe");</p>
<p>my $vol = `dcop amarok player getVolume`;<br />
chomp $vol;<br />
my $tmpStatus = `dcop amarok player status`;<br />
chomp $tmpStatus;<br />
my $status = ( $tmpStatus > 1 ) ? 1 : 0;</p>
<p>open(PIPE, ">>$pipe");<br />
print PIPE "FL 0 10 \"/usr/share/fonts/TTF/Vera.ttf\"\n";</p>
<p>sub volUpdate {<br />
   print PIPE "PC 0\n";<br />
   print PIPE "TO 0 10 2 1 \"Volume\"\n";<br />
   print PIPE "DB 3 27 157 35 2 $vol 100 3\n";<br />
}</p>
<p>while($status == 0) {<br />
   $tmpStatus = `dcop amarok player status`;<br />
   $status = ( $tmpStatus > 1 ) ? 1 : 0;<br />
   sleep 1;<br />
}</p>
<p>my $artist = `dcop amarok player artist`;<br />
my $title = `dcop amarok player title`;<br />
my $album = `dcop amarok player album`;<br />
my $trackTotalSecs = `dcop amarok player trackTotalTime`;<br />
my $trackCurSecs = `dcop amarok player trackCurrentTime`;<br />
my $trackTotalTime = `dcop amarok player totalTime`;<br />
my $trackCurTime = `dcop amarok player currentTime`;<br />
chomp $artist;<br />
chomp $title;<br />
chomp $album;<br />
chomp $trackTotalSecs;<br />
chomp $trackCurSecs;<br />
chomp $trackTotalTime;<br />
chomp $trackCurTime;</p>
<p>&initScreen();</p>
<p>$SIG{TERM} = \&bye;</p>
<p>while(1) {<br />
   $_ = ;<br />
   chomp $_;<br />
   if ( /trackChange/ ) {<br />
      $artist = `dcop amarok player artist`;<br />
      $title = `dcop amarok player title`;<br />
      $album = `dcop amarok player album`;<br />
      $trackTotalSecs = `dcop amarok player trackTotalTime`;<br />
      $trackTotalTime = `dcop amarok player totalTime`;<br />
      $trackCurSecs = `dcop amarok player trackCurrentTime`;<br />
      $trackCurTime = `dcop amarok player currentTime`;<br />
      chomp $artist;<br />
      chomp $title;<br />
      chomp $album;<br />
      chomp $trackTotalSecs;<br />
      chomp $trackCurSecs;<br />
      chomp $trackTotalTime;<br />
      chomp $trackCurTime;<br />
      initScreen();<br />
      $artist = `dcop amarok player artist`;<br />
      $title = `dcop amarok player title`;<br />
      $album = `dcop amarok player album`;<br />
      $trackTotalSecs = `dcop amarok player trackTotalTime`;<br />
      $trackTotalTime = `dcop amarok player totalTime`;<br />
      $trackCurSecs = `dcop amarok player trackCurrentTime`;<br />
      $trackCurTime = `dcop amarok player currentTime`;<br />
      chomp $artist;<br />
      chomp $title;<br />
      chomp $album;<br />
      chomp $trackTotalSecs;<br />
      chomp $trackCurSecs;<br />
      chomp $trackTotalTime;<br />
      chomp $trackCurTime;<br />
      initScreen();<br />
   } elsif ( /engineStateChange/ ) {<br />
                if( /playing/ ) {<br />
                        $status = 1;<br />
         initScreen();<br />
                } elsif ( /pause/ ) {<br />
                        $status = 0;<br />
                } else {<br />
                        $status = 0;<br />
                }<br />
        } elsif( /volumeChange/ ){<br />
                m/: (\d+)/;<br />
                $vol = $1;<br />
      $status = 0;<br />
      &volUpdate();<br />
      $status = 1;<br />
        }<br />
   exit if( /exit/ );<br />
   &bye() if( /kill/ );<br />
}</p>
<p>sub initScreen {<br />
   print PIPE "MP 0\n";<br />
   print PIPE "MC 1\n";<br />
   print PIPE "PC 0\n";<br />
   print PIPE "DR 0 0 159 43 1 1\n";<br />
   print PIPE "DR 3 22 157 40 1 0\n";<br />
   print PIPE "PB 3 22 157 24 0\n";<br />
   print PIPE "FP 0 15 0 0 0 1 \" $artist \"\n";<br />
   print PIPE "FP 0 9 0 15 0 1 \" $title \"\n";<br />
   print PIPE "DB 3 27 157 35 2 $trackTotalSecs 3\n";<br />
   print PIPE "TO 0 35 0 1 \"    $trackTotalTime    \"\n";<br />
   print PIPE "MC 0\n";<br />
}</p>
<p>sub bye {<br />
   $status = -1;<br />
   sleep 2;<br />
   print PIPE "PC 0\n";<br />
   system("kill 15 $G15Cpid");<br />
   close(PIPE);<br />
   close(G15COMPOSER);<br />
   $mknod = system("rm $pipe");<br />
   exit 0;<br />
}

Okay so I tried the script with the threads in it again... and took out all of the threading. Now it works awesomely... except that the g15composer instance isn't being closed when amarok is closed. :[

I'm not sure how familiar you are with scripting. Would you be able to insert some debugging output that would let you know whether the script is running and reaching the code that should be sending text to g15composer?