]> git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blame - html/cgi-bin/mpfire.cgi
projects / people / pmueller / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fixed some mpfire things
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / mpfire.cgi
CommitLineData
a28fdc01 1#!/usr/bin/perl
19f5a6cc
CS		 2###############################################################################
3# #
4# IPFire.org - A linux based firewall #
5# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
6# #
7# This program is free software: you can redistribute it and/or modify #
8# it under the terms of the GNU General Public License as published by #
9# the Free Software Foundation, either version 3 of the License, or #
10# (at your option) any later version. #
11# #
12# This program is distributed in the hope that it will be useful, #
13# but WITHOUT ANY WARRANTY; without even the implied warranty of #
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15# GNU General Public License for more details. #
16# #
17# You should have received a copy of the GNU General Public License #
18# along with this program. If not, see <http://www.gnu.org/licenses/>. #
19# #
20###############################################################################
a28fdc01
CS		 21
22use strict;
e5a63a6f 23
a28fdc01 24# enable only the following on debugging purpose
19f5a6cc
CS		 25#use warnings;
26#use CGI::Carp 'fatalsToBrowser';
a28fdc01 27
e5a63a6f
CS		 28# use the special mpd POD and the encode POD to handle the utf8 scalars
29use Audio::MPD;
30use Encode;
31
32# initiate the connector for the mpd POD, mpd must be running on locahost
33# port 6600 without authentication
34my $mpd = Audio::MPD->new('localhost',6600,'','$REUSE');
35my $work = $mpd->status()->updating_db();
36
a28fdc01
CS		 37require '/var/ipfire/general-functions.pl';
38require "${General::swroot}/lang.pl";
39require "${General::swroot}/header.pl";
40
41my %color = ();
42my %mainsettings = ();
43my %mpfiresettings = ();
44my %checked = ();
8871b9f2 45my $message = '0';
a28fdc01 46my $errormessage = "";
e5a63a6f 47my @songs;
a28fdc01 48
a28fdc01
CS		 49&General::readhash("${General::swroot}/main/settings", \%mainsettings);
50&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
51
8a5898e7 52&Header::showhttpheaders();
e5a63a6f
CS		 53
54if ( $ENV{'QUERY_STRING'} =~ /title/){
55
56################################################################################
57# $ENV{'QUERY_STRING'} =~ /title/ is used to handle the inline iframe used to
58# display the current song playing ( artist - title - album aso )
59# the cgi call´s itself with a parameter and the iframe refreshes itself without
60# reloading the whole page
61################################################################################
62
63 my $number = $mpd->status()->song()+1;
64 my $volume = $mpd->status()->volume();
65 my $random = $mpd->status()->random();
66
67 if ($random eq "0" ){
68 $random="off";
69 }else{
70 $random="on";
71 }
72
73 my $repeat = $mpd->status()->repeat();
74 if ($repeat eq "0" ){
75 $repeat="off";
76 }else{
77 $repeat="on";
78 }
79
80 my $song = "";
81 if ( $mpd->current() )
82 {
3fcb086e 83 $song = substr("-= ".$mpd->current()->Artist()." | ".$mpd->current()->Title(),0,85)." =-<br /> ";
e5a63a6f
CS		 84 if ( $song eq "-= | =-<br /> " ){
85 $song = "None<br />"
86 };
87 $song .= $mpd->current()->Track()."# ".substr($mpd->current()->Album(),0,90)."<br />";
88 }else{
89 $song = "None<br /><br />";
90 }
91
92 if ( $song eq "None<br /># <br />" ){
93 $song = "None<br />".substr($mpd->current()->file(),0,90)."<br />"
94 };
95 $song .= "Playlist: ".$number."-".$mpd->status()->playlistlength()." Time: ".$mpd->status()->time()->sofar."/";
96 $song .= $mpd->status()->time()->total." (".$mpd->status()->time()->percent()."%) Status: ";
97 $song .= $mpd->status()->state()." Volume: ".$volume." % Repeat: ".$repeat." Random: ".$random;
98
99 print <<END
a609bfb0 100<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
901a50cf 101<meta http-equiv='refresh' content='5'>
e5a63a6f 102<title></title>
901a50cf 103<body>
6cd3f682 104<table width='100%' cellspacing='0' align='center' style="background-image:url(/images/mpfire/box.png);background-repeat:no-repeat">
8a5898e7
CS		 105END
106;
e5a63a6f
CS		 107 print"<tr ><td align='center'><font color='red' face='Verdana' size='2'><br />".encode('utf-8', $song)."<br /><br /></font></td></tr></table></body>";
108 exit;
109}elsif ( $ENV{'QUERY_STRING'} =~ /control/){
a28fdc01 110
e5a63a6f
CS		 111################################################################################
112# $ENV{'QUERY_STRING'} =~ /control/ is used to handle the inline iframe used to
113# display the control button ( prev play skip stop toggle aso )
114# the cgi call´s itself with a parameter and only the iframe is reloaded on click
115################################################################################
69addbb8 116
e5a63a6f
CS		 117 &Header::getcgihash(\%mpfiresettings);
118 if ( $mpfiresettings{'ACTION'} eq "playall" ){
119 $mpd->playlist->clear();
120 foreach ($mpd->collection->all_pathes){
121 $mpd->playlist->add($_);
a609bfb0 122 }
e5a63a6f
CS		 123 $mpd->play();
124 }elsif ($mpfiresettings{'ACTION'} eq "x" ){
125 $mpd->stop();
126 }elsif ( $mpfiresettings{'ACTION'} eq "|>" ){
127 $mpd->pause();
128 }elsif ( $mpfiresettings{'ACTION'} eq "<<" ){
129 $mpd->prev();
130 }elsif ( $mpfiresettings{'ACTION'} eq ">>" ){
131 $mpd->next();
132 }elsif ( $mpfiresettings{'ACTION'} eq "+" ){
133 $mpd->volume('+5');
134 }elsif ( $mpfiresettings{'ACTION'} eq "-" ){
135 $mpd->volume('-5');
136 }elsif ( $mpfiresettings{'ACTION'} eq "++" ){
137 $mpd->volume('+10');
138 }elsif ( $mpfiresettings{'ACTION'} eq "--" ){
139 $mpd->volume('-10');
140 }elsif ( $mpfiresettings{'ACTION'} eq ">" ){
141 $mpd->play();
142 }elsif ( $mpfiresettings{'ACTION'} eq "repeat" ){
143 $mpd->repeat();
144 }elsif ( $mpfiresettings{'ACTION'} eq "shuffle" ){
145 $mpd->random();
a609bfb0 146 }
e5a63a6f
CS		 147 print <<END
148<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
149<title></title>
150<body>
151<table width='95%' cellspacing='0'>
152<tr>
153<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='<<' /><input type='image' alt='$Lang::tr{'prev'}' title='$Lang::tr{'prev'}' src='/images/media-skip-backward.png' /></form></td>
154<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='x' /><input type='image' alt='$Lang::tr{'stop'}' title='$Lang::tr{'stop'}' src='/images/media-playback-stop.png' /></form></td>
155<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='|>' /><input type='image' alt='$Lang::tr{'toggle'}' title='$Lang::tr{'toggle'}' src='/images/media-resume.png' /></form></td>
156<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='>' /><input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' /></form></td>
157<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='playall' /><input type='image' alt='$Lang::tr{'play'} all' title='$Lang::tr{'play'} all' src='/images/media-playback-start-all.png' /></form></td>
158<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='>>' /><input type='image' alt='$Lang::tr{'next'}' title='$Lang::tr{'next'}' src='/images/media-skip-forward.png' /></form></td>
159</tr>
160END
161;
162 print <<END
163<tr>
164<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='repeat' /><input type='image' alt='$Lang::tr{'repeat'}' title='$Lang::tr{'repeat'}' src='/images/media-repeat.png' /></form></td>
165<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='--' /><input type='image' alt='$Lang::tr{'voldown10'}' title='$Lang::tr{'voldown10'}' src='/images/audio-volume-low-red.png' /></form></td>
166<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='-' /><input type='image' alt='$Lang::tr{'voldown5'}' title='$Lang::tr{'voldown5'}' src='/images/audio-volume-low.png' /></form></td>
167<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='+' /><input type='image' alt='$Lang::tr{'volup5'}' title='$Lang::tr{'volup5'}' src='/images/audio-volume-high.png' /></form></td>
168<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='++' /><input type='image' alt='$Lang::tr{'volup10'}' title='$Lang::tr{'volup10'}' src='/images/audio-volume-high-red.png' /></form></td>
169<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}?control'><input type='hidden' name='ACTION' value='shuffle' /><input type='image' alt='$Lang::tr{'shuffle'}' title='$Lang::tr{'shuffle'}' src='/images/media-shuffle.png' /></form></td>
170</tr>
171</table>
172</body>
173END
174;
175 exit;
176}
a609bfb0 177
e5a63a6f
CS		 178# just a little subpage to handle automatic page refresh on demand ( 1 sec )
179sub refreshpage{
180 &Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='1;' />" );
181 print "<center><img src='/images/clock.gif' alt='' /><br/><font color='red'>$Lang::tr{'pagerefresh'}</font></center>";
182 &Header::closebox();
183}
184
185# if the mpd is updating his database because of user interaction then the cgi
186# should display that the mpd is unavailable, and refresh the status every 5 seconds
187if ($work ne ""){
188 &Header::openpage($Lang::tr{'mpfire'}, 1,);
189 &Header::openbigbox('100%', 'left', '', $errormessage);
190 &Header::openbox( 'Waiting', 5, "<meta http-equiv='refresh' content='5;' />" );
191 print "<center><img src='/images/clock.gif' alt='' /><br/><font color='red'>Database is updating, please be patient.</font></center>";
192 &Header::closebox();
193 &Header::closebigbox();
194 &Header::closepage();
195 exit;
196}
a609bfb0 197
e5a63a6f 198if ( $mpfiresettings{'PAGE'} eq "" ){$mpfiresettings{'PAGE'} = "1";}
70ccd4a7 199
69addbb8 200&Header::getcgihash(\%mpfiresettings);
8a5898e7 201&Header::openpage($Lang::tr{'mpfire'}, 1,);
a28fdc01
CS		 202&Header::openbigbox('100%', 'left', '', $errormessage);
203
a28fdc01
CS		 204############################################################################################################################
205######################################## Scanne Verzeichnisse nach Mp3 Dateien #############################################
206
e5a63a6f 207if ( $mpfiresettings{'ACTION'} eq "scan" ){
70ccd4a7 208
e5a63a6f
CS		 209# on keypress scan the given directory and store the path to the mpd config
210 &General::readhash("${General::swroot}/mpfire/settings", \%mpfiresettings);
211 &Header::getcgihash(\%mpfiresettings);
212 delete $mpfiresettings{'__CGI__'};delete $mpfiresettings{'x'};delete $mpfiresettings{'y'};
213 &General::writehash("${General::swroot}/mpfire/settings", \%mpfiresettings);
214
215 open(DATEI, "<${General::swroot}/mpfire/mpd.conf") || die "Datei nicht gefunden";
216 my @Zeilen = <DATEI>;
217 close(DATEI);
218
219 open(DATEI, ">${General::swroot}/mpfire/mpd.conf") || die "Datei nicht gefunden";
220 foreach (@Zeilen){
221 if ( $_ =~ /music_directory/){
222 print DATEI "music_directory \"".$mpfiresettings{'MUSICDIR'}."\"\n";
223 }else {
224 print DATEI $_;
225 }
a609bfb0 226 }
e5a63a6f
CS		 227 close(DATEI);
228
229 $mpd->updatedb();
230 refreshpage();
231}elsif ( $mpfiresettings{'ACTION'} eq "playweb" ){
232 $message=system("/usr/local/bin/mpfirectrl","playweb","\"$mpfiresettings{'FILE'}\"","2>/dev/null");
233}elsif ( $mpfiresettings{'ACTION'} eq "playlist" ){
96481f95 234 $mpd->play();
e5a63a6f
CS		 235}elsif ( $mpfiresettings{'ACTION'} eq "emptyplaylist" ){
236# on keypress clear the playlist
237 $mpd->playlist->clear();
238}elsif ( $mpfiresettings{'ACTION'} eq "addtoplaylist" ){
239 $mpd->playlist->add($mpfiresettings{'FILE'});
240}elsif ( $mpfiresettings{'ACTION'} eq "playalbum" ){
241# on keypress play the selected albums
242 my @select = split(/\|/,$mpfiresettings{'album'});
243 $mpd->playlist->clear();
a609bfb0 244 foreach (@select){
e5a63a6f
CS		 245 foreach ($mpd->collection->filenames_by_album($_)){
246 if ( $_ ne "" ){
247 $mpd->playlist->add($_);
248 }
249 }
a609bfb0 250 }
e5a63a6f
CS		 251 $mpd->play();
252}elsif ( $mpfiresettings{'ACTION'} eq "playartist" ){
253# on keypress play the selected artist
254 my @select = split(/\|/,$mpfiresettings{'artist'});
255 $mpd->playlist->clear();
a609bfb0 256 foreach (@select){
e5a63a6f
CS		 257 foreach ($mpd->collection->filenames_by_artist($_)){
258 if ( $_ ne "" ){
259 $mpd->playlist->add($_);
260 }
261 }
a609bfb0 262 }
e5a63a6f
CS		 263 $mpd->play();
264}elsif ( $mpfiresettings{'ACTION'} eq "playyear" ){
265# on keypress play the selected year
266 my @select = split(/\|/,$mpfiresettings{'year'});
267 $mpd->playlist->clear();
a609bfb0 268 foreach (@select){
e5a63a6f
CS		 269 foreach ($mpd->collection->filenames_by_year($_)){
270 if ( $_ ne "" ){
271 $mpd->playlist->add($_);
272 }
273 }
a609bfb0 274 }
e5a63a6f
CS		 275 $mpd->play();
276}elsif ( $mpfiresettings{'ACTION'} eq "playgenre" ){
277# on keypress play the selected genre
278 my @select = split(/\|/,$mpfiresettings{'genre'});
279 $mpd->playlist->clear();
280 foreach (@select){
281 foreach ($mpd->collection->filenames_by_genre($_)){
282 if ( $_ ne "" ){
283 $mpd->playlist->add($_);
284 }
285 }
286 }
287 $mpd->play();
288}elsif ( $mpfiresettings{'ACTION'} eq ">" ){
289 $mpd->playlist->clear();
290 $mpd->playlist->add($mpfiresettings{'FILE'});
291 $mpd->play();
8050f37b 292}
8050f37b 293
e5a63a6f
CS		 294 if ( $mpfiresettings{'SEARCH'} eq "artist" && $mpfiresettings{'SEARCHITEM'} ne "" ){
295 foreach ($mpd->collection->songs_with_artist_partial_filename($mpfiresettings{'SEARCHITEM'})){
296 if ( $_ ne "" ){
297 push(@songs,$_);
298 }
299 }
300 }elsif ( $mpfiresettings{'SEARCH'} eq "title" && $mpfiresettings{'SEARCHITEM'} ne "" ){
301 foreach ($mpd->collection->songs_with_title_partial_filename($mpfiresettings{'SEARCHITEM'})){
302 if ( $_ ne "" ){
303 push(@songs,$_);
304 }
305 }
306 }elsif ( $mpfiresettings{'SEARCH'} eq "album" && $mpfiresettings{'SEARCHITEM'} ne "" ){
307 foreach ($mpd->collection->songs_with_album_partial_filename($mpfiresettings{'SEARCHITEM'})){
308 if ( $_ ne "" ){
309 push(@songs,$_);
310 }
311 }
312 }else{
313 @songs = $mpd->collection->all_items_simple();
314 shift(@songs);
315 }
a28fdc01
CS		 316
317############################################################################################################################
318################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ####################################
319
70ccd4a7 320$mpfiresettings{'MUSICDIR'} = "/";
a28fdc01
CS		 321&General::readhash("${General::swroot}/mpfire/settings", \%mpfiresettings);
322
323############################################################################################################################
324########################################### rekursiv nach neuen Mp3s Scannen ##############################################ä
325
e5a63a6f
CS		 326if ( $message ne '0' ){
327 print "<font color='red'>An Error occured while launching the command</font>";
328}elsif ( $message ne "" && $message ne '0' ){
329 print "<font color='red'>$message</font>";
330}
a28fdc01
CS		 331
332&Header::openbox('100%', 'center', $Lang::tr{'mpfire scanning'});
e5a63a6f 333# box to enter the music directory and initiate the scan process
a28fdc01
CS		 334print <<END
335<form method='post' action='$ENV{'SCRIPT_NAME'}'>
336<table width='95%' cellspacing='0'>
337<tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'Scan for Files'}</b></td></tr>
19f5a6cc 338<tr><td align='left' width='40%'>$Lang::tr{'Scan from Directory'}</td><td align='left'><input type='text' name='MUSICDIR' value='$mpfiresettings{'MUSICDIR'}' size="50" /></td></tr>
e5a63a6f 339<tr><td align='center' colspan='2'><input type='hidden' name='ACTION' value='scan' /><input type='image' alt='$Lang::tr{'Scan for Files'}' title='$Lang::tr{'Scan for Files'}' src='/images/edit-find.png' /></td></tr>
a28fdc01
CS		 340</table>
341</form>
342END
343;
344&Header::closebox();
345
346&Header::openbox('100%', 'center', $Lang::tr{'mpfire controls'});
e5a63a6f 347# box for the two iframes showing the current playbar and the control buttons
a28fdc01 348print <<END
e5a63a6f
CS		 349<iframe height='85' width='685' src='/cgi-bin/mpfire.cgi?title' scrolling='no' frameborder='no' marginheight='0'></iframe>
350<iframe height='50' width='685' src='/cgi-bin/mpfire.cgi?control' scrolling='no' frameborder='no' marginheight='0'></iframe>
a28fdc01
CS		 351END
352;
e5a63a6f
CS		 353print "<b>Songs:".$mpd->stats()->songs()."</b><br />";
354
a28fdc01
CS		 355&Header::closebox();
356
32ab16de 357&Header::openbox('100%', 'center', $Lang::tr{'quick playlist'});
e5a63a6f 358# box to quickly select artist, album, year or genre and play the selection
cb5e9c6c 359print "<table width='95%' cellspacing='0'>";
e5a63a6f
CS		 360print "<tr><td align='center' bgcolor='$color{'color20'}'><b>$Lang::tr{'artist'} - ".$mpd->stats()->artists()."</b></td><td align='center' bgcolor='$color{'color20'}'><b>$Lang::tr{'album'} - ".$mpd->stats()->albums()."</b></td></tr>";
361
05882fff 362print <<END
e5a63a6f
CS		 363<tr><td align='center'>
364<form method='post' action='$ENV{'SCRIPT_NAME'}'>
365<select name='artist' size='8' multiple='multiple' style='width:300px;'>
32ab16de
CS		 366END
367;
e5a63a6f 368
f7d54895 369foreach (sort($mpd->collection->all_artists())){
e5a63a6f
CS		 370 if ( $_ ne '' ){
371 print "<option>".encode('utf-8', $_)."</option>\n";
372 }
373}
374
32ab16de 375print <<END
e5a63a6f
CS		 376</select><br/>
377<input type='hidden' name='ACTION' value='playartist' />
378<input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
379</form></td>
380<td align='center'>
381<form method='post' action='$ENV{'SCRIPT_NAME'}'>
382<select name='album' size='8' multiple='multiple' style='width:300px;'>
32ab16de
CS		 383END
384;
e5a63a6f 385
f7d54895 386foreach (sort($mpd->collection->all_albums())){
e5a63a6f
CS		 387 if ( $_ ne '' ){
388 print "<option>".encode('utf-8', $_)."</option>\n";
389 }
390}
391
32ab16de 392print <<END
e5a63a6f
CS		 393</select><br/>
394<input type='hidden' name='ACTION' value='playalbum' />
395<input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
396</form></td>
397</tr>
398<tr><td align='center' bgcolor='$color{'color20'}'><b>$Lang::tr{'year'}</b></td><td align='center' bgcolor='$color{'color20'}'><b>$Lang::tr{'genre'}</b></td></tr>
399<tr><td align='center'>
400<form method='post' action='$ENV{'SCRIPT_NAME'}'>
401<select name='year' size='8' multiple='multiple' style='width:300px;'>
05882fff
CS		 402END
403;
e5a63a6f 404
f7d54895 405foreach (sort($mpd->collection->all_years())){
e5a63a6f
CS		 406 if ( $_ ne '' ){
407 print "<option>$_</option>\n";
408 }
409}
410
05882fff 411print <<END
e5a63a6f
CS		 412</select><br/>
413<input type='hidden' name='ACTION' value='playyear' />
414<input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
415</form></td>
416<td align='center'>
417<form method='post' action='$ENV{'SCRIPT_NAME'}'>
418<select name='genre' size='8' multiple='multiple' style='width:300px;'>
8050f37b
CS		 419END
420;
e5a63a6f 421
f7d54895 422foreach (sort($mpd->collection->all_genre())){
e5a63a6f
CS		 423 if ( $_ ne '' ){
424 print "<option>$_</option>\n";
425 }
426}
427
8050f37b 428print <<END
e5a63a6f
CS		 429</select><br/>
430<input type='hidden' name='ACTION' value='playgenre' />
431<input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
432</form></td>
433</tr></table>
8050f37b
CS		 434END
435;
e5a63a6f
CS		 436
437&Header::closebox();
438
439&Header::openbox('100%', 'center', $Lang::tr{'mpfire search'});
440# box to quickly search artist, album or title
8050f37b 441print <<END
6cd3f682 442<form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'mpfire songs'}'>
e5a63a6f
CS		 443<table width='95%' cellspacing='0'>
444<tr>
445<td align='right' width='33%'>$Lang::tr{'artist'}</td>
446<td align='center' width='33%'>$Lang::tr{'title'}</td>
447<td align='left' width='33%'>$Lang::tr{'album'}</td>
448</tr>
449<tr>
450<td align='right' width='33%'><input type='radio' name='SEARCH' value='artist' /></td>
451<td align='center' width='33%'><input type='radio' name='SEARCH' value='title' checked='checked' /></td>
452<td align='left' width='33%'><input type='radio' name='SEARCH' value='album' /></td>
453</tr>
454<tr>
455<td align='center' colspan='3'><input type='text' name='SEARCHITEM' value='$mpfiresettings{'SEARCHITEM'}' size="50" /></td>
456</tr>
457<tr>
458<td align='center' colspan='3'><input type='hidden' name='ACTION' value='search' /><input type='image' alt='$Lang::tr{'Scan for Songs'}' title='$Lang::tr{'Scan for Songs'}' src='/images/edit-find.png' /></td>
459</tr>
460</table>
461</form>
32ab16de
CS		 462END
463;
464&Header::closebox();
465
a28fdc01
CS		 466&Header::openbox('100%', 'center', $Lang::tr{'mpfire songs'});
467print <<END
e5a63a6f
CS		 468<a id='$Lang::tr{'mpfire songs'}' name='$Lang::tr{'mpfire songs'}'></a>
469<table width='95%' cellspacing='3'>
470<tr bgcolor='$color{'color20'}'><td colspan='4' align='left'><b>$Lang::tr{'Existing Files'}</b></td></tr>
8871b9f2
CS		 471END
472;
e5a63a6f
CS		 473if ( $#songs > 100 ){
474 print "<tr><td align='center' colspan='4'><br/>$Lang::tr{'Pages'}<br/><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='submit' name='PAGE' value='all' /><br/>";
475 my $pages =(int($#songs/100)+1);
476 for(my $i = 1; $i <= $pages; $i++){
477 print "<input type='submit' name='PAGE' value='$i' />";
478 if (!($i % 205)){
479 print"<br/>";
480 }
481 }
482
483 print "</form></td></tr>";
8871b9f2
CS		 484}
485print <<END
a28fdc01 486<tr><td align='center'></td>
e5a63a6f
CS		 487<td align='center'><b>$Lang::tr{'artist'}<br/>$Lang::tr{'title'}</b></td>
488<td align='center'><b>$Lang::tr{'number'}</b></td>
489<td align='center'><b>$Lang::tr{'album'}</b></td>
a28fdc01
CS		 490END
491;
e5a63a6f 492
8871b9f2
CS		 493my $lines=0;my $i=0;my $begin;my $end;
494if ( $mpfiresettings{'PAGE'} eq 'all' ){
a609bfb0 495 $begin=0;
e5a63a6f
CS		 496 $end=$#songs;
497}else{
a609bfb0
CS		 498 $begin=(($mpfiresettings{'PAGE'}-1) * 100);
499 $end=(($mpfiresettings{'PAGE'} * 100)-1);
8871b9f2 500}
e5a63a6f 501 foreach (@songs){
a609bfb0 502 if (!($i >= $begin && $i <= $end)){
e5a63a6f
CS		 503 #print $begin."->".$i."<-".$end."\n";
504 $i++;next;
505 }
506 my @song = split(/\=/,$mpd->collection->song($_));
507 @song = reverse @song;
a609bfb0 508
e5a63a6f
CS		 509 if ($lines % 2) {
510 print "<tr bgcolor='$color{'color20'}'>";
511 }else{
512 print "<tr bgcolor='$color{'color22'}'>";
513 }
a609bfb0 514 print <<END
e5a63a6f
CS		 515<td align='center' style="white-space:nowrap;">
516<form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'mpfire songs'}'>
517<input type='hidden' name='ACTION' value='addtoplaylist' />
518<input type='hidden' name='FILE' value="$_" />
519<input type='hidden' name='PAGE' value='$mpfiresettings{'PAGE'}' />
520<input type='hidden' name='SEARCH' value='$mpfiresettings{'SEARCH'}' />
521<input type='hidden' name='SEARCHITEM' value='$mpfiresettings{'SEARCHITEM'}' />
522<input type='image' alt='$Lang::tr{'add'}' title='$Lang::tr{'add'}' src='/images/list-add.png' />
523</form>
524<form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'mpfire songs'}'>
525<input type='hidden' name='ACTION' value='>' />
526<input type='hidden' name='FILE' value="$_" />
527<input type='hidden' name='PAGE' value='$mpfiresettings{'PAGE'}' />
528<input type='hidden' name='SEARCH' value='$mpfiresettings{'SEARCH'}' />
529<input type='hidden' name='SEARCHITEM' value='$mpfiresettings{'SEARCHITEM'}' />
530<input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
531</form>
532</td>
a28fdc01
CS		 533END
534;
e5a63a6f
CS		 535 print "<td align='center'>".encode('utf-8', $song[0])."<br/>".encode('utf-8', $song[1])."</td>";
536 print "<td align='center'>".encode('utf-8', $song[2])."</td>";
537 print "<td align='center'>".encode('utf-8', $song[3])."</td>";
a609bfb0
CS		 538 $lines++;
539 $i++;
e5a63a6f
CS		 540}
541
8871b9f2 542print "</table>";
a28fdc01 543&Header::closebox();
a28fdc01 544
32ab16de 545&Header::openbox('100%', 'center', $Lang::tr{'mpfire playlist'});
e5a63a6f 546# box to show the current playlist given from mpc system command
8c384f97 547my @playlist = `mpc playlist 2>/dev/null`;
bac7231b 548
32ab16de
CS		 549print <<END
550<table width='95%' cellspacing='0'>
8871b9f2
CS		 551<tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'current playlist'}</b></td></tr>
552<tr><td align='center' colspan='2' ><textarea cols='100' rows='10' name='playlist' style='font-size:11px;width:650px;' readonly='readonly'>
bac7231b
CS		 553END
554;
e5a63a6f
CS		 555
556foreach (@playlist){
557 $_=~s/&/&amp\;/g;;print $_;
558}
559
bac7231b 560print <<END
8871b9f2
CS		 561</textarea></td></tr><tr>
562<td align='right'>
e5a63a6f
CS		 563<form method='post' action='$ENV{'SCRIPT_NAME'}'>
564<input type='hidden' name='ACTION' value='emptyplaylist' />
565<input type='image' alt='$Lang::tr{'clear playlist'}' title='$Lang::tr{'clear playlist'}' src='/images/user-trash.png' />
566</form>
8871b9f2
CS		 567</td>
568<td align='left'>
e5a63a6f
CS		 569<form method='post' action='$ENV{'SCRIPT_NAME'}'>
570<input type='hidden' name='ACTION' value='playlist' />
571<input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
572</form>
a609bfb0 573</td></tr>
32ab16de
CS		 574</table>
575END
576;
e5a63a6f 577
32ab16de
CS		 578&Header::closebox();
579
a2d5130f 580&Header::openbox('100%', 'center', $Lang::tr{'mpfire webradio'});
e5a63a6f 581# box to select some webradio´s to be played by one click
a2d5130f
CS		 582open(DATEI, "<${General::swroot}/mpfire/webradio") || die "Could not open playlist";
583my @webradio = <DATEI>;
584close(DATEI);
585
586print <<END
587<table width='95%' cellspacing='0'>
588<tr bgcolor='$color{'color20'}'><td colspan='9' align='left'><b>$Lang::tr{'webradio playlist'}</b></td></tr>
efb2af14 589<tr><td align='left'>Stream</td><td colspan='2'></td></tr>
a2d5130f
CS		 590END
591;
e5a63a6f 592
d089ce65 593my $lines=0;
a2d5130f 594foreach (@webradio){
a609bfb0
CS		 595 my @stream = split(/\|/,$_);
596 $lines++;
597 chomp($stream[2]);
e5a63a6f
CS		 598 if ($lines % 2) {
599 print "<tr bgcolor='$color{'color22'}'>";
600 }else{
601 print "<tr>";
602 }
3fcb086e 603 chomp $stream[1];chomp $stream[2];
e5a63a6f
CS		 604 print <<END
605<td align='left'><a href='$stream[2]' target='_blank'>$stream[1]</a></td>
606<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='FILE' value='$stream[0]' /><input type='hidden' name='ACTION' value='playweb' /><input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' align='middle' /></form></td>
a2d5130f
CS		 607</tr>
608END
609;
e5a63a6f
CS		 610}
611
612$lines++;
613if ($lines % 2){
614 print "<tr bgcolor='$color{'color22'}'>";
615}else{
616 print "<tr>";
617}
618
d089ce65 619print <<END
e5a63a6f
CS		 620<td align='center' colspan='2'><form method='post' action='$ENV{'SCRIPT_NAME'}'><br />http://<input type=text name='FILE' value='www.meineradiourl:1234' size='75' />
621<input type='hidden' name='ACTION' value='playweb' /><input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' align='top' /></form></td>
d089ce65
CS		 622</tr>
623END
624;
a2d5130f
CS		 625print "</table>";
626&Header::closebox();
a28fdc01
CS		 627&Header::closebigbox();
628&Header::closepage();
Peter's tree of IPFire 2.x