On Wed, Feb 20, 2002 at 08:58:41AM -0800, Bhanu Prakash wrote:
> when a user submits a form, the input entered by him should be
> mailed to the address he specifies in one of teh input fileds.!
If you put that one on a public webserver, you should consider a way
to prevent bad people from using it as spam relay.
> can anybody give me some bare bone structure of how I should
> accomplish this?
For example, you could use Net::SMTP
#!/usr/bin/perl -w
#
# sendmail.pl - httpd -> smtp gateway
#
#####################################################################
use CGI;
use Net::SMTP;
# defines
$from ="httpd\@jfranken.de";
$mailhost="localhost";
# Get CGI- query params
$q =new CGI;
$subject=$q->param("subject");
$text =$q->param("text");
$to =$q->param("to");
die unless ($subject and $text and $to);
# SMTP (RFC 821) -Header
$smtp = Net::SMTP->new($mailhost) or die;
$smtp->mail($from) or die;
$smtp->to($to) or die;
# Mail (RFC822) -Header
$smtp->data() or die;
$smtp->datasend("From: $from\n") or die;
$smtp->datasend("To: $to\n") or die;
$smtp->datasend("Subject: $subject\n") or die;
# Mail (RFC822) -Body
$smtp->datasend("\n$text\n") or die;
$smtp->dataend() or die;
$smtp->quit or die;
# HTML Feedback to the user
print "Content-Type: text/html\n\n<html><body bgcolor=\"#ffffff\">Your message was
sent<p><a href=\"" . $ENV{HTTP_REFERER} . "\">continue</A></body></html>";
exit
--
Johannes Franken
Professional unix/network development
mailto:[EMAIL PROTECTED]
http://www.jfranken.de/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
