I am using CGI.PM and can not seem to pull data from the form.
What am I missing here????
Thanks
Dave Gilden
#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
# use strict;
my $mailprog = '/usr/sbin/sendmail';
my $recipient = '[EMAIL PROTECTED]';
my @referers;
my $date = strftime('%A, %B %d, %Y %I:%M %p',localtime);
my $check_referer;
... sniped.......
print header;
print <<END_Thanks_HTML;
<html><head><title>Thanks for your input!</title></head>
<body bgcolor="#ffffcc" text="#000000" link="#0000ff" alink="#ff0000" vlink="#336600">
END_Thanks_HTML
print em('Confirm'); # just to make sure CGI.pm is working and it is!
print <<END_Thanks_HTML;
<h2>
<img align="bottom" width="40" height="40" BORDER="0" SRC="/images/Globe_tran.gif"
ALT="GlobeIcon">
Cora Connection</h2>
<blockquote>
<h2><font color="#C15503">Thanks for your message!</font></h2>
END_Thanks_HTML
print "-"x20,"<br>\n";
foreach $name (param()){
print " param($name)<br>\n";
}
print "-"x20,"<br>\n";
print param('name') , " <", param('email') ,"> on $date</p>\n";
print "<pre>" . param("message") ."</pre>\n";
print <<END_Thanks_HTML;
</blockquote>
<center><table border="0" cellspacing="0" cellpadding="2" width="420">
<tr valign="middle">
<td valign="bottom">
<a href="http://www.coraconnection.com/"; onMouseOver="window.status='Back to our
opening page.' ; return true" onMouseout="window.status='' ; return true"><B>
<img src="/images/b_kora.gif" ALT="kora drawing" WIDTH="50" HEIGHT="100" BORDER="0"
ALT="Back to our front page"></B></A></td><TD>
<table border="0" cellspacing="0" cellpadding="2">
### ....etc.....
==============================================
Cora Connection: Your West African Music Source
Resources, Recordings, Instruments & More!
<http://www.coraconnection.com/>
==============================================
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
