From 5a9d1753dfffd178c9b3c5170eec31408ec09b8d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 10 Nov 2012 18:22:41 +0000
Subject: [PATCH] wip

---
 cgi-auth-hybrid.pm | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index 6d28387..070603d 100644
--- a/cgi-auth-hybrid.pm
+++ b/cgi-auth-hybrid.pm
@@ -246,23 +246,25 @@ sub check_divert ($) {
 	die unless $parmt;
 	$r->_db_perhaps_revoke($cookv);
 	$r->_db_perhaps_revoke($parmv);
-	return 'LOGOUT';
+	$r->_queue_set_cookie('');
+	return 'REDIRECT-LOGGEDOUT';
     }
     if ($r->_ch('is_login')) {
 	return 'NOCOOKIE' if !$cookt && $parmt eq 't';
 	return 'LOGIN-STALE' if $parmt eq 'n';
-	$r->_db_perhpa
+	$r->_db_perhaps_revoke($cookv) 
+	    if defined $cookv && !(defined $parmv && $cookv eq $parmv);
+	$r->_queue_set_cookie($parmv);
 	my $username = $r->_ch('login_ok');
 	return 'LOGIN-BAD' unless defined $username && length $username;
-	$r->_db_
-
-	}
-	
-
-	$r->_will_set_cookie('');
-	
+	$r->_db_record_login_ok($parmv,$username);
+	return 'REDIRECT-LOGGEDIN';
     }
-
+    if (!$r->{S}{promise_check_mutate}) {
+	something with method get, check parameter, etc.
+	return 'FRONTPAGE';
+    }
+    
 
 UP TO HERE
 
-- 
2.30.2