#!/usr/local/bin/perl # spielt zufällig mods aus part5/songs-mods ab srand($$); chomp($DEVICE=`get_audio_name`); if($DEVICE eq "SUNW,am79c30") { $PLAYER="mikmod -t -m8f 8000 " } if($DEVICE eq "SUNW,dbri") { $PLAYER="mikmod -t " } if($DEVICE eq "SUNW,CS4231") { $PLAYER="mikmod -t " } if($DEVICE eq "") { die "Kein Audio verfügbar (Remote login?)\n\n" } chop($HOST=`hostname`); if ($HOST eq "isun04") { $MODPATH="/local/part5/songs-mod" } else { $MODPATH="/mount/part5/songs-mod" } $MODS=`/bin/find $MODPATH -name readmes -prune -o -type f -print`; $i=$COUNT=split(/\n/,$MODS); print "$COUNT Mods gefunden. \n\n"; while ($i>1) { $r=int(rand($i)+1); # print "[$i] $r"; $t=splice(@_,$r,1); if ($t eq "") { $t=pop(@_) } # print "Now playing [$t]\n"; system("$PLAYER $t"); if ($? == 0) { exit(0) } $i--; }