#!/usr/bin/perl
#
-# IPCop CGIs
+# IPFire CGIs
#
# This code is distributed under the terms of the GPL
#
#use warnings;
#use CGI::Carp 'fatalsToBrowser';
-require 'CONFIG_ROOT/general-functions.pl';
+require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
my $errormessage='';
-$cgiparams{'JAVASCRIPT'} = 'off';
+$cgiparams{'FX'} = 'off';
$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
$cgiparams{'REFRESHINDEX'} = 'off';
$cgiparams{'ACTION'} = '';
goto SAVE_ERROR;
}
- if ($cgiparams{'JAVASCRIPT'} !~ /^(on|off)$/) {
- $errormessage = $Lang::tr{'invalid input'};
- goto SAVE_ERROR;
- }
-
# Set flag if index page is to refresh whilst ppp is up.
# Default is NO refresh.
if ($cgiparams{'REFRESHINDEX'} ne 'off') {
# write cgi vars to the file.
$mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
- $mainsettings{'JAVASCRIPT'} = $cgiparams{'JAVASCRIPT'};
$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'});
SAVE_ERROR:
} else {
- if ($mainsettings{'JAVASCRIPT'}) {
- $cgiparams{'JAVASCRIPT'} = $mainsettings{'JAVASCRIPT'};
- } else {
- $cgiparams{'JAVASCRIPT'} = 'on';
- }
-
if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
$cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
} else {
$cgiparams{'PPPUPDOWNBEEP'} = 'on';
}
+ if ($mainsettings{'FX'}) {
+ $cgiparams{'FX'} = $mainsettings{'FX'};
+ } else {
+ $cgiparams{'FX'} = 'on';
+ }
+
+ if ($mainsettings{'THEME'}) {
+ $cgiparams{'THEME'} = $mainsettings{'THEME'};
+ } else {
+ $cgiparams{'THEME'} = 'ipfire';
+ }
+
if($mainsettings{'REFRESHINDEX'}) {
$cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
} else {
# Default settings
if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
{
- $cgiparams{'JAVASCRIPT'} = 'on';
$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
$cgiparams{'PPPUPDOWNBEEP'} = 'on';
$cgiparams{'REFRESHINDEX'} = 'off';
+ $cgiparams{'FX'} = 'on';
+ $cgiparams{'THEME'} = 'ipfire';
}
-$checked{'JAVASCRIPT'}{'off'} = '';
-$checked{'JAVASCRIPT'}{'on'} = '';
-$checked{'JAVASCRIPT'}{$cgiparams{'JAVASCRIPT'}} = "checked='checked'";
-
$checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
$checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
$checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
$checked{'REFRESHINDEX'}{'on'} = '';
$checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
+$checked{'FX'}{'off'} = '';
+$checked{'FX'}{'on'} = '';
+$checked{'FX'}{$cgiparams{'FX'}} = "checked='checked'";
+
&Header::openpage($Lang::tr{'gui settings'}, 1, '');
&Header::openbigbox('100%', 'left', '', $errormessage);
<td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
</tr>
<tr>
- <td><input type='checkbox' name='JAVASCRIPT' $checked{'JAVASCRIPT'}{'on'} />
- <td width='100%'>$Lang::tr{'enable javascript'}</td>
+ <td><input type='checkbox' name='FX' $checked{'FX'}{'on'} /></td>
+ <td>$Lang::tr{'display webinterface effects'}</td>
</tr>
<tr>
<td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
;
}
+print <<END
+</select></td></tr>
+<tr>
+ <td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
+</tr>
+<tr>
+ <td> </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>