3 # ***** BEGIN LICENSE BLOCK *****
4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
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/
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
16 # The Original Code is the Netscape security libraries.
18 # The Initial Developer of the Original Code is
19 # Netscape Communications Corporation.
20 # Portions created by the Initial Developer are Copyright (C) 1994-2000
21 # the Initial Developer. All Rights Reserved.
25 # Alternatively, the contents of this file may be used under the terms of
26 # either the GNU General Public License Version 2 or later (the "GPL"), or
27 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
28 # in which case the provisions of the GPL or the LGPL are applicable instead
29 # of those above. If you wish to allow use of your version of this file only
30 # under the terms of either the GPL or the LGPL, and not to allow others to
31 # use your version of this file under the terms of the MPL, indicate your
32 # decision by deleting the provisions above and replace them with the notice
33 # and other provisions required by the GPL or the LGPL. If you do not delete
34 # the provisions above, a recipient may use your version of this file under
35 # the terms of any one of the MPL, the GPL or the LGPL.
37 # ***** END LICENSE BLOCK *****
40 require('coreconf.pl');
42 #######-- read in variables on command line into %var
45 $ZIP = "$ENV{JAVA_HOME}/bin/jar";
47 if ( $ENV{JAVA_HOME
} eq "" ) {
56 ######-- Do the packaging of jars.
58 foreach $jarfile (split(/ /,$var{FILES
}) ) {
59 print STDERR
"---------------------------------------------\n";
60 print STDERR
"Packaging jar file $jarfile....\n";
62 $jarinfo = $var{$jarfile};
64 ($jardir,$jaropts) = split(/\|/,$jarinfo);
69 $zipoptions = "-T -r";
70 if ($jaropts =~ /a/) {
71 if ($var{OS_ARCH
} eq 'WINNT') {
72 $zipoptions .= ' -ll';
77 # just in case the directory ends in a /, remove it
78 if ($jardir =~ /\/$/) {
84 print STDERR
"jardir = $jardir\n";
90 # count the number of slashes
94 foreach $i (split(//,$jardir)) {
102 foreach $i (split(m
|/|,$jardir)) {
108 $dirdepth = ($slashes +1) - (2*$dotdots);
110 print STDERR
"changing dir $jardir\n";
112 print STDERR
"making dir META-INF\n";
113 mkdir("META-INF",0755);
117 while ($_ = readdir(DIR
)) {
118 if (! ( ($_ eq '.') || ($_ eq '..'))) {
119 if ( $jaropts =~ /i/) {
131 print STDERR
"$ZIP $zipoptions $jarfile $filelist\n";
132 system("$ZIP $zipoptions $jarfile $filelist");
134 for $i (1 .. $dirdepth) {
136 print STDERR
"chdir ..\n";
140 print STDERR
"Directory $jardir doesn't exist\n";