From d602e5a6131be1f3c737b898b4bdde5aa7389cdd Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 9 Dec 2013 23:42:54 +0100 Subject: Added back GID/UID checks --- AdminPanel/Users/users.pm | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'AdminPanel/Users/users.pm') 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; -- cgit v1.2.1