|
@@ -21,7 +21,7 @@ $log = <IN>;
|
|
@commits = split(/^(?=commit)/m,$log);
|
|
@commits = split(/^(?=commit)/m,$log);
|
|
|
|
|
|
for $i (0..$#commits) {
|
|
for $i (0..$#commits) {
|
|
- $entry = 0; $tiny = 0;
|
|
|
|
|
|
+ $entry = ""; $tiny = "";
|
|
$commit = $commits[$i];
|
|
$commit = $commits[$i];
|
|
$author = $1 if $commit=~/^Author: ([^\n]+)/m;
|
|
$author = $1 if $commit=~/^Author: ([^\n]+)/m;
|
|
$date = $1 if $commit=~/^Date: ([^\n]+)/m;
|
|
$date = $1 if $commit=~/^Date: ([^\n]+)/m;
|
|
@@ -44,7 +44,7 @@ for $i (0..$#commits) {
|
|
$entry =~ s/(\n[ \t]+\* )/\n$1/g;
|
|
$entry =~ s/(\n[ \t]+\* )/\n$1/g;
|
|
# remove the lisp part of the path
|
|
# remove the lisp part of the path
|
|
$entry =~ s/^([ \t]+\* )lisp\//$1/mg;
|
|
$entry =~ s/^([ \t]+\* )lisp\//$1/mg;
|
|
- print "$syncdate $name $address\n\n$entry\n\n";
|
|
|
|
|
|
+ print "$syncdate $name $address$tiny\n\n$entry\n\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|