diff options
| author | Angelo Naselli <anaselli@linux.it> | 2013-12-09 23:42:54 +0100 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2013-12-09 23:42:54 +0100 |
| commit | d602e5a6131be1f3c737b898b4bdde5aa7389cdd (patch) | |
| tree | e9b0d268c3f6576533a531a89b87a62dee78434e /AdminPanel/Users/users.pm | |
| parent | 3cb9fc2980fe586b599b5704e2db95bf50b56b87 (diff) | |
| download | manatools-d602e5a6131be1f3c737b898b4bdde5aa7389cdd.tar manatools-d602e5a6131be1f3c737b898b4bdde5aa7389cdd.tar.gz manatools-d602e5a6131be1f3c737b898b4bdde5aa7389cdd.tar.bz2 manatools-d602e5a6131be1f3c737b898b4bdde5aa7389cdd.tar.xz manatools-d602e5a6131be1f3c737b898b4bdde5aa7389cdd.zip | |
Added back GID/UID checks
Diffstat (limited to 'AdminPanel/Users/users.pm')
| -rw-r--r-- | AdminPanel/Users/users.pm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/AdminPanel/Users/users.pm b/AdminPanel/Users/users.pm index 1b876a33..a94aa056 100644 --- a/AdminPanel/Users/users.pm +++ b/AdminPanel/Users/users.pm @@ -20,6 +20,7 @@ our @EXPORT = qw( valid_username valid_groupname GetFaceIcon + Add2UsersGroup ); sub facesdir() { @@ -101,8 +102,24 @@ sub GetFaceIcon { return $current_icon; } +################################################## +## Add2UsersGroup +## params +## +## 'name' username +## 'ctx' USER::ADMIN object +## +## return +## gid group id +## +sub Add2UsersGroup { + my ($name, $ctx) = @_; + my $GetValue = -65533; ## Used by USER (for getting values? TODO need explanations, where?) - + my $usersgroup = $ctx->LookupGroupByName('users'); + $usersgroup->MemberName($name, 1); + return $usersgroup->Gid($GetValue); +} 1; |