tools/objectTemplateCreateCommands.pl

   1 use strict;
   2 use warnings;
   3
   4 my $branch;
   5
   6
   7 # =====================================================================
   8
   9 sub perforceWhere
  10 {
  11         # find out where a perforce file resides on the local machine
  12         my $result;
  13         {
  14                 open(P4, "p4 where $_[0] |");
  15                         while ( <P4> )
  16                         {
  17                                 next if ( /^-/ );
  18                                 chomp;
  19                                 my @where = split;
  20                                 $result = $where[2];
  21                         }
  22                 close(P4);
  23         }
  24
  25         return $result;
  26 }
  27
  28 sub usage
  29 {
  30         die "usage: $0 <branch> <output>\n";
  31 }
  32
  33 # =====================================================================
  34
  35 sub perforceGatherAndPrune
  36 {
  37         local $_;
  38         my %files;
  39
  40         foreach my $spec (@_)
  41         {
  42                 open(P4, "p4 files $spec/... |");
  43                 while (<P4>)
  44                 {
  45                         chomp;
  46                         next if (/ delete /)/
  47                         s%//depot/swg/$branch/data/sku\.0/sys\.(shared|server)/compiled/game/%%;
  48                         s/#.*//;
  49                         $files{$_} = 1;
  50                 }
  51                 close(P4);
  52
  53                 open(P4, "p4 opened -a $spec/... |");
  54                 while (<P4>)
  55                 {
  56                         chomp;
  57                         s%//depot/swg/$branch/data/sku\.0/sys\.(shared|server)/compiled/game/%%;
  58                         s/#.*//;
  59                         $files{$_} = 1;
  60                 }
  61                 close(P4);
  62         }
  63
  64         return sort keys %files;
  65 }
  66
  67 # =====================================================================
  68
  69 usage() unless (@ARGV == 2 && $ARGV[0] =~ m%^(current|test|live|x1|x2|s0|s1|s2|s3|s4|s5)$%);
  70
  71 $branch = $ARGV[0];
  72 my $output = $ARGV[1];
  73
  74 {
  75         my @files = perforceGatherAndPrune("//depot/swg/$branch/data/sku.0/sys.shared/compiled/game/object");
  76
  77         open(B, ">" . $output);
  78                 foreach (@files)
  79                 {
  80                         print B "/rem object createAt ", $_, "\n";
  81                 }
  82         close(B);
  83 }
  84