Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.56 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	687 B	-rwxr-xr-x	2026-07-17 21:17
apply.cgi	3.88 KB	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	775 B	-rwxr-xr-x	2026-07-17 21:17
config-ALL-linux	94 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	95 B	-rw-r--r--	2026-07-17 21:17
config-hpux	76 B	-rw-r--r--	2026-07-17 21:17
config-irix	76 B	-rw-r--r--	2026-07-17 21:17
config-macos	76 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	76 B	-rw-r--r--	2026-07-17 21:17
config-openserver	76 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	117 B	-rw-r--r--	2026-07-17 21:17
config-solaris	95 B	-rw-r--r--	2026-07-17 21:17
config.info	537 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	611 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	587 B	-rw-r--r--	2026-07-17 21:17
config.info.de	566 B	-rw-r--r--	2026-07-17 21:17
config.info.es	611 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	776 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	634 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	594 B	-rw-r--r--	2026-07-17 21:17
config.info.it	615 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	278 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	577 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	572 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	549 B	-rw-r--r--	2026-07-17 21:17
config.info.no	560 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	590 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	647 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	923 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	583 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	179 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	428 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	473 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	96 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	224 B	-rw-r--r--	2026-07-17 21:17
defaultacl	47 B	-rw-r--r--	2026-07-17 21:17
freebsd-lib.pl	1.29 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	9.66 KB	-rwxr-xr-x	2026-07-17 21:22
linux-lib.pl	2.02 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	936 B	-rwxr-xr-x	2026-07-17 21:17
module.info	228 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	185 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	133 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	14 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	25 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	100 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.de	116 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	243 B	-rw-r--r--	2026-07-17 21:17
module.info.es	25 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	177 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	23 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	35 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.it	23 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	97 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	27 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	145 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	118 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	117 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	21 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	94 B	-rw-r--r--	2026-07-17 21:17
module.info.no	19 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	93 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	100 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	13 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	25 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	138 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	38 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	162 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	25 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	104 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	18 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	23 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	180 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	91 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	91 B	-rw-r--r--	2026-07-17 21:17
postinstall.pl	674 B	-rwxr-xr-x	2026-07-17 21:17
rbac-mapping	73 B	-rw-r--r--	2026-07-17 21:17
save_timezone.cgi	359 B	-rwxr-xr-x	2026-07-17 21:22
solaris-lib.pl	1.39 KB	-rwxr-xr-x	2026-07-17 21:17
time-lib.pl	9.24 KB	-rwxr-xr-x	2026-07-17 21:22
time.js	785 B	-rw-r--r--	2026-07-17 21:17
uninstall.pl	330 B	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/perl

require "./time-lib.pl";
use Time::Local;

&ReadParse();

if (!$in{'action'}) {
	# user probably hit return in the time server field
	$in{'action'} = $text{'index_sync'};
	}
$mode = "time";

if ($in{'action'} eq $text{'action_sync'}) {
  # Set system time to hardware time
  &error( $text{ 'acl_nosys' } ) if( $access{ 'sysdate' } );
  $err = &set_system_time_to_hardware_time();
  &error( &text( 'error_sync', &html_escape($err) ) ) if ($err);
  &webmin_log("sync");

} elsif ($in{'action'} eq $text{'action_sync_s'}) {
  # Set hardware time to system time
  &error( $text{ 'acl_nohw' } ) if( $access{ 'hwdate' } && $access{'sysdate'} );
  $err = &set_hardware_time_to_system_time();
  &error( &text( 'error_sync', &html_escape($err) ) ) if ($err);
  &webmin_log("sync_s");

} elsif($in{'action'} eq $text{'action_apply'} || $in{'mode'} eq 'sysdate' ) {
  # Setting the system time
  &error( $text{ 'acl_nosys' } ) if( $access{ 'sysdate' } );
  $err = &set_system_time($in{ 'second' }, $in{'minute'}, $in{'hour'},
		   $in{'date'}, $in{'month'}-1, $in{'year'}-1900);
  &error(&html_escape($err)) if ($err);
  &webmin_log("set", "date", time(), \%in);

} elsif ($in{'action'} eq $text{'action_save'} || $in{'mode'} eq 'hwdate' ) {
  # Setting the hardware time
  &error( $text{ 'acl_nohw' } ) if( $access{ 'hwdate' } );
  $err = &set_hardware_time($in{ 'second' }, $in{'minute'}, $in{'hour'},
		   $in{'date'}, $in{'month'}-1, $in{'year'}-1900);
  &error( &text( 'error_hw', &html_escape($err) ) ) if ($err);
  local $hwtime = timelocal($in{'second'}, $in{'minute'}, $in{'hour'},
			    $in{'date'}, $in{'month'}-1, $in{'year'} < 200 ?
			    $in{'year'} : $in{'year'}-1900);
  &webmin_log("set", "hwclock", $hwtime, \%in);

} elsif ($in{'action'} eq $text{'index_sync'} || $in{'mode'} eq 'ntp') {
  # Sync with a time server
  $access{'ntp'} || &error($text{'acl_nontp'});
  # Save service status
  if (defined($in{'sync_service_name'}) &&
      defined($in{'sync_service_status'})) {
        my $service_name = $in{'sync_service_name'};
        if ($service_name !~ /^(chronyd|chrony|systemd-timesyncd)$/) {
                &error(&text('error_serviceunknown', &html_escape($service_name)));
          }
        my $service_status = int($in{'sync_service_status'});
        &foreign_require('init');
        if ($service_status == 2) {
            # Enable service on boot
            &init::enable_at_boot($service_name);
            # Start service
            &init::restart_action($service_name);
          }
        if ($service_status == 1) {
            # Disable service on boot
            &init::disable_at_boot($service_name);
            # Start service
            &init::restart_action($service_name);
          }
        if ($service_status == 0) {
            # Disable service on boot
            &init::disable_at_boot($service_name);
            # Stop service
            &init::stop_action($service_name);
          }
    }
  # Run sync
  $in{'timeserver'} =~ /\S/ || &error($text{'error_etimeserver'});
  $err = &sync_time($in{'timeserver'}, $in{'hardware'});
  &error("<pre>".&html_escape($err)."</pre>") if ($err);

# Save settings in module config
  &lock_file($module_config_file);
  $config{'timeserver'} = $in{'timeserver'};
  $config{'timeserver_hardware'} = $in{'hardware'};
  &save_module_config();
  &unlock_file($module_config_file);

# Create, update or delete the syncing cron job
  $job = &find_webmin_cron_job();
  if ($in{'sched'} || $in{'boot'}) {
	$job ||= { 'module' => $module_name,
		   'func' => 'sync_time_cron' };
	$job->{'disabled'} = $in{'sched'} ? 0 : 1;
	$job->{'boot'} = $in{'boot'};
	&webmincron::parse_times_input($job, \%in);
	&webmincron::create_webmin_cron($job);
	}
  elsif ($job) {
	&webmincron::delete_webmin_cron($job);
	}

&webmin_log("remote", $in{'action'} eq $text{'action_timeserver_sys'} ?  "date" : "hwclock", $rawtime, \%in);
  $mode = "sync";
}

&redirect("index.cgi?mode=$mode");