diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-09-28 15:53:43 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-09-28 15:53:43 +0000 |
| commit | 99c9b0680ce235c7e5bb6d18a8154a147e70947c (patch) | |
| tree | e42f58e16872cdf6f4030936f9050ebc5bb99b20 /perl-install/timezone.pm | |
| parent | 4d1e2e9740a607609d497adf72dbef43e9f1a4c8 (diff) | |
| download | drakx-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.pm | 7 |
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) = @_; |