Annotation of mp3/bin/addsearch.pl, Revision 1.1.1.1
1.1 andrew 1: #!/usr/bin/perl -w
2: ########################################################################
3: # Search.pl *** Searches the full list of songs and finds matches.
4: #
5: # 04-14-00
6: # Written by andrew fresh <andrew@mad-techies.org>
7: ########################################################################
8: use strict;
9: use diagnostics;
10:
11: #use MP3::Info;
12: #my qw/ @playlist $maplay $filename $basedir $htmldir /;
13:
14: my $listfile = 'fulllist.lst';
15:
16: my $list = '/var/www/mp3/playlist/' . $listfile;
17:
18: my $playlist = '/var/www/mp3/playlist/playlist.lst';
19:
20: my $exe = 'addmp3playlist.pl';
21: my $Search = 'search.pl';
22:
23: #######################################################################
24: # *** MAIN ***
25: #######################################################################
26:
27:
28: print "Content-Type: text/html\n\n";
29: print "\n\n<html>\n<head>\n\t<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'> <title>MP3 Search</title>\n";
30: #print "<meta HTTP-EQUIV=\"REFRESH\" CONTENT=\"300\">\n";
31: print "<body>\n\n";
32:
33:
34: #Print_Nav();
35:
36: print "<h1>Adding MP3's . . .</h1><hr>\n";
37:
38: use CGI qw/:standard/;
39: use CGI::Carp qw/fatalsToBrowser/;
40:
41: my $Query = new CGI;
42:
43: my @playlist;
44:
45: my $Search_Term = $Query->param('Search_Term');
46: my @Fields_To_Search = $Query->param('Fields');
47: @Fields_To_Search = ('Artist', 'Album', 'Song') unless @Fields_To_Search;
48:
49:
50: #print $Query->header;
51: #print "Search_Term: $Search_Term<br>\n";
52:
53: print $Query->start_form(-action=>$Search);
54: # $Query->hidden('Fields', \@Fields_To_Search);
55:
56: print "Search For: ",
57: $Query->textfield(-name=>'Search_Term',
58: -size=>70,
59: -maxlength=>80);
60:
61: # print $Query->checkbox_group(-name=>'Fields',
62: # -values=>[@Fields_To_Search],
63: # -default=>[@Fields_To_Search],
64: ## -linebreak=>'true',
65: # ), br();
66:
67:
68: print $Query->submit(-name=>'Submit',
69: -value=>'Submit'),
70: $Query->end_form;
71:
72: if ($Search_Term) {
73: print "Found ";
74:
75: @playlist = Search($list, \@Fields_To_Search, $Search_Term);
76:
77: print scalar @playlist;
78: print " Songs<P>\n";
79:
80: #List_Recipes(%recipes);
81:
82:
83: if (@playlist) {
84: my $counter;
85:
86: print "<br>\n";
87: foreach my $filename (@playlist) {
88: #print "\t<li><a href=\"$exe\?" . EncodeURL($filename) . "\" target=\"bottom\">$filename</a></li>\n";
89: AddSong($filename);
90: $counter++;
91: }
92: print "<H3>Total displayed: $counter</h3>\n";
93: } else {
94: print "\t<li>Nothing in list</li>\n";
95: }
96: }
97:
98:
99:
100: print "</UL>\n</body>\n</head>\n</html>\n";
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117: #########################################################################
118: # GetTime
119: sub GetTime {
120: my $hours = shift;
121: my ($sec,$min,$hour,$mday,$mon,$year,,,) = localtime(); # 86400 seconds is one day
122:
123: if ($min < 10) { $min = "0$min"}
124: if ($sec < 10) { $sec = "0$sec"}
125: if ($hour < 10) { $hour = "0$hour"}
126: if ($mday < 10) { $mday = "0$mday"}
127: if ($mon < 10) { $mon = "0$mon"}
128:
129: my $time = ($year + 1900) . '-' . ++$mon . '-' . $mday . ' ' . $hour . ':' . $min . ':' . $sec;
130: return $time;
131: }
132: #########################################################################
133:
134:
135:
136:
137:
138: #######################################################################
139: # read in the Playlist
140: sub Search {
141: my $FILE = shift;
142: my $fields = shift;
143: my $term = shift;
144: my @lines;
145: open (FILE, $FILE) || bail ("Couldn\'t open $FILE: $!");
146: while (<FILE>) {
147: if (/$term/i) {
148: chomp;
149: push @lines, $_;
150: }
151: }
152: close (FILE) || bail ("Couldn't close $FILE: $!");
153: return @lines;
154: }
155:
156:
157:
158:
159: ########################################################################
160: # *** EncodeURL: %encodes the parameters of the URL
161: sub EncodeURL {
162: my $strURL = shift;
163: $strURL =~ s/(\W)/sprintf("%%%x", ord($1))/eg;
164: return $strURL;
165: }
166:
167:
168:
169:
170: #######################################################################
171: # Bail: this subrouting dies and displays the error to the browser.
172: # gotten from the example in the O'Reilly
173: # _Learning_Perl_on_Win32_Systems_
174: sub bail {
175: my $error = "@_";
176: print "Unexpected Error: $error";
177: exit;
178: }
179:
180:
181: sub Print_Nav
182: {
183: open FILE, 'nav.inc' or die "\n\ncouldn't open FILE nav.inc: $!";
184: while (<FILE>) {
185: print;
186: }
187: close FILE;
188: }
189:
190: sub AddSong
191: {
192: my $filename = shift;
193: $filename =~ s/%(..)/pack("c",hex($1))/ge;
194:
195: if ($filename) {
196: open PLAYLIST, ">>$playlist" or bail("unable to open PLAYLIST: $!");
197: print PLAYLIST "$filename\n";
198: close PLAYLIST or bail("unable to close PLAYLIST: $!");
199: print "Added $filename<br>\n";
200: } else {
201: print "<h1>You need to pass a song</h1>";
202: }
203: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to addsearch.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / mp3 / bin