From e48ff33f45fced20bed5d8e13ec9365869e91a41 Mon Sep 17 00:00:00 2001
From: dpavlin <dpavlin@zemlja.ffzg.hr>
Date: Tue, 24 Nov 2009 23:48:23 +0100
Subject: [PATCH] dump full headers with debug

---
 proxy.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/proxy.pl b/proxy.pl
index 93ceb36..a2b5546 100755
--- 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 ) = @_;
-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;
-- 
2.20.1