diff options
Diffstat (limited to 'scripts/mail/compare_backup_msgids.pl')
| -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"); |