mkNEWS revision d449a6d3082a6c8e84a76f53682d0a22fdb9bdeb
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce#!/usr/bin/perl
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceuse strict;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceuse warnings;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbrycemy $wiki = "http://wiki.inkscape.org:8080/wiki/index.php";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceif (@ARGV < 1) {
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce print "Usage: $0 <release-number>\n";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce}
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbrycemy $rel = shift @ARGV;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce$rel =~ s/\.//;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbrycemy @page = `lynx -dump $wiki?title=ReleaseNotes$rel`;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbrycemy $seen_overview = 0;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceforeach my $line (@page) {
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce last if $line =~ /^Previous releases/;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce next if $line =~ /\[\[\d+\]edit\]/;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce if ($line =~ /^Inkscape .*overview/) {
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce $seen_overview = 1;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce }
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce next unless $seen_overview;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce $line =~ s/\[\d+\](\w)/$1/g;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce print $line;
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce}
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryce
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceprint "\nFor information on prior releases, please see:\n";
d449a6d3082a6c8e84a76f53682d0a22fdb9bdebbryceprint " $wiki/Inkscape\n";