[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 02:28:28

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.10&tr2=1.11&r1=text&r2=text

Patches:
Index: administration/infra/savane/bin/sv_groups
diff -u administration/infra/savane/bin/sv_groups:1.10 
administration/infra/savane/bin/sv_groups:1.11
--- administration/infra/savane/bin/sv_groups:1.10      Tue Sep 14 02:16:48 2004
+++ administration/infra/savane/bin/sv_groups   Tue Sep 14 02:28:28 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_groups,v 1.10 2004/09/14 02:16:48 beu Exp $
+# $Id: sv_groups,v 1.11 2004/09/14 02:28:28 beu Exp $
 #
 #  Copyright 2001 (c) Loic Dachary <address@hidden> (sv_cvs.pl)
 #            2003 (c) Mathieu Roy <address@hidden> 
@@ -357,6 +357,9 @@
     for my $user (keys (%group_savannah)) {
        my ($username) = GetDBSettings('user', "user_id=$user",
                                       'user_name');
+
+       die "$username doesn't exist in \%etc_password" if !exists 
$etc_password{$username};
+
        my $pwent = $etc_password{$username};
        if ($pwent) {
            # only continue if the user is created, otherwise wait one cycle
@@ -549,7 +552,7 @@
 
 # for now, only update the group administration, while testing
 #foreach my $group (@db_groups) {
-foreach my $group ('testy-ng0', 'administration') {
+foreach my $group ('testy-ng0')
     # If we run in no etc mode, we cannot handle group missing on the system 
     my ($exists) = getgrnam($group);
 
@@ -736,6 +739,7 @@
                        
                        print GRP "nogroup:x:65534:\n";
                        my $grent = $etc_group_bygroup{$group};
+                       die "$group doesn't exist in \$etc_group_bygroup" if 
!$grent;
                        print GRP "$group:x:$grent->[2]:$users\n";
                        $grent = $etc_group_bygroup{"web$group"};
                        print GRP "web$group:x:$grent->[2]:$webusers\n";