[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] a simple form..



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
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



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