From: Chris W. <la...@us...> - 2004-10-05 03:05:18
|
Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Auth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20125/Auth Modified Files: User.pm Log Message: cosmetic Index: User.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Auth/User.pm,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** User.pm 22 Feb 2004 04:41:48 -0000 1.20 --- User.pm 5 Oct 2004 03:05:09 -0000 1.21 *************** *** 23,28 **** if ( $user ) { $is_logged_in = 'yes'; ! $log->is_info && ! $log->info( "Found user from session cache" ); } else { --- 23,27 ---- if ( $user ) { $is_logged_in = 'yes'; ! $log->is_info && $log->info( "Found user from session cache" ); } else { *************** *** 137,141 **** $log->is_info && $log->info( "Set user to session cache, expires in ", ! "[$user_refresh] minutes" ); } --- 136,140 ---- $log->is_info && $log->info( "Set user to session cache, expires in ", ! "'$user_refresh' minutes" ); } *************** *** 197,203 **** $log->info( "Found login name [$login_name]" ); ! my $user = eval { CTX->lookup_object( 'user' ) ! ->fetch_by_login_name( $login_name, ! { skip_security => 1 } ) }; if ( $@ ) { $log->error( "Error fetching user by login name: $@" ); --- 196,204 ---- $log->info( "Found login name [$login_name]" ); ! my $user = eval { ! CTX->lookup_object( 'user' ) ! ->fetch_by_login_name( $login_name, ! { skip_security => 1 } ) ! }; if ( $@ ) { $log->error( "Error fetching user by login name: $@" ); *************** *** 213,217 **** # Check the password ! my $password = $request->param( $password_field ); unless ( $user->check_password( $password ) ) { --- 214,218 ---- # Check the password ! my $password = $request->param( $password_field ); unless ( $user->check_password( $password ) ) { |