The Tor Browser / file revision

 #!/usr/bin/perl -w

 # This Source Code Form is subject to the terms of the Mozilla Public

 # License, v. 2.0. If a copy of the MPL was not distributed with this

 # file, You can obtain one at http://mozilla.org/MPL/2.0/.

 #use diagnostics;

 require strict;

 my $dir = $0;

 $dir =~ s/[^\/]*$//;

 push(@INC, "$dir");

 require "Moz/Milestone.pm";

 use Getopt::Long;

 use Getopt::Std;

 use POSIX;

 # Calculate the number of days since Jan. 1, 2000 from a buildid string

 sub daysFromBuildID

 {

     my ($buildid,) = @_;

     my ($y, $m, $d, $h) = ($buildid =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/);

     $d || die("Unrecognized buildid string.");

     my $secondstodays = 60 * 60 * 24;

     return sprintf("%d",

 		   (POSIX::mktime(00, 00, 00, $d, $m - 1, $y - 1900) -

 		    POSIX::mktime(00, 00, 00, 01, 00, 100)) / $secondstodays);

 }

 #Creates version resource file

 #Paramaters are passed on the command line:

 #Example: -MODNAME nsToolkitCompsModule -DEBUG=1

 # DEBUG - Mozilla's global debug variable - tells if its debug version

 # OFFICIAL - tells Mozilla is building a milestone or nightly

 # MSTONE - tells which milestone is being built;

 # OBJDIR - Holds the object directory;

 # MODNAME - tells what the name of the module is like nsBMPModule

 # DEPTH - Holds the path to the root obj dir

 # TOPSRCDIR - Holds the path to the root mozilla dir

 # SRCDIR - Holds module.ver and source

 # BINARY - Holds the name of the binary file

 # DISPNAME - Holds the display name of the built application

 # APPVERSION - Holds the version string of the built application

 # RCINCLUDE - Holds the name of the RC File to include or ""

 # QUIET - Turns off output

 #Description and Comment come from module.ver

 #Bug 23560

 #http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/rc_7x2d.asp

 #Get next .ver file entry

 sub getNextEntry

 {

 	while (<VERFILE>) 

 	{ 

 		my $mline = $_;

 		($mline) = split(/#/,$mline);

 		my ($entry, $value)=split(/=/,$mline,2);

 		if (defined($entry))

 		{

 			if (defined($value))

 			{

 				$entry =~ s/^\s*(.*?)\s*$/$1/;

 				$value =~ s/^\s*(.*?)\s*$/$1/;

 				return ($entry,$value);

 			}

 		}

 	}

 	return undef;

 }

 my ($quiet,$objdir,$debug,$official,$milestone,$buildid,$module,$binary,$depth,$rcinclude,$srcdir,$fileversion,$productversion);

 GetOptions( "QUIET" => \$quiet,

 		"DEBUG=s" => \$debug,

 		"OFFICIAL=s" => \$official,

 		"MSTONE=s" => \$milestone,

 		"MODNAME=s" => \$module,

 		"BINARY=s" => \$binary,

 		"DISPNAME=s" => \$displayname,

 		"APPVERSION=s" => \$appversion,

 		"SRCDIR=s" => \$srcdir,

 		"TOPSRCDIR=s" => \$topsrcdir,

 		"DEPTH=s" => \$depth,

 		"RCINCLUDE=s" => \$rcinclude,

 		"OBJDIR=s" => \$objdir);

 if (!defined($debug)) {$debug="";}

 if (!defined($official)) {$official="";}

 if (!defined($milestone)) {$milestone="";}

 if (!defined($module)) {$module="";}

 if (!defined($binary)) {$binary="";}

 if (!defined($displayname)) {$displayname="Mozilla";}

 if (!defined($appversion)) {$appversion=$milestone;}

 if (!defined($depth)) {$depth=".";}

 if (!defined($rcinclude)) {$rcinclude="";}

 if (!defined($objdir)) {$objdir=".";}

 if (!defined($srcdir)) {$srcdir=".";}

 if (!defined($topsrcdir)) {$topsrcdir=".";}

 my $mfversion = "Personal";

 my $mpversion = "Personal";

 my @fileflags = ("0");

 my $comment="";

 my $description="";

 if (!defined($module))

 {

 	$module = $binary;

 	($module) = split(/\./,$module);

 }

 my $bufferstr="    ";

 my $MILESTONE_FILE = "$topsrcdir/config/milestone.txt";

 my $BUILDID_FILE = "$depth/config/buildid";

 #Read module.ver file

 #Version file overrides for WIN32:

 #WIN32_MODULE_COMMENT

 #WIN32_MODULE_DESCRIPTION

 #WIN32_MODULE_FILEVERSION

 #WIN32_MODULE_COMPANYNAME

 #WIN32_MODULE_FILEVERSION_STRING

 #WIN32_MODULE_NAME

 #WIN32_MODULE_COPYRIGHT

 #WIN32_MODULE_TRADEMARKS

 #WIN32_MODULE_ORIGINAL_FILENAME

 #WIN32_MODULE_PRODUCTNAME

 #WIN32_MODULE_PRODUCTVERSION

 #WIN32_MODULE_PRODUCTVERSION_STRING

 #Override values obtained from the .ver file

 my $override_comment;

 my $override_description;

 my $override_fileversion;

 my $override_company;

 my $override_mfversion;

 my $override_module;

 my $override_copyright;

 my $override_trademarks;

 my $override_filename;

 my $override_productname;

 my $override_productversion;

 my $override_mpversion;

 if (open(VERFILE, "<$srcdir/module.ver")) 

 {

 	my ($a,$b) = getNextEntry();

 	while (defined($a))

 	{

 		if ($a eq "WIN32_MODULE_COMMENT") { $override_comment = $b; }

 		if ($a eq "WIN32_MODULE_DESCRIPTION") { $override_description = $b; }

 		if ($a eq "WIN32_MODULE_FILEVERSION") { $override_fileversion = $b; }

 		if ($a eq "WIN32_MODULE_COMPANYNAME") { $override_company = $b; }

 		if ($a eq "WIN32_MODULE_FILEVERSION_STRING") { $override_mfversion = $b; }

 		if ($a eq "WIN32_MODULE_NAME") { $override_module = $b; }

 		if ($a eq "WIN32_MODULE_COPYRIGHT") { $override_copyright = $b; }

 		if ($a eq "WIN32_MODULE_TRADEMARKS") { $override_trademarks = $b; }

 		if ($a eq "WIN32_MODULE_ORIGINAL_FILENAME") { $override_filename = $b; }

 		if ($a eq "WIN32_MODULE_PRODUCTNAME") { $override_productname = $b; }

 		if ($a eq "WIN32_MODULE_PRODUCTVERSION") { $override_productversion = $b; }

 		if ($a eq "WIN32_MODULE_PRODUCTVERSION_STRING") { $override_mpversion = $b; }

 		($a,$b) = getNextEntry();

 	}

 	close(VERFILE)

 }

 else

 {

 	if (!$quiet || $quiet ne "1") { print "$bufferstr" . "WARNING: No module.ver file included ($module, $binary). Default values used\n"; }

 }

 #Get rid of trailing and leading whitespace

 $debug =~ s/^\s*(.*)\s*$/$1/;

 $comment =~ s/^\s*(.*)\s*$/$1/;

 $official =~ s/^\s*(.*)\s*$/$1/;

 $milestone =~ s/^\s*(.*)\s*$/$1/;

 $description =~ s/^\s*(.*)\s*$/$1/;

 $module =~ s/^\s*(.*)\s*$/$1/;

 $depth =~ s/^\s*(.*)\s*$/$1/;

 $binary =~ s/^\s*(.*)\s*$/$1/;

 $displayname =~ s/^\s*(.*)\s*$/$1/;

 open(BUILDID, "<", $BUILDID_FILE) || die("Couldn't open buildid file: $BUILDID_FILE");

 $buildid = <BUILDID>;

 $buildid =~ s/\s*$//;

 close BUILDID;

 my $daycount = daysFromBuildID($buildid);

 if ($milestone eq "") {

     $milestone = Moz::Milestone::getOfficialMilestone($MILESTONE_FILE);

 }

 $mfversion = $mpversion = $milestone;

 if ($appversion eq "") {

   $appversion = $milestone;

 }

 if ($debug eq "1")

 {

 	push @fileflags, "VS_FF_DEBUG";

 	$mpversion .= " Debug";

 	$mfversion .= " Debug";

 }

 if ($official ne "1") {

     push @fileflags, "VS_FF_PRIVATEBUILD";

 }

 if ($milestone =~ /[a-z]/) {

     push @fileflags, "VS_FF_PRERELEASE";

 }

 my @mstone = split(/\./,$milestone);

 $mstone[1] =~s/\D.*$//;

 if (!$mstone[2]) {

     $mstone[2] = "0";

 }

 else {

     $mstone[2] =~s/\D.*$//;

 }

 $fileversion = $productversion="$mstone[0],$mstone[1],$mstone[2],$daycount";

 my @appver = split(/\./,$appversion);

 for ($j = 1; $j < 4; $j++)

 {

     if (!$appver[$j]) {

         $appver[$j] = "0";

     }

     else {

         $appver[$j] =~s/\D.*$//;

     }

 }

 my $winappversion = "$appver[0],$appver[1],$appver[2],$appver[3]";

 my $copyright = "License: MPL 2";

 my $company = "Mozilla Foundation";

 my $trademarks = "Mozilla";

 my $productname = $displayname;

 if (defined($override_comment)){$override_comment =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $comment=$override_comment;}

 if (defined($override_description)){$override_description =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $description=$override_description;}

 if (defined($override_fileversion)){$override_fileversion =~ s/\@MOZ_APP_WINVERSION\@/$winappversion/g; $fileversion=$override_fileversion;}

 if (defined($override_mfversion)){$override_mfversion =~ s/\@MOZ_APP_VERSION\@/$appversion/g; $mfversion=$override_mfversion;}

 if (defined($override_company)){$company=$override_company;}

 if (defined($override_module)){$override_module =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $module=$override_module;}

 if (defined($override_copyright)){$override_copyright =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $copyright=$override_copyright;}

 if (defined($override_trademarks)){$override_trademarks =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $trademarks=$override_trademarks;}

 if (defined($override_filename)){$binary=$override_filename;}

 if (defined($override_productname)){$override_productname =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g; $productname=$override_productname;}

 if (defined($override_productversion)){$override_productversion =~ s/\@MOZ_APP_WINVERSION\@/$winappversion/g; $productversion=$override_productversion;}

 if (defined($override_mpversion)){$override_mpversion =~ s/\@MOZ_APP_VERSION\@/$appversion/g; $mpversion=$override_mpversion;}

 #Override section

 open(RCFILE, ">$objdir/module.rc") || die("Can't edit module.rc - It must be locked.\n");

 print RCFILE qq{

 // This Source Code Form is subject to the terms of the Mozilla Public

 // License, v. 2.0. If a copy of the MPL was not distributed with this

 // file, You can obtain one at http://mozilla.org/MPL/2.0/.

 #include<winver.h>

 // Note: if you contain versioning information in an included 

 // RC script, it will be discarded

 // Use module.ver to explicitly set these values

 // Do not edit this file. Changes won't affect the build.

 };

 my $versionlevel=0;

 my $insideversion=0;

 if (open(RCINCLUDE, "<$rcinclude")) 

 {

 	print RCFILE "// From included resource $rcinclude\n";

 #	my $mstring="";

 	while (<RCINCLUDE>) 

 	{

 		$_ =~ s/\@MOZ_APP_DISPLAYNAME\@/$displayname/g;

 		print RCFILE $_;

 #		my $instr=$_;

 #		chomp($instr);

 #		$mstring .= "$instr\;";

 	}

 	close(RCINCLUDE);

 #	$mstring =~ s/\/\*.*\*\///g;

 #	my @mlines = split(/\;/,$mstring);

 #	for(@mlines)

 #	{

 #		my ($nocomment)=split(/\/\//,$_);

 #		if (defined($nocomment) && $nocomment ne "")

 #		{

 #			my ($firststring,$secondstring) = split(/\s+/,$nocomment);

 #			if (!defined($firststring)) {$firststring="";}

 #			if (!defined($secondstring)) {$secondstring="";}

 #			if ($secondstring eq "VERSIONINFO") 

 #			{

 #if (!$quiet || $quiet ne "1") { 

 #				print "$bufferstr" . "WARNING: Included RC file ($rcinclude, $module, $binary)\n";

 #				print "$bufferstr" . "WARNING: contains versioning information that will be discarded\n";

 #				print "$bufferstr" . "WARNING: Remove it and use relevant overrides (in module.ver)\n";

 #}

 #				$versionlevel = 0;

 #				$insideversion = 1; 

 #			}

 #			if ($firststring eq "BEGIN") { $versionlevel++; }

 #			if ($secondstring eq "END") 

 #			{ 

 #				$versionlevel--; 

 #				if ($insideversion==1 && $versionlevel==0) {$versionlevel=0;}

 #			}

 #			my $includecheck = $firststring . $secondstring;

 #			$includecheck =~ s/<|>/"/g;

 #			$includecheck = lc($includecheck);

 #			if ($includecheck ne "#include\"winver.h\"")

 #			{

 #				if ($insideversion == 0 && $versionlevel == 0)

 #				{

 #					print RCFILE "$nocomment\n";	

 #				}

 #			}

 #		}

 #	}

 }

 my $fileflags = join(' | ', @fileflags);

 print RCFILE qq{

 /////////////////////////////////////////////////////////////////////////////

 //

 // Version

 //

 1 VERSIONINFO

  FILEVERSION    $fileversion

  PRODUCTVERSION $productversion

  FILEFLAGSMASK 0x3fL

  FILEFLAGS $fileflags

  FILEOS VOS__WINDOWS32

  FILETYPE VFT_DLL

  FILESUBTYPE 0x0L

 BEGIN

     BLOCK "StringFileInfo"

     BEGIN

         BLOCK "000004b0"

         BEGIN

             VALUE "Comments", "$comment"

             VALUE "LegalCopyright", "$copyright"

             VALUE "CompanyName", "$company"

             VALUE "FileDescription", "$description"

             VALUE "FileVersion", "$mfversion"

             VALUE "ProductVersion", "$mpversion"

             VALUE "InternalName", "$module"

             VALUE "LegalTrademarks", "$trademarks"

             VALUE "OriginalFilename", "$binary"

             VALUE "ProductName", "$productname"

             VALUE "BuildID", "$buildid"

         END

     END

     BLOCK "VarFileInfo"

     BEGIN

         VALUE "Translation", 0x0, 1200

     END

 END

 };

 close(RCFILE);