Store ipAddr in env (#1534)

7 years ago · d577fb8ede
parent bf51bd868b
commit d577fb8ede
1 changed files with 2 additions and 1 deletions
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm
@ -17,7 +17,8 @@ use POSIX qw(strftime);
 sub process {
    my ( $self, $req, %args ) = @_;

-    #$req->error(PE_OK);
+    # Store ipAddr in env
+    $req->env->{ipAddr} = $req->address;
    my $err = PE_OK;
    while ( my $sub = shift @{ $req->steps } ) {
        if ( ref $sub ) {