mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
115 lines
4.0 KiB
Perl
Executable File
115 lines
4.0 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
local $format;
|
|
local $out;
|
|
|
|
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' } );
|
|
local $flags = &get_hwclock_flags();
|
|
$out = &backquote_logged("hwclock $flags --hctosys");
|
|
&error( &text( 'error_sync', $out ) ) if( $out ne "" );
|
|
&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'} );
|
|
local $flags = &get_hwclock_flags();
|
|
$out = &backquote_logged("hwclock $flags --systohc");
|
|
&error( &text( 'error_sync', $out ) ) if( $out ne "" );
|
|
&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");
|
|
|