From 44b7362589cdb92d3171a8a1c15bb38623b4f623 Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Wed, 1 Sep 2004 02:25:14 +0000 Subject: Do not perform a date command when ntpdate has just been called --- perl-install/standalone/drakclock | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock index a2cba1686..cf2c02fdf 100755 --- a/perl-install/standalone/drakclock +++ b/perl-install/standalone/drakclock @@ -120,16 +120,16 @@ $my_win->{window}->add(gtkpack_(gtkset_border_width(Gtk2::VBox->new, $::isEmbedd system("service ntpd start"); } else { if (-e $ntpdlock) { - system("service ntpd stop"); - system("/sbin/chkconfig --level 35 ntpd off"); - } - } - my ($year, $month, $day) = $calendar->get_date; - $month++; - my ($hour, $min, $sec) = ($adjh->get_value, $adjm->get_value, $adjs->get_value); - system("date " . - join('', map { print_it0($_) } ($month, $day, $hour, $min, $year)) . '.' . print_it0($sec)); - -e '/sbin/hwclock' and system('/sbin/hwclock --systohc'); + system("service ntpd stop"); + system("/sbin/chkconfig --level 35 ntpd off"); + } + my ($year, $month, $day) = $calendar->get_date; + $month++; + my ($hour, $min, $sec) = ($adjh->get_value, $adjm->get_value, $adjs->get_value); + system("date " . + join('', map { print_it0($_) } ($month, $day, $hour, $min, $year)) . '.' . print_it0($sec)); + } + -e '/sbin/hwclock' and system('/sbin/hwclock --systohc'); system("dcop kicker Panel restart") if $ENV{DESKTOP} eq 'kde'; ugtk2->exit(0); }, -- cgit v1.2.1