Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.56 KB	-rw-r--r--
acl_security.pl	634 B	-rwxr-xr-x
apply.cgi	2.87 KB	-rwxr-xr-x
backup_config.pl	722 B	-rwxr-xr-x
config-ALL-linux	68 B	-rw-r--r--
config-freebsd	70 B	-rw-r--r--
config-hpux	51 B	-rw-r--r--
config-irix	51 B	-rw-r--r--
config-macos	51 B	-rw-r--r--
config-netbsd	51 B	-rw-r--r--
config-openserver	51 B	-rw-r--r--
config-redhat-linux	92 B	-rw-r--r--
config-solaris	70 B	-rw-r--r--
config.info	537 B	-rw-r--r--
config.info.ca	602 B	-rw-r--r--
config.info.ca.UTF-8	611 B	-rw-r--r--
config.info.cz	556 B	-rw-r--r--
config.info.cz.UTF-8	587 B	-rw-r--r--
config.info.de	578 B	-rw-r--r--
config.info.de.UTF-8	578 B	-rw-r--r--
config.info.es	639 B	-rw-r--r--
config.info.es.UTF-8	639 B	-rw-r--r--
config.info.fa	841 B	-rw-r--r--
config.info.fr	550 B	-rw-r--r--
config.info.fr.UTF-8	550 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	558 B	-rw-r--r--
config.info.hu.UTF-8	594 B	-rw-r--r--
config.info.it	615 B	-rw-r--r--
config.info.it.UTF-8	615 B	-rw-r--r--
config.info.ja_JP.UTF-8	444 B	-rw-r--r--
config.info.ja_JP.euc	336 B	-rw-r--r--
config.info.ko_KR.UTF-8	577 B	-rw-r--r--
config.info.ko_KR.euc	479 B	-rw-r--r--
config.info.ms	378 B	-rw-r--r--
config.info.ms.UTF-8	378 B	-rw-r--r--
config.info.ms_MY	572 B	-rw-r--r--
config.info.ms_MY.UTF-8	572 B	-rw-r--r--
config.info.nl	549 B	-rw-r--r--
config.info.nl.UTF-8	549 B	-rw-r--r--
config.info.no	568 B	-rw-r--r--
config.info.no.UTF-8	568 B	-rw-r--r--
config.info.pl	581 B	-rw-r--r--
config.info.pl.UTF-8	590 B	-rw-r--r--
config.info.pt_BR	624 B	-rw-r--r--
config.info.pt_BR.UTF-8	643 B	-rw-r--r--
config.info.ru.UTF-8	923 B	-rw-r--r--
config.info.ru_RU	582 B	-rw-r--r--
config.info.ru_RU.UTF-8	923 B	-rw-r--r--
config.info.ru_SU	582 B	-rw-r--r--
config.info.sk	546 B	-rw-r--r--
config.info.sk.UTF-8	583 B	-rw-r--r--
config.info.sv	255 B	-rw-r--r--
config.info.sv.UTF-8	265 B	-rw-r--r--
config.info.tr	410 B	-rw-r--r--
config.info.uk_UA	412 B	-rw-r--r--
config.info.uk_UA.UTF-8	675 B	-rw-r--r--
config.info.zh_CN	144 B	-rw-r--r--
config.info.zh_CN.UTF-8	187 B	-rw-r--r--
config.info.zh_TW.Big5	252 B	-rw-r--r--
config.info.zh_TW.UTF-8	309 B	-rw-r--r--
defaultacl	47 B	-rw-r--r--
freebsd-lib.pl	1.24 KB	-rwxr-xr-x
index.cgi	7.57 KB	-rwxr-xr-x
linux-lib.pl	1.97 KB	-rwxr-xr-x
log_parser.pl	883 B	-rwxr-xr-x
module.info	228 B	-rw-r--r--
module.info.ca	131 B	-rw-r--r--
module.info.ca.UTF-8	145 B	-rw-r--r--
module.info.cz	22 B	-rw-r--r--
module.info.cz.UTF-8	31 B	-rw-r--r--
module.info.de	116 B	-rw-r--r--
module.info.de.UTF-8	128 B	-rw-r--r--
module.info.es	25 B	-rw-r--r--
module.info.es.UTF-8	31 B	-rw-r--r--
module.info.fr	22 B	-rw-r--r--
module.info.fr.UTF-8	29 B	-rw-r--r--
module.info.hu	31 B	-rw-r--r--
module.info.hu.UTF-8	41 B	-rw-r--r--
module.info.it	23 B	-rw-r--r--
module.info.it.UTF-8	29 B	-rw-r--r--
module.info.ja_JP.UTF-8	36 B	-rw-r--r--
module.info.ja_JP.euc	28 B	-rw-r--r--
module.info.ko_KR.UTF-8	34 B	-rw-r--r--
module.info.ko_KR.euc	27 B	-rw-r--r--
module.info.ms_MY	123 B	-rw-r--r--
module.info.ms_MY.UTF-8	135 B	-rw-r--r--
module.info.nl	21 B	-rw-r--r--
module.info.nl.UTF-8	27 B	-rw-r--r--
module.info.no	19 B	-rw-r--r--
module.info.no.UTF-8	25 B	-rw-r--r--
module.info.pl	98 B	-rw-r--r--
module.info.pl.UTF-8	112 B	-rw-r--r--
module.info.pt	25 B	-rw-r--r--
module.info.pt.UTF-8	31 B	-rw-r--r--
module.info.ru.UTF-8	44 B	-rw-r--r--
module.info.ru_RU	27 B	-rw-r--r--
module.info.ru_RU.UTF-8	47 B	-rw-r--r--
module.info.ru_SU	27 B	-rw-r--r--
module.info.sk	22 B	-rw-r--r--
module.info.sk.UTF-8	31 B	-rw-r--r--
module.info.sv	18 B	-rw-r--r--
module.info.sv.UTF-8	24 B	-rw-r--r--
module.info.tr	22 B	-rw-r--r--
module.info.zh_CN	20 B	-rw-r--r--
module.info.zh_TW.Big5	25 B	-rw-r--r--
postinstall.pl	621 B	-rwxr-xr-x
rbac-mapping	73 B	-rw-r--r--
save_timezone.cgi	359 B	-rwxr-xr-x
solaris-lib.pl	1.34 KB	-rwxr-xr-x
time-lib.pl	6.42 KB	-rwxr-xr-x
time.js	785 B	-rw-r--r--
uninstall.pl	277 B	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl

use strict;
use warnings;
require './time-lib.pl';
our (%in, %text, %config, %access, $base_remote_user, $get_hardware_time_error);

my ($rawdate, $rawhwdate, %system_date, $rawtime, %hw_date, $txt);
$txt = "";
&ReadParse();

&error($text{'acl_error'}) if ($access{'sysdate'} && $access{'hwdate'});

my $arr;
if (!$access{'sysdate'} && !$access{'hwdate'} && &support_hwtime()) {
	$arr = "0,1";
	}
else {
	$arr = "0";
	}
&ui_print_header(undef,  $text{ 'index_title' }, "", "index", 1, 1, undef,
	&help_search_link("date hwclock ntpdate", "man"),
	qq(<script src="time.js"></script>\n),
	qq(onLoad="F=[$arr];timeInit(F); setTimeout('timeUpdate(F)', 5000);"));

if (!$access{'sysdate'} && !&has_command("date")) {
	print &text( 'error_cnf', "<tt>date</tt>"),"<p>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Show tabs for times, timezones and syncing
my @tabs = ( );
push(@tabs, [ "time", $text{'index_tabtime'}, "index.cgi?mode=time" ]);
if ($access{'timezone'} && &has_timezone()) {
	push(@tabs, [ "zone", $text{'index_tabzone'}, "index.cgi?mode=zone" ]);
	}
if ($access{'ntp'}) {
	push(@tabs, [ "sync", $text{'index_tabsync'}, "index.cgi?mode=sync" ]);
	}
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || $tabs[0]->[0], 1);

# Get the system time
my @tm = &get_system_time();
$system_date{ 'second' } = $tm[0];
$system_date{ 'minute' } = $tm[1];
$system_date{ 'hour' } = $tm[2];
$system_date{ 'date' } = $tm[3];
$system_date{ 'month' } = &number_to_month($tm[4]);
$system_date{ 'year' } = $tm[5]+1900;
$system_date{ 'day' } = &number_to_weekday($tm[6]);

print &ui_tabs_start_tab("mode", "time");
print $text{'index_desctime'},"<p>\n";

if( !$access{'sysdate'} )
{
  # Show system time for editing
  print &ui_form_start("apply.cgi");
  print &ui_hidden("mode", "sysdate");
  print &tabletime(&hlink($text{'sys_title'}, "system_time"), 0, %system_date);
  print &ui_submit($text{'action_apply'}, "action");
  if (&support_hwtime()) {
	print &ui_submit($text{'action_sync'}, "action");
  }
  print &ui_form_end();
}
else
{
   # Just show current time
   print &tabletime( &hlink( $text{ 'sys_title' }, "system_time" ), 1, %system_date ),"<p>\n";
}

# Get the hardware time
if (&support_hwtime()) {
	my @tm = &get_hardware_time();
	if (@tm) {
		$hw_date{'second'} = $tm[0];
		$hw_date{'minute'} = $tm[1];
		$hw_date{'hour'} = $tm[2];
		$hw_date{'date'} = $tm[3];
		$hw_date{'month'} = &number_to_month($tm[4]);
		$hw_date{'year'} = $tm[5]+1900;
		$hw_date{'day'} = &number_to_weekday($tm[6]);
		}

if (!@tm) {
		# Didn't actually work!
		print $get_hardware_time_error || $text{'index_eformat'};
		print "<p>\n";
		}
	elsif (!$access{'hwdate'}) {
		# Allow editing of hardware time
		if( !$access{ 'sysdate' } ) {
		    $hw_date{ 'second' } = $system_date{ 'second' } if( $hw_date{ 'second' } - $system_date{ 'second' } <= $config{ 'lease' } );
			}
	    
		print &ui_form_start("apply.cgi");
		print &ui_hidden("mode", "hwdate");
		print &tabletime(&hlink($text{'hw_title'}, "hardware_time"),
				 0, %hw_date);
		print &ui_submit($text{'action_save'}, "action");
		if (support_hwtime()) {
			print &ui_submit($text{'action_sync_s'}, "action");
			}
		print &ui_form_end();
		}
	else {
		# Show show the hardware time
		print &tabletime(&hlink($text{'hw_title'}, "hardware_time"),
				 1, %hw_date ),"<p>\n";
		}
	}
print &ui_tabs_end_tab();

if ($access{'timezone'} && &has_timezone()) {
	print &ui_tabs_start_tab("mode", "zone");
	print $text{'index_desczone'},"<p>\n";

print &ui_form_start("save_timezone.cgi");
	print &ui_table_start($text{'index_tzheader'}, "width=100%", 2);

my @zones = &list_timezones();
	my $cz = &get_current_timezone();
	my $found = 0;
	my @opts = ( );
	my $lastpfx = "";
	foreach my $z (@zones) {
		my $pfx;
		if ($z->[0] =~ /^(.*)\/(.*)$/) {
			$pfx = $1;
			}
		else {
			$pfx = "";
			}
		if ($pfx ne $lastpfx && $z ne $zones[0]) {
			push(@opts, [ '', '----------' ]);
			}
		$lastpfx = $pfx;
		push(@opts, [ $z->[0], $z->[1] ? "$z->[0] ($z->[1])"
					       : $z->[0] ]);
		}
	print "</select></td> </tr>\n";
	print &ui_table_row($text{'index_tz'},
		&ui_select("zone", $cz, \@opts, 1, 0, $cz ? 1 : 0));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'save'} ] ]);
	print &ui_tabs_end_tab();
	}

if ( ( !$access{ 'sysdate' } && &has_command( "date" ) || !$access{ 'hwdate' } && &has_command( "hwclock" ) ) && $access{'ntp'} )
{
	# Show time server input
	print &ui_tabs_start_tab("mode", "sync");
	print $text{'index_descsync'},"<p>\n";

print &ui_form_start("apply.cgi");
	print &ui_hidden("mode", "ntp");
	print &ui_table_start(&hlink($text{'index_timeserver'}, "timeserver"),
			      "width=100%", 2, [ "width=30%" ]);

print &ui_table_row($text{'index_addresses'},
		&ui_textbox("timeserver", $config{'timeserver'}, 60));

# Show hardware time checkbox
	if (&support_hwtime()) {
		print &ui_table_row(" ",
			&ui_checkbox("hardware", 1, $text{'index_hardware2'},
				     $config{'timeserver_hardware'}));
		}

# Show boot-time checkbox
	my $job = &find_webmin_cron_job();
	print &ui_table_row($text{'index_boot'},
		&ui_yesno_radio("boot", $job && $job->{'boot'}));

# Show schedule input
	print &ui_table_row($text{'index_sched'},
		&ui_radio("sched", $job && !$job->{'disabled'} ? 1 : 0,
		  [ [ 0, $text{'no'} ], [ 1, $text{'index_schedyes'} ] ]));
	&seed_random();
	$job ||= { 'mins' => int(rand()*60),
		   'hours' => int(rand()*24),
		   'days' => '*',
		   'months' => '*',
		   'weekdays' => '*' };
	print &ui_table_row(undef,
		&webmincron::show_times_input($job), 2);

print &ui_table_end();
	print &ui_form_end([ [ "action", $text{'index_sync'} ] ]);
	print &ui_tabs_end_tab();
}
print &ui_tabs_end(1);

&ui_print_footer( "/", $text{ 'index' } );

# tabletime(label, read-only, &time)
# Output a table for setting the date and time
sub tabletime
{
my ( $label, $ro, %src ) = @_,
my %assoc_day = ( "Mon", $text{ 'day_1' }, "Tue", $text{ 'day_2' }, "Wed", $text{ 'day_3' }, "Thu", $text{ 'day_4' }, "Fri", $text{ 'day_5' }, "Sat", $text{ 'day_6' }, "Sun", $text{ 'day_0' } ),
my %assoc_month = ( "Jan", $text{ 'month_1' }, "Feb", $text{ 'month_2' }, "Mar", $text{ 'month_3' }, "Apr", $text{ 'month_4' }, "May", $text{ 'month_5' }, "Jun", $text{ 'month_6' }, "Jul", $text{ 'month_7' }, "Aug", $text{ 'month_8' }, "Sep", $text{ 'month_9' }, "Oct", $text{ 'month_10' }, "Nov", $text{ 'month_11' }, "Dec", $text{ 'month_12' } );

my $rv = &ui_table_start($label, "width=100%", 6);
if (!$ro) {
	$rv .= &ui_table_row($text{'date'},
	    &ui_select("date", int($src{'date'}), [ 1 .. 31 ]));
	$rv .= &ui_table_row($text{'month'},
	    &ui_select("month",
		       &zeropad(&month_to_number($src{'month'})+1, 2),
                       [ map { [ &zeropad($_, 2), $text{'month_'.$_} ] }
                             ( 1 .. 12 ) ]));
	$rv .= &ui_table_row($text{'year'},
	    &ui_select("year", $src{'year'}, [ 1969 .. 2037 ]));
	$rv .= &ui_table_row($text{'hour'},
	    &ui_select("hour", &zeropad($src{'hour'}, 2),
		       [ map { &zeropad($_, 2) } (00 .. 23) ]));
	$rv .= &ui_table_row($text{'minute'},
		&ui_select("minute", &zeropad($src{'minute'}, 2),
                       [ map { &zeropad($_, 2) } (00 .. 59) ]));
	$rv .= &ui_table_row($text{'second'},
		&ui_select("second", &zeropad($src{'second'}, 2),
                       [ map { &zeropad($_, 2) } (00 .. 59) ]));
	}
else {
	$rv .= &ui_table_row($text{'date'}, $src{'date'});
	$rv .= &ui_table_row($text{'month'}, $src{'month'});
	$rv .= &ui_table_row($text{'year'}, $src{'year'});
	$rv .= &ui_table_row($text{'hour'}, $src{'hour'});
	$rv .= &ui_table_row($text{'minute'}, $src{'minute'});
	$rv .= &ui_table_row($text{'second'}, $src{'second'});
	}
$rv .= &ui_table_end();
return $rv;
}

${this.title}

Code Editor : index.cgi