savannah-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Elfyn McBratney
Subject: [Savannah-cvs] administration/infra/savane/bin sv_users
Date: Mon, 13 Sep 2004 23:30:09 -0400

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

Modified files:
        infra/savane/bin: sv_users 

Log message:
        .

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

Patches:
Index: administration/infra/savane/bin/sv_users
diff -u administration/infra/savane/bin/sv_users:1.14 
administration/infra/savane/bin/sv_users:1.15
--- administration/infra/savane/bin/sv_users:1.14       Tue Sep 14 03:06:56 2004
+++ administration/infra/savane/bin/sv_users    Tue Sep 14 03:08:57 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_users,v 1.14 2004/09/14 03:06:56 beu Exp $
+# $Id: sv_users,v 1.15 2004/09/14 03:08:57 beu Exp $
 #
 #  Copyright 2001      (c) Loic Dachary <loic--at--gnu.org> (sv_cvs.pl)
 #            2003-2004 (c) Mathieu Roy <yeupou--at--gnu.org> 
@@ -202,13 +202,12 @@
 }
 
 my %db_user_group;
-my @db_user_group_infos = GetDB("user_group,groups,user",
-                               "groups.group_id=user_group.group_id AND ".
-                               "user.user_id=user_group.user_id AND ".
-                               "groups.status='A' AND 
user_group.admin_flags<>'P'",
-                               "user_name,unix_group_name");
 
-foreach my $line (@db_user_group_infos) {
+foreach my $line (GetDB("user_group,groups,user",
+                       "groups.group_id=user_group.group_id AND ".
+                       "user.user_id=user_group.user_id AND ".
+                       "groups.status='A' AND user_group.admin_flags<>'P'",
+                       "user_name,unix_group_name")) {
     chomp($line);
     my ($user, $group) = split(",", $line);
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]