toolkit/mozapps/installer/build_static.pl

   1 #!/usr/bin/perl
   2 #
   3 # ***** BEGIN LICENSE BLOCK *****
   4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
   5 #
   6 # The contents of this file are subject to the Mozilla Public License Version
   7 # 1.1 (the "License"); you may not use this file except in compliance with
   8 # the License. You may obtain a copy of the License at
   9 # http://www.mozilla.org/MPL/
  10 #
  11 # Software distributed under the License is distributed on an "AS IS" basis,
  12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  13 # for the specific language governing rights and limitations under the
  14 # License.
  15 #
  16 # The Original Code is mozilla.org code.
  17 #
  18 # The Initial Developer of the Original Code is
  19 # Netscape Communications Corporation.
  20 # Portions created by the Initial Developer are Copyright (C) 1999
  21 # the Initial Developer. All Rights Reserved.
  22 #
  23 # Contributor(s):
  24 #   Samir Gehani <sgehani@netscape.com>
  25 #
  26 # Alternatively, the contents of this file may be used under the terms of
  27 # either the GNU General Public License Version 2 or later (the "GPL"), or
  28 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  29 # in which case the provisions of the GPL or the LGPL are applicable instead
  30 # of those above. If you wish to allow use of your version of this file only
  31 # under the terms of either the GPL or the LGPL, and not to allow others to
  32 # use your version of this file under the terms of the MPL, indicate your
  33 # decision by deleting the provisions above and replace them with the notice
  34 # and other provisions required by the GPL or the LGPL. If you do not delete
  35 # the provisions above, a recipient may use your version of this file under
  36 # the terms of any one of the MPL, the GPL or the LGPL.
  37 #
  38 # ***** END LICENSE BLOCK *****
  39
  40 #==============================================================================
  41 # usage: perl deliver.pl version URLPath stubName blobName buildWizard
  42 # e.g.   perl deliver.pl 5.0.0.1 ftp://foo/ mozilla-installer mozilla-installer
  43 #
  44 # Delivers the stub and blob installers to mozilla/installer/stub
  45 # and mozilla/installer/sea, respectively.  Also, delivers the .xpis
  46 # to mozilla/installer/raw/xpi.
  47 #
  48 # NOTE:
  49 # -----
  50 #   * all args are optional
  51 #   * version is used by xpinstall and needs to bumped every build
  52 #   * URLPath must have a trailing slash
  53 #   * if you are not building a release version no need to pass any args
  54 #   * pass in "buildwizard" as the last arg to build the wizard too
  55 #   * you must be in deliver.pl's dir when calling it since it assumes DEPTH
  56 #==============================================================================
  57
  58 use Cwd;
  59 use File::Path;
  60 use File::Basename;
  61
  62 $inXpiURL = "";
  63 $inRedirIniURL = "";
  64 $inConfigFiles = "";
  65 $inSrcDir = "";
  66 $inObjDir = "";
  67
  68 ParseArgv(@ARGV);
  69 if ($inXpiURL eq "")
  70 {
  71   # archive url not supplied, set it to default values
  72     $inXpiURL      = "ftp://not.supplied.invalid";
  73     print "Warning: Remote XPI URL not set. Using $inXpiURL instead!\n";
  74 }
  75 if($inRedirIniURL eq "")
  76 {
  77   # redirect url not supplied, set it to default value.
  78     $inRedirIniURL = $inXpiURL;
  79 }
  80 if($inConfigFiles eq "")
  81 {
  82   print "Error: Packager Manifests and Install Script Location not supplied! Use -config\n";
  83   exit(1);
  84 }
  85 if ($inSrcDir eq "")
  86 {
  87     print "Error: Mozilla source directory must be specified with -srcDir\n";
  88     exit (1);
  89 }
  90 if ($inObjDir eq "")
  91 {
  92     print "Objdir not specified, using $inSrcDir\n";
  93     $inObjDir = $inSrcDir;
  94 }
  95
  96 $win32 = ($^O =~ / ((MS)?win32)|cygwin|os2/i) ? 1 : 0;
  97 if ($win32) {
  98     $platform = 'dos';
  99 } else {
 100     $platform = 'unix';
 101 }
 102
 103 # ensure that CFGParser.pm is in @INC, since we might not be called from
 104 # mozilla/toolkit/mozapps/installer
 105 my $top_path = $0;
 106 $top_path =~ s/\\/\//g if $win32;
 107 push(@INC, dirname($top_path));
 108
 109 require CFGParser;
 110 CFGParser::ParseInstallerCfg("$inConfigFiles/installer.cfg");
 111
 112 $STAGE  = "$inObjDir/stage";
 113 $DIST   = "$inObjDir/dist";
 114
 115 $verPartial = "5.0.0.";
 116 $ver        = $verPartial . GetVersion($inObjDir);
 117
 118 # Set up the stage directory
 119 if (-d $STAGE) {
 120     system("rm -rf $STAGE");
 121 }
 122
 123 mkdir($STAGE, 0775);
 124
 125 #-------------------------------------------------------------------------
 126 #   Make .xpis
 127 #-------------------------------------------------------------------------
 128 #// call pkgcp.pl
 129 chdir("$inSrcDir/xpinstall/packager");
 130 system("perl pkgcp.pl -o $platform -s $DIST -d $STAGE -f $inConfigFiles/$ENV{WIZ_packagesFile} -v") &&
 131   die "pkgcp.pl failed: $!";
 132 spew("Completed copying build files");
 133
 134 #// call xptlink.pl to make big .xpt files/component
 135 system("perl xptlink.pl -s $DIST -d $STAGE -v") &&
 136   die "xptlink.pl failed: $!";
 137 spew("Completed xptlinking");
 138
 139 #// call makeall.pl tunneling args (delivers .xpis to $inObjDir/installer/stage)
 140 chdir("$inSrcDir/toolkit/mozapps/installer");
 141 spew("perl makeall.pl $ver -config $inConfigFiles -aurl $inXpiURL -rurl $inRedirIniURL -objDir $inObjDir");
 142 system("perl makeall.pl $ver -config $inConfigFiles -aurl $inXpiURL -rurl $inRedirIniURL -objDir $inObjDir") &&
 143   die "makeall.pl failed: $!";
 144 spew("Completed making .xpis");
 145
 146 spew("Installers built (see $inObjDir/dist/install/{stub,sea})");
 147
 148
 149 #-------------------------------------------------------------------------
 150 #   Utilities
 151 #-------------------------------------------------------------------------
 152 sub spew
 153 {
 154     print "+++ deliver.pl: ".$_[0]."\n";
 155 }
 156
 157 sub copy
 158 {
 159     if (! -e $_[0])
 160     {
 161         die "--- deliver.pl: couldn't cp cause ".$_[0]." doesn't exist: $!";
 162     }
 163     system ("cp ".$_[0]." ".$_[1]);
 164 }
 165
 166 sub ParseArgv
 167 {
 168     my(@myArgv) = @_;
 169     my($counter);
 170
 171     for($counter = 0; $counter <= $#myArgv; $counter++)
 172     {
 173         if($myArgv[$counter] =~ /^[-,\/]h$/i)
 174         {
 175             PrintUsage();
 176         }
 177         elsif($myArgv[$counter] =~ /^[-,\/]aurl$/i)
 178         {
 179             if($#myArgv >= ($counter + 1))
 180             {
 181                 ++$counter;
 182                 $inXpiURL = $myArgv[$counter];
 183                 $inRedirIniURL = $inXpiURL;
 184             }
 185         }
 186         elsif($myArgv[$counter] =~ /^[-,\/]rurl$/i)
 187         {
 188             if($#myArgv >= ($counter + 1))
 189             {
 190                 ++$counter;
 191                 $inRedirIniURL = $myArgv[$counter];
 192             }
 193         }
 194         elsif($myArgv[$counter] =~ /^[-,\/]config$/i)
 195         {
 196             if ($#myArgv >= ($counter + 1))
 197             {
 198                 ++$counter;
 199                 $inConfigFiles = $myArgv[$counter];
 200             }
 201         }
 202         elsif($myArgv[$counter] =~ /^[-,\/]srcDir$/i)
 203         {
 204             if ($#myArgv >= ($counter + 1))
 205             {
 206                 ++$counter;
 207                 $inSrcDir = $myArgv[$counter];
 208             }
 209         }
 210         elsif($myArgv[$counter] =~ /^[-,\/]objDir$/i)
 211         {
 212             if ($#myArgv >= ($counter + 1))
 213             {
 214                 ++$counter;
 215                 $inObjDir = $myArgv[$counter];
 216             }
 217         }
 218     }
 219 }
 220
 221 sub GetVersion
 222 {
 223     my($depthPath) = @_;
 224     my($fileMozilla);
 225     my($fileMozillaVer);
 226     my($distWinPathName);
 227     my($monAdjusted);
 228     my($yy);
 229     my($mm);
 230     my($dd);
 231     my($hh);
 232
 233     $distWinPathName = "dist";
 234
 235     $fileMozilla = "$depthPath/$distWinPathName/$ENV{WIZ_distSubdir}/$ENV{WIZ_fileMainExe}";
 236
 237   # verify the existance of file
 238   if(!(-e "$fileMozilla"))
 239   {
 240       print "file not found: $fileMozilla\n";
 241       exit(1);
 242   }
 243
 244   ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime,
 245    $blksize, $blocks) = stat $fileMozilla;
 246   ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($mtime);
 247
 248   # calculate year
 249   # localtime() returns year 2000 as 100, we mod 100 to get at the last 2 digits
 250     $yy = $year % 100;
 251     $yy = "20" . sprintf("%.2d", $yy);
 252
 253   # calculate month
 254     $monAdjusted = $mon + 1;
 255     $mm = sprintf("%.2d", $monAdjusted);
 256
 257   # calculate month day
 258     $dd = sprintf("%.2d", $mday);
 259
 260   # calculate day hour
 261     $hh = sprintf("%.2d", $hour);
 262
 263     $fileMozillaVer = "$yy$mm$dd$hh";
 264     print "y2k compliant version string for $fileMozilla: $fileMozillaVer\n";
 265     return($fileMozillaVer);
 266 }