summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS2
-rw-r--r--fake_packages/USER.pm56
2 files changed, 58 insertions, 0 deletions
diff --git a/NEWS b/NEWS
index 0ea6edb..124080d 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- fake packages:
+ o add USER for userdrake
- don't die when @ISA or "use base" is used more than once,
make it a warning instead (needed for Parted bindings)
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) = @_ }