From 016d95d834dee8987e9baeb7fb44683ab401dbe5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 7 Jan 2013 18:16:40 +0000
Subject: [PATCH] wip, DEBUGGING

---
 cgi-auth-hybrid.pm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index a80ab85..4f74cde 100644
--- a/cgi-auth-hybrid.pm
+++ b/cgi-auth-hybrid.pm
@@ -238,21 +238,31 @@ sub _db_transaction ($$) {
     my $retries = 10;
     my $rv;
     my $dbh = $v->{Dbh};
+#print STDERR "DT entry\n";
     for (;;) {
+#print STDERR "DT loop\n";
 	if (!eval {
 	    $rv = $fn->();
+#print STDERR "DT fn ok\n";
 	    1;
 	}) {
+#print STDERR "DT fn error\n";
 	    { local ($@); $dbh->rollback(); }
+#print STDERR "DT fn throwing\n";
 	    die $@;
 	}
+#print STDERR "DT fn eval ok\n";
 	if (eval {
 	    $dbh->commit();
+print STDERR "DT commit ok\n";
 	    1;
 	}) {
+print STDERR "DT commit eval ok\n";
 	    return $rv;
 	}
+print STDERR "DT commit throw?\n";
 	die $@ if !--$retries;
+print STDERR "DT loop again\n";
     }
 }
 
@@ -292,12 +302,15 @@ sub _print ($$) { my ($r, @t) = @_; return $r->_ch('print', join '', @t); }
 sub construct_cookie ($$$) {
     my ($r, $cookv) = @_;
     return undef unless $cookv;
-    return $r->{Cgi}->cookie(-name => $r->{S}{cookie_name},
+    my $c = $r->{Cgi};
+    my $cookt = $c->cookie(-name => $r->{S}{cookie_name},
                              -value => $cookv,
                              -path => $r->{S}{cookie_path},
                              -domain => $r->_ch('get_cookie_domain'),
                              -expires => '+'.$r->{S}{login_timeout}.'s',
                              -secure => $r->{S}{encrypted_only});
+print STDERR "CC $r $c $cookv $cookt\n";
+    return $cookt;
 }
 
 # pages/param-sets are
@@ -703,7 +716,10 @@ sub secret_hidden_html ($) {
 
 sub secret_cookie ($) {
     my ($r) = @_;
-    return $r->construct_cookie($r->secret_val());
+print STDERR "SC\n";
+    my $cookv = $r->construct_cookie($r->secret_val()); 
+print STDERR "SC=$cookv\n";
+    return $cookv;
 }
 
 __END__
-- 
2.30.2