From 83b1af90b387c3cedb13d6a87712042c23365d16 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 26 Oct 2007 15:16:10 +0000 Subject: [PATCH] sequentially number requests and responses to see real flow in dump dir git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@117 836a5e1a-633d-0410-964b-294494ad4392 --- lib/CWMP/Session.pm | 2 +- lib/Module/Install/PRIVATE.pm | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm index 263794b..aee1418 100644 --- a/lib/CWMP/Session.pm +++ b/lib/CWMP/Session.pm @@ -102,7 +102,7 @@ sub process_request { warn "<<<< ", $sock->peerhost, " [" . localtime() . "] ", $r->method, " ", $r->uri, " $size bytes\n"; if ( $self->debug > 2 ) { - my $file = sprintf("dump/%04d.request", $dump_nr); + my $file = sprintf("dump/%04d.request", $dump_nr++); write_file( $file, $r->as_string ); warn "### request dump: $file\n"; } diff --git a/lib/Module/Install/PRIVATE.pm b/lib/Module/Install/PRIVATE.pm index 544f137..4dd74c8 100644 --- a/lib/Module/Install/PRIVATE.pm +++ b/lib/Module/Install/PRIVATE.pm @@ -26,6 +26,7 @@ sub my_targets { # --- $self section: dump: all + rm dump/* || true ./bin/acs.pl -d -d -d 2>&1 | tee log END_MAKEFILE -- 2.20.1