Getting form FIELDS picked up for e-mailing with Net::SMTP

When I SUBMIT a POST form from HTML, all I get in the e-mail that is sent to me are the names of the fields, but the field data is not copied. Any help would be greatly appreciated.

First, the simple HTML code:


Personal name:
Family name:



Next, the corresponding CGI:
#!/usr/bin/perl - -
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.my.domain', Timeout => 60);
$smtp->mail('mymail@nanzan-u.ac.jp');
$smtp->recipient('mymail@nanzan-u.ac.jp');
$firstname = ('firstname');
$familyname = ('familyname');
$smtp->data;
$smtp->datasend("From: heisig@nanzan-u.ac.jp
");
$smtp->datasend("To: heisig@nanzan-u.ac.jp
");
$smtp->datasend("Subject: Special-order book
");
$smtp->datasend("
");

$smtp->datasend("$firstname familyname") ;
$smtp->datasend("
") ;
$smtp->dataend;
$smtp->quit;
print "Content-type:text/html

";
print "done.
";

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories