Unnamed

#!/bin/usr/perl
##Musikscript fuer Orpheus mp3 Player##
##www.echtor2oo3.de/null/##perlnoob ^.°
IRC::register("orpheus","1.0","","");
IRC::print("[orpheus v1.0 loadet]");
IRC::add_command_handler("mp3","orpheus");
IRC::add_command_handler("next","orpheus_next");
IRC::add_command_handler("prev","orpheus_prev");
$TMPFILE = "/home/echtor2oo3/.orpheus/currently_playing"; ##anpassen (:

sub orpheus{
        open(NP, "<$TMPFILE");
        while(<NP>)
        {
	IRC::command ("/me now playing: [ $_ ]"); 
     }
        close(NP);
	return 1;
}
sub orpheus_prev{
	qx(orpheus -r prev);
        open(NP, "<$TMPFILE");
        while(<NP>)
        {
        sleep(1);
	IRC::print ("[Playing $_ ]"); 
     }
        close(NP);
	return 1;
}
sub orpheus_next{
	qx(orpheus -r next);
        open(NP, "<$TMPFILE");
        while(<NP>)
        {
        sleep(1);
	IRC::print ("[Playing $_ ]"); 
     }
        close(NP);
	return 1;
}