blob: 2897fb95051cd9f832fb3960ad97a1523f5f0f06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/usr/bonsaitools/bin/perl -w
# 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 the Bugzilla Installer.
#
# The Initial Developer of the Original Code is Zach Lipton
# Portions created by Zach Lipton are
# Copyright (C) 2002 Zach Lipton. All
# Rights Reserved.
#
# Contributor(s): Zach Lipton <zach@zachlipton.com>
#
# Alternatively, the contents of this file may be used under the
# terms of the GNU General Public License Version 2 or later (the
# "GPL"), in which case the provisions of the GPL are applicable
# instead of those above. If you wish to allow use of your
# version of this file only under the terms of the GPL and not to
# allow others to use your version of this file under the MPL,
# indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by
# the GPL. If you do not delete the provisions above, a recipient
# may use your version of this file under either the MPL or the
# GPL.
#
eval("use Conf::Supplies::Config"); # do this in an eval so if
# it doesn't exist (new installation)
# there won't be an error.
use File::Spec;
use Conf;
$args = join(' ',@ARGV);
# Insert lines in this space to run .cm files like:
# runconf('Conf/Foo.cm');
# runconf() will handle the path mapping for XP purposes
# NOT SURE IF WE REALLY NEED TO ADJUST THE PATH
runconf('Conf/Begin.cm');
if ($args =~ /--perl\=([\/A-Za-z0-9]+) /) { # they passed us a perl arg
setConf('perl',$1); # set the path to perl and move on...
} else {
# they haven't run configure.pl before so run PerlCheck now...
runconf('Conf/PerlCheck.cm');
}
runconf('Conf/UpgradeCheck.cm');
sub runconf {
my ($path) = @_;
my @pathlist = split('/',$path);
require File::Spec->catfile(@pathlist);
}
|
