X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=blobdiff_plain;f=cgi-auth-flexible.pm;h=74c20b69b347d7327a69cc8bbf62623a8c4678af;hp=95c58ac221af22101106bc191c73c603fe615ed3;hb=66a33b3f4f0ead5cd54ef81886b94c53f2b806ea;hpb=4dc8006633cdc5bd000d488140260008b078a728

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 95c58ac..74c20b6 100644
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -801,9 +801,11 @@ sub _check_divert_core ($) {
 	    Params => { },
 	};
     }
-    if ($srcdump || !$r->{S}{srcdump_needlogin}) {
+    print STDERR "$r->{S}{srcdump_needlogin}\n";
+    if ($srcdump && !$r->{S}{srcdump_needlogin}) {
 	return ($srcdump);
     }
+    print STDERR "NOT NOW\n";
 
     my $cooksraw = $r->_ch('get_cookie');
     my $cooks = $r->_unblind($cooksraw);
@@ -953,7 +955,9 @@ sub chain_params ($) {
     my %p = %{ $r->_ch('get_params') };
     foreach my $pncn (keys %{ $r->{S} }) {
 	my $names;
-	if ($pncn =~ m/_param_name$/) {
+	if ($pncn =~ m/^srcdump_/) {
+	    next;
+	} elsif ($pncn =~ m/_param_name$/) {
 	    my $name = $r->{S}{$pncn};
 	    die "$pncn ?" if ref $name;
 	    $names = [ $name ];