mp3/bin/addsearch.pl - diff

Return to addsearch.pl CVS log

Up to [local] / mp3 / bin

version 1.3, 2007/02/08 20:04:03

version 1.4, 2007/02/08 23:03:15

Line 1

#!/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.

Line 27

$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 "\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";

Line 52

Line 48

my @Fields_To_Search = $Query->param('Fields');

@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 "Search_Term: $Search_Term<br>\n";

print $Query->start_form(-action=>$Search);

# $Query->hidden('Fields', \@Fields_To_Search);