tools/p4FindUnchanged.pl

   1 #!/usr/bin/perl
   2
   3 #2607
   4
   5 sub numerically { $a <=> $b }
   6
   7 die "usage: p4FindUnchanged.pl changelistSpec [changelistSpec ...]\nA changelistSpec is either a single changelist or a range specified as begin..end\n" if (scalar(@ARGV) == 0);
   8 eval "\@changes = sort numerically " . join(",", @ARGV);
   9
  10 foreach $change (@changes)
  11 {
  12         print STDERR "scanning changelist $change\n";
  13
  14         open(P4, "p4 describe -s $change |");
  15         @describe = <P4>;
  16         close(P4);
  17
  18         $_ = shift @describe;
  19
  20         if (/\*pending\*/)
  21         {
  22                 next;
  23         }
  24
  25         $user = (split(/[\s\@]+/))[3];
  26         foreach $file (@describe)
  27         {
  28                 if ($file =~ s/^\.\.\.\s+//)
  29                 {
  30                         next if ($file !~ m#//depot/swg/current/#);
  31
  32                         ($file, $version, $type) = split(/[#\s]+/, $file);
  33
  34                         if ($version > 1 && $type ne "delete")
  35                         {
  36                                 $old = $version - 1;
  37                                 open(P4, "p4 diff2 -q -t $file#$version $file#$old |");
  38                                 @diffs = <P4>;
  39                                 if (!@diffs)
  40                                 {
  41                                         print "$user $file#$version\n";
  42                                 }
  43
  44                                 close(P4);
  45                         }
  46                 }
  47         }
  48 }