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

	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 {
	# 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{'FX'} = 'on';
	$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{'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='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
bd365f3a	39	$cgiparams{'FX'} = 'off';
18322edf	40	$cgiparams{'SPEED'} = 'off';
ac1cfefa	41	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
0ab4385a	42	$cgiparams{'REBOOTQUESTION'} = 'off';
ac1cfefa MT	43	$cgiparams{'REFRESHINDEX'} = 'off';
	44	$cgiparams{'ACTION'} = '';
	45	&Header::getcgihash(\%cgiparams);
	46
	47	&Header::showhttpheaders();
	48	&General::readhash("${General::swroot}/main/settings",\%mainsettings);
	49	if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
	50	{
	51	open(FILE,"${General::swroot}/langs/list");
	52	my $found=0;
	53	while (<FILE>)
	54	{
	55	my $lang='';
	56	my $engname='';
	57	my $natname='';
	58	chomp;
	59	($lang,$engname,$natname) = split (/:/, $_,3);
	60	if ($cgiparams{'lang'} eq $lang)
	61	{
	62	$found=1;
	63	}
	64	}
	65	close (FILE);
	66	if ( $found == 0 )
	67	{
	68	$errormessage="$errormessage<P>$Lang::tr{'invalid input'}";
	69	goto SAVE_ERROR;
	70	}
	71
ac1cfefa MT	72	# Set flag if index page is to refresh whilst ppp is up.
	73	# Default is NO refresh.
	74	if ($cgiparams{'REFRESHINDEX'} ne 'off') {
9833e7d8	75	system ('/usr/bin/touch', "${General::swroot}/main/refreshindex");
ac1cfefa MT	76	} else {
	77	unlink "${General::swroot}/main/refreshindex";
	78	}
	79
	80	# Beep on ip-up or ip-down. Default is ON.
	81	if ($cgiparams{'PPPUPDOWNBEEP'} ne 'on') {
	82	$cgiparams{'PPPUPDOWNBEEP'} = 'off';
9833e7d8	83	system ('/usr/bin/touch', "${General::swroot}/ppp/nobeeps");
ac1cfefa MT	84	} else {
	85	unlink "${General::swroot}/ppp/nobeeps";
	86	}
	87
	88	# write cgi vars to the file.
	89	$mainsettings{'LANGUAGE'} = $cgiparams{'lang'};
ac1cfefa	90	$mainsettings{'WINDOWWITHHOSTNAME'} = $cgiparams{'WINDOWWITHHOSTNAME'};
0ab4385a	91	$mainsettings{'REBOOTQUESTION'} = $cgiparams{'REBOOTQUESTION'};
ac1cfefa	92	$mainsettings{'PPPUPDOWNBEEP'} = $cgiparams{'PPPUPDOWNBEEP'};
bd365f3a	93	$mainsettings{'FX'} = $cgiparams{'FX'};
18322edf	94	$mainsettings{'SPEED'} = $cgiparams{'SPEED'};
f8e080ef	95	$mainsettings{'THEME'} = $cgiparams{'theme'};
ac1cfefa MT	96	$mainsettings{'REFRESHINDEX'} = $cgiparams{'REFRESHINDEX'};
	97	&General::writehash("${General::swroot}/main/settings", \%mainsettings);
	98	&Lang::reload($cgiparams{'lang'});
	99	SAVE_ERROR:
	100	} else {
ac1cfefa MT	101	if ($mainsettings{'WINDOWWITHHOSTNAME'}) {
	102	$cgiparams{'WINDOWWITHHOSTNAME'} = $mainsettings{'WINDOWWITHHOSTNAME'};
	103	} else {
	104	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
	105	}
0ab4385a JPT	106
	107	if ($mainsettings{'REBOOTQUESTION'}) {
	108	$cgiparams{'REBOOTQUESTION'} = $mainsettings{'REBOOTQUESTION'};
	109	} else {
	110	$cgiparams{'REBOOTQUESTION'} = 'on';
	111	}
ac1cfefa MT	112
	113	if ($mainsettings{'PPPUPDOWNBEEP'}) {
	114	$cgiparams{'PPPUPDOWNBEEP'} = $mainsettings{'PPPUPDOWNBEEP'};
	115	} else {
	116	$cgiparams{'PPPUPDOWNBEEP'} = 'on';
	117	}
	118
bd365f3a MT	119	if ($mainsettings{'FX'}) {
	120	$cgiparams{'FX'} = $mainsettings{'FX'};
	121	} else {
	122	$cgiparams{'FX'} = 'on';
	123	}
	124
f8e080ef MT	125	if ($mainsettings{'THEME'}) {
	126	$cgiparams{'THEME'} = $mainsettings{'THEME'};
	127	} else {
	128	$cgiparams{'THEME'} = 'ipfire';
	129	}
	130
ac1cfefa MT	131	if($mainsettings{'REFRESHINDEX'}) {
	132	$cgiparams{'REFRESHINDEX'} = $mainsettings{'REFRESHINDEX'};
	133	} else {
	134	$cgiparams{'REFRESHINDEX'} = 'off';
	135	}
18322edf CS	136	if($mainsettings{'SPEED'}) {
	137	$cgiparams{'SPEED'} = $mainsettings{'SPEED'};
	138	} else {
539987de CS	139	# if var is not defined it will be set to on because after installation var
	140	# is not set and the speedmeter should be displayed, it can only be deactivated
	141	# by manually setting the var to off
	142	$cgiparams{'SPEED'} = 'on';
18322edf	143	}
ac1cfefa MT	144	}
	145
	146	# Default settings
	147	if ($cgiparams{'ACTION'} eq "$Lang::tr{'restore defaults'}")
	148	{
ac1cfefa	149	$cgiparams{'WINDOWWITHHOSTNAME'} = 'off';
0ab4385a	150	$cgiparams{'REBOOTQUESTION'} = 'on';
ac1cfefa MT	151	$cgiparams{'PPPUPDOWNBEEP'} = 'on';
ac1cfefa MT	152	$cgiparams{'REFRESHINDEX'} = 'off';
bd365f3a	153	$cgiparams{'FX'} = 'on';
18322edf	154	$cgiparams{'SPEED'} = 'on';
f8e080ef	155	$cgiparams{'THEME'} = 'ipfire';
ac1cfefa MT	156	}
ac1cfefa MT	157
ac1cfefa MT	158	$checked{'WINDOWWITHHOSTNAME'}{'off'} = '';
	159	$checked{'WINDOWWITHHOSTNAME'}{'on'} = '';
	160	$checked{'WINDOWWITHHOSTNAME'}{$cgiparams{'WINDOWWITHHOSTNAME'}} = "checked='checked'";
	161
0ab4385a JPT	162	$checked{'REBOOTQUESTION'}{'off'} = '';
	163	$checked{'REBOOTQUESTION'}{'on'} = '';
	164	$checked{'REBOOTQUESTION'}{$cgiparams{'REBOOTQUESTION'}} = "checked='checked'";
	165
ac1cfefa MT	166	$checked{'PPPUPDOWNBEEP'}{'off'} = '';
	167	$checked{'PPPUPDOWNBEEP'}{'on'} = '';
	168	$checked{'PPPUPDOWNBEEP'}{$cgiparams{'PPPUPDOWNBEEP'}} = "checked='checked'";
	169
	170	$checked{'REFRESHINDEX'}{'off'} = '';
	171	$checked{'REFRESHINDEX'}{'on'} = '';
	172	$checked{'REFRESHINDEX'}{$cgiparams{'REFRESHINDEX'}} = "checked='checked'";
	173
bd365f3a MT	174	$checked{'FX'}{'off'} = '';
	175	$checked{'FX'}{'on'} = '';
	176	$checked{'FX'}{$cgiparams{'FX'}} = "checked='checked'";
	177
18322edf CS	178	$checked{'SPEED'}{'off'} = '';
	179	$checked{'SPEED'}{'on'} = '';
	180	$checked{'SPEED'}{$cgiparams{'SPEED'}} = "checked='checked'";
	181
ac1cfefa MT	182	&Header::openpage($Lang::tr{'gui settings'}, 1, '');
	183	&Header::openbigbox('100%', 'left', '', $errormessage);
	184
	185	if ($errormessage) {
	186	&Header::openbox('100%','left',$Lang::tr{'error messages'});
	187	print "<font class='base'>${errormessage} </font>\n";
	188	&Header::closebox();
	189	}
	190
	191	&Header::openbox('100%','left',$Lang::tr{'gui settings'});
	192
	193	print <<END
	194	<form method='post' action='$ENV{'SCRIPT_NAME'}'>
	195	<table width='100%'>
	196	<tr>
	197	<td colspan='2'><p><b>$Lang::tr{'display'}</b></td>
	198	</tr>
bd365f3a MT	199	<tr>
	200	<td><input type='checkbox' name='FX' $checked{'FX'}{'on'} /></td>
	201	<td>$Lang::tr{'display webinterface effects'}</td>
	202	</tr>
ac1cfefa MT	203	<tr>
	204	<td><input type='checkbox' name='WINDOWWITHHOSTNAME' $checked{'WINDOWWITHHOSTNAME'}{'on'} /></td>
	205	<td>$Lang::tr{'display hostname in window title'}</td>
	206	</tr>
0ab4385a JPT	207	<tr>
	208	<td><input type='checkbox' name='REBOOTQUESTION' $checked{'REBOOTQUESTION'}{'on'} /></td>
	209	<td>$Lang::tr{'reboot question'}</td>
	210	</tr>
ac1cfefa MT	211	<tr>
	212	<td><input type='checkbox' name='REFRESHINDEX' $checked{'REFRESHINDEX'}{'on'} /></td>
	213	<td>$Lang::tr{'refresh index page while connected'}</td>
	214	</tr>
18322edf CS	215	<tr>
	216	<td><input type='checkbox' name='SPEED' $checked{'SPEED'}{'on'} /></td>
	217	<td>$Lang::tr{'show ajax speedmeter in footer'}</td>
	218	</tr>
ac1cfefa MT	219	<tr>
	220	<td> </td>
	221	<td>$Lang::tr{'languagepurpose'}</td>
	222	</tr>
	223	<tr>
	224	<td> </td>
	225	<td><select name='lang'>
	226	END
	227	;
	228
	229	my $id=0;
	230	open(FILE,"${General::swroot}/langs/list");
	231	while (<FILE>)
	232	{
	233	my $lang='';
	234	my $engname='';
	235	my $natname='';
	236	$id++;
	237	chomp;
	238	($lang,$engname,$natname) = split (/:/, $_, 3);
	239	print "<option value='$lang' ";
	240	if ($lang =~ /$mainsettings{'LANGUAGE'}/)
	241	{
	242	print " selected='selected'";
	243	}
	244	print <<END
	245	>$engname ($natname)</option>
	246	END
	247	;
	248	}
	249
f8e080ef MT	250	print <<END
	251	</select></td></tr>
	252	<tr>
	253	<td colspan='2'><hr /><p><b>$Lang::tr{'theme'}</b></td>
	254	</tr>
	255	<tr>
	256	<td> </td>
	257	<td><select name='theme'>
	258	END
	259	;
	260
	261	my $dir = "/srv/web/ipfire/html/themes";
	262	local *DH;
	263	my ($item, $file);
	264	my @files;
	265
539987de CS	266	# Foreach directory create am theme entry to be selected by user
539987de CS	267
f8e080ef MT	268	opendir (DH, $dir);
	269	while ($file = readdir (DH)) {
	270	next if ( $file =~ /^\./ );
	271	push (@files, $file);
	272	}
	273	closedir (DH);
	274
	275	foreach $item (sort (@files)) {
	276	if ( "$mainsettings{'THEME'}" eq "$item" ) {
	277	print "<option value='$item' selected='selected'>$item</option>\n";
	278	} else {
	279	print "<option value='$item'>$item</option>\n";
	280	}
	281	}
	282
ac1cfefa MT	283	print <<END
	284	</select></td></tr>
	285	<tr>
	286	<td colspan='2'><hr /><p><b>$Lang::tr{'sound'}</b></td>
	287	</tr>
	288	<tr>
	289	<td><input type ='checkbox' name='PPPUPDOWNBEEP' $checked{'PPPUPDOWNBEEP'}{'on'} /></td>
	290	<td>$Lang::tr{'beep when ppp connects or disconnects'}</td>
	291	</tr>
	292	<tr>
	293	<td colspan='2'><hr /></td>
	294	</tr>
	295	</table>
	296	<div align='center'>
	297	<table width='80%'>
	298	<tr>
	299	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'restore defaults'}' /></td>
	300	<td width='50%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
	301	</tr>
	302	</table>
	303	</div>
	304	</form>
	305	END
	306	;
	307	&Header::closebox();
	308	&Header::closebigbox();
	309	&Header::closepage();
	310
	311
	312