+ warn "$body\n<<<< $ip END\n";
+
+ my $response = $session->process_request( $ip, $body );
+
+ my $dump_nr = $dump_by_ip->{$ip}++;
+
+ if ( $self->create_dump ) {
+ mkpath "dump/$ip" unless -e "dump/$ip";
+ write_file( sprintf("dump/%s/%04d.request", $ip, $dump_nr), "$request\r\n$body" );
+ write_file( sprintf("dump/%s/%04d.response", $ip, $dump_nr ), $response );