projects
/
HTTP-Proxy-Archive.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bf6fda8
)
dump full headers with debug
author
dpavlin
<dpavlin@zemlja.ffzg.hr>
Tue, 24 Nov 2009 22:48:23 +0000
(23:48 +0100)
committer
dpavlin
<dpavlin@zemlja.ffzg.hr>
Tue, 24 Nov 2009 22:48:23 +0000
(23:48 +0100)
proxy.pl
patch
|
blob
|
history
diff --git
a/proxy.pl
b/proxy.pl
index
93ceb36
..
a2b5546
100755
(executable)
--- a/
proxy.pl
+++ b/
proxy.pl
@@
-184,9
+184,9
@@
sub debug_dump { -e 'var/debug' && warn "## ", dump( @_ ) }
my $admin_filter = HTTP::Proxy::HeaderFilter::simple->new( sub {
my ( $self, $headers, $message ) = @_;
my $admin_filter = HTTP::Proxy::HeaderFilter::simple->new( sub {
my ( $self, $headers, $message ) = @_;
-warn "XXX
", $headers->header('x-forwarded-for'), '
', $message->uri, "\n";
+warn "XXX
[", $headers->header('x-forwarded-for'), ']
', $message->uri, "\n";
- print $
self->request->as_string, $/, $message->headers_as_string, $/
if debug_on;
+ print $
message->headers_as_string
if debug_on;
my $host = $message->uri->host;
var_save 'hits' => $host;
my $host = $message->uri->host;
var_save 'hits' => $host;