3 # $Id: changelog2doc.pl,v 1.1 2008/06/09 17:53:02 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 generate_markup() {
42 $markup .= "<para>\n" .
45 foreach my $entry (@entries) {
48 $markup .= " <listitem>\n" .
55 $markup .= " </itemizedlist>\n" .