mkNEWS revision 7e0337b0c91e10012bc41d0671b603ae73c89831
0N/A#!/usr/bin/perl
0N/A
0N/Ause strict;
0N/Ause warnings;
0N/A
0N/Amy $wiki = "http://wiki.inkscape.org/wiki/index.php";
0N/A
0N/Aif (@ARGV < 1) {
0N/A print "Usage: $0 <release-number>\n";
0N/A}
0N/A
0N/Amy $rel = shift @ARGV;
0N/A
0N/A$rel =~ s/\.//;
0N/A
0N/Amy @page = `lynx -dump $wiki?title=ReleaseNotes$rel`;
0N/A
0N/Amy $seen_overview = 0;
0N/Aforeach my $line (@page) {
0N/A last if $line =~ /^Previous releases/;
0N/A next if $line =~ /\[\[\d+\]edit\]/;
0N/A
0N/A if ($line =~ /^Inkscape .*0.45/ || $line =~ /^Inkscape .* changes with respect to/) {
0N/A $seen_overview = 1;
0N/A }
0N/A next unless $seen_overview;
0N/A
0N/A $line =~ s/\[\d+\](\w)/$1/g;
0N/A
0N/A print $line;
0N/A}
0N/A
0N/Aprint "\nFor information on prior releases, please see:\n";
0N/Aprint " $wiki/Inkscape\n";
0N/A