REQUEST_METHOD=post CAHTEST_HOME=`pwd` ./test.cgi ; echo
-sort out debugging
+trying to log in always gives stale session
+
-form entry has wrong action url
+sort out debugging
update last in db when we return undef from check_divert
die "unchecked" unless exists $r->{Divert};
}
+sub _must_be_post ($) {
+ my ($r) = @_;
+ my $meth = $r->_ch('get_method');
+ die "mutating non-POST" if $meth ne 'POST';
+}
+
sub check_mutate ($) {
my ($r) = @_;
$r->_assert_checked();
die if $r->{Divert};
- my $meth = $r->_ch('get_method');
- die "mutating non-POST" if $meth ne 'POST';
+ $r->_must_be_post();
}
#---------- output ----------