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

1 files changed, 10 insertions, 1 deletions

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;