gen_login_form => \&gen_plain_login_form,
gen_login_link => \&gen_plain_login_link,
gettext => sub { gettext($_[2]); },
+ print => sub { print $_[2] or die $!; },
},
Dbh => undef,
};
die $kind;
}
- $r->_print($r->_ch('gen_start_html',$title),
+ $r->_print($r->{Cgi}->header('text/html'),
+ $r->_ch('gen_start_html',$title),
@body,
$r->_ch('gen_end_html'));
return 0;
my $authreq = $verifier->new_request($q);
-$authreq->check_ok() or return;
+$authreq->check_ok() or exit;
my $cookie = $authreq->secret_cookie();
my $url = $q->url();