summaryrefslogtreecommitdiffstats
path: root/perl-install/timezone.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-09-28 15:53:43 +0000
committerFrancois Pons <fpons@mandriva.com>1999-09-28 15:53:43 +0000
commit99c9b0680ce235c7e5bb6d18a8154a147e70947c (patch)
treee42f58e16872cdf6f4030936f9050ebc5bb99b20 /perl-install/timezone.pm
parent4d1e2e9740a607609d497adf72dbef43e9f1a4c8 (diff)
downloaddrakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.gz
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.bz2
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.xz
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.zip
*** empty log message ***
Diffstat (limited to 'perl-install/timezone.pm')
-rw-r--r--perl-install/timezone.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 6330cb325..e5851b1dd 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -17,6 +17,13 @@ sub getTimeZones {
@l;
}
+sub read ($) {
+ my ($f) = @_;
+ my %t = getVarsFromSh($f) or die "cannot open file $f: $!";
+
+ ("timezone", $t{ZONE}, "GMT", text2bool($t{GMT}));
+}
+
sub write($$$) {
my ($prefix, $t, $f) = @_;