Index: ossp-pkg/shiela/ChangeLog
RCS File: /v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v
rcsdiff -q -kk '-r1.19' '-r1.20' -u '/v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v' 2>/dev/null
--- ChangeLog	2002/12/22 11:06:50	1.19
+++ ChangeLog	2002/12/22 16:30:14	1.20
@@ -11,6 +11,11 @@
 
   Changes between 0.9.2 and 0.9.3 (19-Aug-2002 to 21-Dec-2002):
 
+   *) Line-break single-line log messages into multi-line log messages
+      to make the usual log messages produced by "cvs commit -m '...'"
+      more readable in the report.
+      [Ralf S. Engelschall]
+
    *) Fully reimplemented the "Content" "details" (the change summary in
       reports). It now supports both textual (via diff(1)) and binary
       (via xdelta(1)) file changes. Additionally each change report part
Index: ossp-pkg/shiela/shiela.pl
RCS File: /v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v
rcsdiff -q -kk '-r1.32' '-r1.33' -u '/v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v' 2>/dev/null
--- shiela.pl	2002/12/22 15:04:00	1.32
+++ shiela.pl	2002/12/22 16:30:14	1.33
@@ -979,6 +979,41 @@
 
 ##  _________________________________________________________________
 ##
+##  Wrap a single-line log message.
+##
+##  This line-wraps a single-line log message into a multi-line log
+##  message.
+##  _________________________________________________________________
+##
+
+sub wrap_message {
+    my ($columns, $text) = @_;
+
+    my $r = "";
+    my $nl = "";
+    my $left = "";
+    pos($text) = 0;
+
+    while ($text !~ m/\G\s*\Z/gc) {
+        if ($text =~ /\G([^\n]{0,$columns})(\s|\z)/xmgc) {
+            $r .= $nl . $1;
+            $left = $2;
+        } elsif ($text =~ /\G([^\n]*?)(\s|\z)/xmgc) {
+            $r .= $nl . $1;
+            $left = $2;
+        }
+        $nl = "\n";
+    }
+
+    $r .= $left;
+    $r .= substr($text, pos($text), length($text)-pos($text))
+        if (pos($text) ne length($text));
+
+    return $r;
+}
+
+##  _________________________________________________________________
+##
 ##  TAGINFO HOOK
 ##
 ##  We hook into CVS via `taginfo' to check whether user is allowed to
@@ -2135,7 +2170,10 @@
             $O .= "\n";
             $O .= $prefix."Log:\n";
             my $log = $IN->{log};
-            $log =~ s|^|$prefix  |mg;
+            if ($log !~ m|\n.+|s and length($log) > 70) {
+                $log = &wrap_message(70, $log);
+            }
+            $log =~ s|^|${prefix}  |mg;
             $O .= $log;
         }