#
# You need to work with bug_email.pl the MIME::Parser installed.
#
-# $Id: bug_email.pl,v 1.9.10.1 2002/07/25 01:47:50 justdave%syndicomm.com Exp $
+# $Id: bug_email.pl,v 1.9.10.2 2002/08/17 14:26:32 bbaetz%student.usyd.edu.au Exp $
###############################################################
# 02/12/2000 (SML)
SendSQL($long_desc_query);
# Cool, the mail was successful
- # chdir back to the main directory which has the processmail script
- # Oh, for a processmail module....
- use Cwd;
- my $old_cwd = getcwd();
- chdir("..");
system("./processmail", $id, $SenderShort);
- chdir($old_cwd);
} else {
$id = 0xFFFF; # TEST !
print "\n-------------------------------------------------------------------------\n";