Commit 405c143c authored by Michael Stefaniuc's avatar Michael Stefaniuc Committed by Alexandre Julliard

tools: Get the ANNOUNCE bug list from the stable-notes git notes.

parent 4790d4b2
......@@ -24,7 +24,6 @@
use strict;
use locale;
use POSIX;
use Text::CSV::Encoded;
use open ':encoding(utf8)';
sub unescape($)
......@@ -69,18 +68,14 @@ sub get_current_version()
# retrieve a list of bugs with the specified filter
sub get_bugs($)
{
my $filter = shift;
my $csv = Text::CSV::Encoded->new({ encoding_in => "utf-8", encoding_out => "utf-8" });
my %bugs;
open QUERY, "-|" or exec "wget", "-qO-", "https://bugs.winehq.org/buglist.cgi?columnlist=short_desc&query_format=advanced&ctype=csv&$filter"
open QUERY, "-|" or exec "git", "log", "--notes=stable-notes", "--format=%N", "wine-" . get_current_version() . ".."
or die "cannot query bug list";
<QUERY>; # skip header line
while (<QUERY>)
{
next unless $csv->parse($_);
my ($id, $descr) = $csv->fields();
$bugs{$id} = $descr;
next unless /^Fixes: \[(\d+)\] (.*)/;
$bugs{$1} = $2;
}
close QUERY;
return %bugs;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment