summaryrefslogtreecommitdiffstats
path: root/perl-install/timezone.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-10 11:58:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-10 11:58:09 +0000
commit230c75dfce6576f56448b761a5ee84e7e7b1956e (patch)
treefa04e757bd405b1d89c7a68e8ed79f81bf024e36 /perl-install/timezone.pm
parent8031ef158730d1389fe00e6926c7d01b29b9acf4 (diff)
downloaddrakx-230c75dfce6576f56448b761a5ee84e7e7b1956e.tar
drakx-230c75dfce6576f56448b761a5ee84e7e7b1956e.tar.gz
drakx-230c75dfce6576f56448b761a5ee84e7e7b1956e.tar.bz2
drakx-230c75dfce6576f56448b761a5ee84e7e7b1956e.tar.xz
drakx-230c75dfce6576f56448b761a5ee84e7e7b1956e.zip
add step summary. remove steps configureTimezone and configurePrinter
Diffstat (limited to 'perl-install/timezone.pm')
-rw-r--r--perl-install/timezone.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 96fb0510e..cd0486138 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -17,11 +17,12 @@ sub getTimeZones {
@l;
}
-sub read ($) {
- my ($f) = @_;
- my %t = getVarsFromSh($f) or die "cannot open file $f: $!";
+sub read {
+ my ($prefix) = @_;
+ my $f = "$prefix/etc/sysconfig/clock";
+ my %t = getVarsFromSh($f) or return;
- ("timezone", $t{ZONE}, "UTC", text2bool($t{UTC}));
+ (timezone => $t{ZONE}, UTC => text2bool($t{UTC}));
}
sub write {