Skip to Main Content
Perl for Web Site Management
book

Perl for Web Site Management

by John Callender
October 2001
Beginner content levelBeginner
528 pages
15h 20m
English
O'Reilly Media, Inc.
Content preview from Perl for Web Site Management

Outputting the Message

We open the pipe to sendmail , then print to that filehandle by using the print function followed by the name of the filehandle we want to print to (MAIL). (Notice, by the way, how you don’t use a comma after the name of the filehandle. Sticking a comma there is a common mistake.)

print MAIL <<"EOF";
To: $recipient
From: $sender
Subject: Sample Web Form Submission

$mail_body
EOF

Here we are printing out some header fields that sendmail expects to see. We use the value from the script’s configuration section (as stored in the $recipient variable) for the To: header, and either the value from the configuration section, or the submitted form data we replaced it with, for the From: header. We print a blank line, then finish up with the message body that was previously stored in the $mail_body variable.

Finally, we close the filehandle:

close MAIL or die "Can't close pipe to $sendmail: $!\n";

I threw an or die... statement on the close statement, by the way, more out of habit than because this script is ever likely to fail at that point. I never used to bother doing the or die... thing on close statements, until the day my ISP’s disk filled up and a script I had created to automatically rewrite a big chunk of my web site went happily about its business, opening filehandles to all the site’s files and printing updated content to them, then failing (silently) when it tried to close the filehandle and got a “disk full” error. The end result: a site full of empty (that ...

Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Web Client Programming with Perl

Web Client Programming with Perl

Clinton Wong
Embedding Perl in HTML with Mason

Embedding Perl in HTML with Mason

Ken Williams, Dave Rolsky

Publisher Resources

ISBN: 1565926471Catalog PageErrata