[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 03:10:16

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.15&tr2=1.16&r1=text&r2=text

Patches:
Index: administration/infra/savane/bin/sv_users
diff -u administration/infra/savane/bin/sv_users:1.15 
administration/infra/savane/bin/sv_users:1.16
--- administration/infra/savane/bin/sv_users:1.15       Tue Sep 14 03:08:57 2004
+++ administration/infra/savane/bin/sv_users    Tue Sep 14 03:10:16 2004
@@ -2,7 +2,7 @@
 # This file is part of the Savane project
 # <http://gna.org/projects/savane/>
 #
-# $Id: sv_users,v 1.15 2004/09/14 03:08:57 beu Exp $
+# $Id: sv_users,v 1.16 2004/09/14 03:10:16 beu Exp $
 #
 #  Copyright 2001      (c) Loic Dachary <loic--at--gnu.org> (sv_cvs.pl)
 #            2003-2004 (c) Mathieu Roy <yeupou--at--gnu.org> 
@@ -45,7 +45,7 @@
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 
 use strict;
-use warnings;
+#use warnings;
 
 # Savannah specific
 use lib '/usr/savannah/infra/savane/lib';
@@ -171,7 +171,7 @@
     my ($user, $email, $realname, $authorized_keys, $gpg_keys,
        $status, $unix_status, $use_cvsadmin) = split(",", $line);
 
-    print "DBG - user=$user\n" if $debug;
+    #print "DBG - user=$user\n" if $debug;
     print "DBG db: got $user <$email> from database\n" if $debug;
 
     $authorized_keys = '' if $authorized_keys eq '0';
@@ -218,7 +218,7 @@
     # If the user picked use_cvsadmin, we add him in the anoncvs group
     # to allow him to edit files in CVSROOT. 
     # (yes, this group name is no longer pertinent)
-    print "DBG - user $user (group $group) is mashed" if !exists 
$db_user{$user};
+    #print "DBG - user $user (group $group) is mashed" if !exists 
$db_user{$user};
     my ($u,$e,$r,$a,$g,$s,$un,$use_cvsadmin) = @{$db_user{$user}};
 
     # address@hidden 2004-01-10: