[Antiright-devel] antiright/src ACE

[Jeffrey Bedard]

CVSROOT:        /cvsroot/antiright
Module name:    antiright
Branch:         
Changes by:     Jeffrey Bedard <address@hidden> 04/12/29 20:06:31

Modified files:
        src            : ACE 

Log message:
        Wrote my own song retreival function using standard shell utilites.  
This eleminates dependence on perl, and eliminates the need to give external 
credit.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/antiright/antiright/src/ACE.diff?tr1=1.35&tr2=1.36&r1=text&r2=text

Patches:
Index: antiright/src/ACE
diff -u antiright/src/ACE:1.35 antiright/src/ACE:1.36
--- antiright/src/ACE:1.35      Wed Dec 29 03:22:04 2004
+++ antiright/src/ACE   Wed Dec 29 20:06:30 2004
@@ -287,9 +287,7 @@
 }
 Juke_Song()
 {
-       # This was written by Bain <address@hidden>
-       perl -e 'my $a; while(<>) { next 
if(!/Playing/);($a)=$_=~/^(?:\b\w+\b|\s){8}(.*?).{3}$/ } print "Playing $a\n";'\
-       ~/.antiright_mp3s
+       echo Playing $(grep Playing ~/.antiright_mp3s | tail -n 1 | cut -d ' ' 
-f 5-)
 }
 Install_BitchX()
 {
@@ -318,7 +316,8 @@
        -Ai "$stop_play" $bmdir/antiright/stop.xbm\
        -Ai "$play_next" $bmdir/antiright/play.xbm\
        -geometry -0+0 -xrm "*overrideRedirect: True" &
-       tail -F ~/.antiright_mp3s       
+       tail -F ~/.antiright_mp3s
+       rm -f ~/.antiright_mp3s
 }
 Jukebox()
 {