use Test::More; use strict; use IO::String; use Data::Dumper; BEGIN { require 't/test-lib.pm'; } my $res; my $client = LLNG::Manager::Test->new( { ini => { logLevel => 'error', authentication => 'Demo', userDB => 'Same', loginHistoryEnabled => 0, bruteForceProtection => 0, requireToken => 0, restSessionServer => 1, globalLogoutRule => '$uid eq "dwho"', globalLogoutCustomParam => 'zeAUTHMODE_authmode' } } ); ## First successful connection for 'dwho' ok( $res = $client->_post( '/', IO::String->new('user=dwho&password=dwho'), length => 23, accept => 'text/html', ), '1st "dwho" Auth query' ); count(1); my $idd = expectCookie($res); expectRedirection( $res, 'http://auth.example.com/' ); ## Second successful connection for "dwho" ok( $res = $client->_post( '/', IO::String->new('user=dwho&password=dwho'), length => 23, accept => 'text/html', ), '2nd "dwho" Auth query' ); count(1); expectCookie($res); expectRedirection( $res, 'http://auth.example.com/' ); ## Third successful connection for 'dwho' ok( $res = $client->_post( '/', IO::String->new('user=dwho&password=dwho'), length => 23, accept => 'text/html', ), '3rd "dwho" Auth query' ); count(1); expectCookie($res); expectRedirection( $res, 'http://auth.example.com/' ); ## First successful connection for 'rtyler' ok( $res = $client->_post( '/', IO::String->new('user=rtyler&password=rtyler'), length => 27, accept => 'text/html', ), '1st "rtyler" Auth query' ); count(1); my @idr; $idr[0] = expectCookie($res); expectRedirection( $res, 'http://auth.example.com/' ); ## 2nd successful connection for 'rtyler' ok( $res = $client->_post( '/', IO::String->new('user=rtyler&password=rtyler'), length => 27, accept => 'text/html', ), '2nd "rtyler" Auth query' ); count(1); $idr[1] = expectCookie($res); expectRedirection( $res, 'http://auth.example.com/' ); my $nbr = count_sessions(); ok( $nbr == 5, "Five sessions found" ) or explain("Number of session(s) found = $nbr"); count(1); ## Logout request for 'rtyler' ok( $res = $client->_get( '/', query => 'logout', cookie => "lemonldap=$idr[0]", accept => 'text/html' ), 'Logout request for "rtyler"' ); count(1); ok( $res->[2]->[0] =~ m%%, 'Found PE_LOGOUT_OK' ) or explain( $res->[2]->[0], "PE_LOGOUT_OK" ); count(1); $client->logout( $idr[1] ); $nbr = count_sessions(); ok( $nbr == 3, "Three sessions found" ) or explain("Number of session(s) found = $nbr"); count(1); ## Logout request for 'dwho' ok( $res = $client->_get( '/', query => 'logout', cookie => "lemonldap=$idd", accept => 'text/html' ), 'Logout request for "dwho"' ); count(1); my ( $host, $url, $query ) = expectForm( $res, undef, '/globallogout?all=1', 'token' ); ok( $res->[2]->[0] =~ m%%, 'Found trspan="globalLogout"' ) or explain( $res->[2]->[0], 'trspan="globalLogout"' ); ok( $res->[2]->[0] =~ m%