diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | fake_packages/USER.pm | 56 |
2 files changed, 58 insertions, 0 deletions
@@ -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) = @_ } |