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

[Elfyn McBratney]

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

Modified files:
        infra/savane/bin: sv_users 

Log message:
        add back user_id.

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

Patches:
Index: administration/infra/savane/bin/sv_users
diff -u administration/infra/savane/bin/sv_users:1.16 
administration/infra/savane/bin/sv_users:1.17
--- administration/infra/savane/bin/sv_users:1.16       Tue Sep 14 03:10:16 2004
+++ administration/infra/savane/bin/sv_users    Tue Sep 14 04:09:46 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_users,v 1.16 2004/09/14 03:10:16 beu Exp $
+# $Id: sv_users,v 1.17 2004/09/14 04:09:46 beu Exp $
 #
 #  Copyright 2001      (c) Loic Dachary <loic--at--gnu.org> (sv_cvs.pl)
 #            2003-2004 (c) Mathieu Roy <yeupou--at--gnu.org> 
@@ -166,10 +166,10 @@
 
 foreach my $line (GetDB("user", "status='A' OR status='D'",
                        "user_name,email,realname,authorized_keys,".
-                       "gpg_key,status,unix_status,use_cvsadmin")) {
+                       "gpg_key,status,unix_status,use_cvsadmin,user_id")) {
     chomp($line);
     my ($user, $email, $realname, $authorized_keys, $gpg_keys,
-       $status, $unix_status, $use_cvsadmin) = split(",", $line);
+       $status, $unix_status, $use_cvsadmin, $user_id) = split(",", $line);
 
     #print "DBG - user=$user\n" if $debug;
     print "DBG db: got $user <$email> from database\n" if $debug;
@@ -178,7 +178,8 @@
     $realname =~ s/[:\x00-\x1f]//g;
     $email =~ s/[:\x00-\x1f]//g;
     $db_user{$user} = [ ($user, $email, $realname, $authorized_keys,
-                        $gpg_keys, $status, $unix_status, $use_cvsadmin) ];
+                        $gpg_keys, $status, $unix_status, $use_cvsadmin,
+                        $user_id) ];
 
     push (@db_users, $user);
 }