Pass SSL options to DevOps Handler UA
This commit is contained in:
parent
2563110097
commit
89e389998d
|
@ -11,12 +11,23 @@ use Lemonldap::NG::Common::UserAgent;
|
||||||
use Lemonldap::NG::Common::FormEncode;
|
use Lemonldap::NG::Common::FormEncode;
|
||||||
use Lemonldap::NG::Common::Session;
|
use Lemonldap::NG::Common::Session;
|
||||||
|
|
||||||
our $VERSION = '2.0.7';
|
our $VERSION = '2.0.15';
|
||||||
our @ISA = ('Exporter');
|
our @ISA = ('Exporter');
|
||||||
our @EXPORT = qw(fetchId retrieveSession createSession hideCookie goToPortal);
|
our @EXPORT = qw(fetchId retrieveSession createSession hideCookie goToPortal);
|
||||||
our @EXPORT_OK = @EXPORT;
|
our @EXPORT_OK = @EXPORT;
|
||||||
our $_ua;
|
our $_ua;
|
||||||
|
|
||||||
|
sub ua {
|
||||||
|
my ($class) = @_;
|
||||||
|
return $_ua if $_ua;
|
||||||
|
$_ua = Lemonldap::NG::Common::UserAgent->new( {
|
||||||
|
lwpOpts => $class->tsv->{lwpOpts},
|
||||||
|
lwpSslOpts => $class->tsv->{lwpSslOpts}
|
||||||
|
}
|
||||||
|
);
|
||||||
|
return $_ua;
|
||||||
|
}
|
||||||
|
|
||||||
## @rmethod protected fetchId
|
## @rmethod protected fetchId
|
||||||
# Get user session id from Authorization header
|
# Get user session id from Authorization header
|
||||||
# Unlike usual processing, session id is computed from user creds,
|
# Unlike usual processing, session id is computed from user creds,
|
||||||
|
@ -163,15 +174,4 @@ sub goToPortal {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
sub ua {
|
|
||||||
my ($class) = @_;
|
|
||||||
return $_ua if ($_ua);
|
|
||||||
$_ua = Lemonldap::NG::Common::UserAgent->new( {
|
|
||||||
lwpOpts => $class->tsv->{lwpOpts},
|
|
||||||
lwpSslOpts => $class->tsv->{lwpSslOpts}
|
|
||||||
}
|
|
||||||
);
|
|
||||||
return $_ua;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
|
@ -8,9 +8,14 @@ our $VERSION = '2.0.15';
|
||||||
our $_ua;
|
our $_ua;
|
||||||
|
|
||||||
sub ua {
|
sub ua {
|
||||||
return $_ua
|
my ($class) = @_;
|
||||||
? $_ua
|
return $_ua if $_ua;
|
||||||
: Lemonldap::NG::Common::UserAgent->new( $_[0]->localConfig );
|
$_ua = Lemonldap::NG::Common::UserAgent->new( {
|
||||||
|
lwpOpts => $class->tsv->{lwpOpts},
|
||||||
|
lwpSslOpts => $class->tsv->{lwpSslOpts}
|
||||||
|
}
|
||||||
|
);
|
||||||
|
return $_ua;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub checkMaintenanceMode {
|
sub checkMaintenanceMode {
|
||||||
|
|
Loading…
Reference in New Issue
Block a user