ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Signed-off-by: Michael Stefaniuc <mstefani@winehq.org>
This commit is contained in:
Michael Stefaniuc 2017-03-26 21:05:28 +02:00
parent f8784c6eb0
commit 8d5c8f775e
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tools/make_announce
View File

@ -24,7 +24,6 @@
use strict; use strict;
use locale; use locale;
use POSIX; use POSIX;
use Text::CSV::Encoded;
use open ':encoding(utf8)'; use open ':encoding(utf8)';
sub unescape($) sub unescape($)
@ -69,18 +68,14 @@ sub get_current_version()
# retrieve a list of bugs with the specified filter # retrieve a list of bugs with the specified filter
sub get_bugs($) sub get_bugs($)
{ {
my $filter = shift;
my $csv = Text::CSV::Encoded->new({ encoding_in => "utf-8", encoding_out => "utf-8" });
my %bugs; 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"; or die "cannot query bug list";
<QUERY>; # skip header line
while (<QUERY>) while (<QUERY>)
{ {
next unless $csv->parse($_); next unless /^Fixes: \[(\d+)\] (.*)/;
my ($id, $descr) = $csv->fields(); $bugs{$1} = $2;
$bugs{$id} = $descr;
} }
close QUERY; close QUERY;
return %bugs; return %bugs;