[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder Actions.pm,1.2,1.3

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

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

Modified Files:
	Actions.pm 
Log Message:
Added response_content_action()


Index: Actions.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder/Actions.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Actions.pm	1 Feb 2003 22:40:08 -0000	1.2
--- Actions.pm	2 Feb 2003 00:02:05 -0000	1.3
***************
*** 8,12 ****
  
  @EXPORT_OK = qw(default_action enable_action list_action
!                 request_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
--- 8,12 ----
  
  @EXPORT_OK = qw(default_action enable_action list_action
!                 request_action response_content_action wtscript_action);
  %EXPORT_TAGS = (all => [@EXPORT_OK]);
  
***************
*** 42,47 ****
  
      return(default_action($controller),
!            test => $test);
  }
  sub wtscript_action {
      my $controller = shift;
--- 42,59 ----
  
      return(default_action($controller),
!            test => $test, num  => $num);
! }
! 
! sub response_content_action {
!     my $controller = shift;
! 
!     my $num = $controller->cgi->param('num');
!     my $test = $controller->recorder->tests->[$num];
! 
!     $controller->raw_response(headers => [ 'Content-Type' =>
!                                            $test->response->content_type ],
!                               content => $test->response->content);
  }
+ 
  sub wtscript_action {
      my $controller = shift;