]>
git.ipfire.org Git - people/ummeegge/ipfire-2.x.git/blob - html/cgi-bin/mpfire.cgi
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2007 Michael Tremer & Christian Schmidt #
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. #
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. #
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/>. #
20 ###############################################################################
24 # enable only the following on debugging purpose
26 #use CGI::Carp 'fatalsToBrowser';
28 # use the special mpd POD and the encode POD to handle the utf8 scalars
32 # initiate the connector for the mpd POD, mpd must be running on locahost
33 # port 6600 without authentication
34 my $mpd = Audio
::MPD
->new('localhost',6600,'','$REUSE');
35 my $work = $mpd->status()->updating_db();
37 require '/var/ipfire/general-functions.pl';
38 require "${General::swroot}/lang.pl";
39 require "${General::swroot}/header.pl";
42 my %mainsettings = ();
43 my %mpfiresettings = ();
46 my $errormessage = "";
49 &General
::readhash
("${General::swroot}/main/settings", \
%mainsettings);
50 &General
::readhash
("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \
%color);
52 &Header
::showhttpheaders
();
54 if ( $ENV{'QUERY_STRING'} =~ /title/){
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 ################################################################################
63 my $number = $mpd->status()->song()+1;
64 my $volume = $mpd->status()->volume();
65 my $random = $mpd->status()->random();
73 my $repeat = $mpd->status()->repeat();
81 if ( $mpd->current() )
83 $song = substr("-= ".$mpd->current()->Artist()." | ".$mpd->current()->Title(),0,85)." =-<br /> ";
84 if ( $song eq "-= | =-<br /> " ){
87 $song .= $mpd->current()->Track()."# ".substr($mpd->current()->Album(),0,90)."<br />";
89 $song = "None<br /><br />";
92 if ( $song eq "None<br /># <br />" ){
93 $song = "None<br />".substr($mpd->current()->file(),0,90)."<br />"
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;
100 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
101 <meta http-equiv='refresh' content='5'>
104 <table width='100%' cellspacing='0' align='center' style="background-image:url(/images/mpfire/box.png);background-repeat:no-repeat">
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>";
109 }elsif ( $ENV{'QUERY_STRING'} =~ /control/){
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 ################################################################################
117 &Header
::getcgihash
(\
%mpfiresettings);
118 if ( $mpfiresettings{'ACTION'} eq "playall" ){
119 $mpd->playlist->clear();
120 foreach ($mpd->collection->all_pathes){
121 $mpd->playlist->add($_);
124 }elsif ($mpfiresettings{'ACTION'} eq "x" ){
126 }elsif ( $mpfiresettings{'ACTION'} eq "|>" ){
128 }elsif ( $mpfiresettings{'ACTION'} eq "<<" ){
130 }elsif ( $mpfiresettings{'ACTION'} eq ">>" ){
132 }elsif ( $mpfiresettings{'ACTION'} eq "+" ){
134 }elsif ( $mpfiresettings{'ACTION'} eq "-" ){
136 }elsif ( $mpfiresettings{'ACTION'} eq "++" ){
138 }elsif ( $mpfiresettings{'ACTION'} eq "--" ){
140 }elsif ( $mpfiresettings{'ACTION'} eq ">" ){
142 }elsif ( $mpfiresettings{'ACTION'} eq "repeat" ){
144 }elsif ( $mpfiresettings{'ACTION'} eq "shuffle" ){
148 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
151 <table width='95%' cellspacing='0'>
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>
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>
178 # just a little subpage to handle automatic page refresh on demand ( 1 sec )
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>";
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
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>";
193 &Header
::closebigbox
();
194 &Header
::closepage
();
198 if ( $mpfiresettings{'PAGE'} eq "" ){ $mpfiresettings{'PAGE'} = "1";};
199 if ( $mpfiresettings{'FRAME'} eq "" ){$mpfiresettings{'FRAME'} = "webradio";};
201 &Header
::getcgihash
(\
%mpfiresettings);
202 &Header
::openpage
($Lang::tr
{'mpfire'}, 1,);
203 &Header
::openbigbox
('100%', 'left', '', $errormessage);
205 ############################################################################################################################
206 ######################################## Scanne Verzeichnisse nach Mp3 Dateien #############################################
208 if ( $mpfiresettings{'ACTION'} eq "scan" ){
210 # on keypress scan the given directory and store the path to the mpd config
211 &General
::readhash
("${General::swroot}/mpfire/settings", \
%mpfiresettings);
212 &Header
::getcgihash
(\
%mpfiresettings);
213 delete $mpfiresettings{'__CGI__'};delete $mpfiresettings{'x'};delete $mpfiresettings{'y'};
214 delete $mpfiresettings{'PAGE'}; delete $mpfiresettings{'FRAME'};
215 &General
::writehash
("${General::swroot}/mpfire/settings", \
%mpfiresettings);
217 open(DATEI
, "<${General::swroot}/mpfire/mpd.conf") || die "Datei nicht gefunden";
218 my @Zeilen = <DATEI
>;
221 open(DATEI
, ">${General::swroot}/mpfire/mpd.conf") || die "Datei nicht gefunden";
223 if ( $_ =~ /music_directory/){
224 print DATEI
"music_directory \"".$mpfiresettings{'MUSICDIR'}."\"\n";
233 }elsif ( $mpfiresettings{'ACTION'} eq "playweb" ){
234 $message=system("/usr/local/bin/mpfirectrl","playweb","\"$mpfiresettings{'FILE'}\"","2>/dev/null");
235 }elsif ( $mpfiresettings{'ACTION'} eq "playlist" ){
237 }elsif ( $mpfiresettings{'ACTION'} eq "emptyplaylist" ){
238 # on keypress clear the playlist
239 $mpd->playlist->clear();
240 }elsif ( $mpfiresettings{'ACTION'} eq "addtoplaylist" ){
241 $mpd->playlist->add($mpfiresettings{'FILE'});
242 }elsif ( $mpfiresettings{'ACTION'} eq "playalbum" ){
243 # on keypress play the selected albums
244 my @select = split(/\|/,$mpfiresettings{'album'});
245 $mpd->playlist->clear();
247 foreach ($mpd->collection->filenames_by_album($_)){
249 $mpd->playlist->add($_);
254 }elsif ( $mpfiresettings{'ACTION'} eq "playartist" ){
255 # on keypress play the selected artist
256 my @select = split(/\|/,$mpfiresettings{'artist'});
257 $mpd->playlist->clear();
259 foreach ($mpd->collection->filenames_by_artist($_)){
261 $mpd->playlist->add($_);
266 }elsif ( $mpfiresettings{'ACTION'} eq "playyear" ){
267 # on keypress play the selected year
268 my @select = split(/\|/,$mpfiresettings{'year'});
269 $mpd->playlist->clear();
271 foreach ($mpd->collection->filenames_by_year($_)){
273 $mpd->playlist->add($_);
278 }elsif ( $mpfiresettings{'ACTION'} eq "playgenre" ){
279 # on keypress play the selected genre
280 my @select = split(/\|/,$mpfiresettings{'genre'});
281 $mpd->playlist->clear();
283 foreach ($mpd->collection->filenames_by_genre($_)){
285 $mpd->playlist->add($_);
290 }elsif ( $mpfiresettings{'ACTION'} eq ">" ){
291 $mpd->playlist->clear();
292 $mpd->playlist->add($mpfiresettings{'FILE'});
296 if ( $mpfiresettings{'SEARCH'} eq "artist" && $mpfiresettings{'SEARCHITEM'} ne "" ){
297 foreach ($mpd->collection->songs_with_artist_partial_filename($mpfiresettings{'SEARCHITEM'})){
302 }elsif ( $mpfiresettings{'SEARCH'} eq "title" && $mpfiresettings{'SEARCHITEM'} ne "" ){
303 foreach ($mpd->collection->songs_with_title_partial_filename($mpfiresettings{'SEARCHITEM'})){
308 }elsif ( $mpfiresettings{'SEARCH'} eq "album" && $mpfiresettings{'SEARCHITEM'} ne "" ){
309 foreach ($mpd->collection->songs_with_album_partial_filename($mpfiresettings{'SEARCHITEM'})){
315 @songs = $mpd->collection->all_items_simple();
319 ############################################################################################################################
320 ################################### Aufbau der HTML Seite fr globale Sambaeinstellungen ####################################
322 $mpfiresettings{'MUSICDIR'} = "/var/mp3";
323 &General
::readhash
("${General::swroot}/mpfire/settings", \
%mpfiresettings);
325 ############################################################################################################################
326 ########################################### rekursiv nach neuen Mp3s Scannen ##############################################ä
328 if ( $message ne '0' ){
329 print "<font color='red'>An Error occured while launching the command</font>";
330 }elsif ( $message ne "" && $message ne '0' ){
331 print "<font color='red'>$message</font>";
334 &Header
::openbox
('100%', 'center', $Lang::tr
{'mpfire scanning'});
335 # box to enter the music directory and initiate the scan process
337 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
338 <table width='95%' cellspacing='0'>
339 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'Scan for Files'}</b></td></tr>
340 <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>
341 <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>
348 &Header
::openbox
('100%', 'center', $Lang::tr
{'mpfire controls'});
349 # box for the two iframes showing the current playbar and the control buttons
351 <iframe height='85' width='685' src='/cgi-bin/mpfire.cgi?title' scrolling='no' frameborder='no' marginheight='0'></iframe>
352 <iframe height='50' width='685' src='/cgi-bin/mpfire.cgi?control' scrolling='no' frameborder='no' marginheight='0'></iframe>
355 print "<b>Songs:".$mpd->stats()->songs()."</b><br />";
359 &Header
::openbox
('100%', 'center', '');
361 <tr><td align='center' colspan='4'>
362 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
365 my @buttons=("webradio", "quick playlist","songs");
367 if ( $mpfiresettings{'FRAME'} eq $_ ) {
368 print "<input type='submit' name='FRAME' value='$_' disabled />";
370 print "<input type='submit' name='FRAME' value='$_' />";
380 if ( $mpfiresettings{'FRAME'} eq "quick playlist" )
382 &Header
::openbox
('100%', 'center', $Lang::tr
{'quick playlist'});
383 # box to quickly select artist, album, year or genre and play the selection
384 print "<table width='95%' cellspacing='0'>";
385 print "<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>";
388 <tr><td align='center'>
389 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
390 <select name='artist' size='8' multiple='multiple' style='width:300px;'>
394 foreach (sort($mpd->collection->all_artists())){
396 print "<option>".encode
('utf-8', $_)."</option>\n";
402 <input type='hidden' name='ACTION' value='playartist' />
403 <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
404 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
407 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
408 <select name='album' size='8' multiple='multiple' style='width:300px;'>
412 foreach (sort($mpd->collection->all_albums())){
414 print "<option>".encode
('utf-8', $_)."</option>\n";
420 <input type='hidden' name='ACTION' value='playalbum' />
421 <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
422 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
425 <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>
426 <tr><td align='center'>
427 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
428 <select name='year' size='8' multiple='multiple' style='width:300px;'>
432 foreach (sort($mpd->collection->all_years())){
434 print "<option>$_</option>\n";
440 <input type='hidden' name='ACTION' value='playyear' />
441 <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
442 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
445 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
446 <select name='genre' size='8' multiple='multiple' style='width:300px;'>
450 foreach (sort($mpd->collection->all_genre())){
452 print "<option>$_</option>\n";
458 <input type='hidden' name='ACTION' value='playgenre' />
459 <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
460 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
469 if ( $mpfiresettings{'FRAME'} eq "songs" )
471 &Header
::openbox
('100%', 'center', $Lang::tr
{'mpfire search'});
472 # box to quickly search artist, album or title
474 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'mpfire songs'}'>
475 <table width='95%' cellspacing='0'>
477 <td align='right' width='33%'>$Lang::tr{'artist'}</td>
478 <td align='center' width='33%'>$Lang::tr{'title'}</td>
479 <td align='left' width='33%'>$Lang::tr{'album'}</td>
482 <td align='right' width='33%'><input type='radio' name='SEARCH' value='artist' /></td>
483 <td align='center' width='33%'><input type='radio' name='SEARCH' value='title' checked='checked' /></td>
484 <td align='left' width='33%'><input type='radio' name='SEARCH' value='album' /></td>
487 <td align='center' colspan='3'><input type='text' name='SEARCHITEM' value='$mpfiresettings{'SEARCHITEM'}' size="50" /></td>
490 <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>
493 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
499 &Header
::openbox
('100%', 'center', $Lang::tr
{'mpfire songs'});
501 <a id='$Lang::tr{'mpfire songs'}' name='$Lang::tr{'mpfire songs'}'></a>
502 <table width='95%' cellspacing='3'>
503 <tr bgcolor='$color{'color20'}'><td colspan='4' align='left'><b>$Lang::tr{'Existing Files'}</b></td></tr>
506 if ( $#songs > 100 ){
507 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/>";
508 my $pages =(int($#songs/100)+1);
509 for(my $i = 1; $i <= $pages; $i++){
510 print "<input type='submit' name='PAGE' value='$i' />";
515 print "<input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />";
516 print "</form></td></tr>";
519 <tr><td align='center'></td>
520 <td align='center'><b>$Lang::tr{'artist'}<br/>$Lang::tr{'title'}</b></td>
521 <td align='center'><b>$Lang::tr{'number'}</b></td>
522 <td align='center'><b>$Lang::tr{'album'}</b></td>
526 my $lines=0;my $i=0;my $begin;my $end;
527 if ( $mpfiresettings{'PAGE'} eq 'all' ){
531 $begin=(($mpfiresettings{'PAGE'}-1) * 100);
532 $end=(($mpfiresettings{'PAGE'} * 100)-1);
535 if (!($i >= $begin && $i <= $end)){
536 #print $begin."->".$i."<-".$end."\n";
539 my @song = split(/\=/,$mpd->collection->song($_));
540 @song = reverse @song;
543 print "<tr bgcolor='$color{'color20'}'>";
545 print "<tr bgcolor='$color{'color22'}'>";
548 <td align='center' style="white-space:nowrap;">
549 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'mpfire songs'}'>
550 <input type='hidden' name='ACTION' value='addtoplaylist' />
551 <input type='hidden' name='FILE' value="$_" />
552 <input type='hidden' name='PAGE' value='$mpfiresettings{'PAGE'}' />
553 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
554 <input type='hidden' name='SEARCH' value='$mpfiresettings{'SEARCH'}' />
555 <input type='hidden' name='SEARCHITEM' value='$mpfiresettings{'SEARCHITEM'}' />
556 <input type='image' alt='$Lang::tr{'add'}' title='$Lang::tr{'add'}' src='/images/list-add.png' />
558 <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'mpfire songs'}'>
559 <input type='hidden' name='ACTION' value='>' />
560 <input type='hidden' name='FILE' value="$_" />
561 <input type='hidden' name='PAGE' value='$mpfiresettings{'PAGE'}' />
562 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
563 <input type='hidden' name='SEARCH' value='$mpfiresettings{'SEARCH'}' />
564 <input type='hidden' name='SEARCHITEM' value='$mpfiresettings{'SEARCHITEM'}' />
565 <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
570 print "<td align='center'>".encode
('utf-8', $song[0])."<br/>".encode
('utf-8', $song[1])."</td>";
571 print "<td align='center'>".encode
('utf-8', $song[2])."</td>";
572 print "<td align='center'>".encode
('utf-8', $song[3])."</td>";
581 if ( $mpfiresettings{'FRAME'} eq "webradio" )
583 &Header
::openbox
('100%', 'center', $Lang::tr
{'mpfire webradio'});
584 # box to select some webradio´s to be played by one click
585 open(DATEI
, "<${General::swroot}/mpfire/webradio") || die "Could not open playlist";
586 my @webradio = <DATEI
>;
590 <table width='95%' cellspacing='0'>
591 <tr bgcolor='$color{'color20'}'><td colspan='9' align='left'><b>$Lang::tr{'webradio playlist'}</b></td></tr>
592 <tr><td align='left'>Stream</td><td colspan='2'></td></tr>
598 my @stream = split(/\|/,$_);
602 print "<tr bgcolor='$color{'color22'}'>";
606 chomp $stream[1];chomp $stream[2];
608 <td align='left'><a href='$stream[2]' target='_blank'>$stream[1]</a></td>
609 <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' />
610 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
619 print "<tr bgcolor='$color{'color22'}'>";
625 <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' />
626 <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' />
627 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
636 &Header
::openbox
('100%', 'center', $Lang::tr
{'mpfire playlist'});
637 # box to show the current playlist given from mpc system command
638 my @playlist = `mpc playlist 2>/dev/null`;
641 <table width='95%' cellspacing='0'>
642 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'current playlist'}</b></td></tr>
643 <tr><td align='center' colspan='2' ><textarea cols='100' rows='10' name='playlist' style='font-size:11px;width:650px;' readonly='readonly'>
648 $_=~s/&/&\;/g;;print $_;
652 </textarea></td></tr><tr>
654 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
655 <input type='hidden' name='ACTION' value='emptyplaylist' />
656 <input type='image' alt='$Lang::tr{'clear playlist'}' title='$Lang::tr{'clear playlist'}' src='/images/user-trash.png' />
657 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
661 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
662 <input type='hidden' name='ACTION' value='playlist' />
663 <input type='image' alt='$Lang::tr{'play'}' title='$Lang::tr{'play'}' src='/images/media-playback-start.png' />
664 <input type='hidden' name='FRAME' value='$mpfiresettings{'FRAME'}' />
672 &Header
::closebigbox
();
673 &Header
::closepage
();