Hab ein Paar CGIs gefixt.

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / status.cgi

diff --git a/html/cgi-bin/status.cgi b/html/cgi-bin/status.cgi
index 45e16a4d6b1436ef8b6f27571e1e17224ef7b5e2..b25f6f8dfc5c38dc7007c0ce9b22d19f960f7c01 100644 (file)
--- a/html/cgi-bin/status.cgi
+++ b/html/cgi-bin/status.cgi
@@ -68,20 +68,6 @@ if ($netsettings{'BLUE_DEV'} ne '') {
 
 &Header::openbigbox('100%', 'left');
 
 
 &Header::openbigbox('100%', 'left');
 

-print <<END
-<table width='100%' cellspacing='0' cellpadding='5'border='0'>
-<tr><td style="background-color: #EAE9EE;" align='left'>
-    <a href='#services'>$Lang::tr{'services'}</a> |
-    <a href='#memory'>$Lang::tr{'memory'}</a> |
-    <a href='#disk'>$Lang::tr{'disk usage'}</a> |
-    <a href='#uptime'>$Lang::tr{'uptime and users'}</a> |
-    <a href='#modules'>$Lang::tr{'loaded modules'}</a> |
-    <a href='#kernel'>$Lang::tr{'kernel version'}</a>
-</td></tr></table>
-END
-;
-
-print "<a name='services'/>\n"; 

 &Header::openbox('100%', 'left', $Lang::tr{'services'});
 
 print <<END
 &Header::openbox('100%', 'left', $Lang::tr{'services'});
 
 print <<END


@@ -111,7 +97,6 @@ print "</table></div>\n";
 
 &Header::closebox();
 
 
 &Header::closebox();
 

-print "<a name='memory'/>\n";

 &Header::openbox('100%', 'left', $Lang::tr{'memory'});
 print "<table><tr><td><table>";
 my $ram=0;
 &Header::openbox('100%', 'left', $Lang::tr{'memory'});
 print "<table><tr><td><table>";
 my $ram=0;


@@ -194,7 +179,6 @@ END
 ;
 &Header::closebox();
 
 ;
 &Header::closebox();
 

-print "<a name='disk'/>\n";

 &Header::openbox('100%', 'left', $Lang::tr{'disk usage'});
 print "<table>\n";
 open(DF,'/bin/df -B M -x rootfs|');
 &Header::openbox('100%', 'left', $Lang::tr{'disk usage'});
 print "<table>\n";
 open(DF,'/bin/df -B M -x rootfs|');


@@ -240,21 +224,18 @@ close DF;
 print "</table>\n";
 &Header::closebox();
 
 print "</table>\n";
 &Header::closebox();
 

-print "<a name='uptime'/>\n";

 &Header::openbox('100%', 'left', $Lang::tr{'uptime and users'});
 my $output = `/usr/bin/w`;
 $output = &Header::cleanhtml($output,"y");
 print "<pre>$output</pre>\n";
 &Header::closebox();
 
 &Header::openbox('100%', 'left', $Lang::tr{'uptime and users'});
 my $output = `/usr/bin/w`;
 $output = &Header::cleanhtml($output,"y");
 print "<pre>$output</pre>\n";
 &Header::closebox();
 

-print "<a name='modules'/>\n";

 &Header::openbox('100%', 'left', $Lang::tr{'loaded modules'});
 $output = qx+/bin/lsmod+;
 ($output = &Header::cleanhtml($output,"y")) =~ s/\[.*\]//g;
 print "<pre>\n$output\n</pre>\n";
 &Header::closebox();
 
 &Header::openbox('100%', 'left', $Lang::tr{'loaded modules'});
 $output = qx+/bin/lsmod+;
 ($output = &Header::cleanhtml($output,"y")) =~ s/\[.*\]//g;
 print "<pre>\n$output\n</pre>\n";
 &Header::closebox();
 

-print "<a name='kernel'/>\n";

 &Header::openbox('100%', 'left', $Lang::tr{'kernel version'});
 print "<pre>\n";
 print `/bin/uname -a`;
 &Header::openbox('100%', 'left', $Lang::tr{'kernel version'});
 print "<pre>\n";
 print `/bin/uname -a`;