version 1.3, 2007/02/08 20:04:03 |
version 1.4, 2007/02/08 23:03:15 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# $RedRiver: showfiles.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ |
# $RedRiver: showfiles.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $ |
######################################################################## |
######################################################################## |
# GenerateMP3HTML.pl *** Generates the HTML files for the playlist. |
# GenerateMP3HTML.pl *** Generates the HTML files for the playlist. |
# |
# |
|
|
|
|
$songtitle =~ s/\.(mp3|ogg)$//i; |
$songtitle =~ s/\.(mp3|ogg)$//i; |
print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . "\" target=\"bottom\">$songtitle</a>"; |
print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . "\" target=\"bottom\">$songtitle</a>"; |
print " - <a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . '&' . EncodeURL('fulllist.lst') . "\" target=\"bottom\">Approve</a>" if $prefix; |
print " - <font size=\"-2\"><a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . '&' . EncodeURL('fulllist.lst') . "\" target=\"bottom\">Approve</a></font>" if $prefix; |
print "</li>\n"; |
print "</li>\n"; |
} |
} |
print "</ul>\n"; |
print "</ul>\n"; |