Permit to show $_password in REST session server (#1799)
This commit is contained in:
parent
4ad0da0315
commit
5dc5b88daa
|
@ -201,8 +201,8 @@ sub delete2F {
|
||||||
return $self->sendJSONresponse( $req, { result => 1 } );
|
return $self->sendJSONresponse( $req, { result => 1 } );
|
||||||
}
|
}
|
||||||
|
|
||||||
sub session {
|
sub _session {
|
||||||
my ( $self, $req, $id, $skey ) = @_;
|
my ( $self, $raw, $req, $id, $skey ) = @_;
|
||||||
my ( %h, $res );
|
my ( %h, $res );
|
||||||
return $self->sendError( $req, 'Bad request', 400 ) unless ($id);
|
return $self->sendError( $req, 'Bad request', 400 ) unless ($id);
|
||||||
my $mod = $self->getMod($req)
|
my $mod = $self->getMod($req)
|
||||||
|
@ -214,11 +214,13 @@ sub session {
|
||||||
|
|
||||||
my %session = %{ $apacheSession->data };
|
my %session = %{ $apacheSession->data };
|
||||||
|
|
||||||
foreach my $k ( keys %session ) {
|
unless ($raw) {
|
||||||
$session{$k} = '**********'
|
foreach my $k ( keys %session ) {
|
||||||
if ( $self->hAttr =~ /\b$k\b/ );
|
$session{$k} = '**********'
|
||||||
$session{$k} = [ split /$self->separator/o, $session{$k} ]
|
if ( $self->hAttr =~ /\b$k\b/ );
|
||||||
if ( $session{$k} =~ /$self->separator/o );
|
$session{$k} = [ split /$self->separator/o, $session{$k} ]
|
||||||
|
if ( $session{$k} =~ /$self->separator/o );
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($skey) {
|
if ($skey) {
|
||||||
|
@ -237,6 +239,16 @@ sub session {
|
||||||
# TODO: check for utf-8 problems
|
# TODO: check for utf-8 problems
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub session {
|
||||||
|
my $self = shift;
|
||||||
|
return $self->_session( 0, @_ );
|
||||||
|
}
|
||||||
|
|
||||||
|
sub rawSession {
|
||||||
|
my $self = shift;
|
||||||
|
return $self->_session( 1, @_ );
|
||||||
|
}
|
||||||
|
|
||||||
sub getApacheSession {
|
sub getApacheSession {
|
||||||
my ( $self, $mod, $id, $info, $force ) = @_;
|
my ( $self, $mod, $id, $info, $force ) = @_;
|
||||||
my $apacheSession = Lemonldap::NG::Common::Session->new( {
|
my $apacheSession = Lemonldap::NG::Common::Session->new( {
|
||||||
|
|
|
@ -134,7 +134,7 @@ sub init {
|
||||||
|
|
||||||
# Methods inherited from Lemonldap::NG::Common::Session::REST
|
# Methods inherited from Lemonldap::NG::Common::Session::REST
|
||||||
$self->addUnauthRoute(
|
$self->addUnauthRoute(
|
||||||
sessions => { ':sessionType' => 'session' },
|
sessions => { ':sessionType' => 'rawSession' },
|
||||||
['GET']
|
['GET']
|
||||||
);
|
);
|
||||||
$self->addUnauthRoute(
|
$self->addUnauthRoute(
|
||||||
|
|
Loading…
Reference in New Issue
Block a user