+sub check_divert ($) {
+ my ($r) = @_;
+
+ my $cookv = $r->_ch('get_cah_cookie');
+ my $parmv = $r->_rp('assoc_param_name');
+
+ my $cookt = $r->_db_lookup($cookv);
+ my $parmt = $r->_db_lookup($parmv);
+
+ if ($r->_ch('is_logout')) {
+ $r->_must_be_post();
+ die unless $parmt;
+ $r->_db_perhaps_revoke($cookv);
+ $r->_db_perhaps_revoke($parmv);
+ return 'LOGOUT';
+ }
+ if ($r->_ch('is_login')) {
+ return 'NOCOOKIE' if !$cookt && $parmt eq 't';
+ return 'LOGIN-STALE' if $parmt eq 'n';
+ $r->_db_perhpa
+ my $username = $r->_ch('login_ok');
+ return 'LOGIN-BAD' unless defined $username && length $username;
+ $r->_db_
+
+ }
+
+
+ $r->_will_set_cookie('');
+
+ }
+
+