oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding karma.

Browse source
This commit is contained in:
JT Smith 2002-06-19 02:44:54 +00:00
parent c2f4800620
commit e3847cb9b1
1 changed files with 22 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lib/WebGUI/Privilege.pm
View file

@ -108,19 +108,34 @@ sub insufficient {
#-------------------------------------------------------------------
sub isInGroup {
my ($gid, $uid, $result);
my ($gid, $uid, @data, %group, %user);
($gid, $uid) = @_;
if ($uid eq "") {
$uid = $session{user}{userId};
}
### The "Everyone" group automatically returns true.
if ($gid == 7) {
return 1; # If the "Everyone" group is specified then return true regardless of the user.
return 1;
}
($result) = WebGUI::SQL->quickArray("select count(*) from groupings where groupId='$gid' and userId='$uid' and expireDate>".time());
if ($result < 1 && $gid != 3) { # admins can
$result = isInGroup(3, $uid); # do anything any
} # user can do
return $result;
### Lookup the actual grouping.
@data = WebGUI::SQL->quickArray("select count(*) from groupings where groupId='$gid' and userId='$uid' and expireDate>".time());
if ($data[0] > 0) {
return 1;
}
### Get data for auxillary checks.
tie %group, 'Tie::CPHash';
%group = WebGUI::SQL->quickHash("select karmaThreshold from groups where groupId='$gid'");
tie %user, 'Tie::CPHash';
%user = WebGUI::SQL->quickHash("select karma from users where userId='$uid'");
### Check karma levels.
if ($user{karma} >= $group{karmaThreshold}) {
return 1;
}
### Admins can do anything!
if ($gid != 3) {
return isInGroup(3, $uid);
}
return 0;
}
#-------------------------------------------------------------------