1 files changed, 63 insertions, 0 deletions
diff --git a/Configure.pl b/Configure.pl
new file mode 100644
index 000000000..2897fb950
--- /dev/null
+++ b/Configure.pl
@@ -0,0 +1,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);
+}
+