Set To Do branch

1 files changed, 0 insertions, 54 deletions

diff --git a/tools/cover.pl b/tools/cover.pl
deleted file mode 100755
index fcd813f..0000000
--- a/tools/cover.pl
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use feature 'say';
-
-use AWS::S3;
-use Path::Tiny;
-
-if (!@ARGV) {
-	die "Need to specify a build number to check coverage for.\n";
-}
-
-my $build = shift;
-my $base = qr!^[^/]+/sbotools/\Q$build\E/!;
-
-if (
-  ! length($ENV{S3_ID}) or
-  ! length($ENV{S3_KEY}) or
-  ! length($ENV{S3_BUCKET})) {
-	die "S3_ID and S3_KEY need to be defined in the environment.\n";
-}
-
-print "Connecting to S3...\n";
-
-my $s3 = AWS::S3->new(
-	access_key_id => $ENV{S3_ID},
-	secret_access_key => $ENV{S3_KEY},
-);
-
-my $bucket = $s3->bucket($ENV{S3_BUCKET});
-
-my $f_iter = $bucket->files(
-	page_size => 100,
-	page_number => 1,
-	pattern => qr!$base\Q$build.11\E/!,
-);
-
-my $num = 0;
-while (my @files = $f_iter->next_page) {
-	for my $file (@files) {
-		$num++;
-		print $file->key, "\n";
-
-		my $local_fname = $file->key =~ s!$base!cover_db/!r;
-		my $path = path($local_fname)->absolute();
-
-		$path->touchpath->spew_raw(${ $file->contents() });
-	}
-}
-
-if ($num == 0) {
-	die "No files found for build number $build.\n";
-}