From 4b91d04b4228043cc2c77bf171683d10fa735f0c Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Sun, 9 Oct 2016 21:39:05 +0200
Subject: First attempt to fix chrony pool configuration

---
 lib/ManaTools/Module/Clock.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lib/ManaTools/Module')

diff --git a/lib/ManaTools/Module/Clock.pm b/lib/ManaTools/Module/Clock.pm
index 81661a86..85e8ecb3 100644
--- a/lib/ManaTools/Module/Clock.pm
+++ b/lib/ManaTools/Module/Clock.pm
@@ -319,7 +319,11 @@ sub _adminClockPanel {
                             $self->sh_tz->ntp_program($selectedService->label());
                         }
                         if (!$sameConfig) {
-                            eval { $self->sh_tz->setNTPConfiguration($info->{ntp_servers}) };
+                            my $ntpsrv = {
+                                servers => $info->{ntp_servers},
+                                pool => $info->{pool},
+                            };
+                            eval { $self->sh_tz->setNTPConfiguration($ntpsrv) };
                             my $errors = $@;
                             if ($errors) {
                                 $self->sh_gui->warningMsgBox({
@@ -468,6 +472,7 @@ sub _adminClockPanel {
                         my $pool_match = qr/\.pool\.ntp\.org$/;
                         my $server = $item;
                         $info->{ntp_servers} = [  $server =~ $pool_match  ? (map { "$_.$server" } 0 .. 2) : $server ];
+                        $info->{pool} = $server;
                         $ntpLabel->setValue(join (',', @{$info->{ntp_servers}}));
                     }
                     # fixing elapsed time (dialog is modal)
-- 
cgit v1.2.1