CVSROOT: cvslog.pl - get op from revs, not unparsable message

[qboosh]

Author: qboosh                       Date: Tue Sep 30 18:09:06 2008 GMT
Module: CVSROOT                       Tag: HEAD
---- Log message:
- get op from revs, not unparsable message

---- Files affected:
CVSROOT:
   cvslog.pl (1.82 -> 1.83) 

---- Diffs:

================================================================
Index: CVSROOT/cvslog.pl
diff -u CVSROOT/cvslog.pl:1.82 CVSROOT/cvslog.pl:1.83
--- CVSROOT/cvslog.pl:1.82	Tue Sep 30 19:43:16 2008
+++ CVSROOT/cvslog.pl	Tue Sep 30 20:09:01 2008
@@ -183,7 +183,13 @@
     $file->{name} = shift(@input);
     $file->{oldrev} = shift(@input);
     $file->{newrev} = shift(@input);
-    $file->{op} = '?';
+    if($file->{oldrev} eq 'NONE') {
+      $file->{op} = 'add';
+    } elsif($file->{newrev} eq 'NONE') {
+      $file->{op} = 'remove';
+    } else {
+      $file->{op} = 'modify';
+    }
 
     push (@files, $file);
     $files{$file->{name}} = $file;
@@ -212,10 +218,10 @@
   $state = 2 if /^Modified Files:/;
   $state = 3 if /^Removed Files:/;
   last if /^Log Message/;
-  next unless $state;
-  foreach (split) {
-    $files{$_}->{op} = $op[$state-1];
-  }
+#  next unless $state;
+#  foreach (split) {
+#    $files{$_}->{op} = $op[$state-1];
+#  }
 }
 
 $htag = $tag ? $tag : "HEAD";
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/CVSROOT/cvslog.pl?r1=1.82&r2=1.83&f=u