From: endico%mozilla.org <>
Date: Sat, 24 Jun 2000 05:43:21 +0000 (+0000)
Subject: find the path this script lives in and add it to @INC and to the current working... 
X-Git-Tag: bugzilla-2.12~256
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1765489b37d12916f68fe6c1cd14b8cdc693e581;p=thirdparty%2Fbugzilla.git

find the path this script lives in and add it to @INC and to the current working directory.
---

diff --git a/importxml.pl b/importxml.pl
index 92c9a92695..eeef337081 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -35,9 +35,18 @@ require "CGI.pl";
 require "globals.pl";
 $::lockcount = 0;
 
+# figure out which path this script lives in. Set the current path to
+# this and add it to @INC so this will work when run as part of mail
+# alias by the mailer daemon
+my $path = $0;
+$path =~ s#(.*)/[^/]+#$1#;
+chdir $path;
+use lib ($path);
+
 GetVersionTable();
 ConnectToDatabase();
 
+
 sub sillyness {
     my $zz;
     $zz = %::components;
@@ -182,7 +191,7 @@ if (defined $tree->[1][0]->{'urlbase'}) {
   
 
 my $bugqty = ($#{@{$tree}->[1]} +1 -3) / 4;
-my $log = "Importing $bugqty bug(s) from $urlbase,\n  sent by $exporter.\n";
+my $log = "Imported $bugqty bug(s) from $urlbase,\n  sent by $exporter.\n";
 for (my $k=1 ; $k <= $bugqty ; $k++) {
   my $cur = $k*4;