cyrus-sasl-resolved.pl

use strict;
use warnings;
use Net::GitHub;
use Data::Dumper;
use XML::Fast;
use HTML::Entities;
use DateTime::Format::DateParse;
use Encode qw(decode_utf8 encode_utf8);
use JSON;

BEGIN {
    Net::GitHub::V3::Issues->__build_methods(
        import_issue => { url => "/repos/%s/%s/import/issues", method => 'POST', args => 1 },
    );
};

open(FH, "<oauth_token.txt");
my $token = <FH>;
chomp($token);
close(FH);

my $gh = Net::GitHub::V3->new(
  access_token => $token,
);

$gh->ua->default_header(Accept => 'application/vnd.github.golden-comet-preview+json');

my $issue = $gh->issue;

$issue->set_default_user_repo('cyrusimap', 'cyrus-sasl');

use HTTP::Message;
$issue->ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
# for debugging
#$issue->ua->add_handler("request_send",  sub { shift->dump; return });
#$issue->ua->add_handler("response_done", sub { shift->dump; return });

my @labels = $issue->labels();
my %labels = map { $_->{name} => $_ } @labels;

my %have;
my @issues = $issue->repos_issues({filter => 'all', state => 'all'});
push @issues, $issue->next_page() while $issue->has_next_page();
foreach my $item (@issues) {
    next if $item->{state} eq 'closed';
    next unless $item->{body} =~ m/Bugzilla-Id: (\d+)/s;
    $have{$1} = $item->{number};
}

foreach my $id (sort { $a <=> $b } keys %have) {
  next unless -f "bugs/$id.xml";
  open(FH, "<bugs/$id.xml");
  local $/ = undef;
  my $xml = <FH>;
  close(FH);
  my $data = xml2hash($xml);
  my $bug = $data->{bugzilla}{bug};
  next unless $bug->{short_desc};
  next unless $bug->{product} eq 'Cyrus SASL';
  next unless $bug->{bug_status} eq 'RESOLVED';
  print "RESOLVING $id ($have{$id})\n";
  $issue->create_comment($have{$id}, {
    body => "Closing: was RESOLVED in import",
  });
  $issue->update_issue($have{$id}, {
    state => 'closed',
  });
}