tools/printCustomizationVariables.pl

   1 # ======================================================================
   2 # printCustomizationVariables.pl
   3 #
   4 # Tool to print customization variables from a variety of different sources.
   5 # ======================================================================
   6
   7 use Customization;
   8
   9 # ======================================================================
  10
  11 my $dumpFileName;
  12
  13 # ======================================================================
  14
  15 sub printUsage
  16 {
  17         print "usage:\n";
  18         print "\t$0 -h\n";
  19         print "\t$0 -1 <sql dump 1-liner format>\n";
  20         print "\n";
  21         print "Arguments:\n";
  22         print "\t-h: print this help.\n";
  23         print "\t-1: Oracle SELECT DUMP output for tangible_object.appearance_data\n";
  24         print "\t    where all data for a single appearance is concatenated to be\n";
  25         print "\t    on the same line.\n";
  26 }
  27
  28 # ----------------------------------------------------------------------
  29
  30 sub processArgs
  31 {
  32         # Process each arg.
  33         my $printUsage;
  34         my $quit = 0;
  35
  36         while ((@_ > 0) && ($_[0] =~ s/^-//))
  37         {
  38                 my $arg = $_[0];
  39
  40                 if ($arg eq '1')
  41                 {
  42                         shift;
  43                         $dumpFileName = $_[0] if (defined($_[0]) && (length($_[0]) > 0));
  44                 }
  45                 elsif ($arg eq 'h')
  46                 {
  47                         $printUsage = 1;
  48                         $quit           = 1;
  49                 }
  50                 else
  51                 {
  52                         print "unrecognized option [$_[0]].\n";
  53                         $printUsage = 1;
  54                         $quit           = 1;
  55                 }
  56
  57                 shift;
  58         }
  59
  60         # Ensure we're doing something.
  61         if (!defined($dumpFileName))
  62         {
  63                 $printUsage = 1;
  64                 $quit       = 1;
  65         }
  66
  67         # Print help if requested.
  68         printUsage if $printUsage;
  69
  70         # Quit if required.
  71         exit(-1) if $quit;
  72 }
  73
  74 # ----------------------------------------------------------------------
  75
  76 sub convertOracleDumpToString
  77 {
  78         my $oracleDumpString = shift;
  79         my $newString = "";
  80
  81         # remove header info.
  82         $oracleDumpString =~ s/^\s*(\d+)?.*:\s*//;
  83         my $objectId = $1;
  84
  85         # print header info.
  86         print "=====\n";
  87         print "Object ID: ";
  88         if (defined($objectId))
  89         {
  90                 print $objectId . "\n";
  91         }
  92         else
  93         {
  94                 print "<unknown>\n";
  95         }
  96         print "=====\n";
  97
  98
  99         while (length($oracleDumpString) > 0)
 100         {
 101                 if ($oracleDumpString =~ s/^(\d+)(\s*,\s*)?//)
 102                 {
 103                         $newString .= chr($1);
 104                 }
 105                 else
 106                 {
 107                         print STDERR "convertOracleDumpToString: ", length($oracleDumpString), " characters remain: [$oracleDumpString].\n";
 108                         return $newString;
 109                 }
 110         }
 111
 112         return $newString;
 113 }
 114
 115 # ----------------------------------------------------------------------
 116
 117 sub printCustomizationVariables
 118 {
 119         # Find where p4 maps the customization_id_manager.mif file.
 120         # Assume current branch for now.
 121
 122         my $branch = $ENV{BRANCH} || 'current';
 123         my $depotFile = '//depot/swg/current/dsrc/sku.0/sys.shared/compiled/game/customization/customization_id_manager.mif';
 124         my $output = `p4 where //depot/swg/$branch/dsrc/sku.0/sys.shared/compiled/game/customization/customization_id_manager.mif`;
 125         my $mifFileName;
 126
 127         if (defined($output))
 128         {
 129                 my @whereParts = split(/\s+/, $output);
 130                 if (@whereParts == 3)
 131                 {
 132                         $mifFileName = $whereParts[2];
 133                 }
 134         }
 135
 136         if (!defined(mifFileName))
 137         {
 138                 print STDERR "Warning: p4 where did not return a 3-part response, defaulting mif file location.\n";
 139                 $mifFileName = 'd:/work/swg/current/sku.0/sys.shared/compiled/game/customization/customization_id_manager.mif';
 140         }
 141
 142         Customization::initializeCustomization($mifFileName);
 143
 144         # For each line in 1-line dump file, print out variable data.
 145         my $dumpFile;
 146         open($dumpFile, '< ' . $dumpFileName) or die "failed to open dump file [$dumpFileName]: $!";
 147
 148         my $entry = 1;
 149
 150         while (<$dumpFile>)
 151         {
 152                 chomp;
 153                 my $encodedString = convertOracleDumpToString($_);
 154
 155                 # Convert encoded string into
 156                 my %variableInfoHash;
 157                 my $result = Customization::getVariableInfoFromNewString(%variableInfoHash, $encodedString);
 158                 if (!$result)
 159                 {
 160                         print "entry $entry: failed to convert, format invalid, skipping.\n";
 161                 }
 162                 else
 163                 {
 164                         Customization::dumpVariableInfo(%variableInfoHash);
 165                   }
 166
 167                 # Increment loop.
 168                 ++$entry;
 169         }
 170 }
 171
 172 # ----------------------------------------------------------------------
 173 # MAIN
 174 # ----------------------------------------------------------------------
 175
 176 # Collect info from args.
 177 processArgs(@ARGV);
 178
 179 # Print the customization data.
 180 printCustomizationVariables() if defined($dumpFileName);