tools/findAssetsUsingCustomization.pl

   1 #!/bin/perl
   2 use strict;
   3
   4 # Call with the following args:
   5 #   -n <newVariableNameFile> -a <assetInfoFile>
   6
   7 my $newVariableFileName;
   8 my $assetInfoFileName;
   9 my $debug = 0;
  10
  11 my %targetVariableNames;
  12
  13 sub loadTargetVariableNamesFromFile
  14 {
  15         my $filename = shift;
  16         my $fileHandle;
  17
  18         open($fileHandle, "<$filename") or die "failed to open file [$filename]: $!";
  19
  20         while (<$fileHandle>)
  21         {
  22                 chomp;
  23                 if ($_ =~ m/\[(.+)\]/)
  24                 {
  25                         my $name = $1;
  26                         $targetVariableNames{$name} = 1;
  27                         print STDERR "target variable [$name]\n" if $debug;
  28                 }
  29         }
  30
  31         close($fileHandle);
  32 }
  33
  34 sub findVariableNameUsage
  35 {
  36         my $filename = shift;
  37         my $fileHandle;
  38
  39         print "variableName\treferencing assetName\n";
  40
  41         open($fileHandle, "<$filename") or die "failed to open file [$filename]: $!";
  42         while (<$fileHandle>)
  43         {
  44                 chomp;
  45                 if (($_ =~ m/^I /) || ($_ =~ m/^P /))
  46                 {
  47                         # kill code letters.
  48                         s/..//;
  49
  50                         # read asset name and variable name.
  51                         m/([^:]+):([^:]+):/ or die "line [$_] does not match customization variable info data format";
  52                         my $assetName = $1;
  53                         my $variableName = $2;
  54
  55                         # if the variable name is one of the targets, print out the asset.
  56                         if (exists $targetVariableNames{$variableName})
  57                         {
  58                                 print "$variableName\t$assetName\n";
  59                         }
  60                 }
  61         }
  62         close($fileHandle);
  63 }
  64
  65 # Process args
  66 while (@ARGV)
  67 {
  68         my $currentArg = shift @ARGV;
  69         if ($currentArg =~ m/-d/)
  70         {
  71                 $debug = 1;
  72                 print STDERR "debugging turned on\n";
  73         }
  74         elsif ($currentArg =~ m/-n/)
  75         {
  76                 $newVariableFileName = shift @ARGV;
  77                 print STDERR "newVariableFileName=[$newVariableFileName]\n" if $debug;
  78         }
  79         elsif ($currentArg =~ m/-a/)
  80         {
  81                 $assetInfoFileName = shift @ARGV;
  82                 print STDERR "assetInfoFileName=[$assetInfoFileName]\n" if $debug;
  83         }
  84 }
  85
  86 # Load in new variable names
  87 loadTargetVariableNamesFromFile($newVariableFileName);
  88
  89 # Find asset usage of target names
  90 findVariableNameUsage($assetInfoFileName);