dsrc/sku.0/sys.server/compiled/game/datatables/npc_lair/dan_pie.pl

   1 # get the list of files to process from renames.rsp
   2 open(RSP, "pie.rsp");
   3
   4 $changedCount = 0;
   5 $unchangedCount = 0;
   6 $substitutions = 0;
   7
   8 # process all the files
   9 while (<RSP>)
  10 {
  11         # get rid of the freakin' newline
  12         chomp;
  13
  14         # provide status
  15         print "processing " . $_;
  16
  17         # open the files for i/o
  18         $file = $_;
  19         $new = $file . ".new";
  20         open(IN, $file);
  21         open(OUT, ">" . $new);
  22
  23         # process all the lines in the input file
  24         $changed = 0;
  25         while (<IN>)
  26         {
  27                 # keep around the original line so we can check if it has been changed
  28                 $save = $_;
  29
  30                 # apply the transformations
  31                 s/\.tpf/.iff/g;
  32
  33                 # update the changed flag
  34                 if ($save ne $_)
  35                 {
  36                         $changed = 1;
  37                         $substitutions += 1;
  38                 }
  39
  40                 # emit the [possibly] changed line
  41                 print OUT;
  42         }
  43
  44         # done accessing the contents of the files
  45         close(IN);
  46         close(OUT);
  47
  48         if ($changed == 1)
  49         {
  50                 $changedCount += 1;
  51
  52                 # check the file out and replace its contents
  53                 system("p4 edit " . $file);
  54                 unlink($file);
  55                 rename($new, $file);
  56
  57                 # provide results
  58                 print " [changed]\n";
  59
  60         }
  61         else
  62         {
  63                 $unchangedCount += 1;
  64
  65                 # remove temporary work
  66                 unlink($new);
  67
  68                 # provide results
  69                 print " [unchanged]\n";
  70         }
  71 }
  72
  73 close(RSP);
  74
  75 print $changedCount . " changed files, " . $unchangedCount . " unchanged files, " . $substitutions . " substitutions\n";