diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-06 16:27:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-06 16:27:40 +0000 |
| commit | 5c3f880e202d0b2d4c3b03236a38c35192653f91 (patch) | |
| tree | 2b92e19e39a45caf4fce0520e4c65af101344ef1 /perl-install/standalone | |
| parent | 17e5105b9f0fbc63c48ff12b1d7c1ec378960b18 (diff) | |
| download | drakx-5c3f880e202d0b2d4c3b03236a38c35192653f91.tar drakx-5c3f880e202d0b2d4c3b03236a38c35192653f91.tar.gz drakx-5c3f880e202d0b2d4c3b03236a38c35192653f91.tar.bz2 drakx-5c3f880e202d0b2d4c3b03236a38c35192653f91.tar.xz drakx-5c3f880e202d0b2d4c3b03236a38c35192653f91.zip | |
use $::prefix
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakclock | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock index 1b52328d4..35620e4a8 100755 --- a/perl-install/standalone/drakclock +++ b/perl-install/standalone/drakclock @@ -39,10 +39,10 @@ $button_time->signal_connect(clicked => sub { $in->{timezone} = {}; add2hash($in->{timezone}, timezone::read()); my $timezone = $in->{timezone}{timezone}; - $in->{timezone}{timezone} = $in->ask_from_treelist(N("Timezone - DrakClock"), N("Which is your timezone?"), '/', [ timezone::getTimeZones('') ], $timezone); + $in->{timezone}{timezone} = $in->ask_from_treelist(N("Timezone - DrakClock"), N("Which is your timezone?"), '/', [ timezone::getTimeZones() ], $timezone); if (defined($in->{timezone}{timezone})) { $in->{timezone}{UTC} = $in->ask_yesorno(N("GMT - DrakClock"), N("Is your hardware clock set to GMT?"), $in->{timezone}{UTC}); - timezone::write('', $in->{timezone}); + timezone::write($in->{timezone}); } else { $in->{timezone}{timezone} = $timezone; } @@ -111,7 +111,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0), if ($check_ntp->get_active) { my $choosed_serv = $combo_ntpserver->entry->get_text; $choosed_serv =~ s/(\S+)\s*(.*)$/$1/; - timezone::ntp_server('', $1); + timezone::ntp_server($1); system("/sbin/chkconfig --level 35 ntpd on"); system("service ntpd restart"); } else { @@ -135,7 +135,7 @@ $my_win->{window}->add(gtkpack_(Gtk2::VBox->new(0,0), my $servers = get_server(); $combo_ntpserver->set_popdown_strings(@$servers); if (-e $ntpfile && -e $ntpdlock) { - $ntp = timezone::ntp_server(''); + $ntp = timezone::ntp_server(); $ntp and ntp_widget_state(1); foreach my $s (@$servers) { $s =~ /\Q$ntp/ and $fullntp = $s; |