Re: [MacPerl] a simple form..

["Paul J. Schinder" <schinder@pobox.com>]

On Mon, Feb 22, 1999 at 04:38:43PM +0100, sharon@didit.com wrote:
} I'm using a simple script to handle forms with MacPerl:
} since I used AIMS as mail server, it worked.
} Now I'm using Unix as mail server, and it doesn't work anymore
} (but it gives me NO error messages..., it says "message sent", but NO
} message has been sent really)...
} Simply, the form is not handled by my Mail Server...
} 
} The script is:
} 
} use Net::SMTP;
} 
} (...)
} 
} $smtp = Net::SMTP->new("mail.company.com") or die "Unable to open the

Try this:

$smtp = Net::SMTP->new("mail.company.com", Debug => 1) or die "Unable to open the

and rerun the script.  You should be able to determine what happened from
the debugging output.  If you have access to the Unix server, you should
check the mail logs and see if they tell you anything.

} connection";
} 
} $smtp->mail($ENV{USER});
} $smtp->to('sharon');
} 
} $smtp->data();
} $smtp->datasend("To: sharon\n");
} $smtp->datasend("From: $in{'email'}\n");
} $smtp->datasend("Subject: Free Advice\n");
} $smtp->datasend("\n");
} $smtp->datasend("Nome: $in{'firstname'} $in{'lastname'}\nAzienda:
} $in{'company'}\t");
} $smtp->datasend("Posizione: $in{'position'}\nIndirizzo: $in{'address'}\n");
} $smtp->datasend("Tel.: $in{'phone'}\nEmail: $in{'email'}\n");
} $smtp->datasend("Commenti: $in{'message'}\n");
} $smtp->dataend();
} 
} $smtp->quit;
} 
} Any idea?
} (Thanks)
} 
} Sharon Mallardo
} Rapp Collins Italy
} 

-- 
Paul Schinder
schinder@pobox.com

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch