3 # $Id: changelog2doc.pl,v 1.4 2010/10/31 13:26:07 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;
30 $entries[$i]{description} = '';
34 $entries[$i]{description} .= $_;
36 print "Parsed " . @entries . " entries.\n";
39 sub create_listitem_markup($) {
41 my $description = $entry->{description};
45 $description =~ s@\n@\n @g;
46 return " <listitem>\n" .
48 " " . $description . "\n" .
53 sub wrap_in_para_itemlist_markup($) {
55 my $markup = "<para>\n" .
58 " </itemizedlist>\n" .
63 sub generate_markup() {
66 foreach my $entry (@entries) {
67 $markup .= create_listitem_markup(\%{$entry});
70 print wrap_in_para_itemlist_markup($markup);