22 lines
451 B
Perl
22 lines
451 B
Perl
#!/usr/bin/perl
|
|
|
|
# $RCSfile: vanexp,v $$Revision: 4.1 $$Date: 92/08/07 17:20:53 $
|
|
|
|
# This is for running from a find at night to expire old .deleteds
|
|
|
|
$can = $ARGV[0];
|
|
|
|
exit 1 unless $can =~ /.deleted$/;
|
|
|
|
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
|
|
$blksize,$blocks) = stat($can);
|
|
|
|
exit 0 unless $size;
|
|
|
|
if (time - $mtime > 2 * 24 * 60 * 60) {
|
|
`/bin/rm -rf $can`;
|
|
}
|
|
else {
|
|
`find $can -ctime +2 -exec rm -f {} \;`;
|
|
}
|