dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Pass SSL options to DevOps Handler UA

Browse Source
This commit is contained in:
Christophe Maudoux 2022-04-07 22:39:19 +02:00
parent 2563110097
commit 89e389998d
2 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/AuthBasic.pm
View File

@ -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;

11
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/DevOps.pm
View File

@ -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 {