japhy
Enthusiast
/ Moderator
Jan 28, 2000, 6:31 PM
Post #2 of 2
(1837 views)
|
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR>
# if the file is over a day old
if (-M $filename > 1) {
# create new filename, and remove any
# /'s that crypt() might put in there
($newname = crypt(rand, rand time)) =~ tr!/!!d;
rename $filename => $newname or die "can't rename $filename to $newname: $!";
}
</pre><HR></BLOCKQUOTE>
Just figure out a way to keep track of what that file is called. 
|
MAIN
SEARCH
WHO'S 
LOG 