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

Use user* methods instead of lmLog for user actions (can be put in syslog)

Browse Source
This commit is contained in:
Xavier Guimard 2013-10-13 12:15:01 +00:00
parent 01ae2b697d
commit ffda037c52
6 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthGoogle.pm
View File

@ -139,9 +139,8 @@ sub checkGoogleSession {
# Case 1: value was asked but not returned, set an empty value # Case 1: value was asked but not returned, set an empty value
# in persistent session (so that it's defined) # in persistent session (so that it's defined)
if ( $self->{_AXNS} ) { if ( $self->{_AXNS} ) {
$self->lmLog( $self->_sub( 'userInfo',
"$v required attribute is missing in Google response, storing ''", "$v required attribute is missing in Google response, storing ''"
'info'
); );
$h->{$v} = $gs->{$v} = ''; $h->{$v} = $gs->{$v} = '';
} }
@ -149,9 +148,8 @@ sub checkGoogleSession {
# Case 2: value is not stored, probably configuration has # Case 2: value is not stored, probably configuration has
# changed and this value was never asked # changed and this value was never asked
else { else {
$self->lmLog( $self->_sub( 'userInfo',
"$v required attribute is missing in persistent session, let's ask it", "$v required attribute is missing in persistent session, let's ask it"
'info'
); );
return 0; return 0;
} }

5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthOpenID.pm
View File

@ -77,7 +77,7 @@ sub extractFormInfo {
# If confirmation is needed # If confirmation is needed
if ( my $setup_url = $csr->user_setup_url ) { if ( my $setup_url = $csr->user_setup_url ) {
$self->lmLog( 'OpenID confirmation needed', 'info' ); $self->_sub( 'userInfo', 'OpenID confirmation needed' );
print $self->redirect($setup_url); print $self->redirect($setup_url);
$self->quit(); $self->quit();
} }
@ -113,7 +113,8 @@ sub extractFormInfo {
if ( $tmp =~ if ( $tmp =~
$self->{_reopenIdIDPList} xor $self->{_openIdIDPListIsWhite} ) $self->{_reopenIdIDPList} xor $self->{_openIdIDPListIsWhite} )
{ {
$self->lmLog( "$url is forbidden for openID exchange", 'warn' ); $self->_sub( 'userNotice',
"$url is forbidden for openID exchange" );
$self->{_msg} = $self->{_msg} =
"OpenID error: $tmp is forbidden for OpenID echange"; "OpenID error: $tmp is forbidden for OpenID echange";
return PE_BADPARTNER; return PE_BADPARTNER;

4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthRadius.pm
View File

@ -55,8 +55,8 @@ sub authenticate {
my $res = $self->{radius}->check_pwd( $self->{user}, $self->{password} ); my $res = $self->{radius}->check_pwd( $self->{user}, $self->{password} );
unless ( $res == 1 ) { unless ( $res == 1 ) {
$self->lmLog( "Unable to authenticate " . $self->{user} . " !", $self->_sub( 'userNotice',
'notice' ); "Unable to authenticate " . $self->{user} . " !" );
return PE_BADCREDENTIALS; return PE_BADCREDENTIALS;
} }
return PE_OK; return PE_OK;

4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBDBI.pm
View File

@ -62,7 +62,7 @@ sub getUser {
} }
unless ( $self->{entry} = $sth->fetchrow_hashref() ) { unless ( $self->{entry} = $sth->fetchrow_hashref() ) {
$self->lmLog( "User $user not found", 'notice' ); $self->_sub( 'userNotice', "User $user not found" );
return PE_BADCREDENTIALS; return PE_BADCREDENTIALS;
} }
@ -83,7 +83,7 @@ sub getUser {
my $results; my $results;
unless ( $results = $sth->fetchrow_hashref() ) { unless ( $results = $sth->fetchrow_hashref() ) {
$self->lmLog( "User $user not found", 'notice' ); $self->_sub( 'userNotice', "User $user not found" );
return PE_BADCREDENTIALS; return PE_BADCREDENTIALS;
} }

2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_CAS.pm
View File

@ -26,7 +26,7 @@ sub getCasSession {
# Session not available # Session not available
if ($id) { if ($id) {
$self->lmLog( "CAS session $id isn't yet available", 'info' ); $self->_sub( 'userInfo', "CAS session $id isn't yet available" );
} }
else { else {
$self->lmLog( "Unable to create new CAS session: $@", 'error' ); $self->lmLog( "Unable to create new CAS session: $@", 'error' );

2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_DBI.pm
View File

@ -100,7 +100,7 @@ sub check_password {
return 1; return 1;
} }
else { else {
$self->lmLog( "Bad password for $user", 'error' ); $self->_sub( 'userError', "Bad password for $user" );
return 0; return 0;
} }