chiark
/
gitweb
/
~ian
/
cgi-auth-flexible.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5df7029
)
provide new debug hook
author
Ian Jackson
<ian.jackson@eu.citrix.com>
Fri, 18 Jan 2013 19:08:53 +0000
(19:08 +0000)
committer
Ian Jackson
<Ian.Jackson@eu.citrix.com>
Fri, 18 Jan 2013 19:08:53 +0000
(19:08 +0000)
cgi-auth-flexible.pm
patch
|
blob
|
history
diff --git
a/cgi-auth-flexible.pm
b/cgi-auth-flexible.pm
index a959cbac9b8f393b98e4bebdd3ea53349278d4d7..eab1fe1b84d21768c0b36d74c70ecc82921a45be 100644
(file)
--- a/
cgi-auth-flexible.pm
+++ b/
cgi-auth-flexible.pm
@@
-226,6
+226,7
@@
sub new_verifier {
gen_postmainpage_form => \&gen_postmainpage_form,
gettext => sub { gettext($_[2]); },
print => sub { print $_[2] or die $!; },
gen_postmainpage_form => \&gen_postmainpage_form,
gettext => sub { gettext($_[2]); },
print => sub { print $_[2] or die $!; },
+ debug => sub { }, # like print; msgs contain trailing \n
},
Dbh => undef,
};
},
Dbh => undef,
};
@@
-357,6
+358,11
@@
sub _rp ($$@) {
my $p = scalar $r->_ch('get_param',$pn)
}
my $p = scalar $r->_ch('get_param',$pn)
}
+sub _debug ($@) {
+ my ($r,@args) = @_;
+ $r->_ch('debug',@args);
+}
+
sub _get_path ($$) {
my ($v,$keybase) = @_;
my $leaf = $v->{S}{"${keybase}_path"};
sub _get_path ($$) {
my ($v,$keybase) = @_;
my $leaf = $v->{S}{"${keybase}_path"};
@@
-507,7
+513,7
@@
sub _check_divert_core ($) {
? $cooks : undef;
my ($parmt) = $r->_identify($parmh, $parms);
? $cooks : undef;
my ($parmt) = $r->_identify($parmh, $parms);
-
#print STDERR "_c_d_c cookt=$cookt parmt=$parmt\n"
;
+
$r->_debug("_c_d_c cookt=$cookt parmt=$parmt\n")
;
if ($r->_ch('is_logout')) {
$r->_must_be_post();
if ($r->_ch('is_logout')) {
$r->_must_be_post();
@@
-720,7
+726,7
@@
sub check_divert ($) {
my $dbh = $r->{Dbh};
$r->{Divert} = $r->_db_transaction(sub { $r->_check_divert_core(); });
$dbh->commit();
my $dbh = $r->{Dbh};
$r->{Divert} = $r->_db_transaction(sub { $r->_check_divert_core(); });
$dbh->commit();
-
#print STDERR Dumper($r->{Divert}
);
+
$r->_debug(Data::Dumper->Dump([$r->{Divert}],[qw(divert)])
);
return $r->{Divert};
}
return $r->{Divert};
}