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

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

version 1.2, 2006/08/12 01:14:53 version 1.3, 2007/02/08 20:04:03
Line 1 
Line 1 
 #!/usr/bin/perl -w  #!/usr/bin/perl -w
 # $RedRiver$  # $RedRiver: showall.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
 ########################################################################  ########################################################################
 # showall.pl *** Displays all MP3's in all subdirs  # showall.pl *** Displays all MP3's in all subdirs
 #  #
Line 13 
Line 13 
 #my qw/ %mp3s %dirs /;  #my qw/ %mp3s %dirs /;
   
 my $basedir = '/home/mp3/Sorted';  my $basedir = '/home/mp3/Sorted';
 my $subdir = $ENV{'QUERY_STRING'};  
 my $addurl = 'addmp3playlist.pl';  my $addurl = 'addmp3playlist.pl';
   
 my $countdir = 0;  my $countdir = 0;
Line 22 
Line 21 
 # *** MAIN ***  # *** MAIN ***
 #######################################################################  #######################################################################
   
 if ($subdir) {  my ($prefix, $subdir) = split /\&/, $ENV{'QUERY_STRING'};
         $subdir =~ s/%(..)/pack("c",hex($1))/ge;  if ($subdir) {
           $subdir =~ s/%(..)/pack("c",hex($1))/ge;
 } else {  } else {
         $subdir ='';          $subdir ='';
 }  }
   
   if ($prefix) {
           $prefix =~ s/%(..)/pack("c",hex($1))/ge;
   } else {
           $prefix ='';
   }
   
 #$basedir = $basedir . "/" . $subdir;  #$basedir = $basedir . "/" . $subdir;
   
 print "Content-Type: text/html\n\n";  print "Content-Type: text/html\n\n";
Line 39 
Line 45 
 if ($subdir) {  if ($subdir) {
         print "<h3>";          print "<h3>";
         SplitDir($subdir);          SplitDir($subdir);
         print " - <font size=\"-2\"><a href=\"" . "showall.pl" . "\?" . EncodeURL("$subdir") . "\">All</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("$subdir") . "\">Add</a></font><br>";          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 "<br>";
         print "</h3>\n";          print "</h3>\n";
         print "<hr>\n";          print "<hr>\n";
 }  }
Line 61 
Line 69 
 #       my $count;  #       my $count;
 #       my @sorted = sort { lc($dirs{$a}) cmp lc($dirs{$b}) } (keys %dirs);  #       my @sorted = sort { lc($dirs{$a}) cmp lc($dirs{$b}) } (keys %dirs);
 #       foreach my $dir (@sorted) {  #       foreach my $dir (@sorted) {
 #               print "<a href=\"showfiles.pl\?" . EncodeURL("$dir/$dirs{$dir}") . "\">$dirs{$dir}</a><br>";  #               print "<a href=\"showfiles.pl\?" . EncodeURL($prefix) . '&' . EncodeURL("$dir/$dirs{$dir}") . "\">$dirs{$dir}</a><br>";
 #               $count++;  #               $count++;
 #       }  #       }
 #       print "Total dirs displayed: $count<p>\n";  #       print "Total dirs displayed: $count<p>\n";
Line 73 
Line 81 
 #       my $count;  #       my $count;
 #       foreach my $mp3dir (sort keys %mp3s) {  #       foreach my $mp3dir (sort keys %mp3s) {
 #               foreach $mp3 (@{ $mp3s{$mp3dir} }) {  #               foreach $mp3 (@{ $mp3s{$mp3dir} }) {
 #                       print "\t<li>Song: <a href=\"$addurl\?" . EncodeURL("$mp3dir/$mp3") . "\" target=\"bottom\">$mp3</a></li>\n";  #                       print "\t<li>Song: <a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$mp3dir/$mp3") . "\" target=\"bottom\">$mp3</a></li>\n";
 #                       $count++;  #                       $count++;
 #               }  #               }
 #       }  #       }
Line 106 
Line 114 
         print "<ul>\n";          print "<ul>\n";
         foreach my $directory (@directories) {          foreach my $directory (@directories) {
 #               $dirs{"$DIR/$directory"} = $directory;  #               $dirs{"$DIR/$directory"} = $directory;
                 print "<li><a href=\"showfiles.pl\?" . 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("$DIR/$directory") . "\">All</a></font>";                  print " - <font size=\"-1\"><a href=\"" . "showall.pl" . "\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">Show</a></font>";
                 print " - <font size=\"-1\"><a href=\"" . "addall.pl" . "\?" . EncodeURL("$DIR/$directory") . "\">Add</a></font></li>";                  print " - <font size=\"-1\"><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 "</li>";
   
                 $countdir++;                  $countdir++;
                 my @curdir = GetDirListing("$DIR/$directory");                  my @curdir = GetDirListing("$DIR/$directory");
Line 116 
Line 126 
   
   
 #               push @dirs, @curdir;  #               push @dirs, @curdir;
 #               print "<a href=\"showfiles.pl\?" . EncodeURL("$DIR/$directory") . "\">$directory</a><br>";  #               print "<a href=\"showfiles.pl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$directory") . "\">$directory</a><br>";
         }          }
         opendir DIR, "$basedir/$DIR" or bail("Unable to opendir $$!");          opendir DIR, "$basedir/$DIR" or bail("Unable to opendir $$!");
                 my @temp = grep /\.(mp3|ogg)$/i, readdir(DIR);                  my @temp = grep /\.(mp3|ogg)$/i, readdir(DIR);
Line 139 
Line 149 
                                 print "OGG: ";                                  print "OGG: ";
                         }                          }
                         $songtitle =~ s/\.(mp3|ogg)$//i;                          $songtitle =~ s/\.(mp3|ogg)$//i;
                         print "<a href=\"$addurl\?" . EncodeURL("$DIR/$mp3") . "\" target=\"bottom\">$songtitle</a></li>\n";                          print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$DIR/$mp3") . "\" target=\"bottom\">$songtitle</a></li>\n";
                         $countmp3++;                          $countmp3++;
                 }                  }
                 print "</ul>\n";                  print "</ul>\n";
Line 208 
Line 218 
                         for ($j=0;$j<=$i;$j++) {                          for ($j=0;$j<=$i;$j++) {
                                 $url = "$url/$filename[$j]";                                  $url = "$url/$filename[$j]";
                         }                          }
                 print "/<a href=\"showfiles.pl\?" . EncodeURL($url) . "\">$filename[$i]</a>";                  print "/<a href=\"showfiles.pl\?" . EncodeURL($prefix) . '&' . EncodeURL($url) . "\">$filename[$i]</a>";
   
                 }                  }
         } else {          } else {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>