tools/checkCreatureStrings.pl

   1 # ================================================================================
   2 #
   3 # checkCreatureStrings.pl
   4 # Copyright 2006, Sony Online Entertainment LLC
   5 #
   6 # ================================================================================
   7
   8 use Cwd;
   9
  10 # --------------------------------------------------------------------------------
  11
  12 die "usage: $0\n\t Checks that all creatures.tab creature names are localized. Outputs missing creature names." if (@ARGV);
  13 die "Must be run within a swg directory!" if (getcwd() !~ m!(.*/swg/\w+/)!);
  14 my $rootPath = $1;
  15
  16 my $creaturesStringFile = "data/sku.0/sys.shared/built/game/string/en/mob/creature_names.stf";
  17 my $creaturesTabFile = "dsrc/sku.0/sys.server/compiled/game/datatables/mob/creatures.tab";
  18 my $localizationToolCon = "../all/tools/all/win32/LocalizationToolCon_r.exe";
  19
  20 # --------------------------------------------------------------------------------
  21
  22 open(CS, "$rootPath$localizationToolCon $rootPath$creaturesStringFile -list |") || die "$!";
  23 while (<CS>)
  24 {
  25         split;
  26         $creaturesString{$_[0]} = 1;
  27 }
  28 close(CS);
  29
  30 open(CT, "$rootPath$creaturesTabFile") || die "$!";
  31 <CT>; <CT>; # skip column header name & type
  32 while (<CT>)
  33 {
  34         split;
  35         if (!$creaturesString{$_[0]})
  36         {
  37                 print "$_[0]\n";
  38                 ++$missingStringCount;
  39         }
  40 }
  41 close(CT);
  42
  43 if ($missingStringCount)
  44 {
  45         print STDERR "\nFAILURE! Missing $missingStringCount creature name strings!\n";
  46 }
  47 else
  48 {
  49         print STERR "\nSUCCESS! No missing creature strings!\n";
  50 }
  51
  52 exit $missingStringCount;
  53
  54 # ================================================================================