===================================================================
RCS file: /cvs/mp3/bin/search.pl,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -r1.2 -r1.4
--- mp3/bin/search.pl 2006/08/12 01:14:53 1.2
+++ mp3/bin/search.pl 2007/02/08 23:03:15 1.4
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $RedRiver$
+# $RedRiver: search.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $
########################################################################
# Search.pl *** Searches the full list of songs and finds matches.
#
@@ -12,17 +12,21 @@
#use MP3::Info;
#my qw/ $list @playlist $maplay $filename $basedir $htmldir /;
-my $listfile = 'fulllist.lst';
-
-my $list = '/var/www/mp3/playlist/' . $listfile;
-
my $exe = 'addmp3playlist.pl';
my $Add_Search = 'addsearch.pl';
#######################################################################
# *** 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 "\n\n\n\n\t MP3 Search\n";
@@ -82,10 +86,12 @@
print $Query->hidden($key, $Query->param($key));
}
- print $Query->submit(-name=>'Submit',
- -value=>'Add All'),
- $Query->end_form, "\n";;
+ print $Query->submit(-name=>'Submit', -value=>'Play All');
+ print $Query->submit(-name=>'Submit', -value=>'Approve All') if $prefix;
+
+ print $Query->end_form, "\n";;
+
#List_Recipes(%recipes);
@@ -93,7 +99,9 @@
my $counter;
foreach my $filename (@playlist) {
- print "\t$filename\n";
+ print "\t$filename";
+ print " - Approve";
+ print "\n";
$counter++;
}
print "Total displayed: $counter
\n";