packaging/mkNEWS

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $wiki = "http://wiki.inkscape.org/wiki/index.php";
   7
   8 if (@ARGV < 1) {
   9     print "Usage:  $0 <release-number>\n";
  10 }
  11
  12 my $rel = shift @ARGV;
  13
  14 $rel =~ s/\.//;
  15
  16 my @page = `lynx -dump $wiki?title=ReleaseNotes$rel`;
  17
  18 my $seen_overview = 0;
  19 foreach my $line (@page) {
  20     last if $line =~ /^Previous releases/;
  21     next if $line =~ /\[\[\d+\]edit\]/;
  22
  23     if ($line =~ /^Inkscape .*0.45/ || $line =~ /^Inkscape .* changes with respect to/) {
  24         $seen_overview = 1;
  25     }
  26     next unless $seen_overview;
  27
  28     $line =~ s/\[\d+\](\w)/$1/g;
  29
  30     print $line;
  31 }
  32
  33 print "\nFor information on prior releases, please see:\n";
  34 print "    $wiki/Inkscape\n";