[people/teissler/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'} = 'on';
	}
	
	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'} = 'on';
	$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{'display'});

print <<END
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
<table width='100%'>
<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>
</table>
END
;
&Header::closebox();
&Header::openbox('100%','left',$Lang::tr{'theme'});
print<<END;
<table>
<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>
</table>
END
;
&Header::closebox();
&Header::openbox('100%','left',$Lang::tr{'sound'});
print <<END
<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'></td>
</tr>
</table>
<div align='right'>
<br>
<table width='100%'>
<tr>
    <td width='90%' align='right'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
    <td width='10%' align='right'><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 {
fe9f7588	102	$cgiparams{'WINDOWWITHHOSTNAME'} = 'on';
ac1cfefa	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	{
fe9f7588	141	$cgiparams{'WINDOWWITHHOSTNAME'} = 'on';
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
55f08493	178	&Header::openbox('100%','left',$Lang::tr{'display'});
ac1cfefa MT	179
	180	print <<END
	181	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
	182	<table width='100%'>
ac1cfefa MT	183	<tr>
	184	<td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
	185	<td>$Lang::tr{'display hostname in window title'}</td>
	186	</tr>
0ab4385a JPT	187	<tr>
	188	<td><input type='checkbox' name='REBOOTQUESTION' $checked{'REBOOTQUESTION'}{'on'} /></td>
	189	<td>$Lang::tr{'reboot question'}</td>
	190	</tr>
ac1cfefa MT	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
f8e080ef MT	231	</select></td></tr>
55f08493 AM	232	</table>
	233	END
	234	;
	235	&Header::closebox();
	236	&Header::openbox('100%','left',$Lang::tr{'theme'});
	237	print<<END;
	238	<table>
f8e080ef MT	239	<tr>
	240	<td> </td>
	241	<td><select name='theme'>
	242	END
	243	;
	244
	245	my $dir = "/srv/web/ipfire/html/themes";
	246	local *DH;
	247	my ($item, $file);
	248	my @files;
	249
539987de CS	250	# Foreach directory create am theme entry to be selected by user
539987de CS	251
f8e080ef MT	252	opendir (DH, $dir);
	253	while ($file = readdir (DH)) {
	254	next if ( $file =~ /^\./ );
	255	push (@files, $file);
	256	}
	257	closedir (DH);
	258
	259	foreach $item (sort (@files)) {
	260	if ( "$mainsettings{'THEME'}" eq "$item" ) {
	261	print "<option value='$item' selected='selected'>$item</option>\n";
	262	} else {
	263	print "<option value='$item'>$item</option>\n";
	264	}
	265	}
	266
ac1cfefa MT	267	print <<END
ac1cfefa MT	268	</select></td></tr>
55f08493 AM	269	</table>
	270	END
	271	;
	272	&Header::closebox();
	273	&Header::openbox('100%','left',$Lang::tr{'sound'});
	274	print <<END
ac1cfefa MT	275	<tr>
	276	<td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
	277	<td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
	278	</tr>
	279	<tr>
55f08493	280	<td colspan='2'></td>
ac1cfefa MT	281	</tr>
ac1cfefa MT	282	</table>
55f08493 AM	283	<div align='right'>
	284	<br>
	285	<table width='100%'>
ac1cfefa	286	<tr>
55f08493 AM	287	<td width='90%' align='right'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
55f08493 AM	288	<td width='10%' align='right'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
ac1cfefa MT	289	</tr>
	290	</table>
	291	</div>
	292	</form>
	293	END
	294	;
	295	&Header::closebox();
	296	&Header::closebigbox();
	297	&Header::closepage();
	298
	299
	300