mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-28 11:43:25 +02:00
geladene Module aus der Systemuebersicht geloescht
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@533 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
@@ -121,43 +121,7 @@ foreach $key (sort keys %servicenames)
|
|||||||
print "</table></div>\n";
|
print "</table></div>\n";
|
||||||
|
|
||||||
&Header::closebox();
|
&Header::closebox();
|
||||||
|
|
||||||
&Header::openbox('100%', 'left', $Lang::tr{'loaded modules'});
|
|
||||||
my $module = qx(/bin/lsmod | awk -F" " '{print \$1}');
|
|
||||||
my $size = qx(/bin/lsmod | awk -F" " '{print \$2}');
|
|
||||||
my $used = qx(/bin/lsmod | awk -F" " '{print \$3}');
|
|
||||||
my @usedby = qx(/bin/lsmod | awk -F" " '{print \$4}');
|
|
||||||
my @usedbyf;
|
|
||||||
my $usedbyline;
|
|
||||||
|
|
||||||
foreach $usedbyline(@usedby)
|
|
||||||
{
|
|
||||||
my $laenge = length($usedbyline);
|
|
||||||
|
|
||||||
if ( $laenge > 30)
|
|
||||||
{
|
|
||||||
my $usedbylinef=substr($usedbyline,0,30);
|
|
||||||
$usedbyline="$usedbylinef ...\n";
|
|
||||||
push(@usedbyf,$usedbyline);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{push(@usedbyf,$usedbyline);}
|
|
||||||
}
|
|
||||||
print <<END
|
|
||||||
<table cellspacing=25><tr>
|
|
||||||
<td><pre>$module</pre></td>
|
|
||||||
<td><pre>$size</pre></td>
|
|
||||||
<td><pre>$used</pre></td>
|
|
||||||
<td><pre>@usedbyf</pre></td>
|
|
||||||
</tr></table>
|
|
||||||
END
|
|
||||||
;
|
|
||||||
|
|
||||||
print "";
|
|
||||||
&Header::closebox();
|
|
||||||
|
|
||||||
&Header::closebigbox();
|
&Header::closebigbox();
|
||||||
|
|
||||||
&Header::closepage();
|
&Header::closepage();
|
||||||
|
|
||||||
sub isrunning
|
sub isrunning
|
||||||
|
|||||||
Reference in New Issue
Block a user