Refresh RT Perl 6 tickets

refresh-tickets.pl6

use v6;

use Net::Curl::NativeCall;

constant RTURL = 'https://rt.perl.org/REST/1.0/';

my Hash @tickets;

with curl_easy_init() {
  my Str $body;
  my $login = "user=perl6bug\@gmail.com\&pass={$*ENV<SIXBUG_RT_PW>}";
  curl_easy_setopt($_, CURLOPT_URL, "{RTURL}search/ticket?query=Queue='perl6'");
  curl_easy_setopt($_, CURLOPT_COPYPOSTFIELDS, $login);
  curl_easy_setopt($_, CURLOPT_WRITEDATA, $body);
  my $res = curl_easy_perform($_);
  if $res != CURLE_OK {
    warn sprintf("curl_easy_perform failed: %s\n", curl_easy_strerror($res))
  } else {
    # say $body;
    @tickets = gather {
      for ($body.lines[1..*]».split(': ', 2))[1..*] -> @ ($i, $s) {
        take { id => $i, subject => $s }
      }
    }
  }
  curl_easy_cleanup($_)
} else { warn "curl failed to initialize" }
say @tickets;