From bfefcdde183429ce5d57f488433902d9c2c250af Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Mon, 4 Jul 2005 10:35:03 +0000 Subject: use progress_bar in wait message --- time_wizard/Ntp.pm | 36 ++++++++++++++++-------------------- 1 file changed, 16 insertions(+), 20 deletions(-) (limited to 'time_wizard') diff --git a/time_wizard/Ntp.pm b/time_wizard/Ntp.pm index b7dd9f31..f666944e 100644 --- a/time_wizard/Ntp.pm +++ b/time_wizard/Ntp.pm @@ -26,6 +26,7 @@ use strict; use common; use services; +use MDK::Wizard::Wizcommon; require MDK::Wizard::Wizcommon; my $wiz = new MDK::Wizard::Wizcommon; @@ -183,16 +184,19 @@ sub get_timezone { } sub test { - if ($::testing) { - do_it(); - return 'end'; - } - system("/usr/sbin/ntpdate -q $o->{var}{varserver1} $o->{var}{varserver2}"); - if (!($? >> 8)) { - do_it(); - return 'end' - } - 'server_not_responding' + if ($::testing) { + do_it(); + return 'end'; + } + my $command = "/usr/sbin/ntpdate -q $o->{var}{varserver1}"; # $o->{var}{varserver2}"; + my $o = wizard_progress_bar($command, "Test NTP server Responding..."); + $o; + # system("/usr/sbin/ntpdate -q $o->{var}{varserver1} $o->{var}{varserver2}"); + if (!($? >> 8)) { + do_it(); + return 'end' + } + 'server_not_responding' } sub do_it { @@ -217,16 +221,8 @@ sub do_it { close NEW or die "can not close /etc/ntp/step-tickers: $!"; substInFile { s/(# server clock.via.net)/$1\nserver $o->{var}{varserver1}/ } '/etc/ntp.conf' if -f '/etc/ntp.conf'; standalone::explanations("Wrote /etc/ntp/step-tickers, starting services"); - my @services = qw(crond atd ntpd); - foreach (@services) { - if (services::is_service_running($_)) { - services::stop($_) - } - } - foreach (reverse @services) { - services::start($_) - } - system("/sbin/hwclock --systohc --utc"); + my $command = "service crond stop; service atd stop; service ntpd stop; service ntpd start; service atd start; service crond start; /sbin/hwclock --systohc --utc"; + wizard_progress_bar($command, "Configuring NTP, ATD and CROND services..."); } 1; -- cgit v1.2.1