kamp/RetroZilla
1
0
Fork 0
mirror of https://github.com/rn10950/RetroZilla.git synced 2024-11-09 09:20:15 +01:00
Code Issues Packages Projects Releases Wiki Activity
9ff0b9c0a2
RetroZilla/xpinstall/packager/win_gre/makeall.pl
Ryan Nematz 2f2ae146c0 first commit
2015-10-20 23:03:22 -04:00

606 lines
20 KiB
Perl
Raw Blame History

#!c:\perl\bin\perl
#
# ***** BEGIN LICENSE BLOCK *****
# Version: MPL 1.1/GPL 2.0/LGPL 2.1
#
# The contents of this file are subject to the Mozilla Public License Version
# 1.1 (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
# http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS IS" basis,
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
# for the specific language governing rights and limitations under the
# License.
#
# The Original Code is Mozilla Communicator client code, released
# March 31, 1998.
#
# The Initial Developer of the Original Code is
# Netscape Communications Corporation.
# Portions created by the Initial Developer are Copyright (C) 1998-1999
# the Initial Developer. All Rights Reserved.
#
# Contributor(s):
# Sean Su <ssu@netscape.com>
#
# Alternatively, the contents of this file may be used under the terms of
# either of the GNU General Public License Version 2 or later (the "GPL"),
# or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
# in which case the provisions of the GPL or the LGPL are applicable instead
# of those above. If you wish to allow use of your version of this file only
# under the terms of either the GPL or the LGPL, and not to allow others to
# use your version of this file under the terms of the MPL, indicate your
# decision by deleting the provisions above and replace them with the notice
# and other provisions required by the GPL or the LGPL. If you do not delete
# the provisions above, a recipient may use your version of this file under
# the terms of any one of the MPL, the GPL or the LGPL.
#
# ***** END LICENSE BLOCK *****
#
# This perl script builds the xpi, config.ini, and js files.
#
use Cwd;
use File::Copy;
use File::Path;
use File::Basename;
$DEPTH = "../../..";
$topsrcdir = GetTopSrcDir();
push(@INC, "$topsrcdir/xpinstall/packager");
require StageUtils;
require "$topsrcdir/config/zipcfunc.pl";
ParseArgv(@ARGV);
$topobjdir = $topsrcdir if !defined($topobjdir);
$inStagePath = "$topobjdir/stage" if !defined($inStagePath);
$inDistPath = "$topobjdir/dist" if !defined($inDistPath);
$inXpiURL = "ftp://not.supplied.invalid" if !defined($inXpiURL);
$inRedirIniURL = $inXpiURL if !defined($inRedirIniURL);
if(defined($ENV{DEBUG_INSTALLER_BUILD}))
{
print " win_gre/makeall.pl\n";
print " topobjdir: $topobjdir\n";
print " topsrcdir: $topsrcdir\n";
print " inStagePath: $inStagePath\n";
print " inDistPath : $inDistPath\n";
}
$gDefaultProductVersion = StageUtils::GetProductY2KVersion($topobjdir, $topsrcdir, $topsrcdir);
print "\n";
print " Building GRE\n";
print " Raw version id : $gDefaultProductVersion\n";
# $gDefaultProductVersion has the form maj.min.release.bld where maj, min, release
# and bld are numerics representing version information.
# Other variables need to use parts of the version info also so we'll
# split out the dot separated values into the array @versionParts
# such that:
#
# $versionParts[0] = maj
# $versionParts[1] = min
# $versionParts[2] = release
# $versionParts[3] = bld
@versionParts = split /\./, $gDefaultProductVersion;
# We allow non-numeric characters to be included as the last
# characters in fields of $gDefaultProductVersion for display purposes (mostly to
# show that we have moved past a certain version by adding a '+'
# character). Non-numerics must be stripped out of $gDefaultProductVersion,
# however, since this variable is used to identify the the product
# for comparison with other installations, so the values in each field
# must be numeric only:
$gDefaultProductVersion =~ s/[^0-9.][^.]*//g;
# set environment vars for use by other .pl scripts called from this script.
if($versionParts[2] eq "0")
{
$versionMain = "$versionParts[0].$versionParts[1]";
}
else
{
$versionMain = "$versionParts[0].$versionParts[1].$versionParts[2]";
}
print " Display version : $versionMain\n";
print " Xpinstall version: $gDefaultProductVersion\n";
print "\n";
$gDirPackager = "$topsrcdir/xpinstall/packager";
$gDirDistInstall = "$inDistPath/inst_gre";
$gDirStageProduct = "$inStagePath/gre";
# Create the stage area here.
# If -sd is not used, the default stage dir will be: $topobjdir/stage
if(system("perl \"$gDirPackager/make_stage.pl\" -pn gre -os win -sd \"$inStagePath\" -dd \"$inDistPath\""))
{
die "\n Error: perl \"$gDirPackager/make_stage.pl\" -pn gre -os win -sd \"$inStagePath\" -dd \"$inDistPath\"\n";
}
$seiFileNameGeneric = "nsinstall.exe";
$seiFileNameSpecific = "gre-win32-installer.exe";
$seiStubRootName = "gre-win32-stub-installer";
$seiFileNameSpecificStub = "$seiStubRootName.exe";
$seuFileNameSpecific = "GREUninstall.exe";
$seuzFileNameSpecific = "greuninstall.zip";
$ENV{WIZ_nameCompany} = "mozilla.org";
$ENV{WIZ_nameProduct} = "GRE";
$ENV{WIZ_nameProductInternal} = "GRE"; # product name without the version string
$ENV{WIZ_fileMainExe} = "none.exe";
$ENV{WIZ_fileUninstall} = $seuFileNameSpecific;
$ENV{WIZ_fileUninstallZip} = $seuzFileNameSpecific;
# The following variables are for displaying version info in the
# the installer.
$ENV{WIZ_userAgent} = "$versionMain";
# userAgentShort just means it does not have the language string.
# ie: '1.3b' as opposed to '1.3b (en)'
$ENV{WIZ_userAgentShort} = "$versionMain";
$ENV{WIZ_xpinstallVersion} = "$gDefaultProductVersion";
$ENV{WIZ_distInstallPath} = "$gDirDistInstall";
if(defined($ENV{DEBUG_INSTALLER_BUILD}))
{
print " back in win_gre/makeall.pl\n";
print " inStagePath: $inStagePath\n";
print " inDistPath : $inDistPath\n";
}
# GetProductBuildID() will return the build id for GRE located here:
# NS_BUILD_ID in nsBuildID.h: 2003030610
$ENV{WIZ_greBuildID} = StageUtils::GetProductBuildID("$topobjdir/dist/include/nsBuildID.h", "NS_BUILD_ID");
# GetGreFileVersion() will return the actual version of xpcom.dll used by GRE.
# ie:
# given milestone.txt : 1.4a
# given nsBuildID.h : 2003030610
# gre version would be: 1.4.20030.30610
$ENV{WIZ_greFileVersion} = StageUtils::GetGreFileVersion($topobjdir, $topsrcdir);
# GetGreSpecialID() will return the GRE ID to be used in the windows registry.
# This ID is also the same one being querried for by the mozilla glue code.
# ie:
# given milestone.txt : 1.4a
# given nsBuildID.h : 2003030610
# gre special ID would be: 1.4a_2003030610
$ENV{WIZ_greUniqueID} = StageUtils::GetGreSpecialID($topobjdir);
print "\n";
print " GRE build id : $ENV{WIZ_greBuildID}\n";
print " GRE file version : $ENV{WIZ_greFileVersion}\n";
print " GRE special version: $ENV{WIZ_greUniqueID}\n";
print "\n";
print " Building $ENV{WIZ_nameProduct} $ENV{WIZ_userAgent}...\n";
print "\n";
# Check for existence of staging path
if(!(-d "$gDirStageProduct"))
{
die "\n Invalid path: $gDirStageProduct\n";
}
# List of components for to create xpi files from
@gComponentList = ("xpcom",
"gre");
if(VerifyComponents()) # return value of 0 means no errors encountered
{
exit(1);
}
# Make sure gDirDistInstall exists
if(!(-d "$gDirDistInstall"))
{
mkdir ("$gDirDistInstall",0775);
}
if(-d "$gDirDistInstall/xpi")
{
unlink <$gDirDistInstall/xpi/*>;
}
else
{
mkdir ("$gDirDistInstall/xpi",0775);
}
if(-d "$gDirDistInstall/uninstall")
{
unlink <$gDirDistInstall/uninstall/*>;
}
else
{
mkdir ("$gDirDistInstall/uninstall",0775);
}
if(-d "$gDirDistInstall/setup")
{
unlink <$gDirDistInstall/setup/*>;
}
else
{
mkdir ("$gDirDistInstall/setup",0775);
}
copy("$gDirDistInstall/../install/ds32.exe", "$gDirDistInstall") ||
die "copy $gDirDistInstall/../install/ds32.exe $gDirDistInstall: $!\n";
if(MakeXpiFile())
{
exit(1);
}
if(MakeUninstall())
{
exit(1);
}
if(MakeConfigFile())
{
exit(1);
}
# Copy the setup files to the dist setup directory.
copy("install.ini", "$gDirDistInstall") ||
die "copy install.ini $gDirDistInstall: $!\n";
#Get setup.exe from mozilla install
copy("$gDirDistInstall/../install/setup.exe", "$gDirDistInstall") ||
die "copy $gDirDistInstall/../install/setup.exe $gDirDistInstall: $!\n";
# Get resource file from mozilla install
copy("$gDirDistInstall/../install/setuprsc.dll", "$gDirDistInstall") ||
die "copy $gDirDistInstall/../install/setuprsc.dll $gDirDistInstall: $!\n";
copy("install.ini", "$gDirDistInstall/setup") ||
die "copy install.ini $gDirDistInstall/setup: $!\n";
copy("config.ini", "$gDirDistInstall") ||
die "copy config.ini $gDirDistInstall: $!\n";
copy("config.ini", "$gDirDistInstall/setup") ||
die "copy config.ini $gDirDistInstall/setup\n";
copy("$gDirDistInstall/setup.exe", "$gDirDistInstall/setup") ||
die "copy $gDirDistInstall/setup.exe $gDirDistInstall/setup: $!\n";
copy("$gDirDistInstall/setuprsc.dll", "$gDirDistInstall/setup") ||
die "copy $gDirDistInstall/setuprsc.dll $gDirDistInstall/setup: $!\n";
# copy license file for the installer
copy("$topsrcdir/LICENSE", "$gDirDistInstall/license.txt") ||
die "copy $topsrcdir/LICENSE $gDirDistInstall/license.txt: $!\n";
copy("$topsrcdir/LICENSE", "$gDirDistInstall/setup/license.txt") ||
die "copy $topsrcdir/LICENSE $gDirDistInstall/setup/license.txt: $!\n";
# create the self extracting stub installer
print "\n**************************************************************\n";
print "* *\n";
print "* creating Self Extracting Executable Stub Install file... *\n";
print "* *\n";
print "**************************************************************\n";
print "\n $gDirDistInstall/$seiFileNameSpecificStub\n";
# build the self-extracting .exe (installer) file.
copy("$gDirDistInstall/../install/$seiFileNameGeneric", "$gDirDistInstall/$seiFileNameSpecificStub") ||
die "copy $gDirDistInstall/../install/$seiFileNameGeneric $gDirDistInstall/$seiFileNameSpecificStub: $!\n";
if(system("$gDirDistInstall/../install/nsztool.exe $gDirDistInstall/$seiFileNameSpecificStub $gDirDistInstall/setup/*.*"))
{
die "\n Error: $gDirDistInstall/../install/nsztool.exe $gDirDistInstall/$seiFileNameSpecificStub $gDirDistInstall/setup/*.*\n";
}
# copy the lean installer to stub\ dir
print "\n****************************\n";
print "* *\n";
print "* copying Stub files... *\n";
print "* *\n";
print "****************************\n";
print "\n $gDirDistInstall/stub/$seiFileNameSpecificStub\n";
if(-d "$gDirDistInstall/stub")
{
unlink <$gDirDistInstall/stub/*>;
}
else
{
mkdir ("$gDirDistInstall/stub",0775);
}
copy("$gDirDistInstall/$seiFileNameSpecificStub", "$gDirDistInstall/stub") ||
die "copy $gDirDistInstall/$seiFileNameSpecificStub $gDirDistInstall/stub: $!\n";
# create the big self extracting .exe installer
print "\n**************************************************************\n";
print "* *\n";
print "* creating Self Extracting Executable Full Install file... *\n";
print "* *\n";
print "**************************************************************\n";
print "\n $gDirDistInstall/$seiFileNameSpecific\n";
if(-d "$gDirDistInstall/sea")
{
unlink <$gDirDistInstall/sea/*>;
}
else
{
mkdir ("$gDirDistInstall/sea",0775);
}
copy("$gDirDistInstall/../install/$seiFileNameGeneric", "$gDirDistInstall/$seiFileNameSpecific") ||
die "copy $gDirDistInstall/$seiFileNameGeneric $gDirDistInstall/$seiFileNameSpecific: $!\n";
if(system("$gDirDistInstall/../install/nsztool.exe $gDirDistInstall/$seiFileNameSpecific $gDirDistInstall/setup/*.* $gDirDistInstall/xpi/*.*"))
{
die "\n Error: $gDirDistInstall/../install/nsztool.exe $gDirDistInstall/$seiFileNameSpecific $gDirDistInstall/setup/*.* $gDirDistInstall/xpi/*.*\n";
}
copy("$gDirDistInstall/$seiFileNameSpecific", "$gDirDistInstall/sea") ||
die "copy $gDirDistInstall/$seiFileNameSpecific $gDirDistInstall/sea: $!\n";
unlink <$gDirDistInstall/$seiFileNameSpecificStub>;
print " done!\n\n";
exit(0);
sub MakeExeZip
{
my($aSrcDir, $aExeFile, $aZipFile) = @_;
my($saveCwdir);
$saveCwdir = cwd();
chdir($aSrcDir);
if(system("zip $gDirDistInstall/xpi/$aZipFile $aExeFile"))
{
chdir($saveCwdir);
die "\n Error: zip $gDirDistInstall/xpi/$aZipFile $aExeFile";
}
chdir($saveCwdir);
}
sub PrintUsage
{
die "usage: $0 [options]
options include:
-productVer <ver string> : Version of the product. By default it will acquire the
version listed in mozilla/config/milestone.txt file.
ie: 1.4a.0.0
-stagePath <staging path> : Full path to where the GRE components are staged at
Default path, if one is not set, is:
[mozilla]/stage
-distPath <dist path> : Full path to where the GRE dist dir is at.
Default path, if one is not set, is:
[mozilla]/dist
-aurl <archive url> : either ftp:// or http:// url to where the
archives (.xpi, .exe, .zip, etc...) reside
-rurl <redirect.ini url> : either ftp:// or http:// url to where the
redirec.ini resides. If not supplied, it
will be assumed to be the same as archive
url.
\n";
}
sub ParseArgv
{
my(@myArgv) = @_;
my($counter);
for($counter = 0; $counter <= $#myArgv; $counter++)
{
if($myArgv[$counter] =~ /^[-,\/]h$/i)
{
PrintUsage();
}
elsif($myArgv[$counter] =~ /^[-,\/]objDir$/i)
{
if($#myArgv >= ($counter + 1))
{
++$counter;
$topobjdir = $myArgv[$counter];
$topobjdir =~ s/\\/\//g;
}
}
elsif($myArgv[$counter] =~ /^[-,\/]stagePath$/i)
{
if($#myArgv >= ($counter + 1))
{
++$counter;
$inStagePath = $myArgv[$counter];
$inStagePath =~ s/\\/\//g;
}
}
elsif($myArgv[$counter] =~ /^[-,\/]distPath$/i)
{
if($#myArgv >= ($counter + 1))
{
++$counter;
$inDistPath = $myArgv[$counter];
$inDistPath =~ s/\\/\//g;
}
}
elsif($myArgv[$counter] =~ /^[-,\/]aurl$/i)
{
if($#myArgv >= ($counter + 1))
{
++$counter;
$inXpiURL = $myArgv[$counter];
$inRedirIniURL = $inXpiURL;
}
}
elsif($myArgv[$counter] =~ /^[-,\/]rurl$/i)
{
if($#myArgv >= ($counter + 1))
{
++$counter;
$inRedirIniURL = $myArgv[$counter];
}
}
}
}
sub MakeConfigFile
{
chdir("$gDirPackager/win_gre");
# Make config.ini file
if(system("perl makecfgini.pl config.it $gDefaultProductVersion $gDirStageProduct $gDirDistInstall/xpi $inRedirIniURL $inXpiURL"))
{
print "\n Error: perl makecfgini.pl config.it $gDefaultProductVersion $gDirStageProduct $gDirDistInstall/xpi $inRedirIniURL $inXpiURL\n";
return(1);
}
# Make install.ini file
if(system("perl makecfgini.pl install.it $gDefaultProductVersion $gDirStageProduct $gDirDistInstall/xpi $inRedirIniURL $inXpiURL"))
{
print "\n Error: perl makecfgini.pl install.it $gDefaultProductVersion $gDirStageProduct $gDirDistInstall/xpi $inRedirIniURL $inXpiURL\n";
return(1);
}
return(0);
}
sub MakeUninstall
{
chdir("$gDirPackager/win_gre");
if(MakeUninstallIniFile())
{
return(1);
}
# Copy the uninstall files to the dist uninstall directory.
copy("uninstall.ini", "$gDirDistInstall") ||
die "copy uninstall.ini $gDirDistInstall: $!\n";
copy("uninstall.ini", "$gDirDistInstall/uninstall") ||
die "copy uninstall.ini $gDirDistInstall/uninstall: $!\n";
copy("defaults_info.ini", "$gDirDistInstall") ||
die "copy defaults_info.ini $gDirDistInstall: $!\n";
copy("defaults_info.ini", "$gDirDistInstall/uninstall") ||
die "copy defaults_info.ini $gDirDistInstall/uninstall: $!\n";
# Get uninstaller from mozilla install
copy("$gDirDistInstall/../install/uninstall.exe", "$gDirDistInstall") ||
die "copy $gDirDistInstall/../install/uninstall.exe $gDirDistInstall: $!\n";
copy("$gDirDistInstall/uninstall.exe", "$gDirDistInstall/uninstall") ||
die "copy $gDirDistInstall/uninstall.exe $gDirDistInstall/uninstall: $!\n";
# build the self-extracting .exe (uninstaller) file.
print "\nbuilding self-extracting uninstaller ($seuFileNameSpecific)...\n";
copy("$gDirDistInstall/../install/$seiFileNameGeneric", "$gDirDistInstall/$seuFileNameSpecific") ||
die "copy $gDirDistInstall/../install/$seiFileNameGeneric $gDirDistInstall/$seuFileNameSpecific: $!\n";
if(system("$gDirDistInstall/../install/nsztool.exe $gDirDistInstall/$seuFileNameSpecific $gDirDistInstall/uninstall/*.*"))
{
print "\n Error: $gDirDistInstall/../install/nsztool.exe $gDirDistInstall/$seuFileNameSpecific $gDirDistInstall/uninstall/*.*\n";
return(1);
}
MakeExeZip($gDirDistInstall, $seuFileNameSpecific, $seuzFileNameSpecific);
unlink <$gDirDistInstall/$seuFileNameSpecific>;
return(0);
}
sub MakeUninstallIniFile
{
# Make config.ini file
if(system("perl makeuninstallini.pl uninstall.it $gDefaultProductVersion"))
{
print "\n Error: perl makeuninstallini.pl uninstall.it $gDefaultProductVersion\n";
return(1);
}
return(0);
}
sub MakeJsFile
{
my($mComponent) = @_;
chdir("$gDirPackager/win_gre");
# Make .js file
if(system("perl makejs.pl $mComponent.jst $gDefaultProductVersion $gDirStageProduct/$mComponent"))
{
print "\n Error: perl makejs.pl $mComponent.jst $gDefaultProductVersion $gDirStageProduct/$mComponent\n";
return(1);
}
return(0);
}
sub MakeXpiFile
{
my($mComponent);
chdir("$gDirPackager/win_gre");
foreach $mComponent (@gComponentList)
{
if($mComponent =~ /xpcom/i)
{
# For now, just copy xpcom.jst from ...\packager\windows\xpcom.jst since they
# are exactly the same. Do not check in a copy of it into ...\packager\win_gre.
copy("$gDirPackager/windows/xpcom.jst", "$gDirPackager/win_gre") ||
die "copy(\"$gDirPackager/windows/xpcom.jst\", \"$gDirPackager/win_gre\"): $!\n";
}
# Make .js files
if(MakeJsFile($mComponent))
{
return(1);
}
# Make .xpi file
if(system("perl makexpi.pl $mComponent $gDirStageProduct $gDirDistInstall/xpi"))
{
print "\n Error: perl makexpi.pl $mComponent $gDirStageProduct $gDirDistInstall/xpi\n";
return(1);
}
# Put a copy of the xpi with he installer itself
copy("$gDirDistInstall/xpi/$mComponent.xpi", "$gDirDistInstall") ||
die "copy $gDirDistInstall/xpi/$mComponent.xpi $gDirDistInstall: $!\n";
}
return(0);
}
sub VerifyComponents()
{
my($mComponent);
my($mError) = 0;
print "\n Verifying existence of required components...\n";
foreach $mComponent (@gComponentList)
{
if($mComponent =~ /talkback/i)
{
print " place holder: $gDirStageProduct/$mComponent\n";
mkdir("$gDirStageProduct/$mComponent", 0775);
}
elsif(-d "$gDirStageProduct/$mComponent")
{
print " ok: $gDirStageProduct/$mComponent\n";
}
else
{
print " Error: $gDirStageProduct/$mComponent does not exist!\n";
$mError = 1;
}
}
print "\n";
return($mError);
}
sub GetTopSrcDir
{
my($rootDir) = dirname($0) . "/$DEPTH";
my($savedCwdDir) = cwd();
chdir($rootDir);
$rootDir = cwd();
chdir($savedCwdDir);
return($rootDir);
}
Reference in New Issue View Git Blame Copy Permalink