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: showall.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ |
# $RedRiver: showall.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $ |
######################################################################## |
######################################################################## |
# showall.pl *** Displays all MP3's in all subdirs |
# showall.pl *** Displays all MP3's in all subdirs |
# |
# |
|
|
SplitDir($subdir); |
SplitDir($subdir); |
print " - <font size=\"-2\"><a href=\"" . "showall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir") . "\">Show</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "showall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir") . "\">Show</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir") . "\">Play</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir") . "\">Play</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir") . EncodeURL('fulllist.lst') . "\">Approve</a></font>" if $prefix; |
print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir") . '&' . EncodeURL('fulllist.lst') . "\">Approve</a></font>" if $prefix; |
print "<br>"; |
print "<br>"; |
print "</h3>\n"; |
print "</h3>\n"; |
print "<hr>\n"; |
print "<hr>\n"; |
|
|
foreach my $directory (@directories) { |
foreach my $directory (@directories) { |
# $dirs{"$DIR/$directory"} = $directory; |
# $dirs{"$DIR/$directory"} = $directory; |
print "<li><a href=\"showfiles.pl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">$directory</a>"; |
print "<li><a href=\"showfiles.pl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">$directory</a>"; |
print " - <font size=\"-1\"><a href=\"" . "showall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">Show</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "showall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">Show</a></font>"; |
print " - <font size=\"-1\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">Play</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">Play</a></font>"; |
print " - <font size=\"-1\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . EncodeURL('fulllist.lst') . "\">Approve</a></font>"; |
print " - <font size=\"-2\"><a href=\"" . "addall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . '&' . EncodeURL('fulllist.lst') . "\">Approve</a></font>"; |
print "</li>"; |
print "</li>"; |
|
|
$countdir++; |
$countdir++; |
|
|
print "OGG: "; |
print "OGG: "; |
} |
} |
$songtitle =~ s/\.(mp3|ogg)$//i; |
$songtitle =~ s/\.(mp3|ogg)$//i; |
print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$mp3") . "\" target=\"bottom\">$songtitle</a></li>\n"; |
print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$mp3") . "\" target=\"bottom\">$songtitle</a>\n"; |
|
print " - <font size=\"-2\"><a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$mp3") . '&' . EncodeURL('fulllist.lst') . "\" target=\"bottom\">Approve</a></font>\n" if $prefix; |
|
print "</li>"; |
$countmp3++; |
$countmp3++; |
} |
} |
print "</ul>\n"; |
print "</ul>\n"; |