|
|
|
@ -17,7 +17,8 @@ use POSIX qw(strftime); |
|
|
|
sub process { |
|
|
|
sub process { |
|
|
|
my ( $self, $req, %args ) = @_; |
|
|
|
my ( $self, $req, %args ) = @_; |
|
|
|
|
|
|
|
|
|
|
|
#$req->error(PE_OK); |
|
|
|
# Store ipAddr in env |
|
|
|
|
|
|
|
$req->env->{ipAddr} = $req->address; |
|
|
|
my $err = PE_OK; |
|
|
|
my $err = PE_OK; |
|
|
|
while ( my $sub = shift @{ $req->steps } ) { |
|
|
|
while ( my $sub = shift @{ $req->steps } ) { |
|
|
|
if ( ref $sub ) { |
|
|
|
if ( ref $sub ) { |
|
|
|
|