summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakclock
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-22 14:55:06 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-22 14:55:06 +0000
commit9be1ade1b32d200dde18c35796d9bd18f72f46c8 (patch)
tree535bd3453bd182a8af645cc291809f86867fc044 /perl-install/standalone/drakclock
parentad119c13ec7a9018ec0c13c96b6f2ff5ded22ee5 (diff)
downloaddrakx-backup-do-not-use-9be1ade1b32d200dde18c35796d9bd18f72f46c8.tar
drakx-backup-do-not-use-9be1ade1b32d200dde18c35796d9bd18f72f46c8.tar.gz
drakx-backup-do-not-use-9be1ade1b32d200dde18c35796d9bd18f72f46c8.tar.bz2
drakx-backup-do-not-use-9be1ade1b32d200dde18c35796d9bd18f72f46c8.tar.xz
drakx-backup-do-not-use-9be1ade1b32d200dde18c35796d9bd18f72f46c8.zip
clean that crappy code
Diffstat (limited to 'perl-install/standalone/drakclock')
-rwxr-xr-xperl-install/standalone/drakclock33
1 files changed, 10 insertions, 23 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index eb581fcbe..1b52328d4 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -186,38 +186,25 @@ $my_win->main;
ugtk2->exit(0);
sub ntp_widget_state {
- my $state = shift;
+ my ($state) = @_;
$check_ntp->set_active($state);
$hb_ntp->set_sensitive($state);
$mode = $state;
}
sub install_ntp() {
- my $w = ugtk2->new("Want to install ntp ?", grab => 1, center => 1, if_(!$::isEmbedded, transient => $my_win->{rwindow}));
- gtkadd($w->{window},
- gtkpack__(Gtk2::VBox->new(0,5),
- Gtk2::Label->new(N("We need to install ntp package\n to enable Network Time Protocol")),
- Gtk2::HSeparator->new,
- gtkpack(create_hbox(),
- gtksignal_connect(Gtk2::Button->new(N("Yes")), clicked => sub {
- Gtk2->main_quit;
- $in->do_pkgs->install('ntp');
- }),
- gtksignal_connect(Gtk2::Button->new(N("No")), clicked => sub {
- Gtk2->main_quit;
- ntp_widget_state(0);
- }))));
$my_win->{window}->set_sensitive(0);
- $w->main;
+ if (warn_dialog(N("Warning"), N("We need to install ntp package\n to enable Network Time Protocol
+
+Do you want to install ntp ?"))) {
+ $in->do_pkgs->install('ntp');
+ } else {
+ ntp_widget_state(0);
+ }
$my_win->{window}->set_sensitive(1);
}
sub get_server() {
- my ($servs, @sv);
- $servs = timezone::ntp_servers();
- foreach my $l (keys %$servs) {
- my $c = $l . " (" . $servs->{$l} . ")";
- push(@sv, $c);
- }
- \@sv
+ my $servs = timezone::ntp_servers();
+ [ map { "$_ ($servs->{$_})" } keys %$servs ]
}
sub update_time() {
Repaint($drawing_area, 1);