compare_backup_msgids.pl: comment out @archive in committed version

We only need this sometimes.

1 files changed, 14 insertions, 14 deletions

diff --git a/scripts/mail/compare_backup_msgids.pl b/scripts/mail/compare_backup_msgids.pl
index c19389af..137677ea 100644
--- a/scripts/mail/compare_backup_msgids.pl
+++ b/scripts/mail/compare_backup_msgids.pl
@@ -12,7 +12,7 @@ use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
 our @live   = grep !/\/annex\z/, <$ENV{HOME}/.fmail/*>;
 our @backup = grep !/\/annex\z/, <$ENV{HOME}/local/big/restore/*>;
 @live and @backup or die;
-our @archive = <$ENV{HOME}/annex/mail/*-jan-2023.gz>;
+# our @archive = <$ENV{HOME}/annex/mail/*-jan-2023.gz>;
 
 my $mgr = Mail::Box::Manager->new;
 my ($skipped, $found, $missing, %live) = (0, 0, 0);
@@ -29,19 +29,19 @@ foreach my $dir (@live) {
     $live{ $_->messageId }++ for @$md;
 }
 
-foreach my $archive (@archive) {
-    my (undef, $temp) = tempfile DELETE => 1;
-    gunzip $archive, $temp or die "gunzip failed: $GunzipError\n";
-    my $mb = $mgr->open(
-	$temp,
-	access    => "r",
-	create    => 0,
-	keep_dups => 1,
-	type      => "mbox"
-    );
-    printf "Reading %d msgids from %s\n", scalar @$mb, $archive;
-    $live{ $_->messageId }++ for @$mb;
-}
+# foreach my $archive (@archive) {
+#     my (undef, $temp) = tempfile DELETE => 1;
+#     gunzip $archive, $temp or die "gunzip failed: $GunzipError\n";
+#     my $mb = $mgr->open(
+# 	$temp,
+# 	access    => "r",
+# 	create    => 0,
+# 	keep_dups => 1,
+# 	type      => "mbox"
+#     );
+#     printf "Reading %d msgids from %s\n", scalar @$mb, $archive;
+#     $live{ $_->messageId }++ for @$mb;
+# }
 
 foreach my $dir (@backup) {
     my $md = $mgr->open($dir, access => "rw", create => 0, type => "maildir");