Michael Stefaniuc : tools: Get the bug list for ANNOUNCE from the stable-notes git notes.
Alexandre Julliard
julliard at winehq.org
Mon Aug 22 07:32:39 CDT 2016
Module: wine
Branch: stable
Commit: e83b4681b7c4a3894d29bb32bce7528b14c9f018
URL: http://source.winehq.org/git/wine.git/?a=commit;h=e83b4681b7c4a3894d29bb32bce7528b14c9f018
Author: Michael Stefaniuc <mstefani at winehq.org>
Date: Fri Jul 29 01:32:21 2016 +0200
tools: Get the bug list for ANNOUNCE from the stable-notes git notes.
Signed-off-by: Michael Stefaniuc <mstefani at winehq.org>
---
tools/make_announce | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/tools/make_announce b/tools/make_announce
index fedbc37..9ebeb10 100755
--- a/tools/make_announce
+++ b/tools/make_announce
@@ -24,7 +24,6 @@
use strict;
use locale;
use POSIX;
-use Text::CSV::Encoded;
binmode STDOUT, ':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() . "..stable"
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;
More information about the wine-cvs
mailing list