summaryrefslogtreecommitdiffstats
path: root/fake_packages
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-08-27 18:04:39 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-08-27 18:21:37 +0200
commit7754f108670c2e084f3e31ad6de8d663d7bce071 (patch)
treebbc6de4b6be1d031bd8b744f2ef1687cdaf6cbbc /fake_packages
parent6fa7e4e9b9a40512c9160b83dc23d4b61e4e1e9c (diff)
downloadperl_checker-7754f108670c2e084f3e31ad6de8d663d7bce071.tar
perl_checker-7754f108670c2e084f3e31ad6de8d663d7bce071.tar.gz
perl_checker-7754f108670c2e084f3e31ad6de8d663d7bce071.tar.bz2
perl_checker-7754f108670c2e084f3e31ad6de8d663d7bce071.tar.xz
perl_checker-7754f108670c2e084f3e31ad6de8d663d7bce071.zip
add USER fake package for userdrake
Diffstat (limited to 'fake_packages')
-rw-r--r--fake_packages/USER.pm56
1 files changed, 56 insertions, 0 deletions
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) = @_ }