3 # $Header: empty,v 4.0 91/03/20 01:15:25 lwall Locked $
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(' ',@_));