diff options
author | Angelo Naselli <anaselli@linux.it> | 2015-03-26 11:37:28 +0100 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2015-03-26 11:37:28 +0100 |
commit | 680e7b729e7759093ab4b617ca0400bbbfd0fa4c (patch) | |
tree | 3f97cc481d3fbd195047460dd6e34dfc24786513 /lib/ManaTools/Module/Clock.pm | |
parent | 60e6aab6daad6f62417eebcd905499080246edce (diff) | |
download | manatools-680e7b729e7759093ab4b617ca0400bbbfd0fa4c.tar manatools-680e7b729e7759093ab4b617ca0400bbbfd0fa4c.tar.gz manatools-680e7b729e7759093ab4b617ca0400bbbfd0fa4c.tar.bz2 manatools-680e7b729e7759093ab4b617ca0400bbbfd0fa4c.tar.xz manatools-680e7b729e7759093ab4b617ca0400bbbfd0fa4c.zip |
Action performed is there are changes, otherwhise skipped
Diffstat (limited to 'lib/ManaTools/Module/Clock.pm')
-rw-r--r-- | lib/ManaTools/Module/Clock.pm | 88 |
1 files changed, 59 insertions, 29 deletions
diff --git a/lib/ManaTools/Module/Clock.pm b/lib/ManaTools/Module/Clock.pm index e7272981..1bb110fd 100644 --- a/lib/ManaTools/Module/Clock.pm +++ b/lib/ManaTools/Module/Clock.pm @@ -279,8 +279,6 @@ sub _adminClockPanel { $item->DISOWN(); } $ntpService->addItems($itemColl); - $ntpService->setNotify(1); - $factory->createLabel($hbox1,$self->loc->N("Current:")); $factory->createHSpacing($hbox1, 1.0); @@ -374,10 +372,6 @@ sub _adminClockPanel { $dateTimeFrame->setEnabled(!$ntpFrame->value()); } } - elsif ($widget == $ntpService) { - my $selection = $ntpService->selectedItem(); - $self->sh_tz->ntp_program($selection->label()) if ($selection); - } elsif ($widget == $okButton) { yui::YUI::app()->busyCursor(); my $finished = 1; @@ -385,38 +379,77 @@ sub _adminClockPanel { # (2) write new NTP settigs if checked # (3) use date time fields if NTP is not checked my $old_conf = $self->sh_tz->readConfiguration(); - if ($info->{time_zone}->{UTC} != $old_conf->{UTC} || - $info->{time_zone}->{ZONE} ne $old_conf->{ZONE}) { - # (1) - eval { $self->sh_tz->writeConfiguration($info->{time_zone}) }; + if ($info->{time_zone}->{UTC} != $old_conf->{UTC}) { + my $localRTC = $info->{time_zone}->{UTC} ? 0 : 1; + eval { $self->sh_tz->setLocalRTC($localRTC) }; my $errors = $@; if ($errors) { $finished = 0; $self->sh_gui->warningMsgBox({ - title => $self->loc->N("Write configuration failed"), + title => $self->loc->N("Set local RTC failed"), text => "$errors", richtext => 1, }); } + # NOTE refresh to clean closed dialogs it happens in user mode + # after polkit password dialog or warning dialog + $dialog->pollEvent(); + } + if ($info->{time_zone}->{ZONE} ne $old_conf->{ZONE}) { + eval { $self->sh_tz->setTimeZone($info->{time_zone}->{ZONE}) }; + my $errors = $@; + if ($errors) { + $finished = 0; + $self->sh_gui->warningMsgBox({ + title => $self->loc->N("Set time zone failed"), + text => "$errors", + richtext => 1, + }); + } + # NOTE refresh to clean closed dialogs it happens in user mode + # after polkit password dialog or warning dialog + $dialog->pollEvent(); } if ($ntpFrame->value()) { # (2) - if ($info->{ntp_server}) { - eval { $self->sh_tz->setNTPConfiguration($info->{ntp_server}) }; - my $errors = $@; - if ($errors) { - # TODO should finish and not continue for this error -# $finished = 0; - $self->sh_gui->warningMsgBox({ - title => $self->loc->N("set NTP Configuration failed"), - text => "$errors", - richtext => 1, - }); - $dialog->pollEvent(); - } + my $currentServer = $self->sh_tz->ntpCurrentServer(); + #- strip digits from \d+.foo.pool.ntp.org + $currentServer =~ s/^\d+\.// if $currentServer; + my $isRunning = $self->sh_tz->isNTPRunning(); + my $currentService = $self->sh_tz->ntp_program(); + my $selectedService = $ntpService->selectedItem(); + + my $sameService = ($currentService && $currentService eq $selectedService->label()); + my $sameConfig = $sameService && ((!$currentServer && !$info->{ntp_server}) || + ($currentServer && $info->{ntp_server} && $currentServer eq $info->{ntp_server}) + ); + my $nothingToDo = ($isRunning && $sameConfig); + if (!$nothingToDo) { + # we stop the service anyway + if ($isRunning) { + eval { $self->sh_tz->disableAndStopNTP() }; + $dialog->pollEvent(); + } + # (a) different service or same service - different configuration + if (!$sameService) { + $self->sh_tz->ntp_program($selectedService->label()); + } + if (!$sameConfig) { + eval { $self->sh_tz->setNTPConfiguration($info->{ntp_server}) }; + my $errors = $@; + if ($errors) { + $self->sh_gui->warningMsgBox({ + title => $self->loc->N("Set NTP Configuration failed"), + text => "$errors", + richtext => 1, + }); + } + $dialog->pollEvent(); + } + # and finally enabling the service eval { $self->sh_tz->enableAndStartNTP($info->{ntp_server}) }; - $errors = $@; + my $errors = $@; if ($errors) { $finished = 0; $self->sh_gui->warningMsgBox({ @@ -425,10 +458,7 @@ sub _adminClockPanel { richtext => 1, }); } - } - else { - $self->sh_gui->warningMsgBox({text => $self->loc->N("Please enter a valid NTP server address.")}); - $finished = 0; + $dialog->pollEvent(); } } else { |