3 # $Id: changelog2doc.pl,v 1.2 2008/09/26 16:49:09 fabiankeil Exp $
4 # $Source: /cvsroot/ijbswa/current/utils/changelog2doc.pl,v $
6 # Filter to parse the ChangeLog and translate the changes for
7 # the most recent version into something that looks like markup
8 # for the documentation but still needs fine-tuning.
16 my $section_reached = 0;
21 last if $section_reached;
25 next unless $section_reached;
36 print "Parsed " . @entries . " entries.\n";
39 sub create_listitem_markup($) {
43 return " <listitem>\n" .
50 sub generate_markup() {
53 $markup .= "<para>\n" .
56 foreach my $entry (@entries) {
58 $markup .= create_listitem_markup($entry);
61 $markup .= " </itemizedlist>\n" .