===================================================================
RCS file: /cvs/mp3/bin/showall.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- mp3/bin/showall.pl 2007/02/08 20:04:03 1.3
+++ mp3/bin/showall.pl 2007/02/08 23:03:15 1.4
@@ -1,5 +1,5 @@
#!/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
#
@@ -47,7 +47,7 @@
SplitDir($subdir);
print " - Show";
print " - Play";
- print " - Approve" if $prefix;
+ print " - Approve" if $prefix;
print "
";
print "\n";
print "
\n";
@@ -115,9 +115,9 @@
foreach my $directory (@directories) {
# $dirs{"$DIR/$directory"} = $directory;
print "$directory";
- print " - Show";
- print " - Play";
- print " - Approve";
+ print " - Show";
+ print " - Play";
+ print " - Approve";
print "";
$countdir++;
@@ -149,7 +149,9 @@
print "OGG: ";
}
$songtitle =~ s/\.(mp3|ogg)$//i;
- print "$songtitle\n";
+ print "$songtitle\n";
+ print " - Approve\n" if $prefix;
+ print "";
$countmp3++;
}
print "\n";