102 |
warn "<<<< ", $sock->peerhost, " [" . localtime() . "] ", $r->method, " ", $r->uri, " $size bytes\n"; |
warn "<<<< ", $sock->peerhost, " [" . localtime() . "] ", $r->method, " ", $r->uri, " $size bytes\n"; |
103 |
|
|
104 |
if ( $self->debug > 2 ) { |
if ( $self->debug > 2 ) { |
105 |
my $file = sprintf("dump/%04d.request", $dump_nr); |
my $file = sprintf("dump/%04d.request", $dump_nr++); |
106 |
write_file( $file, $r->as_string ); |
write_file( $file, $r->as_string ); |
107 |
warn "### request dump: $file\n"; |
warn "### request dump: $file\n"; |
108 |
} |
} |