From 1765489b37d12916f68fe6c1cd14b8cdc693e581 Mon Sep 17 00:00:00 2001
From: "endico%mozilla.org" <>
Date: Sat, 24 Jun 2000 05:43:21 +0000
Subject: find the path this script lives in and add it to @INC and to the
 current working directory.

---
 importxml.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'importxml.pl')

diff --git a/importxml.pl b/importxml.pl
index 92c9a9269..eeef33708 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;
 
-- 
cgit v1.2.3-24-g4f1b