Chris,
I'm using Solaris to run my perl script. Did
you have a chance to write script in Solaris anytime?!
Should the script be different for Solaris and
Windows?
Thanks
Bhanu.
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]
=====
Bhanu Prakash G V S
__________________________________________________
Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic Games
http://sports.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
