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

#!/usr/bin/perl
###############################################################################
#                                                                             #
# IPFire.org - A linux based firewall                                         #
# Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
#                                                                             #
# This program is free software: you can redistribute it and/or modify        #
# it under the terms of the GNU General Public License as published by        #
# the Free Software Foundation, either version 3 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program is distributed in the hope that it will be useful,             #
# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
# GNU General Public License for more details.                                #
#                                                                             #
# You should have received a copy of the GNU General Public License           #
# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
#                                                                             #
###############################################################################


use strict;

# enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';

require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";

my %cgiparams=();
my %mainsettings=();
my %checked=();
my $errormessage='';


$cgiparams{'FX'} = 'off';
$cgiparams{'SPEED'} = 'off';
$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
$cgiparams{'REFRESHINDEX'} = 'off';
$cgiparams{'ACTION'} = '';
&Header::getcgihash(\%cgiparams);

&Header::showhttpheaders();
&General::readhash("${General::swroot}/main/settings",\%mainsettings);
if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
{
	open(FILE,"${General::swroot}/langs/list");
	my $found=0;
	while (<FILE>)
	{
		my $lang='';
		my $engname='';
		my $natname='';
		chomp;
		($lang,$engname,$natname) = split (/:/, $_,3);
		if ($cgiparams{'lang'} eq $lang)
		{
			$found=1;
		}
	}
	close (FILE);
	if ( $found == 0 )
	{
		$errormessage="$errormessage<P>$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') {
            system ('/usr/bin/touch', "${General::swroot}/main/refreshindex");
        } else {
            unlink "${General::swroot}/main/refreshindex";
        }

        # Beep on ip-up or ip-down. Default is ON.
        if ($cgiparams{'PPPUPDOWNBEEP'} ne 'on') {
            $cgiparams{'PPPUPDOWNBEEP'} = 'off';
            system ('/usr/bin/touch', "${General::swroot}/ppp/nobeeps");
        } else {
            unlink "${General::swroot}/ppp/nobeeps";
        }

        # write cgi vars to the file.
	$mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
	$mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
	$mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
	$mainsettings{'FX'} = $cgiparams{'FX'};
	$mainsettings{'SPEED'} = $cgiparams{'SPEED'};
	$mainsettings{'THEME'} = $cgiparams{'theme'};
	$mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
	&General::writehash("${General::swroot}/main/settings", \%mainsettings);
	&Lang::reload($cgiparams{'lang'});
	SAVE_ERROR:
} else {
	if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
		$cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
	} else {
		$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
	}

	if ($mainsettings{'PPPUPDOWNBEEP'}) {
		$cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
	} 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 {
		$cgiparams{'REFRESHINDEX'} = 'off';
	}
	if($mainsettings{'SPEED'}) {
		$cgiparams{'SPEED'} = $mainsettings{'SPEED'};
	} else {
		$cgiparams{'SPEED'} = 'off';
	}
}

# Default settings
if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
{
	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
	$cgiparams{'PPPUPDOWNBEEP'} = 'on';
	$cgiparams{'REFRESHINDEX'} = 'off';
	$cgiparams{'FX'} = 'on';
	$cgiparams{'SPEED'} = 'on';
	$cgiparams{'THEME'} = 'ipfire';
}

$checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
$checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
$checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";

$checked{'PPPUPDOWNBEEP'}{'off'} = '';
$checked{'PPPUPDOWNBEEP'}{'on'} = '';
$checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";

$checked{'REFRESHINDEX'}{'off'} = '';
$checked{'REFRESHINDEX'}{'on'} = '';
$checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";

$checked{'FX'}{'off'} = '';
$checked{'FX'}{'on'} = '';
$checked{'FX'}{$cgiparams{'FX'}} = "checked='checked'";

$checked{'SPEED'}{'off'} = '';
$checked{'SPEED'}{'on'} = '';
$checked{'SPEED'}{$cgiparams{'SPEED'}} = "checked='checked'";

&Header::openpage($Lang::tr{'gui settings'}, 1, '');
&Header::openbigbox('100%', 'left', '', $errormessage);

if ($errormessage) {
	&Header::openbox('100%','left',$Lang::tr{'error messages'});
	print "<font class='base'>${errormessage}&nbsp;</font>\n";
	&Header::closebox();
}

&Header::openbox('100%','left',$Lang::tr{'gui settings'});

print <<END
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
<table width='100%'>
<tr>
    <td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
</tr>
<tr>
    <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>
    <td>$Lang::tr{'display hostname in window title'}</td>
</tr>
<tr>
    <td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
    <td>$Lang::tr{'refresh index page while connected'}</td>
</tr>
<tr>
    <td><input type='checkbox' name='SPEED' $checked{'SPEED'}{'on'} /></td>
    <td>$Lang::tr{'show ajax speedmeter in footer'}</td>
</tr>
<tr>
    <td>&nbsp;</td>
    <td>$Lang::tr{'languagepurpose'}</td>
</tr>
<tr>
    <td>&nbsp;</td>
    <td><select name='lang'>
END
;

my $id=0;
open(FILE,"${General::swroot}/langs/list");
while (<FILE>)
{
	my $lang='';
	my $engname='';
	my $natname='';
        $id++;
        chomp;
        ($lang,$engname,$natname) = split (/:/, $_, 3);
	print "<option value='$lang' ";
	if ($lang =~ /$mainsettings{'LANGUAGE'}/)
	{
		print " selected='selected'";
	}
	print <<END
>$engname ($natname)</option>
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>
    <td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
</tr>
<tr>
    <td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
    <td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
</tr>
<tr>
    <td colspan='2'><hr /></td>
</tr>
</table>
<div align='center'>
<table width='80%'>
<tr>
    <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
    <td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
</tr>
</table>
</div>
</form>
END
;
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
Commit	Line	Data
ac1cfefa	1	#!/usr/bin/perl
70df8302 MT	2	###############################################################################
	3	# #
	4	# IPFire.org - A linux based firewall #
	5	# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
	6	# #
	7	# This program is free software: you can redistribute it and/or modify #
	8	# it under the terms of the GNU General Public License as published by #
	9	# the Free Software Foundation, either version 3 of the License, or #
	10	# (at your option) any later version. #
	11	# #
	12	# This program is distributed in the hope that it will be useful, #
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of #
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
	15	# GNU General Public License for more details. #
	16	# #
	17	# You should have received a copy of the GNU General Public License #
	18	# along with this program. If not, see <http://www.gnu.org/licenses/>. #
	19	# #
	20	###############################################################################
	21
ac1cfefa MT	22
	23	use strict;
	24
	25	# enable only the following on debugging purpose
	26	#use warnings;
	27	#use CGI::Carp 'fatalsToBrowser';
	28
986e08d9	29	require '/var/ipfire/general-functions.pl';
ac1cfefa MT	30	require "${General::swroot}/lang.pl";
	31	require "${General::swroot}/header.pl";
	32
	33	my %cgiparams=();
	34	my %mainsettings=();
	35	my %checked=();
	36	my $errormessage='';
	37
	38
bd365f3a	39	$cgiparams{'FX'} = 'off';
18322edf	40	$cgiparams{'SPEED'} = 'off';
ac1cfefa MT	41	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
	42	$cgiparams{'REFRESHINDEX'} = 'off';
	43	$cgiparams{'ACTION'} = '';
	44	&Header::getcgihash(\%cgiparams);
	45
	46	&Header::showhttpheaders();
	47	&General::readhash("${General::swroot}/main/settings",\%mainsettings);
	48	if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
	49	{
	50	open(FILE,"${General::swroot}/langs/list");
	51	my $found=0;
	52	while (<FILE>)
	53	{
	54	my $lang='';
	55	my $engname='';
	56	my $natname='';
	57	chomp;
	58	($lang,$engname,$natname) = split (/:/, $_,3);
	59	if ($cgiparams{'lang'} eq $lang)
	60	{
	61	$found=1;
	62	}
	63	}
	64	close (FILE);
	65	if ( $found == 0 )
	66	{
	67	$errormessage="$errormessage<P>$Lang::tr{'invalid input'}";
	68	goto SAVE_ERROR;
	69	}
	70
ac1cfefa MT	71	# Set flag if index page is to refresh whilst ppp is up.
	72	# Default is NO refresh.
	73	if ($cgiparams{'REFRESHINDEX'} ne 'off') {
9833e7d8	74	system ('/usr/bin/touch', "${General::swroot}/main/refreshindex");
ac1cfefa MT	75	} else {
	76	unlink "${General::swroot}/main/refreshindex";
	77	}
	78
	79	# Beep on ip-up or ip-down. Default is ON.
	80	if ($cgiparams{'PPPUPDOWNBEEP'} ne 'on') {
	81	$cgiparams{'PPPUPDOWNBEEP'} = 'off';
9833e7d8	82	system ('/usr/bin/touch', "${General::swroot}/ppp/nobeeps");
ac1cfefa MT	83	} else {
	84	unlink "${General::swroot}/ppp/nobeeps";
	85	}
	86
	87	# write cgi vars to the file.
	88	$mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
ac1cfefa MT	89	$mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
ac1cfefa MT	90	$mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
bd365f3a	91	$mainsettings{'FX'} = $cgiparams{'FX'};
18322edf	92	$mainsettings{'SPEED'} = $cgiparams{'SPEED'};
f8e080ef	93	$mainsettings{'THEME'} = $cgiparams{'theme'};
ac1cfefa MT	94	$mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
	95	&General::writehash("${General::swroot}/main/settings", \%mainsettings);
	96	&Lang::reload($cgiparams{'lang'});
	97	SAVE_ERROR:
	98	} else {
ac1cfefa MT	99	if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
	100	$cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
	101	} else {
	102	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
	103	}
	104
	105	if ($mainsettings{'PPPUPDOWNBEEP'}) {
	106	$cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
	107	} else {
	108	$cgiparams{'PPPUPDOWNBEEP'} = 'on';
	109	}
	110
bd365f3a MT	111	if ($mainsettings{'FX'}) {
	112	$cgiparams{'FX'} = $mainsettings{'FX'};
	113	} else {
	114	$cgiparams{'FX'} = 'on';
	115	}
	116
f8e080ef MT	117	if ($mainsettings{'THEME'}) {
	118	$cgiparams{'THEME'} = $mainsettings{'THEME'};
	119	} else {
	120	$cgiparams{'THEME'} = 'ipfire';
	121	}
	122
ac1cfefa MT	123	if($mainsettings{'REFRESHINDEX'}) {
	124	$cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
	125	} else {
	126	$cgiparams{'REFRESHINDEX'} = 'off';
	127	}
18322edf CS	128	if($mainsettings{'SPEED'}) {
	129	$cgiparams{'SPEED'} = $mainsettings{'SPEED'};
	130	} else {
	131	$cgiparams{'SPEED'} = 'off';
	132	}
ac1cfefa MT	133	}
	134
	135	# Default settings
	136	if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
	137	{
ac1cfefa MT	138	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
	139	$cgiparams{'PPPUPDOWNBEEP'} = 'on';
	140	$cgiparams{'REFRESHINDEX'} = 'off';
bd365f3a	141	$cgiparams{'FX'} = 'on';
18322edf	142	$cgiparams{'SPEED'} = 'on';
f8e080ef	143	$cgiparams{'THEME'} = 'ipfire';
ac1cfefa MT	144	}
ac1cfefa MT	145
ac1cfefa MT	146	$checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
	147	$checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
	148	$checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
	149
	150	$checked{'PPPUPDOWNBEEP'}{'off'} = '';
	151	$checked{'PPPUPDOWNBEEP'}{'on'} = '';
	152	$checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";
	153
	154	$checked{'REFRESHINDEX'}{'off'} = '';
	155	$checked{'REFRESHINDEX'}{'on'} = '';
	156	$checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
	157
bd365f3a MT	158	$checked{'FX'}{'off'} = '';
	159	$checked{'FX'}{'on'} = '';
	160	$checked{'FX'}{$cgiparams{'FX'}} = "checked='checked'";
	161
18322edf CS	162	$checked{'SPEED'}{'off'} = '';
	163	$checked{'SPEED'}{'on'} = '';
	164	$checked{'SPEED'}{$cgiparams{'SPEED'}} = "checked='checked'";
	165
ac1cfefa MT	166	&Header::openpage($Lang::tr{'gui settings'}, 1, '');
	167	&Header::openbigbox('100%', 'left', '', $errormessage);
	168
	169	if ($errormessage) {
	170	&Header::openbox('100%','left',$Lang::tr{'error messages'});
	171	print "<font class='base'>${errormessage} </font>\n";
	172	&Header::closebox();
	173	}
	174
	175	&Header::openbox('100%','left',$Lang::tr{'gui settings'});
	176
	177	print <<END
	178	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
	179	<table width='100%'>
	180	<tr>
	181	<td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
	182	</tr>
bd365f3a MT	183	<tr>
	184	<td><input type='checkbox' name='FX' $checked{'FX'}{'on'} /></td>
	185	<td>$Lang::tr{'display webinterface effects'}</td>
	186	</tr>
ac1cfefa MT	187	<tr>
	188	<td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
	189	<td>$Lang::tr{'display hostname in window title'}</td>
	190	</tr>
	191	<tr>
	192	<td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
	193	<td>$Lang::tr{'refresh index page while connected'}</td>
	194	</tr>
18322edf CS	195	<tr>
	196	<td><input type='checkbox' name='SPEED' $checked{'SPEED'}{'on'} /></td>
	197	<td>$Lang::tr{'show ajax speedmeter in footer'}</td>
	198	</tr>
ac1cfefa MT	199	<tr>
	200	<td> </td>
	201	<td>$Lang::tr{'languagepurpose'}</td>
	202	</tr>
	203	<tr>
	204	<td> </td>
	205	<td><select name='lang'>
	206	END
	207	;
	208
	209	my $id=0;
	210	open(FILE,"${General::swroot}/langs/list");
	211	while (<FILE>)
	212	{
	213	my $lang='';
	214	my $engname='';
	215	my $natname='';
	216	$id++;
	217	chomp;
	218	($lang,$engname,$natname) = split (/:/, $_, 3);
	219	print "<option value='$lang' ";
	220	if ($lang =~ /$mainsettings{'LANGUAGE'}/)
	221	{
	222	print " selected='selected'";
	223	}
	224	print <<END
	225	>$engname ($natname)</option>
	226	END
	227	;
	228	}
	229
f8e080ef MT	230	print <<END
	231	</select></td></tr>
	232	<tr>
	233	<td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
	234	</tr>
	235	<tr>
	236	<td> </td>
	237	<td><select name='theme'>
	238	END
	239	;
	240
	241	my $dir = "/srv/web/ipfire/html/themes";
	242	local *DH;
	243	my ($item, $file);
	244	my @files;
	245
	246	opendir (DH, $dir);
	247	while ($file = readdir (DH)) {
	248	next if ( $file =~ /^\./ );
	249	push (@files, $file);
	250	}
	251	closedir (DH);
	252
	253	foreach $item (sort (@files)) {
	254	if ( "$mainsettings{'THEME'}" eq "$item" ) {
	255	print "<option value='$item' selected='selected'>$item</option>\n";
	256	} else {
	257	print "<option value='$item'>$item</option>\n";
	258	}
	259	}
	260
ac1cfefa MT	261	print <<END
	262	</select></td></tr>
	263	<tr>
	264	<td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
	265	</tr>
	266	<tr>
	267	<td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
	268	<td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
	269	</tr>
	270	<tr>
	271	<td colspan='2'><hr /></td>
	272	</tr>
	273	</table>
	274	<div align='center'>
	275	<table width='80%'>
	276	<tr>
	277	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
	278	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
	279	</tr>
	280	</table>
	281	</div>
	282	</form>
	283	END
	284	;
	285	&Header::closebox();
	286	&Header::closebigbox();
	287	&Header::closepage();
	288
	289
	290