ET
06-14-2002, 05:06 PM
OK, I'm totally new to this Perl stuff.
I'm using a script that someone at work wrote, and it calls a Unix function called MAIL. I assume the path to call this function on FQ's server is not the same as on our server at the office... how do I call it?
Here is the pertinent code, which will need to be modified:
<snip>
sub SendMail {
my ( $nFieldCount) = 1;
if ( open (MAIL, "|/usr/lib/sendmail -t $aszParam{'emailTo'}")) {
print MAIL "From: $aszParam{'emailFrom'}\n";
print MAIL "To: $aszParam{'emailTo'}\n";
print MAIL "Subject: $aszParam{'problem'}\n\n";
print MAIL "#THIS EMAIL GENERATED BY AN ONLINE FORM SUBMISSION
<snip>
I'm using a script that someone at work wrote, and it calls a Unix function called MAIL. I assume the path to call this function on FQ's server is not the same as on our server at the office... how do I call it?
Here is the pertinent code, which will need to be modified:
<snip>
sub SendMail {
my ( $nFieldCount) = 1;
if ( open (MAIL, "|/usr/lib/sendmail -t $aszParam{'emailTo'}")) {
print MAIL "From: $aszParam{'emailFrom'}\n";
print MAIL "To: $aszParam{'emailTo'}\n";
print MAIL "Subject: $aszParam{'problem'}\n\n";
print MAIL "#THIS EMAIL GENERATED BY AN ONLINE FORM SUBMISSION
<snip>