From: maniacikarus Date: Sun, 6 May 2007 10:54:38 +0000 (+0000) Subject: geladene Module aus der Systemuebersicht geloescht X-Git-Tag: v2.3-beta1~726 X-Git-Url: http://git.ipfire.org/?p=people%2Fpmueller%2Fipfire-2.x.git;a=commitdiff_plain;h=821d2b938c040c32102dd504cc4f74df5793f75a;hp=64a4253512dc31b98d281227a8339d4e8171ac42 geladene Module aus der Systemuebersicht geloescht git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@533 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8 --- diff --git a/html/cgi-bin/system.cgi b/html/cgi-bin/system.cgi index d556abc084..e7a8e51362 100644 --- a/html/cgi-bin/system.cgi +++ b/html/cgi-bin/system.cgi @@ -121,43 +121,7 @@ foreach $key (sort keys %servicenames) print "\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 < -
$module
-
$size
-
$used
-
@usedbyf
- -END -; - -print ""; -&Header::closebox(); - &Header::closebigbox(); - &Header::closepage(); sub isrunning