[Http-webtest-commits] HTTP-WebTest-Recorder/lib/HTTP/WebTest Recorder.pm,1.8,1.9

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

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

Modified Files:
	Recorder.pm 
Log Message:
Use $DEFAULT_ACTION from config


Index: Recorder.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Recorder/lib/HTTP/WebTest/Recorder.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Recorder.pm	27 Feb 2003 22:00:39 -0000	1.8
--- Recorder.pm	7 Sep 2003 19:22:04 -0000	1.9
***************
*** 26,29 ****
--- 26,30 ----
  
  use HTTP::WebTest::Recorder::Controller;
+ use HTTP::WebTest::Recorder::Config qw($DEFAULT_ACTION);
  
  # constructor
***************
*** 61,67 ****
  
      my $ui_path = $self->ui_path;
!     my($action) = $request->uri->path =~ m|^ /\Q$ui_path\E/(\w+) |x;
! 
!     return $action;
  }
  
--- 62,70 ----
  
      my $ui_path = $self->ui_path;
!     if($request->uri->path =~ m|^ /\Q$ui_path\E/(\w*) |x) {
!         return $1 || $DEFAULT_ACTION;
!     } else {
!         return undef;
!     }
  }
  
***************
*** 74,77 ****
--- 77,82 ----
  }
  
+ # record request/response pair if recording is turn on and filters
+ # were matched
  sub record {
      my $self = shift;