feat: If the specified URL returns 404, try to download the archive with gh command

Author: usualoma

CHANGELOG.md

@@ -6,6 +6,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+### Added
+
+* If the given URL is http://github.com/... and returns 404, then try to download the archive with the `gh` command and try to download the archive at http://github.com/...
+
 ## [2.8.0] - 2025-04-23
 
 ### Changed

bin/setup-environment

@@ -332,11 +332,43 @@ for my $a ( split /\s+/, $archives ) {
 
         # download
         my $response = HTTP::Tiny->new->get($a);
-        die "Failed: @{[Dumper($response)]}"
-            unless $response->{success} && length $response->{content};
 
-        ( my $fh, $file_path ) = tempfile( undef, SUFFIX => $ext );
-        print $fh $response->{content};
+        if (
+            $response->{status} == 404
+            && system('gh auth status > /dev/null 2>&1') == 0
+            && $a =~ m{^https://github.com/([^/]+/[^/]+)/actions/runs/[0-9]+/artifacts/([0-9]+)$}
+        ) {
+            my $repo = $1;
+            my $artifact_id = $2;
+
+            my $cwd     = getcwd();
+            my $tmp_dir = tempdir( '/tmp/mt-dev-archive-temp-XXXXX', );
+
+            chdir $tmp_dir;
+
+            my $cmd = "gh api repos/$repo/actions/artifacts/$artifact_id/zip > archive.zip";
+            my $res = `$cmd 2>&1` || "";
+            die "$res\nGot an error: $cmd" if $?;
+
+            $cmd = "unzip -q archive.zip";
+            $res = `$cmd 2>&1` || "";
+            die "$res\nGot an error: $cmd" if $?;
+
+            unlink 'archive.zip';
+            my ($filename) = `ls`;
+            chomp $filename;
+
+            chdir $cwd;
+
+            $file_path = catfile( $tmp_dir, $filename );
+        }
+        elsif ( !$response->{success} || !$response->{content} ) {
+            die "Failed: @{[Dumper($response)]}";
+        }
+        else {
+            ( my $fh, $file_path ) = tempfile( undef, SUFFIX => $ext );
+            print $fh $response->{content};
+        }
     }
     elsif ( $a =~ m{^/} ) {
         $file_path = $a;