Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv4860
Modified Files:
Tag: uidgid
User.pm
Log Message:
starting the execute calls, need to play with the hash a little first, I'm not a pro
with hashes yet :)
Index: User.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Attic/User.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -d -r1.1.2.3 -r1.1.2.4
--- User.pm 9 Aug 2003 02:52:08 -0000 1.1.2.3
+++ User.pm 9 Aug 2003 05:27:42 -0000 1.1.2.4
@@ -83,6 +83,8 @@
my $self = shift
my $user = shift;
+ my $cmd = "$basepath/sbin/userdel -r $user";
+
return 1;
}
@@ -91,6 +93,10 @@
my $self = shift;
my $group = shift;
+ my $gid = $usrgrps{'group'}->{$group}->{$gid};
+
+ my $cmd = "$basepath/sbin/groupadd -g $gid $group";
+
return 1;
}
@@ -99,6 +105,8 @@
my $self = shift;
my $group = shift;
+ my $cmd = "$basepath/sbin/groupdel $group";
+
return 1;
}
@@ -170,7 +178,7 @@
### Forget users and groups and reload via debs or info of installed pkgs
sub forget_ids {
- shift; # drop proto
+ $self = shift;
@users = ();
@groups = ();
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
