version 1.3, 2007/02/08 20:04:03 |
version 1.4, 2007/02/08 23:03:15 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# $RedRiver: addsearch.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $ |
# $RedRiver: addsearch.pl,v 1.3 2007/02/08 20:04:03 andrew Exp $ |
######################################################################## |
######################################################################## |
# Search.pl *** Searches the full list of songs and finds matches. |
# Search.pl *** Searches the full list of songs and finds matches. |
# |
# |
|
|
$prefix =''; |
$prefix =''; |
} |
} |
|
|
my $listfile = $prefix . 'fulllist.lst'; |
|
my $list = '/var/www/mp3/playlist/' . $listfile; |
|
my $playlist = '/var/www/mp3/playlist/' . $prefix . 'playlist.lst'; |
|
|
|
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"; |
#print "<meta HTTP-EQUIV=\"REFRESH\" CONTENT=\"300\">\n"; |
#print "<meta HTTP-EQUIV=\"REFRESH\" CONTENT=\"300\">\n"; |
|
|
my @Fields_To_Search = $Query->param('Fields'); |
my @Fields_To_Search = $Query->param('Fields'); |
@Fields_To_Search = ('Artist', 'Album', 'Song') unless @Fields_To_Search; |
@Fields_To_Search = ('Artist', 'Album', 'Song') unless @Fields_To_Search; |
|
|
|
my $listfile = $prefix . 'fulllist.lst'; |
|
my $list = '/var/www/mp3/playlist/' . $listfile; |
|
my $playlist = '/var/www/mp3/playlist/' . $prefix . 'playlist.lst'; |
|
|
|
if ($prefix && $Query->param('Submit') eq 'Approve All') { |
|
$playlist = '/var/www/mp3/playlist/' . $prefix . 'fulllist.lst'; |
|
} |
|
|
#print $Query->header; |
#print $Query->header; |
#print "Search_Term: $Search_Term<br>\n"; |
#print "Search_Term: $Search_Term<br>\n"; |
|
|
|
|
print $Query->start_form(-action=>$Search); |
print $Query->start_form(-action=>$Search); |
# $Query->hidden('Fields', \@Fields_To_Search); |
# $Query->hidden('Fields', \@Fields_To_Search); |