1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
package USER;
our @ISA = qw();
sub ReadConfigFiles() {}
package USER::ADMIN;
our @ISA = qw();
sub CleanHome { my ($_self, $_ent) = @_ }
sub CleanSpool { my ($_self, $_ent) = @_ }
sub DESTROY { my ($_self) = @_ }
sub EnumerateGroupsByUser { my ($_self, $_name) = @_ }
sub EnumerateUsersByGroup { my ($_self, $_name) = @_ }
sub GetUserShells { my ($_self) = @_ }
sub GroupAdd { my ($_self, $_ent) = @_ }
sub GroupDel { my ($_self, $_ent) = @_ }
sub GroupModify { my ($_self, $_ent) = @_ }
sub GroupsEnumerate { my ($_self) = @_ }
sub GroupsEnumerateFull { my ($_self) = @_ }
sub InitGroup { my ($_self, $_name, $_is_system) = @_ }
sub InitUser { my ($_self, $_name, $_is_system) = @_ }
sub IsLocked { my ($_self, $_ent) = @_ }
sub Lock { my ($_self, $_ent) = @_ }
sub LookupGroupById { my ($_self, $_id) = @_ }
sub LookupGroupByName { my ($_self, $_name) = @_ }
sub LookupUserById { my ($_self, $_id) = @_ }
sub LookupUserByName { my ($_self, $_name) = @_ }
sub UnLock { my ($_self, $_ent) = @_ }
sub UserAdd { my ($_self, $_ent, $_is_system, $_dont_create_home) = @_ }
sub UserDel { my ($_self, $_ent) = @_ }
sub UserModify { my ($_self, $_ent) = @_ }
sub UserSetPass { my ($_self, $_ent, $_userPasswd) = @_ }
sub UsersEnumerate { my ($_self) = @_ }
sub UsersEnumerateFull { my ($_self) = @_ }
sub new { my ($_CLASS) = @_ }
package USER::ENT;
our @ISA = qw();
sub DESTROY { my ($_self) = @_ }
sub EntType { my ($_self) = @_ }
sub Gecos { my ($_self, $_ssv) = @_ }
sub Gid { my ($_self, $_ssv) = @_ }
sub GroupName { my ($_self, $_ssv) = @_ }
sub HomeDir { my ($_self, $_ssv) = @_ }
sub LoginShell { my ($_self, $_ssv) = @_ }
sub MemberName { my ($_self, $_rv, $_AddOrDel) = @_ }
sub ShadowExpire { my ($_self, $_ssv) = @_ }
sub ShadowFlag { my ($_self, $_ssv) = @_ }
sub ShadowInact { my ($_self, $_ssv) = @_ }
sub ShadowLastChange { my ($_self, $_ssv) = @_ }
sub ShadowMax { my ($_self, $_ssv) = @_ }
sub ShadowMin { my ($_self, $_ssv) = @_ }
sub ShadowPass { my ($_self, $_ssv) = @_ }
sub ShadowWarn { my ($_self, $_ssv) = @_ }
sub Uid { my ($_self, $_ssv) = @_ }
sub UserName { my ($_self, $_ssv) = @_ }
sub new { my ($_CLASS) = @_ }
|
