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

[Alexandre Julliard]

Module: wine
Branch: stable
Commit: 3afe23ec5d5793164e62d80de9a267e94a834ea3
URL:    https://gitlab.winehq.org/wine/wine/-/commit/3afe23ec5d5793164e62d80de9a267e...

Author: Michael Stefaniuc <mstefani(a)winehq.org>
Date:   Sun Mar 26 21:05:28 2017 +0200

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

Signed-off-by: Michael Stefaniuc <mstefani(a)winehq.org>

---

 tools/make_announce | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/tools/make_announce b/tools/make_announce
index 83d869ae69d..b38b7b0a70a 100755
--- a/tools/make_announce
+++ b/tools/make_announce
@@ -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=advan..."
+    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;