===================================================================
RCS file: /cvs/mp3/bin/showfiles.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- mp3/bin/showfiles.pl 2006/08/12 01:14:53 1.2
+++ mp3/bin/showfiles.pl 2007/02/08 20:04:03 1.3
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $RedRiver$
+# $RedRiver: showfiles.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
########################################################################
# GenerateMP3HTML.pl *** Generates the HTML files for the playlist.
#
@@ -13,19 +13,25 @@
#my qw/ @mp3s @dirs /;
my $basedir = '/home/mp3/Sorted';
-my $subdir = $ENV{'QUERY_STRING'};
my $addurl = 'addmp3playlist.pl';
#######################################################################
# *** MAIN ***
#######################################################################
+my ($prefix, $subdir) = split /\&/, $ENV{'QUERY_STRING'};
if ($subdir) {
$subdir =~ s/%(..)/pack("c",hex($1))/ge;
} else {
$subdir ='';
}
+if ($prefix) {
+ $prefix =~ s/%(..)/pack("c",hex($1))/ge;
+} else {
+ $prefix ='';
+}
+
my @dirs = GetDirListing("$basedir/$subdir");
my @mp3s = GetMP3Listing("$basedir/$subdir");
@@ -38,17 +44,21 @@
if ($subdir) {
print "";
SplitDir($subdir);
- print " - All";
- print " - Add
";
+ print " - Show";
+ print " - Play";
+ print " - Approve" if $prefix;
+ print "
\n";
print "
\n";
print "
\n";
}
if (@dirs) {
foreach my $dir (@dirs) {
- print "$dir ";
- print "- All";
- print "- Add
";
+ print "$dir ";
+ print "- Show";
+ print "- Play";
+ print "- Approve" if $prefix;
+ print "
\n";
}
}
@@ -72,7 +82,9 @@
}
$songtitle =~ s/\.(mp3|ogg)$//i;
- print "$songtitle\n";
+ print "$songtitle";
+ print " - Approve" if $prefix;
+ print "\n";
}
print "\n";
}
@@ -156,7 +168,7 @@
for ($j=0;$j<=$i;$j++) {
$url = "$url/$filename[$j]";
}
- print "/$filename[$i]";
+ print "/$filename[$i]";
}
} else {