From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Fri, 14 Oct 2005 07:53:34 +0000 (+0000)
Subject: Added "-n" option to cause appending of e-mail address to
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=3553cbcb8d058cab846477575d147952b3807c73;p=docbook-dsssl

Added "-n" option to cause appending of e-mail address to
usernames to be suppressed.
---

diff --git a/cvstools/cvs2log b/cvstools/cvs2log
index 38dc6380e..b80dea4d1 100755
--- a/cvstools/cvs2log
+++ b/cvstools/cvs2log
@@ -2,9 +2,9 @@
 
 use Getopt::Std;
 
-$usage = "Usage: $0 [-l logfile] [-w] [-c date]\n";
+$usage = "Usage: $0 [-l logfile] [-w] [-c date] [-n]\n";
 
-die $usage if ! getopts('c:l:w');
+die $usage if ! getopts('c:l:wn');
 
 # yes, the trailing blank is significant
 my %authorName = ('adicarlo' => 'Adam Di Carlo ',
@@ -119,7 +119,11 @@ sub show_messages {
     my $author = shift;
     my $msgs = shift;
 
-    print F "$date  ", $authorName{$author}, "<$author\@users.sourceforge.net>\n\n";
+    if ($opt_n) {
+      print F "$date  ", $authorName{$author}, "$author\n\n";
+    } else {
+      print F "$date  ", $authorName{$author}, "<$author\@users.sourceforge.net>\n\n";
+    }
 
     foreach $msg (sort fnsort keys %{$msgs}) {
 	$files = $msgs->{$msg};