mkNEWS revision ab2a2de2797dab2442564adfd92adbd28830ad58
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync#!/usr/bin/perl
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncuse strict;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncuse warnings;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncmy $wiki = "http://wiki.inkscape.org/wiki/index.php";
c7814cf6e1240a519cbec0441e033d0e2470ed00vboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncif (@ARGV < 1) {
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync print "Usage: $0 <release-number>\n";
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync}
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncmy $rel = shift @ARGV;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync$rel =~ s/\.//;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncmy @page = `lynx -dump $wiki/ReleaseNotes$rel`;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncprint "$#page lines\n";
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncmy $seen_overview = 0;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncforeach my $line (@page) {
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync $line =~ s/\[\[\d+\]edit\]//g;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync last if $line =~ /^ Previous releases/;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync if ($line =~ /^\s+Inkscape 0\.46/) {
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync $seen_overview = 1;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync }
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync next unless $seen_overview;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync print $line;
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync}
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncprint "\nFor information on prior releases, please see:\n";
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsyncprint " $wiki/Inkscape\n";
4e38f78b4916ef128a3902ed2a8d7e8d7f947d8dvboxsync