4
@EXPORT = qw(SetCfgVars, CopyExtraDistFiles, CreateFullInstaller);
9
print"What is going on here?\n";
10
$::ProdDir = "$::DEPTH\\xpinstall\\packager\\build\\win\\mozilla";
11
$::XPI_JST_Dir = "$::ProdDir\\XPI_JSTs";
12
$::StubInstJstDir = "$::ProdDir\\StubInstJst";
13
# $cwdBuilder = "$::DEPTH\\xpinstall\\wizard\\windows\\builder";
14
# $cwdDistWin = GetCwd("distwin", $::DEPTH, $cwdBuilder);
15
$::inStagePath = "$::DEPTH\\stage";
16
$::inDistPath = "$::DEPTH\\dist\\installer\\mozilla";
18
$::seiFileNameGeneric = "nsinstall.exe";
19
$::seiFileNameSpecific = "mozilla-win32-installer.exe";
20
$::seiStubRootName = "mozilla-win32-stub-installer";
21
$::seiFileNameSpecificStub = "$::seiStubRootName.exe";
22
$::sebiFileNameSpecific = ""; # filename for the big blob installer
23
$::seuFileNameSpecific = "MozillaUninstall.exe";
24
$::seuzFileNameSpecific = "mozillauninstall.zip";
25
$::versionLanguage = "en";
26
$::seiBetaRelease = "";
28
# set environment vars for use by other .pl scripts called from this script.
29
$ENV{WIZ_nameCompany} = "mozilla.org";
30
$ENV{WIZ_nameProduct} = "Mozilla";
31
$ENV{WIZ_nameProductInternal} = "Mozilla";
32
$ENV{WIZ_nameProductNoVersion} = "Mozilla";
33
$ENV{WIZ_fileMainExe} = "Mozilla.exe";
34
$ENV{WIZ_fileUninstall} = $::seuFileNameSpecific;
35
$ENV{WIZ_fileUninstallZip} = $::seuzFileNameSpecific;
36
$ENV{WIZ_descShortcut} = "";
42
print "\nNo Getting Started actions required for this product\n";
47
print "\n Don't need prep the dist area for this product \n";
52
print "\n Don't need to create any Self-extracting zip files for this product \n";
55
sub CopyExtraDistFiles
57
# copy license file for the installer
58
if(system("copy $ENV{MOZ_SRC}\\mozilla\\LICENSE $::inDistPath\\license.txt"))
60
die "\n Error: copy $ENV{MOZ_SRC}\\mozilla\\LICENSE $::inDistPath\\license.txt\n";
62
if(system("copy $ENV{MOZ_SRC}\\mozilla\\LICENSE $::inDistPath\\setup\\license.txt"))
64
die "\n Error: copy $ENV{MOZ_SRC}\\mozilla\\LICENSE $::inDistPath\\setup\\license.txt\n";
68
sub CreateFullInstaller()
70
# create the big self extracting .exe installer
71
print "\n**************************************************************\n";
73
print "* creating Self Extracting Executable Full Install file... *\n";
75
print "**************************************************************\n";
76
if(-d "$::inDistPath\\sea")
78
unlink <$::inDistPath\\sea\\*>;
82
mkdir ("$::inDistPath\\sea",0775);
84
if(system("copy $::inDistPath\\$::seiFileNameGeneric $::inDistPath\\$::seiFileNameSpecific"))
86
die "\n Error: copy $::inDistPath\\$::seiFileNameGeneric $::inDistPath\\$::seiFileNameSpecific\n";
88
if(system("$::inDistPath\\nsztool.exe $::inDistPath\\$::seiFileNameSpecific $::inDistPath\\setup\\*.* $::inDistPath\\xpi\\*.*"))
90
die "\n Error: $::inDistPath\\nsztool.exe $::inDistPath\\$::seiFileNameSpecific $::inDistPath\\setup\\*.* $::inDistPath\\xpi\\*.*\n";
92
if(system("copy $::inDistPath\\$::seiFileNameSpecific $::inDistPath\\sea"))
94
die "\n Error: copy $::inDistPath\\$::seiFileNameSpecific $::inDistPath\\sea\n";
96
unlink <$::inDistPath\\$::seiFileNameSpecificStub>;
103
if((!(-e "$ENV{MOZ_SRC}\\redist\\microsoft\\system\\msvcrt.dll")) ||
104
(!(-e "$ENV{MOZ_SRC}\\redist\\microsoft\\system\\msvcirt.dll")))
108
print "** The following required Microsoft redistributable system files were not found\n";
109
print "** in $ENV{MOZ_SRC}\\redist\\microsoft\\system:\n";
111
if(!(-e "$ENV{MOZ_SRC}\\redist\\microsoft\\system\\msvcrt.dll"))
113
print "** msvcrt.dll\n";
115
if(!(-e "$ENV{MOZ_SRC}\\redist\\microsoft\\system\\msvcirt.dll"))
117
print "** msvcirt.dll\n";
120
print "** The above files are required by the installer and the browser. If you attempt\n";
121
print "** to run the installer, you may encounter the following bug:\n";
123
print "** http://bugzilla.mozilla.org/show_bug.cgi?id=27601\n";