405 lines
11 KiB
Perl
405 lines
11 KiB
Perl
|
package SrvMngr::Controller::Datetime;
|
||
|
|
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# heading : System
|
||
|
|
# description : Date and time
|
||
|
|
# navigation : 4000 400
|
||
|
|
|
||
|
|
# routes : end
|
||
|
|
#------------------------------
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
|
||
|
|
use Locale::gettext;
|
||
|
|
use SrvMngr::I18N;
|
||
|
|
use SrvMngr qw(theme_list init_session);
|
||
|
|
|
||
|
|
use esmith::FormMagick;
|
||
|
|
use esmith::util;
|
||
|
|
|
||
|
|
our $cdb = esmith::ConfigDB->open() || die "Couldn't open config db";
|
||
|
|
|
||
|
|
sub main {
|
||
|
|
my $c = shift;
|
||
|
|
$c->app->log->info($c->log_req);
|
||
|
|
|
||
|
|
my %dat_datas = ();
|
||
|
|
my $title = $c->l('dat_FORM_TITLE');
|
||
|
|
my $modul = $c->l('dat_INITIAL_DESC');
|
||
|
|
|
||
|
|
|
||
|
|
$dat_datas{ntpstatus} = 'disabled';
|
||
|
|
|
||
|
|
my $rec = $cdb->get('ntpd');
|
||
|
|
if ($rec) {
|
||
|
|
$dat_datas{'ntpserver'} = $rec->prop('NTPServer') || '';
|
||
|
|
if ( $rec->prop('status') eq 'enabled' ) {
|
||
|
|
$dat_datas{ntpstatus} = 'enabled'
|
||
|
|
unless ($rec->prop('SyncToHWClockSupported') || 'yes') eq 'yes' and $dat_datas{ntpserver} =~ m#^\s*$#;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
($dat_datas{weekday}, $dat_datas{monthname},
|
||
|
|
$dat_datas{month}, $dat_datas{day}, $dat_datas{year},
|
||
|
|
$dat_datas{hour}, $dat_datas{minute}, $dat_datas{second},
|
||
|
|
$dat_datas{ampm}) = split /\|/,
|
||
|
|
`/bin/date '+%A|%B|%-m|%-d|%Y|%-I|%M|%S|%p'`;
|
||
|
|
|
||
|
|
# get rid of trailing carriage return on last field
|
||
|
|
chop ($dat_datas{ampm});
|
||
|
|
|
||
|
|
$dat_datas{'now_string'} = esmith::FormMagick->gen_locale_date_string();
|
||
|
|
|
||
|
|
$c->stash( title => $title, modul => $modul, dat_datas => \%dat_datas );
|
||
|
|
$c->render('datetime');
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
sub do_update {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
my %dat_datas = ();
|
||
|
|
my $title = $c->l('dat_FORM_TITLE');
|
||
|
|
my $modul = $c->l('dat_INITIAL_DESC');
|
||
|
|
my $result;
|
||
|
|
my $success;
|
||
|
|
|
||
|
|
my $old_ntpstatus = $c->param('Old_ntpstatus');
|
||
|
|
$dat_datas{ntpstatus} = $c->param('Ntpstatus');
|
||
|
|
|
||
|
|
|
||
|
|
if ( $dat_datas{ntpstatus} ne $old_ntpstatus) {
|
||
|
|
|
||
|
|
if ( $dat_datas{ntpstatus} eq 'disabled' ) {
|
||
|
|
($dat_datas{weekday},
|
||
|
|
$dat_datas{monthname},
|
||
|
|
$dat_datas{month},
|
||
|
|
$dat_datas{day},
|
||
|
|
$dat_datas{year},
|
||
|
|
$dat_datas{hour},
|
||
|
|
$dat_datas{minute},
|
||
|
|
$dat_datas{second},
|
||
|
|
$dat_datas{ampm}) = split /\|/,
|
||
|
|
`/bin/date '+%A|%B|%-m|%-d|%Y|%-I|%M|%S|%p'`;
|
||
|
|
|
||
|
|
# get rid of trailing carriage return on last field
|
||
|
|
chop ($dat_datas{ampm});
|
||
|
|
|
||
|
|
} else {
|
||
|
|
|
||
|
|
$dat_datas{ntpserver} = ($cdb->get_prop('ntpd','NTPServer')) || '';
|
||
|
|
}
|
||
|
|
|
||
|
|
$dat_datas{now_string} = esmith::FormMagick->gen_locale_date_string();
|
||
|
|
|
||
|
|
$c->stash( title => $title, modul => $modul, dat_datas => \%dat_datas );
|
||
|
|
return $c->render('datetime');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $dat_datas{ntpstatus} eq 'enabled' ) {
|
||
|
|
|
||
|
|
# update ntpserver
|
||
|
|
|
||
|
|
$dat_datas{ntpserver} = $c->param('Ntpserver') || '';
|
||
|
|
|
||
|
|
if ( $dat_datas{ntpserver} eq "pool.ntp.org" ) {
|
||
|
|
$result .= $c->l('dat_INVALID_NTP_ADDR');
|
||
|
|
} elsif ( $dat_datas{ntpserver} =~ /^([a-zA-Z0-9\.\-]+)$/ ) {
|
||
|
|
$dat_datas{ntpserver} = $1;
|
||
|
|
# } elsif ( $dat_datas{ntpserver} =~ /^\s*$/ ) {
|
||
|
|
# $dat_datas{ntpserver} = "";
|
||
|
|
} else {
|
||
|
|
$result .= $c->l('dat_INVALID_NTP_ADDR');
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( ! $result ) {
|
||
|
|
$success = update_ntpserver( $c, $dat_datas{ntpserver} );
|
||
|
|
}
|
||
|
|
|
||
|
|
} else {
|
||
|
|
|
||
|
|
# set Locale time & clean ntpserver
|
||
|
|
|
||
|
|
#my $servername = ($c->param('ServerName') || 'WS');
|
||
|
|
if ( ! $result ) {
|
||
|
|
$result = validate_change_datetime( $c );
|
||
|
|
if ( $result eq 'OK' ) {
|
||
|
|
$success = $c->l('dat_UPDATING_CLOCK');
|
||
|
|
$result = '';
|
||
|
|
disable_ntp();
|
||
|
|
$success .= '<br>'. $c->l('dat_SERVER_DISABLED_DESC');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
if ( $result ) {
|
||
|
|
$c->stash( error => $result );
|
||
|
|
$c->stash( title => $title, modul => $modul, dat_datas => \%dat_datas );
|
||
|
|
return $c->render('datetime');
|
||
|
|
}
|
||
|
|
#$result = $c->l('dat_SUCCESS');
|
||
|
|
|
||
|
|
my $message = "'Datetime' update DONE";
|
||
|
|
$c->app->log->info($message);
|
||
|
|
$c->flash( success => $success );
|
||
|
|
|
||
|
|
$c->redirect_to('/datetime');
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
sub validate_change_datetime {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
#--------------------------------------------------
|
||
|
|
# Untaint parameters and check for validity
|
||
|
|
#--------------------------------------------------
|
||
|
|
|
||
|
|
my $timezone = $c->param ('Timezone');
|
||
|
|
if ($timezone =~ /^([\w\-]+\/?[\w\-+]*)$/) {
|
||
|
|
$timezone = $1;
|
||
|
|
} else {
|
||
|
|
$timezone = "US/Eastern";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $month = $c->param ('Month');
|
||
|
|
|
||
|
|
if ($month =~ /^(\d{1,2})$/) {
|
||
|
|
$month = $1;
|
||
|
|
} else {
|
||
|
|
$month = "1";
|
||
|
|
}
|
||
|
|
if (($month < 1) || ($month > 12)) {
|
||
|
|
return $c->l('dat_INVALID_MONTH')." $month. ". $c->l('dat_MONTH_BETWEEN_1_AND_12');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $day = $c->param ('Day');
|
||
|
|
|
||
|
|
if ($day =~ /^(\d{1,2})$/) {
|
||
|
|
$day = $1;
|
||
|
|
} else {
|
||
|
|
$day = "1";
|
||
|
|
}
|
||
|
|
if (($day < 1) || ($day > 31)) {
|
||
|
|
return $c->l('dat_INVALID_DAY')." $day. ". $c->l('dat_BETWEEN_1_AND_31');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $year = $c->param ('Year');
|
||
|
|
if ($year =~ /^(\d{4})$/) {
|
||
|
|
$year = $1;
|
||
|
|
} else {
|
||
|
|
$year = "2000";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (($year < 1900) || ($year > 2200)) {
|
||
|
|
return $c->l('dat_INVALID_YEAR')." $year. ". $c->l('dat_FOUR_DIGIT_YEAR');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $hour = $c->param ('Hour');
|
||
|
|
if ($hour =~ /^(\d{1,2})$/) {
|
||
|
|
$hour = $1;
|
||
|
|
} else {
|
||
|
|
$hour = "12";
|
||
|
|
}
|
||
|
|
if (($hour < 1) || ($hour > 12)) {
|
||
|
|
return $c->l('dat_INVALID_HOUR')." $hour. ". $c->l('dat_BETWEEN_1_AND_12');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $minute = $c->param ('Minute');
|
||
|
|
if ($minute =~ /^(\d{1,2})$/) {
|
||
|
|
$minute = $1;
|
||
|
|
} else {
|
||
|
|
$minute = "0";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (($minute < 0) || ($minute > 59)) {
|
||
|
|
return $c->l('datINVALID_MINUTE')." $minute. ".$c->l('dat_BETWEEN_0_AND_59');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $second = $c->param ('Second');
|
||
|
|
if ($second =~ /^(\d{1,2})$/) {
|
||
|
|
$second = $1;
|
||
|
|
} else {
|
||
|
|
$second = "0";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (($second < 0) || ($second > 59)) {
|
||
|
|
return $c->l('dat_INVALID_SECOND')." $second. ". $c->l('dat_BETWEEN_0_AND_59');
|
||
|
|
}
|
||
|
|
|
||
|
|
my $ampm = $c->param ('Ampm');
|
||
|
|
if ($ampm =~ /^(AM|PM)$/) {
|
||
|
|
$ampm = $1;
|
||
|
|
} else {
|
||
|
|
$ampm = "AM";
|
||
|
|
}
|
||
|
|
|
||
|
|
# convert to 24 hour time
|
||
|
|
|
||
|
|
$hour = $hour % 12;
|
||
|
|
if ($ampm eq "PM") {
|
||
|
|
$hour = $hour + 12;
|
||
|
|
}
|
||
|
|
|
||
|
|
#--------------------------------------------------
|
||
|
|
# Store time zone in configuration database
|
||
|
|
#--------------------------------------------------
|
||
|
|
|
||
|
|
my $conf = esmith::ConfigDB->open();
|
||
|
|
my $old = $conf->get('UnsavedChanges')->value;
|
||
|
|
my $rec = $conf->get('TimeZone');
|
||
|
|
unless ($rec) {
|
||
|
|
$rec = $conf->new_record('TimeZone',undef);
|
||
|
|
}
|
||
|
|
$rec->set_value($timezone);
|
||
|
|
$conf->get('UnsavedChanges')->set_value($old);
|
||
|
|
|
||
|
|
#--------------------------------------------------
|
||
|
|
# Signal event to change time zone, system time
|
||
|
|
# and hardware clock
|
||
|
|
#--------------------------------------------------
|
||
|
|
|
||
|
|
my $newdate = sprintf "%02d%02d%02d%02d%04d.%02d",
|
||
|
|
$month, $day, $hour, $minute, $year, $second;
|
||
|
|
|
||
|
|
esmith::util::backgroundCommand(2,
|
||
|
|
"/sbin/e-smith/signal-event","timezone-update",$newdate);
|
||
|
|
|
||
|
|
return 'OK';
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub update_ntpserver {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
my $ntpserver = shift;
|
||
|
|
|
||
|
|
my $msg;
|
||
|
|
#------------------------------------------------------------
|
||
|
|
# Looks good; go ahead and change the parameters.
|
||
|
|
#------------------------------------------------------------
|
||
|
|
|
||
|
|
my $old = $cdb->get('UnsavedChanges')->value;
|
||
|
|
my $rec = $cdb->get('ntpd');
|
||
|
|
if ($rec) {
|
||
|
|
$rec->set_prop('status','enabled');
|
||
|
|
$rec->set_prop('NTPServer',$ntpserver);
|
||
|
|
} else {
|
||
|
|
$rec = $cdb->new_record( 'ntpd',
|
||
|
|
{ type=>'service', status=>'enabled', SyncToHWClockSupported => 'yes', NTPServer=>$ntpserver } );
|
||
|
|
}
|
||
|
|
$cdb->get('UnsavedChanges')->set_value($old);
|
||
|
|
|
||
|
|
$msg = $c->l('dat_SETTINGS_CHANGED');
|
||
|
|
|
||
|
|
if ( $ntpserver =~ /^\s*$/ ) {
|
||
|
|
$rec->set_prop('status', ($rec->prop('SyncToHWClockSupported') || 'yes') eq 'yes' ? 'enabled' : 'disabled');
|
||
|
|
$rec->set_prop('NTPServer', '');
|
||
|
|
$msg = $c->l('dat_INVALID_NTP_SERVER') if ($rec->prop('SyncToHWClockSupported') || 'yes') ne 'yes';
|
||
|
|
}
|
||
|
|
|
||
|
|
esmith::util::backgroundCommand( 2, "/sbin/e-smith/signal-event", "timeserver-update" );
|
||
|
|
|
||
|
|
return $msg;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub disable_ntp {
|
||
|
|
|
||
|
|
# make sure that the parameters are set for disabled
|
||
|
|
|
||
|
|
my $old = $cdb->get('UnsavedChanges')->value;
|
||
|
|
my $rec = $cdb->get('ntpd');
|
||
|
|
|
||
|
|
if ($rec) {
|
||
|
|
$rec->set_prop('status', ($rec->prop('SyncToHWClockSupported') || 'yes') eq 'yes' ? 'enabled' : 'disabled');
|
||
|
|
$rec->set_prop('NTPServer','');
|
||
|
|
} else {
|
||
|
|
$rec = $cdb->new_record('ntpd',
|
||
|
|
{type=>'service', status=>'enabled', SyncToHWClockSupported => 'yes', NTPServer=>''});
|
||
|
|
}
|
||
|
|
|
||
|
|
$cdb->get('UnsavedChanges')->set_value($old);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub getTimezone {
|
||
|
|
|
||
|
|
#--------------------------------------------------
|
||
|
|
# Figure out time zone by looking first looking at
|
||
|
|
# the configuration database value of TimeZone.
|
||
|
|
# If that is not defined, try and get it from /etc/localtime.
|
||
|
|
# If that doesn't work, default to US/Eastern.
|
||
|
|
#--------------------------------------------------
|
||
|
|
|
||
|
|
my $localtime;
|
||
|
|
my $timezonedefault = "US/Eastern";
|
||
|
|
|
||
|
|
if (defined $cdb->get('TimeZone')) {
|
||
|
|
$timezonedefault = $cdb->get('TimeZone')->value;
|
||
|
|
} else {
|
||
|
|
if (defined ($localtime = readlink '/etc/localtime')) {
|
||
|
|
my $pos = index $localtime, 'zoneinfo/';
|
||
|
|
if ( $pos > -1 ) {
|
||
|
|
$timezonedefault = substr $localtime, ($pos + 9);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $timezonedefault;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub getZone_list {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
|
||
|
|
#--------------------------------------------------
|
||
|
|
# Get a sorted list of time zones
|
||
|
|
#--------------------------------------------------
|
||
|
|
|
||
|
|
$ENV{BASH_ENV} = '';
|
||
|
|
if (! open (ZONES, "cd /usr/share/zoneinfo; /usr/bin/find . -type f -or -type l | /bin/grep '^./[A-Z]' |"))
|
||
|
|
{
|
||
|
|
warn ( $c->l('COULD_NOT_OPEN_TZ_FILE').$!.'.' );
|
||
|
|
return undef;
|
||
|
|
}
|
||
|
|
my $zone;
|
||
|
|
my @zones = ();
|
||
|
|
|
||
|
|
while (defined ($zone = <ZONES>))
|
||
|
|
{
|
||
|
|
chop ($zone);
|
||
|
|
$zone =~ s/^.\///;
|
||
|
|
push @zones, $zone;
|
||
|
|
}
|
||
|
|
close ZONES;
|
||
|
|
my @zt = sort @zones;
|
||
|
|
return \@zt;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub getMonth_list {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
return [[ $c->l('dat_JANUARY') => '1'],
|
||
|
|
[ $c->l('dat_FEBRUARY') => '2'],
|
||
|
|
[ $c->l('dat_MARCH') => '3'],
|
||
|
|
[ $c->l('dat_APRIL') => '4'],
|
||
|
|
[ $c->l('dat_MAY') => '5'],
|
||
|
|
[ $c->l('dat_JUNE') => '6'],
|
||
|
|
[ $c->l('dat_JULY') => '7'],
|
||
|
|
[ $c->l('dat_AUGUST') => '8'],
|
||
|
|
[ $c->l('dat_SEPTEMBER') => '9'],
|
||
|
|
[ $c->l('dat_OCTOBER') => '10'],
|
||
|
|
[ $c->l('dat_NOVEMBER') => '11'],
|
||
|
|
[ $c->l('dat_DECEMBER') => '12']];
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|