[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{'SPEED'} = 'off';
$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
$cgiparams{'REBOOTQUESTION'} = '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{'REBOOTQUESTION'} = $cgiparams{'REBOOTQUESTION'};
	$mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
	$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{'REBOOTQUESTION'}) {
		$cgiparams{'REBOOTQUESTION'} = $mainsettings{'REBOOTQUESTION'};
	} else {
		$cgiparams{'REBOOTQUESTION'} = 'on';
	}

	if ($mainsettings{'PPPUPDOWNBEEP'}) {
		$cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
	} else {
		$cgiparams{'PPPUPDOWNBEEP'} = '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 {
	# if var is not defined it will be set to on because after installation var
	# is not set and the speedmeter should be displayed, it can only be deactivated
	# by manually setting the var to off
		$cgiparams{'SPEED'} = 'on';
	}
}

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

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

$checked{'REBOOTQUESTION'}{'off'} = '';
$checked{'REBOOTQUESTION'}{'on'} = '';
$checked{'REBOOTQUESTION'}{$cgiparams{'REBOOTQUESTION'}} = "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{'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='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
    <td>$Lang::tr{'display hostname in window title'}</td>
</tr>
<tr>
    <td><input type='checkbox' name='REBOOTQUESTION' $checked{'REBOOTQUESTION'}{'on'} /></td>
    <td>$Lang::tr{'reboot question'}</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;

# Foreach directory create am theme entry to be selected by user

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
18322edf	39	$cgiparams{'SPEED'} = 'off';
ac1cfefa	40	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
0ab4385a	41	$cgiparams{'REBOOTQUESTION'} = 'off';
ac1cfefa MT	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	89	$mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
0ab4385a	90	$mainsettings{'REBOOTQUESTION'} = $cgiparams{'REBOOTQUESTION'};
ac1cfefa	91	$mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
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	}
0ab4385a JPT	104
	105	if ($mainsettings{'REBOOTQUESTION'}) {
	106	$cgiparams{'REBOOTQUESTION'} = $mainsettings{'REBOOTQUESTION'};
	107	} else {
	108	$cgiparams{'REBOOTQUESTION'} = 'on';
	109	}
ac1cfefa MT	110
	111	if ($mainsettings{'PPPUPDOWNBEEP'}) {
	112	$cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
	113	} else {
	114	$cgiparams{'PPPUPDOWNBEEP'} = '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 {
539987de CS	131	# if var is not defined it will be set to on because after installation var
	132	# is not set and the speedmeter should be displayed, it can only be deactivated
	133	# by manually setting the var to off
	134	$cgiparams{'SPEED'} = 'on';
18322edf	135	}
ac1cfefa MT	136	}
	137
	138	# Default settings
	139	if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
	140	{
ac1cfefa	141	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
0ab4385a	142	$cgiparams{'REBOOTQUESTION'} = 'on';
ac1cfefa MT	143	$cgiparams{'PPPUPDOWNBEEP'} = 'on';
ac1cfefa MT	144	$cgiparams{'REFRESHINDEX'} = 'off';
18322edf	145	$cgiparams{'SPEED'} = 'on';
f8e080ef	146	$cgiparams{'THEME'} = 'ipfire';
ac1cfefa MT	147	}
ac1cfefa MT	148
ac1cfefa MT	149	$checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
	150	$checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
	151	$checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
	152
0ab4385a JPT	153	$checked{'REBOOTQUESTION'}{'off'} = '';
	154	$checked{'REBOOTQUESTION'}{'on'} = '';
	155	$checked{'REBOOTQUESTION'}{$cgiparams{'REBOOTQUESTION'}} = "checked='checked'";
	156
ac1cfefa MT	157	$checked{'PPPUPDOWNBEEP'}{'off'} = '';
	158	$checked{'PPPUPDOWNBEEP'}{'on'} = '';
	159	$checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";
	160
	161	$checked{'REFRESHINDEX'}{'off'} = '';
	162	$checked{'REFRESHINDEX'}{'on'} = '';
	163	$checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
	164
18322edf CS	165	$checked{'SPEED'}{'off'} = '';
	166	$checked{'SPEED'}{'on'} = '';
	167	$checked{'SPEED'}{$cgiparams{'SPEED'}} = "checked='checked'";
	168
ac1cfefa MT	169	&Header::openpage($Lang::tr{'gui settings'}, 1, '');
	170	&Header::openbigbox('100%', 'left', '', $errormessage);
	171
	172	if ($errormessage) {
	173	&Header::openbox('100%','left',$Lang::tr{'error messages'});
	174	print "<font class='base'>${errormessage} </font>\n";
	175	&Header::closebox();
	176	}
	177
	178	&Header::openbox('100%','left',$Lang::tr{'gui settings'});
	179
	180	print <<END
	181	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
	182	<table width='100%'>
	183	<tr>
	184	<td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
	185	</tr>
ac1cfefa MT	186	<tr>
	187	<td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
	188	<td>$Lang::tr{'display hostname in window title'}</td>
	189	</tr>
0ab4385a JPT	190	<tr>
	191	<td><input type='checkbox' name='REBOOTQUESTION' $checked{'REBOOTQUESTION'}{'on'} /></td>
	192	<td>$Lang::tr{'reboot question'}</td>
	193	</tr>
ac1cfefa MT	194	<tr>
	195	<td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
	196	<td>$Lang::tr{'refresh index page while connected'}</td>
	197	</tr>
18322edf CS	198	<tr>
	199	<td><input type='checkbox' name='SPEED' $checked{'SPEED'}{'on'} /></td>
	200	<td>$Lang::tr{'show ajax speedmeter in footer'}</td>
	201	</tr>
ac1cfefa MT	202	<tr>
	203	<td> </td>
	204	<td>$Lang::tr{'languagepurpose'}</td>
	205	</tr>
	206	<tr>
	207	<td> </td>
	208	<td><select name='lang'>
	209	END
	210	;
	211
	212	my $id=0;
	213	open(FILE,"${General::swroot}/langs/list");
	214	while (<FILE>)
	215	{
	216	my $lang='';
	217	my $engname='';
	218	my $natname='';
	219	$id++;
	220	chomp;
	221	($lang,$engname,$natname) = split (/:/, $_, 3);
	222	print "<option value='$lang' ";
	223	if ($lang =~ /$mainsettings{'LANGUAGE'}/)
	224	{
	225	print " selected='selected'";
	226	}
	227	print <<END
	228	>$engname ($natname)</option>
	229	END
	230	;
	231	}
	232
f8e080ef MT	233	print <<END
	234	</select></td></tr>
	235	<tr>
	236	<td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
	237	</tr>
	238	<tr>
	239	<td> </td>
	240	<td><select name='theme'>
	241	END
	242	;
	243
	244	my $dir = "/srv/web/ipfire/html/themes";
	245	local *DH;
	246	my ($item, $file);
	247	my @files;
	248
539987de CS	249	# Foreach directory create am theme entry to be selected by user
539987de CS	250
f8e080ef MT	251	opendir (DH, $dir);
	252	while ($file = readdir (DH)) {
	253	next if ( $file =~ /^\./ );
	254	push (@files, $file);
	255	}
	256	closedir (DH);
	257
	258	foreach $item (sort (@files)) {
	259	if ( "$mainsettings{'THEME'}" eq "$item" ) {
	260	print "<option value='$item' selected='selected'>$item</option>\n";
	261	} else {
	262	print "<option value='$item'>$item</option>\n";
	263	}
	264	}
	265
ac1cfefa MT	266	print <<END
	267	</select></td></tr>
	268	<tr>
	269	<td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
	270	</tr>
	271	<tr>
	272	<td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
	273	<td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
	274	</tr>
	275	<tr>
	276	<td colspan='2'><hr /></td>
	277	</tr>
	278	</table>
	279	<div align='center'>
	280	<table width='80%'>
	281	<tr>
	282	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
	283	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
	284	</tr>
	285	</table>
	286	</div>
	287	</form>
	288	END
	289	;
	290	&Header::closebox();
	291	&Header::closebigbox();
	292	&Header::closepage();
	293
	294
	295