Merge branch 'master' of github.com:perl6/ecosystem-unbitrot

Raku · Feb 8, 2019 · 8f42048 · 8f42048
2 parents b73e32e + 9be04c4
commit 8f42048
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 5 deletions.
diff --git a/bin/update-issues.p6 b/bin/update-issues.p6
@@ -14,6 +14,8 @@ unit sub MAIN(
 my %modules = from-json slurp $blin-data;
 my @issues = get-issues :$token;
 my $template-text = slurp $template;
+my $module-metadata = fetch ‘https://modules.perl6.org/search.json’;
+
 
 for @issues -> $issue {
     .<ticket> = $issue with %modules{$issue<title>};
@@ -38,9 +40,9 @@ for %modules.keys.sort -> $name {
             my $previous-ticket = $ticket ?? ‘Preivous ticket: #’ ~ $ticket<number> !! ‘’;
 
             $body .= subst: ‘｢MODULE｣’, $name;
-            $body .= subst: ‘｢MODULE-URL｣’, “https://modules.perl6.org/dist/$module”;
+            $body .= subst: ‘｢MODULE-URL｣’, “https://modules.perl6.org/dist/$name”;
             $body .= subst: ‘｢BLIN-STATUS｣’, $module<status>;
-            $body .= subst: ‘｢OUTPUT｣’, $module<output>;
+            $body .= subst: ‘｢OUTPUT｣’, $module<output> || ‘No output’;
             $body .= subst: ‘｢PING-AUTHOR｣’, $ping-author;
             $body .= subst: ‘｢PREVIOUS-TICKET｣’, $previous-ticket;
 

diff --git a/lib/Unbitrot/Utils.pm6 b/lib/Unbitrot/Utils.pm6
@@ -4,9 +4,19 @@ unit module Unbitrot::Utils;
 
 use Cro::HTTP::Client;
 
-my $repo = ‘perl6/ecosystem-unbitrot’;
-constant \issues-url = “https://api.github.com/repos/$repo/issues?per_page=60&direction=asc&state=all”;
-constant \submit-url  = “https://api.github.com/repos/$repo/issues”;
+constant repo = ‘perl6/ecosystem-unbitrot’;
+constant \issues-url = “https://api.github.com/repos/{repo}/issues?per_page=60&direction=asc&state=all”;
+constant \submit-url  = “https://api.github.com/repos/{repo}/issues”;
+
+#| Fetches a url
+sub fetch($url) is export {
+    my $resp = await Cro::HTTP::Client.get: $url,
+          headers => [
+              User-Agent => ‘perl6 ecosystem unbitrot’,
+          ],
+    ;
+    return await $resp.body
+}
 
 #| Returns all issues from the repo
 sub get-issues(:$token, :$url = issues-url) is export {