#!/usr/bin/perl
use strict;
 
use CGI qw/:standard/;

my $c   = new CGI;
 
my $datafile    = "/full/path/to/playlist.txt";
my $width       = $c->param("width")    || 0;
my $height      = $c->param("height")   || 0;
my $autostart   = $c->param("autostart")|| "true";
my $loop        = $c->param("loop")     || "false";
my $showtitle   = $c->param("showtitle")|| "true";
my $fntstyle    = $c->param("fntstyle") || "Arial";
my $fntsize     = $c->param("fntsize")  || 4;
my $fntbold     = $c->param("fntbold")  || "true";
 
open(GETDATA, "$datafile");
@Data   = <GETDATA>;
close(GETDATA);
 
srand(time & $$);
my $number      = rand(@Data);
my $line        = @Data[$number];
 
chomp($line);
($title,$midi) = split(/\|/, $line);
 
print header;
 
if ($showtitle eq "true") {
        print "<font size=\"$fntsize\" face=\"$fntstyle\">";
        print "<strong>" if $fntbold eq "true";
        print "$title";
        print "</strong>" if $fntbold eq "true";
        print "</font>\n";
}
print "<embed src=\"$midi\" width=\"$width\" height=\"$height\" autostart=\"$aut
ostart\"l
+oop=\"$loop\"><noembed><bgsound src=\"$midi\" loop=true></noembed></embed>\n";
 
exit (0);