Themeable Webinterface mit neuem Style.

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

diff --git a/html/cgi-bin/gui.cgi b/html/cgi-bin/gui.cgi
index 6e2bfbc8c2f08c630e8783116ac7cf5c33088fe3..e1e8b0d7422ffaece28059cc1c849aa6e76eeea6 100644 (file)
--- a/html/cgi-bin/gui.cgi
+++ b/html/cgi-bin/gui.cgi
@@ -77,6 +77,7 @@ if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
        $mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
        $mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
        $mainsettings{'FX'} = $cgiparams{'FX'};
+       $mainsettings{'THEME'} = $cgiparams{'theme'};
        $mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
        &General::writehash("${General::swroot}/main/settings", \%mainsettings);
        &Lang::reload($cgiparams{'lang'});
@@ -100,6 +101,12 @@ if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
                $cgiparams{'FX'} = 'on';
        }
 
+       if ($mainsettings{'THEME'}) {
+               $cgiparams{'THEME'} = $mainsettings{'THEME'};
+       } else {
+               $cgiparams{'THEME'} = 'ipfire';
+       }
+
        if($mainsettings{'REFRESHINDEX'}) {
                $cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
        } else {
@@ -114,6 +121,7 @@ if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
        $cgiparams{'PPPUPDOWNBEEP'} = 'on';
        $cgiparams{'REFRESHINDEX'} = 'off';
        $cgiparams{'FX'} = 'on';
+       $cgiparams{'THEME'} = 'ipfire';
 }
 
 $checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
@@ -192,6 +200,37 @@ END
        ;
 }
 
+print <<END
+</select></td></tr>
+<tr>
+    <td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
+</tr>
+<tr>
+    <td>&nbsp;</td>
+    <td><select name='theme'>
+END
+;
+
+my $dir = "/srv/web/ipfire/html/themes";
+local *DH;
+my ($item, $file);
+my @files;
+
+opendir (DH, $dir);
+while ($file = readdir (DH)) {
+       next if ( $file =~ /^\./ );
+       push (@files, $file);
+}
+closedir (DH);
+
+foreach $item (sort (@files)) {
+       if ( "$mainsettings{'THEME'}" eq "$item" ) {
+               print "<option value='$item' selected='selected'>$item</option>\n";
+       } else {
+               print "<option value='$item'>$item</option>\n";
+       }
+}
+
 print <<END
 </select></td></tr>
 <tr>