Aww... you should have let him hire a consultant. ;o)
Seriously though, this is dead simple. Gary's code is great and robust
if a bit intimidating for a newbie. You said you have background in
VisualBasic and that would lead me to think you might be using windoze
NT or 2000. (Unfortunately, so am I). If this is the case, you
probably don't have access to sendmail, in which case I suggest you take
a look at the Mail::Sendmail module. The only info you need to
configure it is an SMTP server. (If you are using win32 and
ActiveState, this can be found using ppm). Lots of people also use a
program called Blat, but I don't like it because it forces you to write
a file to disk first...
To get the form info:
use CGI;
my $cgi = new CGI;
#
# $cgi->param returns a list of the fields in the form when not
# given any arguments. Passed a field name, it returns the value.
# I'm not sure how you mean tab delimited, so I'll leave that to
# you...
#
for my $field ($cgi->param){
$message .= "$field = ".$cgi->param($field)."\n";
}
#
# Now just send it!
#
use Mail::Sendmail;
sendmail (
To => $email_to,
From => '[EMAIL PROTECTED]',
Subject => "Email Subject"
Message => $message
);
With that said, I hope you see that this is really quite simple. Gary's
code takes into account alot of details like what to do if we don't know
what mail program to use and giving a response back to whoever submitted
the form which is generally a good idea so you should definitely follow
his lead even if you're not on Unix.
As for publicly available base code... I don't know. This is actually
a bit too simple to expect to find base code, but you never know. But
hey! We're the public and here's a bunch of code!
Good Luck,
- Johnathan
