Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv5396
Modified Files:
Tag: uidgid
User.pm
Log Message:
Adding modify select so drm can see where I'd check the info
Index: User.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Attic/User.pm,v
retrieving revision 1.1.2.10
retrieving revision 1.1.2.11
diff -u -d -r1.1.2.10 -r1.1.2.11
--- User.pm 11 Aug 2003 16:27:59 -0000 1.1.2.10
+++ User.pm 11 Aug 2003 17:01:45 -0000 1.1.2.11
@@ -52,6 +52,9 @@
END { } # module clean-up code here (global destructor)
+### Using shell scripts for now, will just add the commands
+### direct before finished, just faster for now
+
### Create User
sub add_user {
my $self = shift;
@@ -167,6 +170,11 @@
my $self = shift;
my $type = shift;
my $name = shift;
+ my $desc = shift;
+ my $pass = shift || "";
+ my $shell = shift || "/usr/bin/false";
+ my $home = shift || "/tmp";
+ my $group = shift || $name;
my $id = 0;
### find if a user exists
@@ -175,11 +183,15 @@
if ($type eq "group") {
$currentname = User::grent::getgrgid($id);
if ($name eq $currentname) {
+ ### FIXME
+ ### Compare info make it's hte same, or setup process rules
return 1;
}
} else {
$currentname = User::pwent::getpwuid($id);
if ($name eq $currentname) {
+ ### FIXME
+ ### Compare info make it's hte same, or setup process rules
return 1;
}
}
@@ -234,7 +246,8 @@
$pass = $self->mkpasswd();
}
- unless ($self->check_for_name($type, $name)) {
+ unless ($self->check_for_name($type, $name, $desc, $pass, $shell,
+ $home, $group)) {
### add user/group
if ($type eq "user") {
$self->add_user($name, $desc, $pass, $shell, $home, $group);
-------------------------------------------------------
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
