home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 1.x / plum10b8.lzh / plum10b8 / autoload.plm < prev    next >
Text File  |  1997-06-25  |  577b  |  26 lines
  1. package autoload;
  2.  
  3. $_ = 'autoload';
  4.  
  5. sub main_loop {
  6.   local($file, $user, $userkey, $i);
  7.   for ($i = 0; $i < scalar(@'username); $i++) {
  8.     $user = $'username[$i];
  9.     if ($user) {
  10.       $file = "$'PROPERTY-$user";
  11.     } else {
  12.       $file = $'PROPERTY;
  13.     }
  14.     $modify[$i] = (stat($file))[9] unless $modify[$i];
  15.     next if $modify[$i] == (stat($file))[9];
  16.     $modify[$i] = (stat($file))[9];
  17.     $userkey = "$user$;";
  18.     foreach $key (keys(%'property)) {
  19.       next unless index($key, $userkey) == 0;
  20.       delete $'property{$key}
  21.     }
  22.     &'load($user, $file);
  23.   }
  24. }
  25.  
  26.