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