From d449a6d3082a6c8e84a76f53682d0a22fdb9bdeb Mon Sep 17 00:00:00 2001
From: bryce <bryce@users.sourceforge.net>
Date: Sat, 20 Jan 2007 00:11:09 +0000
Subject: [PATCH] New perl script for generating the NEWS from our
 ReleaseNotes, and cleaning out all the wiki cruft.

---
 packaging/mkNEWS | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 packaging/mkNEWS

diff --git a/packaging/mkNEWS b/packaging/mkNEWS
new file mode 100644
index 000000000..31c0fc0dc
--- /dev/null
+++ b/packaging/mkNEWS
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $wiki = "http://wiki.inkscape.org:8080/wiki/index.php";
+
+if (@ARGV < 1) {
+    print "Usage:  $0 <release-number>\n";
+}
+
+my $rel = shift @ARGV;
+
+$rel =~ s/\.//;
+
+my @page = `lynx -dump $wiki?title=ReleaseNotes$rel`;
+
+my $seen_overview = 0;
+foreach my $line (@page) {
+    last if $line =~ /^Previous releases/;
+    next if $line =~ /\[\[\d+\]edit\]/;
+
+    if ($line =~ /^Inkscape .*overview/) {
+        $seen_overview = 1;
+    }
+    next unless $seen_overview;
+
+    $line =~ s/\[\d+\](\w)/$1/g;
+
+    print $line;
+}
+
+print "\nFor information on prior releases, please see:\n";
+print "    $wiki/Inkscape\n";
-- 
2.30.2