Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get_user_byid can be instructed to fetch only 'real' users.

Browse Source
This commit is contained in:
Chris 2011-07-27 22:30:42 +01:00
parent 74e98115a2
commit 3d815cc333
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
phpBB3.pm
View File

@ -282,20 +282,24 @@ sub get_user {
} }
## @method $ get_user_byid($userid) ## @method $ get_user_byid($userid, $onlyreal)
# Search for a user with the specified id in the database. This will attempt # Search for a user with the specified id in the database. This will attempt
# to obtain a user record for a user with the specified id in the phpBB3 # to obtain a user record for a user with the specified id in the phpBB3
# database, and return a reference to a hash containing the data if successful. # database, and return a reference to a hash containing the data if successful.
# #
# @param userid The id of the user to locate. # @param userid The id of the user to locate.
# @param onlyreal If set, the userid must correspond to a 'real' user: if the id
# is a bot or inactive account, this returns undef.
# @return A reference to the user's data, or undef if the user could not be located # @return A reference to the user's data, or undef if the user could not be located
# or an error occurred. # or an error occurred.
sub get_user_byid { sub get_user_byid {
my $self = shift; my $self = shift;
my $userid = shift; my $userid = shift;
my $onlyreal = shift;
my $userh = $self -> {"dbh"} -> prepare("SELECT * FROM ".$self -> {"prefix"}."users my $userh = $self -> {"dbh"} -> prepare("SELECT * FROM ".$self -> {"prefix"}."users
WHERE user_id = ?"); WHERE user_id = ?".
($onlyreal ? " AND user_type IN (0,3)" : ""));
$userh -> execute($userid) $userh -> execute($userid)
or die "phpBB3::get_user_byid(): Unable to execute user lookup query.\nError was: ".$self -> {"dbh"} -> errstr."\n"; or die "phpBB3::get_user_byid(): Unable to execute user lookup query.\nError was: ".$self -> {"dbh"} -> errstr."\n";