Bhanu,
Not sure what operating system you are using, but I have just done
something very similar in Windows. The form the user input data into was on
their intranet, and then the details of the form were mailed out to the
client (in html orginally, but my clients are large insurance firms and did
not accept html content - silly me!!),
If you think that I can be any help, just let me know,
Chris Zampese.
[EMAIL PROTECTED]
----- Original Message -----
From: "Johannes Franken" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, February 21, 2002 9:38 PM
Subject: Re: Sending Mail
> 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]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
