http-webtest-commits

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder
In directory sc8-pr-cvs1:/tmp/cvs-serv15908/lib/HTTP/WebTest/Recorder

Modified Files:
	POE.pm 
Log Message:
Record content of responses


Index: POE.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/POE.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** POE.pm	27 Feb 2003 21:59:28 -0000	1.1
--- POE.pm	4 Apr 2003 21:52:20 -0000	1.2
***************
*** 44,47 ****
--- 44,48 ----
          $request->header(Connection => 'close');
          $heap->{postback}{$request} = $postback;
+         $heap->{buffer}{$request} = '';
          $kernel->post(wt_recorder_ua => request => proxy_response => $request);
      }
***************
*** 57,62 ****
      $heap->{postback}{$request}->(@$response_packet);
  
!     unless(defined $data) {
          delete $heap->{postback}{$request};
          $heap->{recorder}->record(request  => $request,
                                    response => $response);
--- 58,66 ----
      $heap->{postback}{$request}->(@$response_packet);
  
!     if(defined $data) {
!         $heap->{buffer}{$request} .= $data;
!     } else {
          delete $heap->{postback}{$request};
+         $response->content(delete $heap->{buffer}{$request});
          $heap->{recorder}->record(request  => $request,
                                    response => $response);