diff options
author | Olivier Blin <oblin@mandriva.org> | 2006-03-08 16:14:46 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2006-03-08 16:14:46 +0000 |
commit | 9e2e02c76ce087fca0c6e715f905748980c506c4 (patch) | |
tree | 5125ed281a7b3016f901a269865681b0b75ef0e9 /perl-install | |
parent | 77a0cb8a0b701ba376960cab7b2d774ecfc58b55 (diff) | |
download | drakx-backup-do-not-use-9e2e02c76ce087fca0c6e715f905748980c506c4.tar drakx-backup-do-not-use-9e2e02c76ce087fca0c6e715f905748980c506c4.tar.gz drakx-backup-do-not-use-9e2e02c76ce087fca0c6e715f905748980c506c4.tar.bz2 drakx-backup-do-not-use-9e2e02c76ce087fca0c6e715f905748980c506c4.tar.xz drakx-backup-do-not-use-9e2e02c76ce087fca0c6e715f905748980c506c4.zip |
reload sys clock from hc once we know the real timezone (#21511)
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/finish-install | 2 | ||||
-rw-r--r-- | perl-install/timezone.pm | 6 |
2 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index 1a20b5f25..ee8c89941 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -56,6 +56,8 @@ sub ask_timezone() { $t->{timezone} = $in->ask_from_treelist(N("Timezone"), N("Which is your timezone?"), '/', [ timezone::getTimeZones() ], $t->{timezone}) or return; $t->{UTC} = $in->ask_yesorno(N("Timezone"), N("Is your hardware clock set to GMT?"), $t->{UTC}); timezone::write($t); + #- reload sys clock from hc once we know the real timezone + timezone::reload_sys_clock($t); } sub ask_network() { diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm index 1182c8c41..5abf39751 100644 --- a/perl-install/timezone.pm +++ b/perl-install/timezone.pm @@ -56,6 +56,12 @@ sub write { }); } +sub reload_sys_clock { + my ($t) = @_; + require run_program; + run_program::run('hwclock', '--hctosys', ($t->{UTC} ? '--utc' : '--localtime')); +} + #- best guesses for a given country my %c2t = ( 'AM' => 'Asia/Yerevan', |