home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum12.lzh
/
plum12
/
autoload.plm
< prev
next >
Wrap
Text File
|
1997-09-25
|
551b
|
25 lines
package autoload;
$_ = 'autoload';
sub main_loop {
local($userno) = @_;
local($file, $user, $name, $var);
$user = $'username[$userno];
if ($user) {
$file = "$'PROPERTY-$user";
} else {
$file = $'PROPERTY;
}
$modify[$userno] = (stat($file))[9] unless $modify[$userno];
return if $modify[$userno] == (stat($file))[9];
$modify[$userno] = (stat($file))[9];
foreach $key (keys(%'property)) {
($name, $var) = split(/$;/, $key, 2);
next unless $name eq $user;
delete $'property{$key};
}
&'load($user, $file);
}