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::Session;
|
||||
|
||||
our $VERSION = '2.0.7';
|
||||
our $VERSION = '2.0.15';
|
||||
our @ISA = ('Exporter');
|
||||
our @EXPORT = qw(fetchId retrieveSession createSession hideCookie goToPortal);
|
||||
our @EXPORT_OK = @EXPORT;
|
||||
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
|
||||
# Get user session id from Authorization header
|
||||
# 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;
|
||||
|
|
|
@ -8,9 +8,14 @@ our $VERSION = '2.0.15';
|
|||
our $_ua;
|
||||
|
||||
sub ua {
|
||||
return $_ua
|
||||
? $_ua
|
||||
: Lemonldap::NG::Common::UserAgent->new( $_[0]->localConfig );
|
||||
my ($class) = @_;
|
||||
return $_ua if $_ua;
|
||||
$_ua = Lemonldap::NG::Common::UserAgent->new( {
|
||||
lwpOpts => $class->tsv->{lwpOpts},
|
||||
lwpSslOpts => $class->tsv->{lwpSslOpts}
|
||||
}
|
||||
);
|
||||
return $_ua;
|
||||
}
|
||||
|
||||
sub checkMaintenanceMode {
|
||||
|
|
Loading…
Reference in New Issue