UT2004 internal MediaPlayer, Playlist Generator Script

[sk2k4_ops]

Okay i've revised my script, it works in Linux and Windows.
UT2004's builtin Media Player will play M3U's, Mp3's, and OGG's . For some reason it won't play MP3's in the Linux port. blah

#!/usr/bin/perl
#Little Perl Script to generate UT2004 playlists
#GPL 2 or later
#by Sk2k4_ops
print("UT2004 Playlist Generator\nBy sk2k4_ops\@yahoo.com\n\n");
print("\t1) Generate Windows UPlaylists.ini
2) Generate Linux UPlaylists.ini
q) Quit
choose an option: ");
chomp($win_lin=<STDIN> );

if(lc($win_lin) eq 'q'){
exit();
}

while(){
if(int($win_lin) == '1'){#Windows
print("Please enter directory <EX: C:\\music\\ >(enter 'q' to quit)\n: ");
chomp($some_dir=<STDIN> );
$newdir=$some_dir;
}
if(int($win_lin) == '2'){#Linux
print("Please enter directory (enter 'q' to quit): /");
chomp($some_dir=<STDIN> );
$newdir="/$some_dir";
}

if(lc("q") eq $some_dir){
exit();}
chdir($some_dir);

if(int($win_lin) == '1'){#Windows
print("Enter Location of UT2004 <Default is C:\\UT2004> : ");
chomp($ut2004dir=<STDIN> );
open(PLAY, ">>$ut2004dir\\System\\UPlaylists.ini") || die "$!";
}
if(int($win_lin) == '2'){#Linux
open(PLAY, ">>$ENV{HOME}/.ut2004/System/UPlaylists.ini") || die "$!";
}

opendir(DIR, $newdir) || die "can't opendir $newdir: $!";
@dots = grep { /.ogg$/i || /.m3u$/i || /.mp3$/i && "$newdir/" } readdir(DIR);
closedir DIR;

if(@dots == 0){
print("\nNo media files in $newdir: ogg(s) , mp3(s), or m3u(s) \n\n");
next;
}

print("Name of New Playlist (Don't use spaces): ");
chomp($playl=<STDIN> );
print PLAY "[$playl StreamPlaylist]\nCurrent=0\nbNeedSave=False\n\n";

my $x=0;
@ndots=sort(@dots);
foreach(@ndots){
if(int($win_lin) == '1'){#Windows
print "Added:\nPlaylist=$newdir\\@ndots[$x]\n\n";
print PLAY "Playlist=$newdir\\@ndots[$x]\n";

}
if(int($win_lin) == '2'){#Linux
print "Added:\nPlaylist=$newdir/@ndots[$x]\n\n";
print PLAY "Playlist=$newdir/@ndots[$x]\n";
}
$x++;
}close(PLAY);
print PLAY "\n";


}
_________________
Be gone!!

[Mekoryuk]

Holy crap! You mean the internal media player really does work?? How? When?

[sk2k4_ops]

Yes it works, just use my script or edit the UPlaylists.ini file, Then bring up the mediaplayer in UT2004 with F11 . You need direct links to files in the playlist, the Sandbox security of UT2004 will not let you browse the File System directly.

MP3's won't play in the Linux Port
_________________
Be gone!!

[Mekoryuk]

What does this error mean?

[sk2k4_ops]

Does this error occur everytime the script is executed ?


http://www.privoxy.org/faq/misc.html#DOWNLOADS


download it in gzip format:
http://f2.pg.briefcase.yahoo.com/sk2k4_ops
_________________
Be gone!!

[mr.travolte]

anyone offer a step-by-step guide on how to do this? script noob myself.

what do you modify the Uplaylist.ini to say? i checked mine out and it has all the tracks i want in there... but wen i fire up UT2004 and open the music player, all the tracks are there, but when you double click to play the track it just goes thru every track till it gets to the bottom and doesnt play a single one of the tracks

please help!

[Mekoryuk]