]> i-scream Git - www.i-scream.org.git/commit
Update scripts that use cvs2cl. Now using cvs2cl 2.49, still with some
authorTim Bishop <tim@bishnet.net>
Sat, 27 Sep 2003 17:21:32 +0000 (17:21 +0000)
committerTim Bishop <tim@bishnet.net>
Sat, 27 Sep 2003 17:21:32 +0000 (17:21 +0000)
commit13312df1a63c94f6698dff3fd5daf8f1b19b6ff9
tree6922b42d99393e0ce60bf3b70e72c5ee6147c1f4
parent309d1c637f102c69c5156f72d78e17be5bb3ff38
Update scripts that use cvs2cl. Now using cvs2cl 2.49, still with some
custom patches (but less than before). Diff included here.

--- cvs2cl.bak Sat Sep 27 16:57:59 2003
+++ cvs2cl Sat Sep 27 17:10:55 2003
@@ -1036,7 +1036,8 @@
           elsif ($No_Wrap && !$Summary)
           {
             $msg = &preprocess_msg_text ($msg);
-            $files = wrap ("\t", "\t", "* $files");
+# tdb: no-wrap shouldn't wrap ANYTHING!
+            #$files = wrap ("\t", "\t", "* $files");
             $msg =~ s/\n(.+)/\n\t$1/g;
             unless ($After_Header eq " ") {
               $msg =~ s/^(.+)/\t$1/g;
@@ -1328,7 +1329,8 @@
   # there are multiple qunks in the first place!
   if ((scalar (@qunkrefs)) > 1) {
     foreach my $tag (keys (%non_unanimous_tags)) {
-      my $everyone_has_this_tag = 1;
+# tdb: we don't want to have unanimous tags
+      my $everyone_has_this_tag = 0;
       foreach my $qunkref (@qunkrefs) {
         if ((! (defined ($$qunkref{'tags'})))
             or (! (grep ($_ eq $tag, @{$$qunkref{'tags'}})))) {
@@ -1521,7 +1523,8 @@

     unless ( exists $fileinfo_printed{$b} ) {
       if ($fbegun) {
-        $beauty .= ", ";
+# tdb: hacked to put a newline after each one
+        $beauty .= ",\n";
       } else {
         $fbegun = 1;
       }
cgi-bin/cvslog.cgi