MPFire hinzugefügt - CGI mpg123 Frontend

Hardwaregraphs und Samba korrigiert
makegraphs für alle erweitert die ihr Gateway nicht pingen können -> geht jetzt auf ping.ipfire.org


git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@654 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
maniacikarus
2007-06-30 20:47:32 +00:00
parent b0c66429c4
commit a28fdc01da
23 changed files with 432 additions and 34 deletions

View File

@@ -571,10 +571,14 @@ END
@user = <FILE>;
close(FILE);
system('/usr/local/bin/sambactrl locksmbpasswd');
my $lines = 0;
foreach $userentry (sort @user)
{
@userline = split( /\:/, $userentry );
print "<tr><td align='left'>$userline[0]</td><td align='left'>";
if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
print "<td align='left'>$userline[0]</td><td align='left'>";
if ($userline[4] =~ /N/)
{
print "$Lang::tr{'not set'}</td><td align='left'>";
@@ -663,6 +667,7 @@ END
END
;
}
$lines++;
}
print <<END
</table>
@@ -796,12 +801,14 @@ END
;
my @Shares = keys(%shares);
my $lines = 0;
foreach my $shareentry (sort @Shares)
{
chomp $shareentry;
if ($lines % 2) {print "<tr bgcolor='$color{'color20'}'>";} else {print "<tr bgcolor='$color{'color22'}'>";}
print <<END
<tr><td align='left'>$shareentry</td>
<td align='left'>$shareentry</td>
<td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
<input type='hidden' name='NAME' value='$shareentry' />
<input type='hidden' name='ACTION' value='sharechange' />
@@ -814,6 +821,7 @@ foreach my $shareentry (sort @Shares)
</form></td></tr>
END
;
$lines++;
}
print <<END