Code

Fixing to work with current wiki format
authorbryce <bryce@users.sourceforge.net>
Tue, 11 Mar 2008 04:31:34 +0000 (04:31 +0000)
committerbryce <bryce@users.sourceforge.net>
Tue, 11 Mar 2008 04:31:34 +0000 (04:31 +0000)
packaging/mkNEWS

index 495d09283953779babfb82f5629f3fc5ebc2f6a8..96485dbfc8641b7c9a01444fbe221a9150ff083f 100644 (file)
@@ -13,20 +13,22 @@ my $rel = shift @ARGV;
 
 $rel =~ s/\.//;
 
-my @page = `lynx -dump $wiki?title=ReleaseNotes$rel`;
+my @page = `lynx -dump $wiki/ReleaseNotes$rel`;
+
+print "$#page lines\n";
 
 my $seen_overview = 0;
 foreach my $line (@page) {
-    last if $line =~ /^Previous releases/;
-    next if $line =~ /\[\[\d+\]edit\]/;
 
-    if ($line =~ /^Inkscape .*0.45/ || $line =~ /^Inkscape .* changes with respect to/) {
+    $line =~ s/\[\[\d+\]edit\]//g;
+
+    last if $line =~ /^ Previous releases/;
+
+    if ($line =~ /^\s+Inkscape 0\.46/) {
         $seen_overview = 1;
     }
     next unless $seen_overview;
 
-    $line =~ s/\[\d+\](\w)/$1/g;
-
     print $line;
 }