xpinstall/packager/pkgcp.pl

   1 #!/usr/bin/perl -w
   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 Communicator client code, released
  17 # March 31, 1998.
  18 #
  19 # The Initial Developer of the Original Code is
  20 # Netscape Communications Corporation.
  21 # Portions created by the Initial Developer are Copyright (C) 1998-1999
  22 # the Initial Developer. All Rights Reserved.
  23 #
  24 # Contributor(s):
  25 #   Jonathan Granrose (granrose@netscape.com)
  26 #
  27 # Alternatively, the contents of this file may be used under the terms of
  28 # either of the GNU General Public License Version 2 or later (the "GPL"),
  29 # or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  30 # in which case the provisions of the GPL or the LGPL are applicable instead
  31 # of those above. If you wish to allow use of your version of this file only
  32 # under the terms of either the GPL or the LGPL, and not to allow others to
  33 # use your version of this file under the terms of the MPL, indicate your
  34 # decision by deleting the provisions above and replace them with the notice
  35 # and other provisions required by the GPL or the LGPL. If you do not delete
  36 # the provisions above, a recipient may use your version of this file under
  37 # the terms of any one of the MPL, the GPL or the LGPL.
  38 #
  39 # ***** END LICENSE BLOCK *****
  40
  41
  42 # pkgcp.pl -
  43 #
  44 # Parse a package file and copy the specified files for a component
  45 # from the given source directory into the given destination directory
  46 # for packaging by the install builder.
  47 #
  48 # Todo:
  49 #       - port to MacPerl
  50 #       - change warn()s to die()s to enforce updating package files.
  51 #       - change var names to standard form
  52
  53 # load modules
  54 use Getopt::Long;
  55 use File::Basename;
  56 use Cwd;
  57
  58 # initialize variables
  59 %components        = ();        # list of components to copy
  60 $srcdir           = "";         # root directory being copied from
  61 $destdir          = "";         # root directory being copied to
  62 $package          = "";         # file listing files to copy
  63 $os               = "";         # os type (MacOS, MSDOS, Unix, OS/2)
  64 $verbose          = 0;          # shorthand for --debug 1
  65 $debug            = 0;          # controls amount of debug output
  66 $help             = 0;          # flag: if set, print usage
  67
  68
  69 # get command line options
  70 $return = GetOptions(
  71                         "source|s=s",           \$srcdir,
  72                         "destination|d=s",      \$destdir,
  73                         "file|f=s",             \$package,
  74                         "os|o=s",               \$os,
  75                         "component|c=s",        \@components,
  76                         "help|h",               \$help,
  77                         "debug=i",              \$debug,
  78                         "verbose|v",            \$verbose,
  79                         "flat|l",               \$flat,
  80                         "<>",                   \&do_badargument
  81                         );
  82
  83 # set debug level
  84 if ($verbose && !($debug)) {
  85         $debug = 1;
  86 } elsif ($debug != 0) {
  87         $debug = abs ($debug);
  88         ($debug >= 2) && print "debug level: $debug\n";
  89 }
  90
  91 # check usage
  92 if (! $return)
  93 {
  94         die "Error: couldn't parse command line options.  See \'$0 --help' for options.\nExiting...\n";
  95 }
  96
  97 # ensure that Packager.pm is in @INC, since we might not be called from
  98 # mozilla/xpinstall/packager.
  99 $top_path = $0;
 100 if ( $os eq "dos" ) {
 101   $top_path =~ s/\\/\//g;
 102 }
 103 push(@INC, dirname($top_path));
 104 require Packager;
 105
 106 if ( $os eq "os2" ) {
 107   $cwd = cwd();
 108   if ($srcdir !~ /^.:+/) {
 109     $srcdir = $cwd."/".$srcdir;
 110   }
 111   $os = "unix";
 112 }
 113 Packager::Copy($srcdir, $destdir, $package, $os, $flat, $help, $debug, @components);
 114
 115 #
 116 # This is called by GetOptions when there are extra command line arguments
 117 # it doesn't understand.
 118 #
 119 sub do_badargument
 120 {
 121         warn "Warning: unknown command line option specified: @_.\n";
 122 }
 123
 124
 125 # EOF