commit some checking scripts

2 files changed, 31 insertions, 0 deletions

diff --git a/scripts/mail/all_msgids b/scripts/mail/all_msgids
new file mode 100644
index 00000000..c97cb85d
--- /dev/null
+++ b/scripts/mail/all_msgids
@@ -0,0 +1,16 @@
+use 5.028;
+use strict;
+use warnings;
+
+use Mail::Box::Manager;
+
+our @maildirs = grep !/annex\z/, glob "$ENV{HOME}/.fmail/*";
+
+my $mgr = Mail::Box::Manager->new;
+
+foreach my $dir (@maildirs) {
+    my $md = $mgr->open($dir, access => 'r', create => 0, keep_dups => 1, type => 'maildir');
+    for ($md->messages) {
+	say "$dir		".$_->messageId;
+    }
+}
diff --git a/scripts/mail/compare_msgids b/scripts/mail/compare_msgids
new file mode 100644
index 00000000..6918a004
--- /dev/null
+++ b/scripts/mail/compare_msgids
@@ -0,0 +1,15 @@
+use 5.028;
+use strict;
+use warnings;
+
+my ($fh, @athena, %melete);
+open $fh, "<", "$ENV{HOME}/tmp/athena_msgids";
+push @athena, $_ while <$fh>;
+close $fh;
+open $fh, "<", "$ENV{HOME}/tmp/melete_msgids";
+$melete{$_} = undef while <$fh>;
+close $fh;
+
+for (@athena) {
+    exists $melete{$_} or say "on athena but not melete: $_";
+}