When I run my test script from the webserver itdoesn�t work the submit
button...
I don�t use handlers here, just this:
#!/usr/bin/perl -w
use CGI;
use strict;
my $debug=0;
my $error=0;
my $q->new CGI();
my $me=$q->script_name();
my $s;
print header();
printheader(); #i�m going to obvius the printheader subrutine here...
if ($s == �1�)
{
print AskForAPass();
}
else
{
$name=$q->param(�name�);
$pass=$q->param(�pass�);
}
sub AskForAPass()
{
print $s = EOT;
<FORM NAME="whatever" METHOD="POST" ACTION="$me">
---------------------cut here--------------------
#Here goes the form part but at the bottom, when the submit appears i have
the problem
#see this piece of code
---------------------cut here--------------------
<TR>
<TD>
<INPUT TYPE="BUTTON" NAME="SUBMIT" VALUE="SUBMIT">
</TD>
</TR>
</FORM>
EOT
return $s;
}
well... i execute this script, but when i push the submit button nothing
happens at all... any idea? any help will be very very very very
precied!!!!!!!!:))))
Nazareno Feito
Perl Programmer
www.obsequie.com
[EMAIL PROTECTED]
