# [PATCH] git-cvsimport: fix handling of user name when it is not set in CVSROOT

1 messages from 2007-11-08 to 2007-11-08. Participants: Gordon Hopper.
Thread: https://gitlist.dev/t/10740

## Gordon Hopper, 2007-11-08 20:15

Subject: [PATCH] git-cvsimport: fix handling of user name when it is not set in CVSROOT
Message-ID: <3b3fddfa0711081215w7aed667boa00ea134c0798a9@mail.gmail.com>
URL: https://gitlist.dev/e/3b3fddfa0711081215w7aed667boa00ea134c0798a9%40mail.gmail.com

```
The cvs programs do not default to "anonymous" as the user name, but use the
currently logged in user.  This patch more closely matches the cvs behavior.

Signed-off-by: Gordon Hopper <g.hopper@computer.org>
---
 git-cvsimport.perl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/git-cvsimport.perl b/git-cvsimport.perl
index e4bc2b5..efa6a0c 100755
--- a/git-cvsimport.perl
+++ b/git-cvsimport.perl
@@ -223,7 +223,8 @@ sub conn {
 			}
 		}

-		$user="anonymous" unless defined $user;
+		# if username is not explicit in CVSROOT, then use current user, as cvs would
+		$user=(getlogin() || $ENV{'LOGNAME'} || $ENV{'USER'} ||
"anonymous") unless $user;
 		my $rr2 = "-";
 		unless ($port) {
 			$rr2 = ":pserver:$user\@$serv:$repo";
-- 
1.5.3.5

```