home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / lang / perl4.035.V010.lzh / perl4.035 / eg / van / empty next >
Encoding:
Text File  |  1992-08-05  |  785 b   |  46 lines
  1. #!/usr/bin/perl
  2.  
  3. # $Header: empty,v 4.0 91/03/20 01:15:25 lwall Locked $
  4.  
  5. # This script empties a trashcan.
  6.  
  7. $recursive = shift if $ARGV[0] eq '-r';
  8.  
  9. @ARGV = '.' if $#ARGV < 0;
  10.  
  11. chop($pwd = `pwd`);
  12.  
  13. dir: foreach $dir (@ARGV) {
  14.     unless (chdir $dir) {
  15.     print stderr "Can't find directory $dir: $!\n";
  16.     next dir;
  17.     }
  18.     if ($recursive) {
  19.     do cmd('find . -name .deleted -exec /bin/rm -rf {} ;');
  20.     }
  21.     else {
  22.     if (-d '.deleted') {
  23.         do cmd('rm -rf .deleted');
  24.     }
  25.     else {
  26.         if ($dir eq '.' && $pwd =~ m|/\.deleted$|) {
  27.         chdir '..';
  28.         do cmd('rm -rf .deleted');
  29.         }
  30.         else {
  31.         print stderr "No trashcan found in directory $dir\n";
  32.         }
  33.     }
  34.     }
  35. }
  36. continue {
  37.     chdir $pwd;
  38. }
  39.  
  40. # force direct execution with no shell
  41.  
  42. sub cmd {
  43.     system split(' ',join(' ',@_));
  44. }
  45.  
  46.