From: Tim Bishop <tim@bishnet.net>
Date: Sat, 27 Sep 2003 17:21:32 +0000 (+0000)
Subject: Update scripts that use cvs2cl. Now using cvs2cl 2.49, still with some
X-Git-Tag: PRE_WWW_REDESIGN~25
X-Git-Url: http://git.i-scream.org/?a=commitdiff_plain;h=13312df1a63c94f6698dff3fd5daf8f1b19b6ff9;hp=13312df1a63c94f6698dff3fd5daf8f1b19b6ff9;p=www.i-scream.org.git

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;
       }
---