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);
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 ];