Hi everyone,

why this doesn't pass $username and $password to checkuser.cgi script??
when the form is filled out I only see

http://external-server/cgi-bin/checkuser.cgi?user=$usuario&pass=$contrasena

and $usuario it's not replaced by param('username'), etc
 
Any advice will be very appreciated,



#!/usr/bin/perl

use CGI;
use CGI::Carp 'fatalsToBrowser';

$q = new CGI;
print $q->header,
      $q->start_html({bgcolor=>"white"}, 'Check users'),
      $q->h1('Check users'),
      $q->br,
$q->start_form(-action=>'http://external-server/cgi-bin/checkuser.cgi?user=$usuario&pass=$contrasena'),
      $q->h3('type user name'),
      $q->textfield(-name=>'username',  -size=>20),
      $q->p(),
      $q->h3('type user password'),
      $q->password_field(-name=>'passwd',  -size=>20),
      $usuario = $q->param('username'),
      $contrasena = $q->param('passwd'),
      $q->p(),
      $q->submit(-name=>'Check'),
      $q->end_form, $q->hr,
      $q->end_html;



Abel Lucano
Decode SA
email: [EMAIL PROTECTED]
http://www.decode.com.ar                                                              



Reply via email to