geladene Module aus der Systemuebersicht geloescht
authormaniacikarus <maniacikarus@ea5c0bd1-69bd-2848-81d8-4f18e57aeed8>
Sun, 6 May 2007 10:54:38 +0000 (10:54 +0000)
committermaniacikarus <maniacikarus@ea5c0bd1-69bd-2848-81d8-4f18e57aeed8>
Sun, 6 May 2007 10:54:38 +0000 (10:54 +0000)
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@533 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8

html/cgi-bin/system.cgi

index d556abc..e7a8e51 100644 (file)
@@ -121,43 +121,7 @@ foreach $key (sort keys %servicenames)
 print "</table></div>\n";
 
 &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::closepage();
 
 sub isrunning