Or, you can use take a look at NMS, by none but our own davorg.

Judging from the CVS updates, I think it should renamed Nick Cleaton's Perl Script Archive ;)

The script to look at is FormMail. It will take a bit of configuring, but bear in mind it is a well supported script (via the NMS support list) so there are plenty of developers who can offer advice and help.

Don't try and roll your own as you are likely to get burnt unless you've thought of everything. Spamming via the original FormMail (not the NMS one) is quite painful.

--
Barbie | Birmingham Perl Mongers | http://birmingham.pm.org/

Judging from the CVS updates, I think it should renamed Nick Cleaton's Perl Script Archive ;)

/me agrees wholeheartedly

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

use MIME::Lite;

# simple message, just text:
$msg = MIME::Lite->new(
        From     =>'me@myhost.com',
        To       =>'you@yourhost.com',
        Cc       =>'some@other.com, some@more.com',
        Subject  =>'Hi!',
        Data     =>"The content of the message\n..."
);
[download]

This ought to be a FAQ if it ain't already.

MIME::Lite is your friend.

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw/ fatalsToBrowser /; # but never in
                                     # production
use MIME::Lite;

my $q=new CGI;
my @contents=();

foreach my $key($q->param) {
      # There is a problem with this code, I'll explain
      # later.
    push @contents,sprintf("%s = %s",$key,$q->param($key));
}

my $mail=new MIME::Lite (
                          From => 'me@here.com',
                          To => 'you@there.com',
                          Subject => 'contents of my form',
                          Type => "TEXT",
                          Data => join("\n",@contents)
             );

MIME::Lite->send("smtp","my.smtphost.com",120);

$mail -> send;
[download]

For more information on what is going on there check out MIME::Lite's man page.

Caveats

First off I broke all of my rules with this example in that I do no error checking anywhere. Secondly, if your CGI parameters have multiple values then my code above will break. I leave the solution to that as an intellectual excersize for you to solve.

Another potential problem with the code above is the use of CGI::Carp qw / fatalsToBrowser/. This is a potential information leak for hackers if you use that in production and they manage to make your code break.

I dashed this off as I am about to be late for a meeting, but there is the nucleus of a solution for you.

Search through the Mail:: namespace on CPAN. Plenty of examples there.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)