Commit ab662554 authored by Sandro CAZZANIGA Sandro CAZZANIGA's avatar Sandro CAZZANIGA Sandro CAZZANIGA
Browse files

make tidy

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