Help for this page

Select Code to Download

Select or download this

if(verify_password($username, $password)){
        # write new HTTP session
...
        print_success();
        exit;
        } else { print_failure(); exit;}

Select or download this

#!/usr/bin/perl -wT

...

&$anon unless $session->param("~logged-in");    # expired session
$session->param("~logged-in",1);                # refresh session