diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-06-26 15:58:12 +0200 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-06-26 15:58:12 +0200 |
commit | 7031e9fe0bab4e3694d6aa27da5900ccbc0b180b (patch) | |
tree | 011bcb29a8b0eb9d5d2104cd68a3dbb0cab61c99 /lib/AdminPanel | |
parent | 2a16f39cb158934bbcf2aa70c3121b77f2b508d1 (diff) | |
download | colin-keep-7031e9fe0bab4e3694d6aa27da5900ccbc0b180b.tar colin-keep-7031e9fe0bab4e3694d6aa27da5900ccbc0b180b.tar.gz colin-keep-7031e9fe0bab4e3694d6aa27da5900ccbc0b180b.tar.bz2 colin-keep-7031e9fe0bab4e3694d6aa27da5900ccbc0b180b.tar.xz colin-keep-7031e9fe0bab4e3694d6aa27da5900ccbc0b180b.zip |
added configuration files writing
Diffstat (limited to 'lib/AdminPanel')
-rw-r--r-- | lib/AdminPanel/Shared/TimeZone.pm | 112 |
1 files changed, 110 insertions, 2 deletions
diff --git a/lib/AdminPanel/Shared/TimeZone.pm b/lib/AdminPanel/Shared/TimeZone.pm index 971ea94..6035629 100644 --- a/lib/AdminPanel/Shared/TimeZone.pm +++ b/lib/AdminPanel/Shared/TimeZone.pm @@ -56,6 +56,8 @@ use Moose; use DateTime::TimeZone; use Config::Auto; +use Config::Tiny; +use File::Copy; use AdminPanel::Shared::Locales; use AdminPanel::Shared::Services; @@ -132,6 +134,26 @@ sub _ntp_configuration_file_init { =head2 new - optional parameters +=head3 ntp_conf_dir + + optional parameter to set ntp configuration directory, + default value is /etc/ntp + +=cut + +#============================================================= + +has 'ntp_conf_dir' => ( + is => 'rw', + isa => 'Str', + lazy => 1, + default => "/etc/ntp", +); + +#============================================================= + +=head2 new - optional parameters + =head3 ntp_program optional parameter to set the ntp program that runs into the @@ -379,6 +401,49 @@ sub readConfiguration { return $prefs; } + +#============================================================= + +=head2 writeConfiguration + +=head3 INPUT + + $info: hash containing: + UTC => HW clock is set as UTC + ZONE => Time Zone + +=head3 DESCRIPTION + +This method save Time Zone configuration into file + +=cut + +#============================================================= + +sub writeConfiguration { + my ($self, $info) = @_; + + die "UTC field required" if (!$info->{UTC}); + die "ZONE field required" if (!$info->{ZONE}); + + my $Config = Config::Tiny->new; + $Config->{_}->{UTC} = $info->{UTC}; + $Config->{_}->{ZONE} = $info->{ZONE}; + + $Config->write( $self->clock_configuration_file ); + + my $tz = $self->get_timezone_prefix() . $info->{ZONE}; + eval { File::copy($tz, '/etc/localtime') } ; + + my $adjtime_file = '/etc/adjtime'; + my @adjtime = MDK::Common::File::cat_($adjtime_file); + @adjtime or @adjtime = ("0.0 0 0.0\n", "0\n"); + my $utc = lc $info->{UTC}; + $adjtime[2] = $utc eq 'true' ? "UTC\n" : "LOCAL\n"; + MDK::Common::File::output_p($adjtime_file, @adjtime); +} + + #left for back compatibility sub _get_ntp_server_tree { my ($self, $zone) = @_; @@ -455,12 +520,55 @@ sub ntpCurrentServer { #============================================================= sub isNTPRunning { - my$self = shift; + my $self = shift; # TODO is that valid for any ntp program? adding ntp_service_name parameter my $ntpd = $self->ntp_program . 'd'; - return !AdminPanel::Shared::Services::is_service_running($ntpd); + return AdminPanel::Shared::Services::is_service_running($ntpd); +} + +#============================================================= + +=head2 setNTPServer + +=head3 INPUT + +$server: server address to be configured + +=head3 DESCRIPTION + +This method writes into NTP configuration file new server address +settings + +=cut + +#============================================================= + +sub setNTPServer { + my ($self, $server) = @_; + + my $f = $self->ntp_configuration_file; + -f $f or return; + return if (!$server); + + my $pool_match = qr/\.pool\.ntp\.org$/; + my @servers = $server =~ $pool_match ? (map { "$_.$server" } 0 .. 2) : $server; + + my $added = 0; + my $servername_config_suffix = $self->servername_config_suffix; + MDK::Common::File::substInFile { + if (/^#?\s*server\s+(\S*)/ && $1 ne '127.127.1.0') { + $_ = $added ? $_ =~ $pool_match ? undef : "#server $1\n" : join('', map { "server $_$servername_config_suffix\n" } @servers); + $added = 1; + } + } $f; + if ($self->ntp_program eq "ntp") { + my $ntp_prefix = $self->ntp_conf_dir; + MDK::Common::File::output_p("$ntp_prefix/step-tickers", join('', map { "$_\n" } @servers)); + } + +# AdminPanel::Shared::Services::set_status($self->ntp_program . 'd', 1); } no Moose; |