Added "-n" option to cause appending of e-mail address to

usernames to be suppressed.

diff --git a/cvstools/cvs2log b/cvstools/cvs2log
index 38dc6380e1523e65bf25401858e258be6b1e6011..b80dea4d1564630b47438123f077b7f12e31088e 100755 (executable)
--- 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};