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

diff --git a/importxml.pl b/importxml.pl
index 92c9a9269594fa284bcf41466e02521b28bdff0c..eeef337081861d4deb6c95bbc5ed5b606ce0b348 100755 (executable)
--- 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;