Quasi fast alle cgis von den fixen header farben befreit

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

diff --git a/html/cgi-bin/system.cgi b/html/cgi-bin/system.cgi
index e7a8e513622bbfc1c23d6a7defef206637cc9452..e627f2660e640034284f0f8249fc1456dc84cd55 100644 (file)
--- a/html/cgi-bin/system.cgi
+++ b/html/cgi-bin/system.cgi
@@ -25,6 +25,11 @@ undef (@dummy);
 my %netsettings=();
 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
 
+my %color = ();
+my %mainsettings = ();
+&General::readhash("${General::swroot}/main/settings", \%mainsettings);
+&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
+
 my %cgiparams=();
 # Maps a nice printable name to the changing part of the pid file, which
 # is also the name of the program
@@ -101,20 +106,14 @@ print <<END
 END
 ;
 
-my $lines = 0;
 my $key = '';
 foreach $key (sort keys %servicenames)
 {
-        if ($lines % 2) {
-                print "<tr bgcolor='${Header::table1colour}'>\n"; }
-        else {
-                print "<tr bgcolor='${Header::table2colour}'>\n"; }
-        print "<td align='left'>$key</td>\n";
+        print "<tr>\n<td align='left'>$key</td>\n";
         my $shortname = $servicenames{$key};
         my $status = &isrunning($shortname);
         print "$status\n";
         print "</tr>\n";
-        $lines++;
 }