[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Savannah-cvs] administration/infra/savane/bin sv_groups
From: |
Elfyn McBratney |
Subject: |
[Savannah-cvs] administration/infra/savane/bin sv_groups |
Date: |
Mon, 13 Sep 2004 22:33:56 -0400 |
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";
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups,
Elfyn McBratney <=
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/13
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/14
- [Savannah-cvs] administration/infra/savane/bin sv_groups, Elfyn McBratney, 2004/09/14