##
if ($cgi -> url_param('first_launch') ne 'false') {
my $requid = $cgi -> url_param('uid');
my $aflag = $cgi -> url_param('aflag');
my $sflag = $cgi -> url_param('sflag');
my $vars = {
base_url => $base_url,
requid => $uid,
aflag => $aflag,
sflag => $sflag,
};
my $template = 'login.tt';
print $cgi -> header;
$tt -> process($template, $vars) || die $tt -> error();
exit;
};
####
requid = [% requid %], aflag = [% aflag %], sflag = [% sflag %], first_launch = [% first_launch %]
Forgot Password | Create New User account