[Savannah-cvs] administration/infra/savane/bin sv_groups

[Elfyn McBratney]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Elfyn McBratney <address@hidden>        04/09/14 04:06:07

Modified files:
        infra/savane/bin: sv_groups 

Log message:
        .

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/savane/bin/sv_groups.diff?tr1=1.20&tr2=1.21&r1=text&r2=text

Patches:
Index: administration/infra/savane/bin/sv_groups
diff -u administration/infra/savane/bin/sv_groups:1.20 
administration/infra/savane/bin/sv_groups:1.21
--- administration/infra/savane/bin/sv_groups:1.20      Tue Sep 14 04:01:27 2004
+++ administration/infra/savane/bin/sv_groups   Tue Sep 14 04:06:07 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_groups,v 1.20 2004/09/14 04:01:27 beu Exp $
+# $Id: sv_groups,v 1.21 2004/09/14 04:06:07 beu Exp $
 #
 #  Copyright 2001 (c) Loic Dachary <address@hidden> (sv_cvs.pl)
 #            2003 (c) Mathieu Roy <address@hidden> 
@@ -723,9 +723,9 @@
                        if ($name ne "www") {
                            foreach my $user_id (@www_members) {
                                my ($user) = GetDBSettings('user', 
"user_id=$user_id", 'user_name');
-                               die "user id $user_id doesn't exist in 
/etc/passwd" if !$user;
+                               die "user $user doesn't exist in /etc/passwd" 
if $user && !exists $etc_password{$user};
+
                                my $pwent = $etc_password{$user};
-                               
                                print PW 
"$user:x:$pwent->[2]:$pwent->[3]:$pwent->[6]:$pwent->[7]:/bin/false\n";
                                $webusers .= ',' if $webusers;
                                $webusers .= $user;