hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Included -m (mtime-only) option (CVS is nice, but only if it used). 

Improved pod a bit.
This commit is contained in:
hjp 2003-05-16 13:38:25 +00:00
parent 955d49149e
commit a6c79cefd9
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
cleandir/cleandir.pl
View File

@ -12,7 +12,9 @@ cleandir [-d days] [-n] [-v] [-s] directory...
cleandir recursively searches each directory given on the commandline cleandir recursively searches each directory given on the commandline
for files and subdirectories which have not been accessed for n days and for files and subdirectories which have not been accessed for n days and
deletes them. deletes them. It is intended to be used on /tmp and other world-writable
directories and implements a number of checks to prevent symlink or
directory switching attacks. It also does not cross mount points.
=head1 OPTIONS =head1 OPTIONS
@ -23,20 +25,24 @@ deletes them.
Delete files which have not been accessed for the given number of days. Delete files which have not been accessed for the given number of days.
The default is 14. The default is 14.
=item B<-m>
Consider only the last modification time of the file, not the last access time.
=item B<-n> =item B<-n>
No-op. Don't delete any files. No-op. Don't delete any files.
=item B<-v>
Verbose. Can be repeated to increase verbosity.
=item B<-s> =item B<-s>
Skip sockets and named pipes. Some programs (notably X11 and some Skip sockets and named pipes. Some programs (notably X11 and some
databases) create sockets and named pipes in /tmp and foolishly expect databases) create sockets and named pipes in /tmp and foolishly expect
them to survive. This option exists to humour them. them to survive. This option exists to humour them.
=item B<-v>
Verbose. Can be repeated to increase verbosity.
=back =back
=head1 AUTHOR =head1 AUTHOR
@ -55,6 +61,7 @@ use Pod::Usage;
my $verbose = 0; my $verbose = 0;
my $nop = 0; my $nop = 0;
my $skip_fifos = 0; my $skip_fifos = 0;
my $mtime_only = 0;
sub cleandir { sub cleandir {
@ -130,7 +137,7 @@ sub cleandir {
print STDERR "$0:", " " x $level, " chdir $dir/$i failed: $!\n"; print STDERR "$0:", " " x $level, " chdir $dir/$i failed: $!\n";
} }
} elsif ($st->mtime < $since && $st->atime < $since) { } elsif ($st->mtime < $since && ($st->atime < $since || $mtime_only)) {
if ($nop) { if ($nop) {
print "would remove $dir/$i\n"; print "would remove $dir/$i\n";
} else { } else {
@ -160,6 +167,7 @@ sub main {
'verbose|v' => sub { $verbose++ }, 'verbose|v' => sub { $verbose++ },
'nop|n' => \$nop, 'nop|n' => \$nop,
'skip-fifos|s' => \$skip_fifos, 'skip-fifos|s' => \$skip_fifos,
'mtime-only|m' => \$mtime_only,
) or pod2usage(2); ) or pod2usage(2);
pod2usage(1) if $help; pod2usage(1) if $help;
pod2usage(2) unless (@ARGV); pod2usage(2) unless (@ARGV);
@ -178,7 +186,11 @@ sub main {
main(); main();
# $Log: cleandir.pl,v $ # $Log: cleandir.pl,v $
# Revision 1.4 2003-05-15 10:49:33 hjp # Revision 1.5 2003-05-16 13:38:25 hjp
# Included -m (mtime-only) option (CVS is nice, but only if it used).
# Improved pod a bit.
#
# Revision 1.4 2003/05/15 10:49:33 hjp
# Changed tests on skip_fifo to use _ instead of $i. The latter caused # Changed tests on skip_fifo to use _ instead of $i. The latter caused
# extra calls to stat which clobbered the state of _ which caused spurious # extra calls to stat which clobbered the state of _ which caused spurious
# errors/warnings on symlinks. # errors/warnings on symlinks.