Added ntpServiceConfig attribute

1 files changed, 58 insertions, 3 deletions

diff --git a/lib/ManaTools/Shared/TimeZone.pm b/lib/ManaTools/Shared/TimeZone.pm
index c1a1331..3be11d7 100644
--- a/lib/ManaTools/Shared/TimeZone.pm
+++ b/lib/ManaTools/Shared/TimeZone.pm
@@ -172,6 +172,45 @@ sub _ntp_program_init {
 
 #=============================================================
 
+=head2 attribute
+
+=head3 ntpServiceConfig
+
+    This RO attribute is a HashRef containing managed ntp
+    service as key and related configuration file.
+
+    Allowed actions:
+        getNTPServiceConfig => retrieves config file from the
+                               given ntp service
+        ntpServiceConfigPairs => Key,Value pairs access
+
+=cut
+
+#=============================================================
+has 'ntpServiceConfig' => (
+    traits    => ['Hash'],
+    default   => sub { {
+        'chronyd'           => '/etc/chrony.conf',
+        'ntpd'              => '/etc/ntp.conf',
+        'systemd-timesyncd' => '/etc/systemd/timesyncd.conf'
+    } },
+    is        => 'ro',
+    isa       => 'HashRef',
+    handles   => {
+        getNTPServiceConfig   => 'get',
+        ntpServiceConfigPairs => 'kv',
+    },
+    init_arg  => undef,
+);
+
+# has 'dmlist' => (
+#     is      => 'rw',
+#     isa     => 'ArrayRef',
+#     builder => '_build_dmlist',
+# );
+
+#=============================================================
+
 =head2 new - optional parameters
 
 =head3 installer_or_livecd
@@ -737,7 +776,6 @@ Returns the current ntp server address read from configuration file
 =cut
 
 #=============================================================
-
 sub ntpCurrentServer {
     my $self = shift;
 
@@ -746,6 +784,25 @@ sub ntpCurrentServer {
 
 #=============================================================
 
+=head2 currentNTPService
+
+=head3 DESCRIPTION
+
+    Returns the current ntp service
+
+=cut
+
+#=============================================================
+sub currentNTPService {
+    my $self = shift;
+
+    my $ntpd = $self->ntp_program;
+
+    return $ntpd;
+}
+
+#=============================================================
+
 =head2 isNTPRunning
 
 =head3 DESCRIPTION
@@ -758,8 +815,6 @@ sub ntpCurrentServer {
 sub isNTPRunning {
     my $self = shift;
 
-    $DB::single = 1;
-
     my $ntpd      = $self->ntp_program;
     my $isRunning = $self->sh_services->is_service_running($ntpd);