3 # $RCSfile: empty,v $$Revision: 4.1 $$Date: 92/08/07 17:20:50 $
5 # This script empties a trashcan.
7 $recursive = shift if $ARGV[0] eq '-r';
9 @ARGV = '.' if $#ARGV < 0;
13 dir: foreach $dir (@ARGV) {
15 print stderr "Can't find directory $dir: $!\n";
19 do cmd('find . -name .deleted -exec /bin/rm -rf {} ;');
23 do cmd('rm -rf .deleted');
26 if ($dir eq '.' && $pwd =~ m|/\.deleted$|) {
28 do cmd('rm -rf .deleted');
31 print stderr "No trashcan found in directory $dir\n";
40 # force direct execution with no shell
43 system split(' ',join(' ',@_));