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

Diff for /mp3/bin/search.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: search.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
 ########################################################################  ########################################################################
 # Search.pl *** Searches the full list of songs and finds matches.  # Search.pl *** Searches the full list of songs and finds matches.
 #  #
Line 12 
Line 12 
 #use MP3::Info;  #use MP3::Info;
 #my  qw/ $list @playlist $maplay $filename $basedir $htmldir /;  #my  qw/ $list @playlist $maplay $filename $basedir $htmldir /;
   
 my $listfile = 'fulllist.lst';  
   
 my $list = '/var/www/mp3/playlist/' . $listfile;  
   
 my $exe = 'addmp3playlist.pl';  my $exe = 'addmp3playlist.pl';
 my $Add_Search = 'addsearch.pl';  my $Add_Search = 'addsearch.pl';
   
 #######################################################################  #######################################################################
 # *** MAIN ***  # *** MAIN ***
 #######################################################################  #######################################################################
   my ($prefix) = split /\&/, $ENV{'QUERY_STRING'};
   if ($prefix) {
           $prefix =~ s/%(..)/pack("c",hex($1))/ge;
   } else {
           $prefix ='';
   }
   
   my $listfile = 'fulllist.lst';
   my $list = '/var/www/mp3/playlist/' . $listfile;
   
 print "Content-Type: text/html\n\n";  print "Content-Type: text/html\n\n";
 print "\n\n<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>MP3 Search</title>\n";  print "\n\n<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>MP3 Search</title>\n";
Line 83 
Line 87 
         }          }
   
         print   $Query->submit(-name=>'Submit',          print   $Query->submit(-name=>'Submit',
                                     -value=>'Add All'),                                      -value=>'Play All'),
                 $Query->end_form, "\n";;                  $Query->end_form, "\n";;
   
         #List_Recipes(%recipes);          #List_Recipes(%recipes);
Line 93 
Line 97 
                 my $counter;                  my $counter;
   
                 foreach my $filename (@playlist) {                  foreach my $filename (@playlist) {
                         print "\t<li><a href=\"$exe\?" . EncodeURL($filename) . "\" target=\"bottom\">$filename</a></li>\n";                          print "\t<li><a href=\"$exe\?" . EncodeURL($prefix) . '&' . EncodeURL($filename) . "\" target=\"bottom\">$filename</a>";
                           print " - <a href=\"$exe\?" . EncodeURL($prefix) . '&' . EncodeURL($filename) . '&' . EncodeURL('fulllist.lst') . "\" target=\"bottom\">Approve</a>";
                           print "</li>\n";
                         $counter++;                          $counter++;
                 }                  }
                 print "<H3>Total displayed: $counter</h3>\n";                  print "<H3>Total displayed: $counter</h3>\n";
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>