This is the mail archive of the
docbook@lists.oasis-open.org
mailing list for the DocBook project.
Re: Change Bars
- To: Bob Van Valzah <Bob at WhiteBarn dot Com>
- Subject: Re: DOCBOOK: Change Bars
- From: Stephane Bortzmeyer <bortzmeyer at pasteur dot fr>
- Date: Fri, 08 Oct 1999 13:42:07 +0200
- Cc: docbook at lists dot oasis-open dot org
- Reply-To: docbook at lists dot oasis-open dot org
On Wednesday 6 October 1999, at 11 h 6, the keyboard of Bob Van Valzah
<Bob@WhiteBarn.Com> wrote:
> I was just wishing I had such a script the other day! Please post it if you write
> one and I'll do the same.
#!/usr/bin/perl
use CVSlog;
$log = new CVSlog (-file => shift (@ARGV));
if (! $log) {
die "Cannot create a CVS object";
}
print "<revhistory>\n";
print "<title>History of ", $log->filename, "</title>\n\n";
foreach $revision ($log->revisions) {
print " <revision>\n";
print " <revnumber>", $revision->version, "</revnumber>\n";
print " <date>", $revision->date, "</date>\n";
print " <authorinitials>", $revision->author, "</authorinitials>\n";
print " <revremark>", $revision->changelog, "</revremark>\n";
print " </revision>\n\n";
}
print "</revhistory>\n";
CVSlog.pm