Try using:
use CGI;
my $q = new CGI;
my $username = $q->param('username');
my $password = $q->param('password');
print <<eof;
<html><head><title>title</title></head>
<body>
Username is $username<br>
Password is $password<br>
<form ...>
User: <input type="text" name="username">
Pass: <input type="password" name="password">
...
</form>
...
</body></html>
eof
Teddy,
Teddy's Center: http://teddy.fcc.ro/
Email: [EMAIL PROTECTED]
----- Original Message -----
From: "David Gilden" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, February 25, 2003 7:36 PM
Subject: CGI.PM
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]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
