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

Diff for /mp3/bin/showfiles.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: showfiles.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $  # $RedRiver: showfiles.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $
 ########################################################################  ########################################################################
 # GenerateMP3HTML.pl *** Generates the HTML files for the playlist.  # GenerateMP3HTML.pl *** Generates the HTML files for the playlist.
 #  #
Line 83 
Line 83 
   
                 $songtitle =~ s/\.(mp3|ogg)$//i;                  $songtitle =~ s/\.(mp3|ogg)$//i;
                 print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . "\" target=\"bottom\">$songtitle</a>";                  print "<a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . "\" target=\"bottom\">$songtitle</a>";
                 print " - <a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . '&' . EncodeURL('fulllist.lst') . "\" target=\"bottom\">Approve</a>" if $prefix;                  print " - <font size=\"-2\"><a href=\"$addurl\?" . EncodeURL($prefix) . '&' . EncodeURL("$subdir/$mp3") . '&' . EncodeURL('fulllist.lst') . "\" target=\"bottom\">Approve</a></font>" if $prefix;
                 print "</li>\n";                  print "</li>\n";
         }          }
         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>