mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-27 19:23:24 +02:00
MPFire Streaming beigebracht, zumindest m3u Files
VPN-Watch nochmal angepasst DHCP Start Delay kleiner gesetzt UpdateBooster um ein paar Icons bereichert Favicon transparent gemacht, der FF will dennoch nicht damit git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@658 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
@@ -33,11 +33,9 @@ close(DATEI);
|
||||
&Header::showhttpheaders();
|
||||
&Header::getcgihash(\%mpfiresettings);
|
||||
|
||||
&Header::openpage($Lang::tr{'mpfire'}, 1, '');
|
||||
&Header::openpage($Lang::tr{'mpfire'}, 1, "<meta http-equiv='refresh' content='120'>");
|
||||
&Header::openbigbox('100%', 'left', '', $errormessage);
|
||||
|
||||
sub refreshpage{&Header::openbox( 'Waiting', 1, "<meta http-equiv='refresh' content='1;'>" );}
|
||||
|
||||
############################################################################################################################
|
||||
######################################## Scanne Verzeichnisse nach Mp3 Dateien #############################################
|
||||
|
||||
@@ -48,11 +46,13 @@ delete $mpfiresettings{'__CGI__'};delete $mpfiresettings{'x'};delete $mpfiresett
|
||||
system("/usr/local/bin/mpfirectrl scan $mpfiresettings{'SCANDIR'} $mpfiresettings{'SCANDIRDEPS'}");
|
||||
}
|
||||
|
||||
if ( $mpfiresettings{'ACTION'} eq ">" ){system("/usr/local/bin/mpfirectrl","play","\"$mpfiresettings{'FILE'}\""); print $mpfiresettings{'FILE'};}
|
||||
if ( $mpfiresettings{'ACTION'} eq ">" ){system("/usr/local/bin/mpfirectrl","play","\"$mpfiresettings{'FILE'}\"");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "x" ){system("/usr/local/bin/mpfirectrl stop");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "||" ){system("/usr/local/bin/mpfirectrl pause");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "|>" ){system("/usr/local/bin/mpfirectrl resume");}
|
||||
if ( $mpfiresettings{'ACTION'} eq ">>" ){system("/usr/local/bin/mpfirectrl next");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "stopweb" ){system("/usr/local/bin/mpfirectrl stopweb");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "playweb" ){system("/usr/local/bin/mpfirectrl","playweb","\"$mpfiresettings{'FILE'}\"");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "+" ){system("/usr/local/bin/mpfirectrl volup 5");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "-" ){system("/usr/local/bin/mpfirectrl voldown 5");}
|
||||
if ( $mpfiresettings{'ACTION'} eq "++" ){system("/usr/local/bin/mpfirectrl volup 10");}
|
||||
@@ -119,7 +119,7 @@ $mpfiresettings{'SHOWLIST'} = "off";
|
||||
if ( $message ne "" ) { print "<font color='red'>$message</font>"; }
|
||||
|
||||
&Header::openbox('100%', 'center', $Lang::tr{'mpfire scanning'});
|
||||
|
||||
|
||||
print <<END
|
||||
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
||||
<table width='95%' cellspacing='0'>
|
||||
@@ -135,8 +135,11 @@ END
|
||||
;
|
||||
&Header::closebox();
|
||||
|
||||
my $song = qx(/usr/local/bin/mpfirectrl song);
|
||||
if ( $song eq "" ){$song = "None";}
|
||||
|
||||
&Header::openbox('100%', 'center', $Lang::tr{'mpfire controls'});
|
||||
print "<table width='95%' cellspacing='0'><tr>";
|
||||
print "<table width='95%' cellspacing='0'><tr bgcolor='$color{'color20'}'><td colspan='5' align='center'><marquee behavior='alternate' scrollamount='1' scrolldelay='5'><font color=red>-= $song =-</font></marquee></td></tr><tr><td colspan='5'><br/></td></tr><tr>";
|
||||
print <<END
|
||||
<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'><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>
|
||||
<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='||' /><input type='image' alt='$Lang::tr{'pause'}' title='$Lang::tr{'pause'}' src='/images/media-playback-pause.png' /></form></td>
|
||||
@@ -245,8 +248,6 @@ print "</table></form>";
|
||||
|
||||
&Header::openbox('100%', 'center', $Lang::tr{'mpfire playlist'});
|
||||
|
||||
;
|
||||
|
||||
open(DATEI, "<${General::swroot}/mpfire/playlist") || die "Could not open playlist";
|
||||
my @playlist = <DATEI>;
|
||||
close(DATEI);
|
||||
@@ -264,5 +265,30 @@ END
|
||||
;
|
||||
&Header::closebox();
|
||||
|
||||
&Header::openbox('100%', 'center', $Lang::tr{'mpfire webradio'});
|
||||
|
||||
open(DATEI, "<${General::swroot}/mpfire/webradio") || die "Could not open playlist";
|
||||
my @webradio = <DATEI>;
|
||||
close(DATEI);
|
||||
|
||||
print <<END
|
||||
<table width='95%' cellspacing='0'>
|
||||
<tr bgcolor='$color{'color20'}'><td colspan='9' align='left'><b>$Lang::tr{'webradio playlist'}</b></td></tr>
|
||||
<tr><td>Stream</td><td colspan='2'></td></tr>
|
||||
END
|
||||
;
|
||||
foreach (@webradio){
|
||||
my @stream = split(/\|/,$_);
|
||||
print <<END
|
||||
<tr><td>$stream[1]</td>
|
||||
<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}'><input type='hidden' name='ACTION' value='stopweb' /><input type='image' alt='$Lang::tr{'stop'}' title='$Lang::tr{'stop'}' src='/images/media-playback-stop.png' /></form></td>
|
||||
<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' /></form></td>
|
||||
</tr>
|
||||
END
|
||||
;
|
||||
}
|
||||
print "</table>";
|
||||
&Header::closebox();
|
||||
|
||||
&Header::closebigbox();
|
||||
&Header::closepage();
|
||||
|
||||
@@ -464,10 +464,10 @@ END
|
||||
print "<img src='/images/updxl-src-avast.gif' alt='Avast'}' /> </td>\n";
|
||||
} elsif ($metadata[1] eq 'IPFire')
|
||||
{
|
||||
print "<img src='/images/updxl-src-ipfire.gif' alt='IPFire'}' /> </td>\n";
|
||||
print "<img src='/images/IPFire.png' width='18' height='18' alt='IPFire'}' /> </td>\n";
|
||||
} elsif ($metadata[1] eq 'Linux')
|
||||
{
|
||||
print "<img src='/images/updxl-src-linux.gif' alt='Linux'}' /> </td>\n";
|
||||
print "<img src='/images/tux.png' alt='Linux'}' /> </td>\n";
|
||||
} else
|
||||
{
|
||||
print "<img src='/images/updxl-src-unknown.gif' alt='$Lang::tr{'updxlrtr unknown'}' /> </td>\n";
|
||||
@@ -552,10 +552,10 @@ print <<END
|
||||
</tr>
|
||||
<tr>
|
||||
<td class='base' colspan='2'> </td>
|
||||
<td align='center'><img src='/images/updxl-src-ipfire.gif' alt='IPFire' /></td>
|
||||
<td align='center'><img src='/images/IPFire.png' width='18' height='18' alt='IPFire' /></td>
|
||||
<td class='base'>IPFire</td>
|
||||
<td class='base'> </td>
|
||||
<td align='center'><img src='/images/updxl-src-linux.gif' alt='Linux' /></td>
|
||||
<td align='center'><img src='/images/tux.png' alt='Linux' /></td>
|
||||
<td class='base'>Linux</td>
|
||||
<td class='base'> </td>
|
||||
<td align='center'><img src='/images/updxl-src-avast.gif' alt='Avast' /></td>
|
||||
|
||||
Reference in New Issue
Block a user