24 |
sub canonicalize_uri { |
sub canonicalize_uri { |
25 |
my $self = shift; |
my $self = shift; |
26 |
my $value = shift; |
my $value = shift; |
27 |
warn "uri: $value"; |
$self->log->debug("canonicalize uri $value"); |
28 |
if ($value =~ s/\bgrep\b/%s/) { |
if ($value =~ s/\bgrep\b/%s/) { |
29 |
$self->canonicalization_note( uri => 'Replaced grep with %s' ); |
$self->canonicalization_note( uri => 'Replaced grep with %s' ); |
30 |
} |
} |
42 |
my $self = shift; |
my $self = shift; |
43 |
my $value = shift; |
my $value = shift; |
44 |
|
|
45 |
warn "cookie: $value"; |
#warn "cookie: $value"; |
46 |
|
|
47 |
$self->canonicalization_note( uri => 'Removed Cookie: header' ) |
$self->canonicalization_note( uri => 'Removed Cookie: header' ) |
48 |
if ($value =~ s/^Cookie:\s+//); |
if ($value =~ s/^Cookie:\s+//); |