From: Ian Jackson Date: Sat, 10 Nov 2012 17:41:40 +0000 (+0000) Subject: wip X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=commitdiff_plain;h=9810fb59419d20567ba6344aad1bbfbda3c7402c wip --- diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm index af0e083..83ee419 100644 --- a/cgi-auth-hybrid.pm +++ b/cgi-auth-hybrid.pm @@ -232,6 +232,8 @@ sub _rp ($$@) { # -/n n POST nrmu user not logged in # fail +UP TO HERE + sub _check_core ($) { my ($r) = @_; my $qassoc = $r->_ch('get_param'); @@ -257,8 +259,6 @@ sub _check_core ($) { } } -UP TO HERE - my $dbh = $r->{Dbh}; my ($nusername, $nlast) = $dbh->selectrow_array("SELECT username, last".