[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest Recorder.pm,1.5,1.6

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

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

Modified Files:
	Recorder.pm 
Log Message:
Added filtering of requests


Index: Recorder.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Recorder.pm	25 Jan 2003 18:22:55 -0000	1.5
--- Recorder.pm	13 Feb 2003 11:26:30 -0000	1.6
***************
*** 53,56 ****
--- 53,58 ----
  # if recording is enabled
  *is_recording = make_access_method('IS_RECORDING', sub { 0 });
+ # store filter settings
+ *filter = make_access_method('FILTER', sub { {} });
  
  # serve web interface and do recording/proxying
***************
*** 69,73 ****
          # proxy request
          my $response = $self->user_agent->simple_request($request);
!         if($self->is_recording) {
              push @{$self->tests}, $self->make_test($request, $response);
          }
--- 71,82 ----
          # proxy request
          my $response = $self->user_agent->simple_request($request);
!         my $is_recording = $self->is_recording;
!         if($self->filter->{header}) {
!             while(my($header, $regexp) = each %{$self->filter->{header}}) {
!                 $is_recording &&= $response->header($header) =~ $regexp;
!             }
!         }
! 
!         if($is_recording) {
              push @{$self->tests}, $self->make_test($request, $response);
          }