# config clock and timezone -*-perl-*- $clockmode = ""; $timezone = ""; $zoneinfodir = "/usr/lib/zoneinfo"; sub configure_clock { local ( @clocktypes ); if ($instarch eq "i386") { @clocktypes = ("Local Time", "", "GMT/UTC", ""); } else { @clocktypes = ("Local Time", "", "GMT/UTC", "", "ARC Console Time", ""); } if (! &rhs_menu("Clock Configuration", < How does your system clock store the time? > EOM , 50, (($#clocktypes + 1) / 2), @clocktypes )) { return 0; } if ($dialog_result eq "Local Time") { $clockmode = "local"; } elsif ($dialog_result eq "ARC Console Time") { $clockmode = "ARC"; } else { $clockmode = "GMT"; } chdir("$fsmount$zoneinfodir"); @zones = (); open(FIND, "find . -type f -print |"); @zones = ; close(FIND); @zones = reverse sort grep(s/\.\///, grep(chop, @zones)); chdir("/"); if (! &rhs_menul("Time Zone", < Pick a time zone. > EOM , 50, scalar(@zones), @zones)) { return 0; } $timezone = $dialog_result; unlink("$fsmount/etc/localtime"); symlink("..$zoneinfodir/$dialog_result", "$fsmount/etc/localtime"); return 1; } sub finish_clock { open(FD, ">$fsmount/etc/sysconfig/clock"); print FD "CLOCKMODE=\"$clockmode\"\n"; close FD; return 1; } ############################## 1;