Getting close to a working prototype

bin/update-issues.p6

@@ -1,11 +1,44 @@
+#!/usr/bin/env perl6
+
+use JSON::Fast;
 use Unbitrot::Utils;
 
-unit main multi MAIN(
+unit sub MAIN(
     ‘I know what I'm doing’,
     $token,
-    IO() $blin-data = ‘data.json’,
+    IO() :$blin-data = ‘data.json’,
+    IO() :$template  = ‘template.md’,
 );
 
-my $data = from-json slurp $blin-data;
 
-my @issues = get-issues;
+my %modules = from-json slurp $blin-data;
+my @issues = get-issues $token;
+my $template-text = slurp $template;
+
+for @issues -> $issue {
+    .<ticket> = $issue with %modules{$issue<title>};
+}
+
+for %modules.keys.sort -> $name {
+    my $module = %modules{$name};
+    my $ticket = $module<ticket>;
+    if $module<status> eq ‘OK’ {
+        if $ticket and $ticket<state> ne ‘closed’ {
+            note “Closing issue {$ticket<number>} for $name”;
+            # close-single-issue $ticket<url>, $token
+        }
+    } else {
+        if not $ticket or $ticket<state> eq ‘closed’ {
+            note “Creating new issue for $name”;
+
+            my $text = $template-text;
+            $text .= subst: ‘｢MODULE｣’, 42;
+            $text .= subst: ‘｢MODULE-URL｣’, 42; # https://modules.perl6.org/dist/$module
+            $text .= subst: ‘｢OUTPUT｣’, 42;
+            $text .= subst: ‘｢PING-AUTHOR｣’, 42;
+            $text .= subst: ‘｢PREVIOUS-TICKET｣’, 42;
+
+            # submit-issue $token, $text
+        }
+    }
+}

lib/Unbitrot/Utils.pm6

@@ -8,7 +8,7 @@ constant \url = ‘https://api.github.com/repos/perl6/ecosystem-unbitrot/issues?
 
 #| gets the issues from the repo
 sub get-issues($token) is export {
-    my @tickets;
+    my @issues;
     my $cur-url = url;
     loop {
         note $cur-url;
@@ -18,26 +18,15 @@ sub get-issues($token) is export {
                   Authorization => “token $token”,
               ],
         ;
-        @tickets.append: @(await $resp.body);
+        @issues.append: @(await $resp.body);
         my $next = $resp.headers.first(*.name eq ‘Link’).?value;
         if $next && $next ~~ /‘<’ (<-[>]>*?) ‘>; rel="next"’/ {
             $cur-url = ~$0;
             next
         }
         last
     }
-    my %tickets = @tickets.map: { $_<url> => $_ };
-    %tickets;
-}
-
-#| Issue per module
-sub issue-per-module( %tickets, @modules --> Hash ) is export {
-    my %issues-by-title = %tickets.keys.map: { %tickets{$_}<title> => $_ };
-    my %issue-per-module;
-    for @modules -> $m {
-        %issue-per-module{$m} = %issues-by-title{$m}:exists??%issues-by-title{$m}!!Nil;
-    }
-    return %issue-per-module;
+    @issues;
 }
 
 #| Edit issue

template.md

@@ -1,4 +1,4 @@
-Module [$module](https://modules.perl6.org/dist/$module) cannot be
+Module [｢MODULE｣](｢MODULE-URL｣) cannot be
 installed, perhaps it has some failing tests.
 
 * Tickets are opened/closed in this repo automatically (though not
@@ -32,3 +32,5 @@ Output:
 ````````````````````````````````````````````````````````
 
 ｢PING-AUTHOR｣
+
+｢PREVIOUS-TICKET｣