mkNEWS revision ff31b395d471c7ba841b3e46936712e030f4805e
3952N/A#!/usr/bin/perl
3952N/A
3952N/Ause strict;
3952N/Ause warnings;
3952N/A
3952N/Amy $wiki = "http://wiki.inkscape.org/wiki/index.php";
3952N/A
6983N/Aif (@ARGV < 1) {
6983N/A print "Usage: $0 <release-number>\n";
3952N/A}
3952N/A
3952N/Amy $rel = shift @ARGV;
3952N/A
6983N/Amy @page = `w3m -dump $wiki/Release_notes/$rel`;
6983N/A
6983N/Aprint "$#page lines\n";
6983N/A
3952N/Amy $seen_overview = 0;
3952N/Aforeach my $line (@page) {
3952N/A
3952N/A $line =~ s/\[\[\d+\]edit\]//g;
5185N/A
6307N/A last if $line =~ /^\s*Previous releases/;
5185N/A
5185N/A if ($line =~ /^\s*Inkscape $rel/) {
5185N/A $seen_overview = 1;
3952N/A }
3952N/A next unless $seen_overview;
3952N/A
3952N/A print $line;
3952N/A}
3952N/A
3952N/Aprint "\nFor information on prior releases, please see:\n";
5185N/Aprint " $wiki/Inkscape\n";
3952N/A