Code

reintroducing code that initially committed in revision 18594 and the have been rever...
[inkscape.git] / packaging / mkNEWS
1 #!/usr/bin/perl
3 use strict;
4 use warnings;
6 my $wiki = "http://wiki.inkscape.org/wiki/index.php";
8 if (@ARGV < 1) {
9     print "Usage:  $0 <release-number>\n";
10 }
12 my $rel = shift @ARGV;
14 $rel =~ s/\.//;
16 my @page = `lynx -dump $wiki/ReleaseNotes$rel`;
18 print "$#page lines\n";
20 my $seen_overview = 0;
21 foreach my $line (@page) {
23     $line =~ s/\[\[\d+\]edit\]//g;
25     last if $line =~ /^ Previous releases/;
27     if ($line =~ /^\s+Inkscape 0\.46/) {
28         $seen_overview = 1;
29     }
30     next unless $seen_overview;
32     print $line;
33 }
35 print "\nFor information on prior releases, please see:\n";
36 print "    $wiki/Inkscape\n";