Mail:Sender weird problem

[vincent76]

I'm having this weird problem with the mail::sender module. I kind of
hacked(wrote) a script that uploads and emails a file. The script
uploads the file
fine, it uses cgi-lib and mail::sender. The probelm I have is that
somehow it doesn't e-mail all the times, althought it uploads the file
each time. At first I
thought it was the perl version I was running on which was 5.005, the
reason I thought that was because I installed the script on
another server which had the same O/S (Linux) but with perl 5.6 and
the script worked each time. So I upgraded perl to 5.6 and I still had
the same probelm, whenever the script feels like sending an e-mail it
does. I have no clue!!!! The one other difference between the server
that the script is working on and the one that's not is that they have
different smtp servers, the one that works on I think uses a microsoft
exchange server and the one that sometimes works uses EXIM ???? I read
in the mail::sender documentation that mail::sender doesn't work with
qmail. Is exim and qmail the same ??? I really don't know if they are
or not and have no idea on how to debug this problem.

Any help is much apreciated!!!!

Thanks

Here's the script

#!/usr/bin/perl -Tw
#require 5.001;
use strict;
require "./cgi-lib.pl";
use Mail::Sender;

MAIN:
{
my (%cgi_data, %cgi_cfn, %cgi_ct, %cgi_sfn, $ret, $buf );

# When writing files, several options can be set..
$cgi_lib::writefiles = "/tmp";

# Limit upload size to avoid using too much memory
$cgi_lib::maxdata = 500000;


$ret = &ReadParse(\%cgi_data,\%cgi_cfn,\%cgi_ct,\%cgi_sfn);

if (!defined $ret)
{
&CgiDie("Error in reading and parsing of CGI input"
}
elsif (!$ret)
{
&CgiDie("Missing parameters\n",
"Please complete the form ",
&quot;<a href='

http://www.testing.com/upload.html'>&quot;,

&quot;upload.html</a>\n&quot;
}
elsif (!defined $cgi_data{'upfile'} )
{
&CgiDie(&quot;Data missing\n&quot;, &quot;Please specify a file\n&quot;
}


rename &quot;$cgi_data{'upfile'}&quot;,&quot;$cgi_lib::writefiles/$cgi_cfn{'upfile'}&quot;;

my $newPerm = '0777';
my $mode = oct($newPerm);
my $uploadFile = &quot;/tmp/$cgi_cfn{'upfile'}&quot;;

chmod $mode, $uploadFile;

my $sender;
my $compName = &quot; Company Name: $cgi_data{'compname'}&quot;;
my $contact = &quot; Contact Name: $cgi_data{'contactname'}&quot;;
my $phone = &quot; Phone Num: $cgi_data{'phonenum'}&quot;;
my $fax = &quot; Fax Num: $cgi_data{'fax'}&quot;;
my $emailAddr = &quot;Email Address: $cgi_data{'retemail'}&quot;;
my $instrCom = &quot;Instruction-Commentse: $cgi_data{'instruct'}&quot;;

ref ( $sender = new Mail::Sender { from => 'script@testing.com',
smtp => 'mail.testing.com',
boundary => 'This-is-a-mail-boundary-435427'})
or die &quot;Error($sender) : $Mail::Sender::Error\n&quot;;

$sender->OpenMultipart({to => 'testing@testing.com',
subject => 'File Uploaded'});
$sender->Body;
$sender->SendLine($compName);
$sender->SendLine($contact);
$sender->SendLine($phone);
$sender->SendLine($fax);
$sender->SendLine($emailAddr);
$sender->SendLine;
$sender->SendLine($instrCom);
$sender->SendFile({description => 'Uploaded file',
ctype => $cgi_ct{'upfile'},
encoding => 'Base64',
disposition => 'attachment; filename=&quot;Uploaded
File&quot;; type=&quot;gif&quot;', file => $uploadFile });
$sender ->Close;

unlink ($uploadFile) or
&CgiError(&quot;Error: Unable to delete file&quot;,
&quot;Error: Unable to delete file $uploadFile: $!\n&quot;
$cgi_lib::writefiles = $cgi_lib::writefiles;
$cgi_lib::maxdata = $cgi_lib::maxdata;

}