installer/patch-res-wxs.pl

   1 #!/usr/bin/perl
   2
   3 require strict;
   4 my $prev = "";
   5 my $mainExe = $ENV{'MOZ_APP_NAME'}.'.exe';
   6 print STDERR $mainExe;
   7
   8 while (<STDIN>) {
   9         next unless length($_);
  10         next if /$mainExe/;
  11         s/<Fragment/<Fragment Id="Res"/;
  12         s/Id="TARGETDIR"/Id="INSTALLDIR"/;
  13         if ( /PUT-GUID-HERE/ ) {
  14                 chomp(my $guid = uc(qx{uuidgen}));
  15                 $guid =~ s/\r//;
  16                 s{PUT-GUID-HERE}{$guid};
  17         }
  18         next if /directory0/;
  19         if (/\/DirectoryRef/) {
  20                 $prev = $_;
  21                 next;
  22         }
  23         print $prev if length($prev);
  24         $prev = $_;
  25 }
  26 print $prev if length($prev);