sizo wrote:
> NET::SMTP ?
>
> for <form method=POST>
>
> my code as follows:
>
> ///////////////////////
>
> #!/perl/bin
>
> $tomail="[EMAIL PROTECTED]";
> $location="/webroot/ricardo/";
>
> read(STDIN, $buffer, $ENV { 'CONTENT_LENGHT' } );
>
>
>
> use Net::SMTP;
>
> $smtp = Net::SMTP->new('your.host.beginners.digest'); # connect to an SMTP
>server
> $smtp->mail( '[EMAIL PROTECTED]' ); # use the sender's address here
> $smtp->to('[EMAIL PROTECTED]'); # recipient's address
>
> $smtp->data(
>
> # Split the name-value pairs
> @ pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs) {
>
> local($name, $value) = split (/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/% ([a-fA-F0-9] [a-fA-f0-9] ) /pack("C", hex($1))/eg;
>
> #strip off any possible ssi comment tags.
> $value =~ s/<!--(.|\n)*-->//g;
> $in {$name} = $value;
> });
> # Start the mail
>
> # Send the header.
> $smtp->datasend("To: [EMAIL PROTECTED]\n");
> $smtp->datasend("From: [EMAIL PROTECTED]\n");
> $smtp->datasend("\n");
>
> # Send the body.
> $smtp->datasend("\n");
> $smtp->dataend(); # Finish sending the mail
> $smtp->quit; # Close the SMTP connection
>
> print "Location: $location\n\n";
>
>
> //////////////////////////////////
>
> note: this script should send inscriptions to a database for furthers operations
>
> thx
>
>
>
>
>
> ---------------------------------
> Send your holiday cheer with Yahoo! Greetings.
>
>
Okay, I'm a bit confused on your note...could you please expound on what
you mean? Also, will this actually work with Apache for Win32? If so, I
thank you muchly as I have been looking for a way to set up practice
forms (being a web designer and all) where I could actually "post" data
and have it sent to an e-mail address (if I can do that, I want to move
on to setting up a database using form data submitted from a user).
--
Dragon Nebula Web Design. It's your universe, take no chances!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
