home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2-beta.img / usr / lib / perl / clock < prev    next >
Text File  |  1995-12-04  |  1KB  |  65 lines
  1. # config clock and timezone -*-perl-*-
  2.  
  3. $clockmode = "";
  4. $timezone = "";
  5. $zoneinfodir = "/usr/lib/zoneinfo";
  6.  
  7. sub configure_clock {
  8.  
  9.     local ( @zones );
  10.  
  11.     if (! &rhs_menu("Clock Configuration",
  12. <<EOM
  13. >
  14. Is your system clock set to local time or GMT?
  15. > 
  16. EOM
  17.             , 50, 2,
  18.             "Local Time", "",
  19.             "GMT/UTC", "")) {
  20.     return 0;
  21.     }
  22.  
  23.     if ($dialog_result eq "Local Time") {
  24.     $clockmode = "local";
  25.     } else {
  26.     $clockmode = "GMT";
  27.     }
  28.  
  29.     chdir("$fsmount$zoneinfodir");
  30.     @zones = ();
  31.     open(FIND, "find . -type f -print |");
  32.     @zones = <FIND>;
  33.     close(FIND);
  34.     @zones = reverse sort grep(s/\.\///, grep(chop, @zones));
  35.     chdir("/");
  36.  
  37.     if (! &rhs_menul("Time Zone",
  38. <<EOM
  39. >
  40. Pick a time zone.
  41. >
  42. EOM
  43.              , 50, scalar(@zones), @zones)) {
  44.     return 0;
  45.     }
  46.  
  47.     $timezone = $dialog_result;
  48.     unlink("$fsmount/etc/localtime");
  49.     symlink("..$zoneinfodir/$dialog_result", "$fsmount/etc/localtime");
  50.  
  51.     return 1;
  52. }
  53.  
  54. sub finish_clock {
  55.  
  56.     open(FD, ">$fsmount/etc/sysconfig/clock");
  57.     print FD "CLOCKMODE=\"$clockmode\"\n";
  58.     close FD;
  59.  
  60.     return 1;
  61. }
  62.  
  63. ##############################
  64. 1;
  65.