[BACK]Return to showall.pl CVS log [TXT][DIR] Up to [local] / mp3 / bin

Diff for /mp3/bin/showall.pl between version 1.3 and 1.4

version 1.3, 2007/02/08 20:04:03 version 1.4, 2007/02/08 23:03:15
Line 1 
Line 1 
 #!/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
 #  #
Line 47 
Line 47 
         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";
Line 115 
Line 115 
         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++;
Line 149 
Line 149 
                                 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";
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>