d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce#!/usr/bin/perl
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceuse strict;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceuse warnings;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
7e0337b0c91e10012bc41d0671b603ae73c89831acspikemy $wiki = "http://wiki.inkscape.org/wiki/index.php";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceif (@ARGV < 1) {
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce print "Usage: $0 <release-number>\n";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce}
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbrycemy $rel = shift @ARGV;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
ff31b395d471c7ba841b3e46936712e030f4805etweenkmy @page = `w3m -dump $wiki/Release_notes/$rel`;
ab2a2de2797dab2442564adfd92adbd28830ad58bryce
ab2a2de2797dab2442564adfd92adbd28830ad58bryceprint "$#page lines\n";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbrycemy $seen_overview = 0;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceforeach my $line (@page) {
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
ab2a2de2797dab2442564adfd92adbd28830ad58bryce $line =~ s/\[\[\d+\]edit\]//g;
ab2a2de2797dab2442564adfd92adbd28830ad58bryce
ff31b395d471c7ba841b3e46936712e030f4805etweenk last if $line =~ /^\s*Previous releases/;
ab2a2de2797dab2442564adfd92adbd28830ad58bryce
ff31b395d471c7ba841b3e46936712e030f4805etweenk if ($line =~ /^\s*Inkscape $rel/) {
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce $seen_overview = 1;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce }
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce next unless $seen_overview;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce print $line;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce}
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceprint "\nFor information on prior releases, please see:\n";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceprint " $wiki/Inkscape\n";