@ -110,8 +110,6 @@ SKIP: {
ok( $lang->[1] eq 'en', 'extract_lang Android' );
ok( scalar(@$lang) == 2, 'extract_lang Android' );
# SOAP
eval { require SOAP::Lite };
skip "SOAP::Lite is not installed, so CGI SOAP functions will not work", 3
@ -150,7 +150,7 @@ sub run ($$) {
$class->hideCookie;
# Hide user password
$class->lmUnsetHeaderIn( $apacheRequest, "Authorization");
$class->lmUnsetHeaderIn( $apacheRequest, "Authorization" );
# ACCOUNTING
# 2 - Inform remote application
@ -962,7 +962,7 @@ sub run ($$) {
my $str = $1;
$class->lmLog( 'CDA request', 'debug' );
$apacheRequest->args($args);
my $redirectUrl = $class->_buildUrl( $apacheRequest->uri );
my $redirectHttps = ( $redirectUrl =~ m/^https/ );
lmSetErrHeaderOut( $apacheRequest,
'Location' => $redirectUrl . ( $args ? "?" . $args : "" ) );
@ -34,8 +34,7 @@ sub extractFormInfo {
return PE_OK;
}
else {
$self->_sub( 'userError',
"No certificate found for " . $self->ipAddr );
$self->_sub( 'userError', "No certificate found for " . $self->ipAddr );
return PE_CERTIFICATEREQUIRED;
@ -95,6 +95,6 @@ ok( $p->process > 0, 'User OK' );
ok( $p->{cookie}->[0]->value eq '1', 'Cookie value' );
# Time conversion
my ($d, $h, $m, $s) = $p->convertSec('123456');
ok( $d == 1 && $h == 10 && $m == 17 && $s == 36, 'Time conversion');
my ( $d, $h, $m, $s ) = $p->convertSec('123456');
ok( $d == 1 && $h == 10 && $m == 17 && $s == 36, 'Time conversion' );