diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-05-09 18:02:42 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-05-09 18:03:03 -0700 |
commit | 4b99716c1b5c709fa47044b429b05e573974ccb4 (patch) | |
tree | 03518f035204da484b99e05fb2afad4ed11d92c7 | |
parent | 483c42cecee6924388894b7803d6b2cf903ccd79 (diff) | |
download | dotfiles-4b99716c1b5c709fa47044b429b05e573974ccb4.tar.gz |
compare_backup_msgids.pl: comment out @archive in committed version
We only need this sometimes.
-rw-r--r-- | scripts/mail/compare_backup_msgids.pl | 28 |
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"); |