tools/p4consistency.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 # ======================================================================
   7
   8 sub usage
   9 {
  10         die "usage: $0 [--fast] [--quiet] directory ...\n" .
  11                 "\t--fast  = do not compare file contents\n" .
  12                 "\t--quiet = do not display identical files\n";
  13 }
  14
  15 # ----------------------------------------------------------------------
  16
  17 sub findFiles
  18 {
  19         local $_;
  20
  21         my @paths = @_;
  22         my @localfiles;
  23
  24         while (@paths)
  25         {
  26                 my $path = shift(@paths);
  27                 opendir(DIR, $path) || die "could not open dir $path";
  28                         while ($_ = readdir(DIR))
  29                         {
  30                                 next if ($_ eq "." || $_ eq "..");
  31
  32                                 my $new = $path . "/" . $_;
  33                                 $new =~ s%\\%/%g;
  34                                 $new =~ s%//%/%g;
  35
  36                                 if (-d $new)
  37                                 {
  38                                         push(@paths, $new);
  39                                 }
  40                                 else
  41                                 {
  42                                         push (@localfiles, $new);
  43                                 }
  44                         }
  45                 closedir(DIR);
  46         }
  47
  48         return @localfiles;
  49 }
  50
  51 # ======================================================================
  52
  53 my $quiet = 0;
  54 my $fast = 0;
  55
  56 # ======================================================================
  57
  58 # process command line
  59 while (@ARGV && $ARGV[0] =~ /^-/)
  60 {
  61         my $arg = shift;
  62
  63         if ($arg eq "--quiet")
  64         {
  65                 $quiet = 1;
  66         }
  67         elsif ($arg eq "--fast")
  68                 {
  69                         $fast = 1;
  70                 }
  71                 else
  72                 {
  73                         usage();
  74                 }
  75 }
  76 usage() if (@ARGV == 0);
  77
  78 while (@ARGV)
  79 {
  80         my %files;
  81
  82         # get the perforce locations for what was specified
  83         open(P4, "p4 where " . (shift @ARGV) . " |");
  84         $_ = <P4>;
  85         chomp;
  86         my ($depot, $client, $local) = split(/ /, $_, 3);
  87         close(P4);
  88
  89         # find all the local files
  90         $local =~ s%\\%\/%g;
  91         $local =~ s%\/\.\.\.$%%;
  92         foreach (findFiles($local))
  93         {
  94                 $files{$_} = "extra";
  95         }
  96
  97         if ($fast)
  98         {
  99                 # fast mode doesn't compare the contentes
 100                 open(P4, "p4 fstat $client#have |") || die "$0: Can't open p4: $!\n";
 101
 102                 my $file;
 103                 my $action;
 104
 105                 while (<P4>)
 106                 {
 107                         chomp;
 108                         if (/^\s*$/)
 109                         {
 110                                 if (defined($file) && defined($action))
 111                                 {
 112                                         if ($action ne "delete")
 113                                         {
 114                                                 if (defined $files{$file})
 115                                                 {
 116                                                         # if we already knew about the file, then mark it as being in both places
 117                                                         $files{$file} = "both";
 118                                                 }
 119                                                 else
 120                                                 {
 121                                                         # if we didn't know about the file, then it's missing
 122                                                         $files{$file} = "missing";
 123                                                 }
 124                                         }
 125
 126                                         undef $file;
 127                                         undef $action;
 128                                 }
 129                         }
 130                         else
 131                         {
 132                                 if (s%^\.\.\. clientFile %%)
 133                                 {
 134                                         s%\\%\/%g;
 135                                         $file = $_;
 136                                 }
 137                                 elsif (s%^\.\.\. headAction %%)
 138                                 {
 139                                         $action = $_;
 140                                 }
 141                         }
 142                 }
 143                 close(P4)
 144         }
 145         else
 146         {
 147                 # diff is more authoritative than the file search, but we'll still keep the extra files
 148                 open(P4, "p4 diff -sl $client |") || die "$0: Can't open p4: $!\n";
 149                 while (<P4>)
 150                 {
 151                         chomp;
 152                         my ($status, $file) = split(/ /, $_, 2);
 153                         $file =~ s%\\%/%g;
 154                         $files{$file} = $status;
 155                 }
 156                 close(P4);
 157         }
 158
 159         foreach (sort keys %files)
 160         {
 161                 my $status = $files{$_};
 162                 print "$status $_\n" if (!$quiet || ($status ne "same" && $status ne "both"));
 163         }
 164 }