tools/find_unchecked.pl

   1 #!/usr/bin/perl
   2
   3 use File::Find;
   4
   5 # process command line arguments
   6 while ($ARGV[0] =~ /^-/)
   7 {
   8         $_ = shift;
   9
  10         if ($_ eq "--debug")
  11         {
  12                 $debug = 1;
  13         }
  14         elsif ($_ eq "--delete")
  15         {
  16                 $delete = 1;
  17         }
  18         else
  19         {
  20                 die "unknown command line option";
  21         }
  22 }
  23
  24 sub CollectP4OpenedFiles
  25 {
  26         open(P4, "p4 opened |");
  27         while (<P4>)
  28         {
  29                 chomp;
  30                 $openedFiles{$_} = 1 if (s/#.*//);
  31         }
  32         close(P4);
  33 }
  34
  35 sub FindHandler
  36 {
  37         if (-d $_)
  38         {
  39                 # found a directory entry
  40
  41                 # prune the directory if it's one we want to ignore
  42                 if (m/^(compile|external|Debug|Optimized|Production|Release|generated)$/)
  43                 {
  44                         # prune it
  45                         $File::Find::prune = 1;
  46                         print STDERR "[Pruned Directory Entry: $File::Find::name]\n" if ($debug);
  47                 }
  48         }
  49         elsif (-f and -w $_)
  50         {
  51                 # handle writable non-directory entry
  52                 if (!m/^.*(\.(aps|ca|clw|class|dll|ews|exe|ncb|opt|plg|WW|tmp|db|bak|pyc|cfg|o)|~)$/)
  53                 {
  54                         # this is a writable file that should be checked against what's in Perforce.
  55                         my ($commandLine, $expectedDepotLocation);
  56
  57                         $commandLine = `p4 where $File::Find::name`;
  58                         $commandLine =~ /([^ ]+) /;
  59
  60                         $expectedDepotLocation = $1;
  61
  62                         # this writable file is suspect (i.e. is missing) if the depot file
  63                         # is not opened.  That implies the file is writable but not opened,
  64                         # most likely indicating it doesn't exist in the depot.
  65                         if (!$openedFiles{$expectedDepotLocation})
  66                         {
  67                                 print $File::Find::name, "\n";
  68                                 unlink $File::Find::name if ($delete);
  69                         }
  70                         else
  71                         {
  72                                 print STDERR "<file [$File::Find::name] is in perforce>\n" if ($debug);
  73                         }
  74                 }
  75         }
  76 }
  77
  78 # collect opened depot files
  79 CollectP4OpenedFiles();
  80
  81 # do a find
  82 @ARGV = ('../') unless @ARGV;
  83 find(\&FindHandler, @ARGV);