[ipfire-2.x.git] / html / cgi-bin / time.cgi

#!/usr/bin/perl
#
# IPFire CGIs
#
# This file is part of the IPFire Project
# 
# This code is distributed under the terms of the GPL
#
# (c) Eric Oberlander June 2002
#
# (c) Darren Critchley June 2003 - added real time clock setting, etc
#
# $Id: time.cgi,v 1.4.2.11 2005/05/28 12:16:18 eoberlander Exp $
#

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 %timesettings=();
my $errormessage = '';

&Header::showhttpheaders();

$timesettings{'ACTION'} = '';
$timesettings{'VALID'} = '';

$timesettings{'ENABLENTP'} = 'off';
$timesettings{'NTP_ADDR_1'} = '';
$timesettings{'NTP_ADDR_2'} = '';
$timesettings{'UPDATE_METHOD'} = 'manually';
$timesettings{'UPDATE_VALUE'} = '0';
$timesettings{'UPDATE_PERIOD'} = '';
$timesettings{'ENABLECLNTP'} = 'off';
$timesettings{'SETHOUR'} = '';
$timesettings{'SETMINUTES'} = '';
$timesettings{'SETDAY'} = '';
$timesettings{'SETMONTH'} = '';
$timesettings{'SETYEAR'} = '';

&Header::getcgihash(\%timesettings);

if ($timesettings{'ACTION'} eq $Lang::tr{'save'})
{ 
	if ($timesettings{'ENABLENTP'} eq 'on')
	{
		if ( ! ( &General::validfqdn($timesettings{'NTP_ADDR_1'}) ||
			 &General::validip  ($timesettings{'NTP_ADDR_1'})))
		{
			$errormessage = $Lang::tr{'invalid primary ntp'};
			goto ERROR;
		}
	}
	if ($timesettings{'NTP_ADDR_2'})
	{
		if ( ! ( &General::validfqdn($timesettings{'NTP_ADDR_2'}) ||
			 &General::validip  ($timesettings{'NTP_ADDR_2'})))
		{
			$errormessage = $Lang::tr{'invalid secondary ntp'};
			goto ERROR;
		}
	}
	if (!($timesettings{'NTP_ADDR_1'}) && $timesettings{'NTP_ADDR_2'})
	{
		$errormessage = $Lang::tr{'cannot specify secondary ntp without specifying primary'};
		goto ERROR;
	}

	if (!($timesettings{'UPDATE_VALUE'} =~ /^\d+$/) || $timesettings{'UPDATE_VALUE'} <= 0)
	{
		$errormessage = $Lang::tr{'invalid time period'};
		goto ERROR;
	}

	if ($timesettings{'ENABLENTP'} ne "on" && $timesettings{'ENABLECLNTP'} eq "on")
	{
		$errormessage = $Lang::tr{'ntp must be enabled to have clients'};
		goto ERROR;
	}
	if ($timesettings{'ENABLENTP'} eq "on" && !($timesettings{'NTP_ADDR_1'}) && !($timesettings{'NTP_ADDR_2'}))
	{
		$errormessage = $Lang::tr{'cannot enable ntp without specifying primary'};
		goto ERROR;
	}
ERROR:
	if ($errormessage) {
		$timesettings{'VALID'} = 'no'; }
	else {
		$timesettings{'VALID'} = 'yes'; }

		&General::writehash("${General::swroot}/time/settings", \%timesettings);
		open(FILE, ">/${General::swroot}/time/settime.conf") or die "Unable to write settime.conf file";
		flock(FILE, 2);
		print FILE "$timesettings{'NTP_ADDR_1'} $timesettings{'NTP_ADDR_2'}\n";
		close FILE;

		my $updateperiod=0;

		if  ($timesettings{'UPDATE_PERIOD'} eq 'daily') {
			$updateperiod = $timesettings{'UPDATE_VALUE'} * 1440; }
		elsif  ($timesettings{'UPDATE_PERIOD'} eq 'weekly') {
			$updateperiod = $timesettings{'UPDATE_VALUE'} * 10080; }
		elsif  ($timesettings{'UPDATE_PERIOD'} eq 'monthly') {
			$updateperiod = $timesettings{'UPDATE_VALUE'} * 40320; }
		else {
			$updateperiod = $timesettings{'UPDATE_VALUE'} * 60; }

		$updateperiod = $updateperiod - 5;

		if ($updateperiod <= 5) {
			$updateperiod = 5; }

		open(FILE, ">/${General::swroot}/time/counter.conf") or die "Unable to write counter.conf file";
		flock(FILE, 2);
		print FILE "$updateperiod\n";
		close FILE;

	if ($timesettings{'ENABLENTP'} eq 'on' && $timesettings{'VALID'} eq 'yes')
	{
		system ('/bin/touch', "${General::swroot}/time/enable");
		&General::log($Lang::tr{'ntp syncro enabled'});
		unlink "${General::swroot}/time/counter";
		if ($timesettings{'UPDATE_METHOD'} eq 'periodically')
		{
			open(FILE, ">/${General::swroot}/time/counter") or die "Unable to write counter file";
			flock(FILE, 2);
			print FILE "$updateperiod\n";
			close FILE;
		}
		if ($timesettings{'ENABLECLNTP'} eq 'on') # DPC added to 1.3.1
		{
			system ('/bin/touch', "${General::swroot}/time/allowclients"); # DPC added to 1.3.1
			&General::log($Lang::tr{'ntpd restarted'}); # DPC added to 1.3.1
		} else {
			unlink "${General::swroot}/time/allowclients";
		}
	
	}
	else
	{
		unlink "${General::swroot}/time/enable";
		unlink "${General::swroot}/time/settimenow";
		unlink "${General::swroot}/time/allowclients"; # DPC added to 1.3.1
		&General::log($Lang::tr{'ntp syncro disabled'})
	}
	if (! $errormessage) {
		system ('/usr/local/bin/restartntpd'); # DPC added to 1.3.1
	}
}

# To enter an ' into a pushbutton solution is to use &#039; in it's definition
# but returned value when pressed is ' not the code. Cleanhtml recode the ' to enable comparison.
$timesettings{'ACTION'} = &Header::cleanhtml ($timesettings{'ACTION'});
if ($timesettings{'ACTION'} eq $Lang::tr{'set time now'} && $timesettings{'ENABLENTP'} eq 'on')
{
	system ('/bin/touch', "${General::swroot}/time/settimenow");
	system ('/usr/local/bin/timecheckctrl >& /dev/null');
}

&General::readhash("${General::swroot}/time/settings", \%timesettings);

if ($timesettings{'VALID'} eq '')
{
 	$timesettings{'ENABLENTP'} = 'off';
	$timesettings{'UPDATE_METHOD'} = 'manually';
	$timesettings{'UPDATE_VALUE'} = '1';
	$timesettings{'UPDATE_PERIOD'} = 'daily';
	$timesettings{'NTP_ADDR_1'} = 'de.pool.ntp.org';
	$timesettings{'NTP_ADDR_2'} = 'pool.ntp.org';
}

unless ($errormessage) {
	$timesettings{'SETMONTH'} = `date +'%m %e %Y %H %M'|cut -c 1-2`;
	$timesettings{'SETDAY'} = `date +'%m %e %Y %H %M'|cut -c 4-5`;
	$timesettings{'SETYEAR'} = `date +'%m %e %Y %H %M'|cut -c 7-10`;
	$timesettings{'SETHOUR'} = `date +'%m %e %Y %H %M'|cut -c 12-13`;
	$timesettings{'SETMINUTES'} = `date +'%m %e %Y %H %M'|cut -c 15-16`;
	$_=$timesettings{'SETDAY'};
	$timesettings{'SETDAY'}=~ tr/ /0/;
}

my %selected=();
my %checked=();

$checked{'ENABLENTP'}{'off'} = '';
$checked{'ENABLENTP'}{'on'} = '';
$checked{'ENABLENTP'}{$timesettings{'ENABLENTP'}} = "checked='checked'";

$checked{'ENABLECLNTP'}{'off'} = '';
$checked{'ENABLECLNTP'}{'on'} = '';
$checked{'ENABLECLNTP'}{$timesettings{'ENABLECLNTP'}} = "checked='checked'";

$checked{'UPDATE_METHOD'}{'manually'} = '';
$checked{'UPDATE_METHOD'}{'periodically'} = '';
$checked{'UPDATE_METHOD'}{$timesettings{'UPDATE_METHOD'}} = "checked='checked'";

$selected{'UPDATE_PERIOD'}{'hourly'} = '';
$selected{'UPDATE_PERIOD'}{'daily'} = '';
$selected{'UPDATE_PERIOD'}{'weekly'} = '';
$selected{'UPDATE_PERIOD'}{'monthly'} = '';
$selected{'UPDATE_PERIOD'}{$timesettings{'UPDATE_PERIOD'}} = "selected='selected'";

# added to v0.0.4 to refresh screen if syncro event queued 
my $refresh = '';
if ( -e "${General::swroot}/time/settimenow") {
	$refresh = "<meta http-equiv='refresh' content='60;' />";
}

&Header::openpage($Lang::tr{'ntp configuration'}, 1, $refresh);

&Header::openbigbox('100%', 'left', '', $errormessage);

# DPC move error message to top so it is seen!
if ($errormessage) {
	&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
	print "<font class='base'>$errormessage&nbsp;</font>\n";
	&Header::closebox();
	}

print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";

&Header::openbox('100%', 'left', $Lang::tr{'network time'});
print <<END
<table width='100%'>
<tr>
	<td><input type='checkbox' name='ENABLENTP' $checked{'ENABLENTP'}{'on'} /></td>
	<td width='100%' colspan='4' class='base'>$Lang::tr{'network time from'}</td>
</tr>
<tr>
	<td>&nbsp;</td>
	<td width='100%' class='base' colspan='4'>
END
;

if ( -e "${General::swroot}/time/lastset")
{
	print "$Lang::tr{'clock last synchronized at'}\n";
	my $output = `cat ${General::swroot}/time/lastset`;
	print $output;
}
else
{
	print "$Lang::tr{'clock has not been synchronized'}\n";
}

print <<END
</td></tr>
<tr>
	<td>&nbsp;</td>
	<td width='25%' class='base'>$Lang::tr{'primary ntp server'}:</td>
	<td width='25%'><input type='text' name='NTP_ADDR_1' value='$timesettings{'NTP_ADDR_1'}' /></td>
	<td width='25%' class='base'>$Lang::tr{'secondary ntp server'}: &nbsp;<img src='/blob.gif' align='top' alt='*' /></td>
	<td width='25%'><input type='text' name='NTP_ADDR_2' value='$timesettings{'NTP_ADDR_2'}' /></td>
</tr>
<tr>
	<td>&nbsp;</td>
	<td class='base' colspan='4'><input type='checkbox' name='ENABLECLNTP' $checked{'ENABLECLNTP'}{'on'} /> $Lang::tr{'clenabled'}</td>
</tr>
</table>
<table width='100%'>
<tr>
	<td colspan='4'><hr /><b>$Lang::tr{'update time'}</b></td>
</tr>
<tr>
	<td>&nbsp;</td>
	<td class='base' colspan='2'>$Lang::tr{'set time now help'}</td>
</tr>
<tr>
	<td class='base'><input type='radio' name='UPDATE_METHOD' value='periodically' $checked{'UPDATE_METHOD'}{'periodically'} /></td>
	<td width='15%'>$Lang::tr{'every'}: </td>
	<td width='35%'><input type='text' name='UPDATE_VALUE' size='3' maxlength='3' value='$timesettings{'UPDATE_VALUE'}' />
	<select name='UPDATE_PERIOD'>
		<option value='hourly' $selected{'UPDATE_PERIOD'}{'hourly'}>$Lang::tr{'hours'}</option>
		<option value='daily' $selected{'UPDATE_PERIOD'}{'daily'}>$Lang::tr{'days'}</option>
		<option value='weekly' $selected{'UPDATE_PERIOD'}{'weekly'}>$Lang::tr{'weeks'}</option>
		<option value='monthly' $selected{'UPDATE_PERIOD'}{'monthly'}>$Lang::tr{'months'}</option>
	</select></td>
	<td width='50%'>&nbsp;</td>
</tr>
<tr>
	<td class='base'><input type='radio' name='UPDATE_METHOD' value='manually' $checked{'UPDATE_METHOD'}{'manually'} /></td>
	<td colspan='2'>$Lang::tr{'manually'}</td>
</tr>
END
;

if ( -e "${General::swroot}/time/settimenow") {
	print "<tr>\n<td align='center'><img src='/images/clock.gif' alt='' /></td>\n";
	print "<td colspan='2'><font color='red'>$Lang::tr{'waiting to synchronize clock'}...</font></td></tr>\n";
}
print <<END
</table>
<br />
<hr />
<table width='100%'>
<tr>
	<td width='30%'><img src='/blob.gif' alt='*' /> $Lang::tr{'this field may be blank'}</td>
	<td width='40%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'set time now'}' /></td>
	<td width='25%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
	<td width='5%' align='right'>&nbsp;</td>
</tr>
</table>
END
;

&Header::closebox();

print "</form>\n";

&Header::closebigbox();

&Header::closepage();
Commit	Line	Data
ac1cfefa MT	1	#!/usr/bin/perl
ac1cfefa MT	2	#
78331e30	3	# IPFire CGIs
ac1cfefa	4	#
78331e30	5	# This file is part of the IPFire Project
ac1cfefa MT	6	#
	7	# This code is distributed under the terms of the GPL
	8	#
	9	# (c) Eric Oberlander June 2002
	10	#
	11	# (c) Darren Critchley June 2003 - added real time clock setting, etc
	12	#
	13	# $Id: time.cgi,v 1.4.2.11 2005/05/28 12:16:18 eoberlander Exp $
	14	#
	15
	16	use strict;
	17
	18	# enable only the following on debugging purpose
	19	#use warnings;
	20	#use CGI::Carp 'fatalsToBrowser';
	21
39a7cc11	22	require '/var/ipfire/general-functions.pl';
ac1cfefa MT	23	require "${General::swroot}/lang.pl";
	24	require "${General::swroot}/header.pl";
	25
	26	my %timesettings=();
	27	my $errormessage = '';
	28
	29	&Header::showhttpheaders();
	30
	31	$timesettings{'ACTION'} = '';
	32	$timesettings{'VALID'} = '';
	33
	34	$timesettings{'ENABLENTP'} = 'off';
	35	$timesettings{'NTP_ADDR_1'} = '';
	36	$timesettings{'NTP_ADDR_2'} = '';
	37	$timesettings{'UPDATE_METHOD'} = 'manually';
	38	$timesettings{'UPDATE_VALUE'} = '0';
	39	$timesettings{'UPDATE_PERIOD'} = '';
	40	$timesettings{'ENABLECLNTP'} = 'off';
	41	$timesettings{'SETHOUR'} = '';
	42	$timesettings{'SETMINUTES'} = '';
	43	$timesettings{'SETDAY'} = '';
	44	$timesettings{'SETMONTH'} = '';
	45	$timesettings{'SETYEAR'} = '';
	46
	47	&Header::getcgihash(\%timesettings);
	48
ac1cfefa MT	49	if ($timesettings{'ACTION'} eq $Lang::tr{'save'})
	50	{
	51	if ($timesettings{'ENABLENTP'} eq 'on')
	52	{
	53	if ( ! ( &General::validfqdn($timesettings{'NTP_ADDR_1'}) \|\|
	54	&General::validip ($timesettings{'NTP_ADDR_1'})))
	55	{
	56	$errormessage = $Lang::tr{'invalid primary ntp'};
	57	goto ERROR;
	58	}
	59	}
	60	if ($timesettings{'NTP_ADDR_2'})
	61	{
	62	if ( ! ( &General::validfqdn($timesettings{'NTP_ADDR_2'}) \|\|
	63	&General::validip ($timesettings{'NTP_ADDR_2'})))
	64	{
	65	$errormessage = $Lang::tr{'invalid secondary ntp'};
	66	goto ERROR;
	67	}
	68	}
	69	if (!($timesettings{'NTP_ADDR_1'}) && $timesettings{'NTP_ADDR_2'})
	70	{
	71	$errormessage = $Lang::tr{'cannot specify secondary ntp without specifying primary'};
	72	goto ERROR;
	73	}
	74
	75	if (!($timesettings{'UPDATE_VALUE'} =~ /^\d+$/) \|\| $timesettings{'UPDATE_VALUE'} <= 0)
	76	{
	77	$errormessage = $Lang::tr{'invalid time period'};
	78	goto ERROR;
	79	}
	80
	81	if ($timesettings{'ENABLENTP'} ne "on" && $timesettings{'ENABLECLNTP'} eq "on")
	82	{
	83	$errormessage = $Lang::tr{'ntp must be enabled to have clients'};
	84	goto ERROR;
	85	}
	86	if ($timesettings{'ENABLENTP'} eq "on" && !($timesettings{'NTP_ADDR_1'}) && !($timesettings{'NTP_ADDR_2'}))
	87	{
	88	$errormessage = $Lang::tr{'cannot enable ntp without specifying primary'};
	89	goto ERROR;
	90	}
	91	ERROR:
	92	if ($errormessage) {
	93	$timesettings{'VALID'} = 'no'; }
	94	else {
	95	$timesettings{'VALID'} = 'yes'; }
	96
	97	&General::writehash("${General::swroot}/time/settings", \%timesettings);
	98	open(FILE, ">/${General::swroot}/time/settime.conf") or die "Unable to write settime.conf file";
	99	flock(FILE, 2);
	100	print FILE "$timesettings{'NTP_ADDR_1'} $timesettings{'NTP_ADDR_2'}\n";
	101	close FILE;
	102
	103	my $updateperiod=0;
	104
	105	if ($timesettings{'UPDATE_PERIOD'} eq 'daily') {
	106	$updateperiod = $timesettings{'UPDATE_VALUE'} * 1440; }
	107	elsif ($timesettings{'UPDATE_PERIOD'} eq 'weekly') {
	108	$updateperiod = $timesettings{'UPDATE_VALUE'} * 10080; }
	109	elsif ($timesettings{'UPDATE_PERIOD'} eq 'monthly') {
	110	$updateperiod = $timesettings{'UPDATE_VALUE'} * 40320; }
	111	else {
	112	$updateperiod = $timesettings{'UPDATE_VALUE'} * 60; }
113
114	$updateperiod = $updateperiod - 5;
115
116	if ($updateperiod <= 5) {
117	$updateperiod = 5; }
118
119	open(FILE, ">/${General::swroot}/time/counter.conf") or die "Unable to write counter.conf file";
120	flock(FILE, 2);
121	print FILE "$updateperiod\n";
122	close FILE;
123
124	if ($timesettings{'ENABLENTP'} eq 'on' && $timesettings{'VALID'} eq 'yes')
125	{
126	system ('/bin/touch', "${General::swroot}/time/enable");
127	&General::log($Lang::tr{'ntp syncro enabled'});
128	unlink "${General::swroot}/time/counter";
129	if ($timesettings{'UPDATE_METHOD'} eq 'periodically')
130	{
131	open(FILE, ">/${General::swroot}/time/counter") or die "Unable to write counter file";
132	flock(FILE, 2);
133	print FILE "$updateperiod\n";
134	close FILE;
135	}
136	if ($timesettings{'ENABLECLNTP'} eq 'on') # DPC added to 1.3.1
137	{
138	system ('/bin/touch', "${General::swroot}/time/allowclients"); # DPC added to 1.3.1
139	&General::log($Lang::tr{'ntpd restarted'}); # DPC added to 1.3.1
140	} else {
141	unlink "${General::swroot}/time/allowclients";
142	}
143
144	}
145	else
146	{
147	unlink "${General::swroot}/time/enable";
148	unlink "${General::swroot}/time/settimenow";
149	unlink "${General::swroot}/time/allowclients"; # DPC added to 1.3.1
150	&General::log($Lang::tr{'ntp syncro disabled'})
151	}
152	if (! $errormessage) {
153	system ('/usr/local/bin/restartntpd'); # DPC added to 1.3.1
154	}
155	}
156
157	# To enter an ' into a pushbutton solution is to use ' in it's definition
158	# but returned value when pressed is ' not the code. Cleanhtml recode the ' to enable comparison.
159	$timesettings{'ACTION'} = &Header::cleanhtml ($timesettings{'ACTION'});
160	if ($timesettings{'ACTION'} eq $Lang::tr{'set time now'} && $timesettings{'ENABLENTP'} eq 'on')
161	{
162	system ('/bin/touch', "${General::swroot}/time/settimenow");
39a7cc11	163	system ('/usr/local/bin/timecheckctrl >& /dev/null');
ac1cfefa MT	164	}
	165
	166	&General::readhash("${General::swroot}/time/settings", \%timesettings);
	167
	168	if ($timesettings{'VALID'} eq '')
	169	{
	170	$timesettings{'ENABLENTP'} = 'off';
	171	$timesettings{'UPDATE_METHOD'} = 'manually';
	172	$timesettings{'UPDATE_VALUE'} = '1';
	173	$timesettings{'UPDATE_PERIOD'} = 'daily';
39a7cc11	174	$timesettings{'NTP_ADDR_1'} = 'de.pool.ntp.org';
ac1cfefa MT	175	$timesettings{'NTP_ADDR_2'} = 'pool.ntp.org';
	176	}
	177
	178	unless ($errormessage) {
	179	$timesettings{'SETMONTH'} = `date +'%m %e %Y %H %M'\|cut -c 1-2`;
	180	$timesettings{'SETDAY'} = `date +'%m %e %Y %H %M'\|cut -c 4-5`;
	181	$timesettings{'SETYEAR'} = `date +'%m %e %Y %H %M'\|cut -c 7-10`;
	182	$timesettings{'SETHOUR'} = `date +'%m %e %Y %H %M'\|cut -c 12-13`;
	183	$timesettings{'SETMINUTES'} = `date +'%m %e %Y %H %M'\|cut -c 15-16`;
	184	$_=$timesettings{'SETDAY'};
	185	$timesettings{'SETDAY'}=~ tr/ /0/;
	186	}
	187
	188	my %selected=();
	189	my %checked=();
	190
	191	$checked{'ENABLENTP'}{'off'} = '';
	192	$checked{'ENABLENTP'}{'on'} = '';
	193	$checked{'ENABLENTP'}{$timesettings{'ENABLENTP'}} = "checked='checked'";
	194
	195	$checked{'ENABLECLNTP'}{'off'} = '';
	196	$checked{'ENABLECLNTP'}{'on'} = '';
	197	$checked{'ENABLECLNTP'}{$timesettings{'ENABLECLNTP'}} = "checked='checked'";
	198
	199	$checked{'UPDATE_METHOD'}{'manually'} = '';
	200	$checked{'UPDATE_METHOD'}{'periodically'} = '';
	201	$checked{'UPDATE_METHOD'}{$timesettings{'UPDATE_METHOD'}} = "checked='checked'";
	202
	203	$selected{'UPDATE_PERIOD'}{'hourly'} = '';
	204	$selected{'UPDATE_PERIOD'}{'daily'} = '';
	205	$selected{'UPDATE_PERIOD'}{'weekly'} = '';
	206	$selected{'UPDATE_PERIOD'}{'monthly'} = '';
	207	$selected{'UPDATE_PERIOD'}{$timesettings{'UPDATE_PERIOD'}} = "selected='selected'";
	208
	209	# added to v0.0.4 to refresh screen if syncro event queued
	210	my $refresh = '';
	211	if ( -e "${General::swroot}/time/settimenow") {
	212	$refresh = "<meta http-equiv='refresh' content='60;' />";
	213	}
	214
	215	&Header::openpage($Lang::tr{'ntp configuration'}, 1, $refresh);
	216
	217	&Header::openbigbox('100%', 'left', '', $errormessage);
	218
	219	# DPC move error message to top so it is seen!
	220	if ($errormessage) {
	221	&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
	222	print "<font class='base'>$errormessage </font>\n";
	223	&Header::closebox();
	224	}
	225
	226	print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
	227
	228	&Header::openbox('100%', 'left', $Lang::tr{'network time'});
	229	print <<END
	230	<table width='100%'>
	231	<tr>
	232	<td><input type='checkbox' name='ENABLENTP' $checked{'ENABLENTP'}{'on'} /></td>
	233	<td width='100%' colspan='4' class='base'>$Lang::tr{'network time from'}</td>
	234	</tr>
	235	<tr>
	236	<td> </td>
	237	<td width='100%' class='base' colspan='4'>
	238	END
239	;
240
241	if ( -e "${General::swroot}/time/lastset")
242	{
243	print "$Lang::tr{'clock last synchronized at'}\n";
244	my $output = `cat ${General::swroot}/time/lastset`;
245	print $output;
246	}
247	else
248	{
249	print "$Lang::tr{'clock has not been synchronized'}\n";
250	}
251
252	print <<END
253	</td></tr>
254	<tr>
255	<td> </td>
256	<td width='25%' class='base'>$Lang::tr{'primary ntp server'}:</td>
257	<td width='25%'><input type='text' name='NTP_ADDR_1' value='$timesettings{'NTP_ADDR_1'}' /></td>
258	<td width='25%' class='base'>$Lang::tr{'secondary ntp server'}:  <img src='/blob.gif' align='top' alt='*' /></td>
259	<td width='25%'><input type='text' name='NTP_ADDR_2' value='$timesettings{'NTP_ADDR_2'}' /></td>
260	</tr>
261	<tr>
262	<td> </td>
263	<td class='base' colspan='4'><input type='checkbox' name='ENABLECLNTP' $checked{'ENABLECLNTP'}{'on'} /> $Lang::tr{'clenabled'}</td>
264	</tr>
265	</table>
266	<table width='100%'>
267	<tr>
268	<td colspan='4'><hr /><b>$Lang::tr{'update time'}</b></td>
269	</tr>
270	<tr>
271	<td> </td>
272	<td class='base' colspan='2'>$Lang::tr{'set time now help'}</td>
273	</tr>
274	<tr>
275	<td class='base'><input type='radio' name='UPDATE_METHOD' value='periodically' $checked{'UPDATE_METHOD'}{'periodically'} /></td>
276	<td width='15%'>$Lang::tr{'every'}: </td>
277	<td width='35%'><input type='text' name='UPDATE_VALUE' size='3' maxlength='3' value='$timesettings{'UPDATE_VALUE'}' />
278	<select name='UPDATE_PERIOD'>
279	<option value='hourly' $selected{'UPDATE_PERIOD'}{'hourly'}>$Lang::tr{'hours'}</option>
280	<option value='daily' $selected{'UPDATE_PERIOD'}{'daily'}>$Lang::tr{'days'}</option>
281	<option value='weekly' $selected{'UPDATE_PERIOD'}{'weekly'}>$Lang::tr{'weeks'}</option>
282	<option value='monthly' $selected{'UPDATE_PERIOD'}{'monthly'}>$Lang::tr{'months'}</option>
283	</select></td>
284	<td width='50%'> </td>
285	</tr>
286	<tr>
287	<td class='base'><input type='radio' name='UPDATE_METHOD' value='manually' $checked{'UPDATE_METHOD'}{'manually'} /></td>
288	<td colspan='2'>$Lang::tr{'manually'}</td>
289	</tr>
290	END
291	;
292
293	if ( -e "${General::swroot}/time/settimenow") {
294	print "<tr>\n<td align='center'><img src='/images/clock.gif' alt='' /></td>\n";
295	print "<td colspan='2'><font color='red'>$Lang::tr{'waiting to synchronize clock'}...</font></td></tr>\n";
296	}
297	print <<END
298	</table>
299	<br />
300	<hr />
301	<table width='100%'>
302	<tr>
303	<td width='30%'><img src='/blob.gif' alt='*' /> $Lang::tr{'this field may be blank'}</td>
304	<td width='40%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'set time now'}' /></td>
305	<td width='25%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td>
39a7cc11	306	<td width='5%' align='right'> </td>
ac1cfefa MT	307	</tr>
	308	</table>
	309	END
	310	;
	311
	312	&Header::closebox();
	313
ac1cfefa MT	314	print "</form>\n";
	315
	316	&Header::closebigbox();
	317
	318	&Header::closepage();
	319