Public feed #528820

Mine

public text v1 · immutable
Raw Edit
·published 2007-06-01 18:06 UTC
rendered paste body
# scripta

use CGI::Session;
$session = new CGI::Session("driver:File", $cgi, {Directory=>'/tmp'}) or die 'yo';

sub check {
        # Return a true value, e-mail verification passed.                   #
        $captcha_generated_key = $session->param("CAPTCHA"); // ERROR LINE
        $user_submited_key = $Config['key'];
       
        if($user_submited_key != $Config) {
        print "<b>Sorry! Wrong captcha!<br />";
        return 0; # We cant let him registered.
        }
        return 1;
    }


/* ERRO:
Can't call method "param" on an undefined value at ... 
*/