C-x v a doesn't show author correctly (lib-src/rcs2log)

C-x v a doesn't show author correctly (lib-src/rcs2log)

[Jhair Tocancipa Triana]

Could someone please install the patch below? Some versions of cvs
include the numeric timezone in the output of cvs -q log and in those
cases entries like

date: 2006-06-05 20:49:31 +0200;  author: jtocancipa;  state: Exp;  lines: +321 -99;

don't get parsed correctly.

TIA,


--- rcs2log	26 Jan 2007 07:15:59 +0100	1.50.10.6
+++ rcs2log	17 Jun 2007 00:30:11 +0200	
@@ -451,9 +451,16 @@
 esac >$llogout || exit
 
 output_authors='/^date: / {
-	if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) {
-		print substr($5, 1, length($5)-1)
-	}
+	   # old date format
+	   if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) {
+			   print substr($5, 1, length($5)-1)
+	   }
+	   else {
+			   # new date format
+			   if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*$/ && $5 == "author:" && $6 ~ /^[^;]*;$/) {
+					   print substr($6, 1, length($6)-1)
+			   }
+		}
 }'
 authors=`
 	$AWK "$output_authors" <"$rlogfile" | sort -u | comm -23 - $llogout
@@ -646,6 +653,10 @@
 			}
 			time = substr($3, 1, length($3) - 1)
 			author = substr($5, 1, length($5)-1)
+			if (author ~ /author/) {
+				# new date format
+				author = substr($6, 1, length($6)-1)
+			}
 			printf "%s%s%s%s%s%s%s%s%s%s", filename, SOH, rev, SOH, date, SOH, time, SOH, author, SOH
 			rev = "?"
 			next