From 7754f108670c2e084f3e31ad6de8d663d7bce071 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 27 Aug 2016 18:04:39 +0200 Subject: add USER fake package for userdrake --- fake_packages/USER.pm | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100644 fake_packages/USER.pm (limited to 'fake_packages') diff --git a/fake_packages/USER.pm b/fake_packages/USER.pm new file mode 100644 index 0000000..3722efa --- /dev/null +++ b/fake_packages/USER.pm @@ -0,0 +1,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) = @_ } -- cgit v1.2.1