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