summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-06 16:27:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-06 16:27:40 +0000
commit5c3f880e202d0b2d4c3b03236a38c35192653f91 (patch)
tree2b92e19e39a45caf4fce0520e4c65af101344ef1 /perl-install/standalone
parent17e5105b9f0fbc63c48ff12b1d7c1ec378960b18 (diff)
downloaddrakx-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-xperl-install/standalone/drakclock8
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;