[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 02:51:55

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.8&tr2=1.9&r1=text&r2=text

Patches:
Index: administration/infra/savane/bin/sv_users
diff -u administration/infra/savane/bin/sv_users:1.8 
administration/infra/savane/bin/sv_users:1.9
--- administration/infra/savane/bin/sv_users:1.8        Tue Sep 14 02:50:13 2004
+++ administration/infra/savane/bin/sv_users    Tue Sep 14 02:51:55 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_users,v 1.8 2004/09/14 02:50:13 beu Exp $
+# $Id: sv_users,v 1.9 2004/09/14 02:51:55 beu Exp $
 #
 #  Copyright 2001      (c) Loic Dachary <loic--at--gnu.org> (sv_cvs.pl)
 #            2003-2004 (c) Mathieu Roy <yeupou--at--gnu.org> 
@@ -169,7 +169,7 @@
 
 foreach my $line (@db_user_infos) {
     chomp($line);
-    my ($user_id, $user, $email, $realname, $authorized_keys, $gpg_keys,
+    my ($user, $email, $realname, $authorized_keys, $gpg_keys,
        $status, $unix_status, $use_cvsadmin) = split(",", $line);
 
     print "DBG db: got $user <$email> from database\n" if $debug;
@@ -177,7 +177,7 @@
     $authorized_keys = '' if $authorized_keys eq '0';
     $realname =~ s/[:\x00-\x1f]//g;
     $email =~ s/[:\x00-\x1f]//g;
-    $db_user{$user} = [ ($user_id, $user, $email, $realname, $authorized_keys,
+    $db_user{$user} = [ ($user, $email, $realname, $authorized_keys,
                         $gpg_keys, $status, $unix_status, $use_cvsadmin) ];
 
     push (@db_users, $user);