File: [local] / mp3 / bin / addsearch.pl (download)
Revision 1.3, Thu Feb 8 20:04:03 2007 UTC (17 years, 5 months ago) by andrew
Branch: MAIN
Changes since 1.2: +12 -7 lines
First shot at making multiple jukeboxes from the same files.
|
#!/usr/bin/perl -w
# $RedRiver: addsearch.pl,v 1.2 2006/08/12 00:14:53 andrew Exp $
########################################################################
# Search.pl *** Searches the full list of songs and finds matches.
#
# 04-14-00
# Written by andrew fresh <andrew@mad-techies.org>
########################################################################
use strict;
use diagnostics;
#use MP3::Info;
#my qw/ @playlist $maplay $filename $basedir $htmldir /;
my $exe = 'addmp3playlist.pl';
my $Search = 'search.pl';
#######################################################################
# *** MAIN ***
#######################################################################
my $prefix = $ENV{'QUERY_STRING'};
if ($prefix) {
$prefix =~ s/%(..)/pack("c",hex($1))/ge;
} else {
$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";
print "<body>\n\n";
#Print_Nav();
print "<h1>Adding MP3's . . .</h1><hr>\n";
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;
my $Query = new CGI;
my @playlist;
my $Search_Term = $Query->param('Search_Term');
my @Fields_To_Search = $Query->param('Fields');
@Fields_To_Search = ('Artist', 'Album', 'Song') unless @Fields_To_Search;
#print $Query->header;
#print "Search_Term: $Search_Term<br>\n";
print $Query->start_form(-action=>$Search);
# $Query->hidden('Fields', \@Fields_To_Search);
print "Search For: ",
$Query->textfield(-name=>'Search_Term',
-size=>70,
-maxlength=>80);
# print $Query->checkbox_group(-name=>'Fields',
# -values=>[@Fields_To_Search],
# -default=>[@Fields_To_Search],
## -linebreak=>'true',
# ), br();
print $Query->submit(-name=>'Submit',
-value=>'Submit'),
$Query->end_form;
if ($Search_Term) {
print "Found ";
@playlist = Search($list, \@Fields_To_Search, $Search_Term);
print scalar @playlist;
print " Songs<P>\n";
#List_Recipes(%recipes);
if (@playlist) {
my $counter;
print "<br>\n";
foreach my $filename (@playlist) {
#print "\t<li><a href=\"$exe\?" . EncodeURL($prefix) . '&' . EncodeURL($filename) . "\" target=\"bottom\">$filename</a></li>\n";
AddSong($filename);
$counter++;
}
print "<H3>Total displayed: $counter</h3>\n";
} else {
print "\t<li>Nothing in list</li>\n";
}
}
print "</UL>\n</body>\n</head>\n</html>\n";
#########################################################################
# GetTime
sub GetTime {
my $hours = shift;
my ($sec,$min,$hour,$mday,$mon,$year,,,) = localtime(); # 86400 seconds is one day
if ($min < 10) { $min = "0$min"}
if ($sec < 10) { $sec = "0$sec"}
if ($hour < 10) { $hour = "0$hour"}
if ($mday < 10) { $mday = "0$mday"}
if ($mon < 10) { $mon = "0$mon"}
my $time = ($year + 1900) . '-' . ++$mon . '-' . $mday . ' ' . $hour . ':' . $min . ':' . $sec;
return $time;
}
#########################################################################
#######################################################################
# read in the Playlist
sub Search {
my $FILE = shift;
my $fields = shift;
my $term = shift;
my @lines;
open (FILE, $FILE) || bail ("Couldn\'t open $FILE: $!");
while (<FILE>) {
if (/$term/i) {
chomp;
push @lines, $_;
}
}
close (FILE) || bail ("Couldn't close $FILE: $!");
return @lines;
}
########################################################################
# *** EncodeURL: %encodes the parameters of the URL
sub EncodeURL {
my $strURL = shift;
$strURL =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
return $strURL;
}
#######################################################################
# Bail: this subrouting dies and displays the error to the browser.
# gotten from the example in the O'Reilly
# _Learning_Perl_on_Win32_Systems_
sub bail {
my $error = "@_";
print "Unexpected Error: $error";
exit;
}
sub Print_Nav
{
open FILE, 'nav.inc' or die "\n\ncouldn't open FILE nav.inc: $!";
while (<FILE>) {
print;
}
close FILE;
}
sub AddSong
{
my $filename = shift;
$filename =~ s/%(..)/pack("c",hex($1))/ge;
if ($filename) {
open PLAYLIST, ">>$playlist" or bail("unable to open PLAYLIST: $!");
print PLAYLIST "$filename\n";
close PLAYLIST or bail("unable to close PLAYLIST: $!");
print "Added $filename<br>\n";
} else {
print "<h1>You need to pass a song</h1>";
}
}