small LMDB/STS debug helpers

lmdb-del-key.py

+#!/usr/bin/python3
+
+import sys, io
+
+import lmdb
+
+lmdb_path, key = sys.argv[1], sys.argv[2]
+
+env = lmdb.open(lmdb_path, max_dbs=10)
+db = env.open_db()
+
+with env.begin(write=True) as txn:
+    txn.delete(key.encode())

lmdb-dump.py

+#!/usr/bin/python3
+
+import sys
+import lmdb
+
+lmdb_path = sys.argv[1]
+
+env = lmdb.open(lmdb_path, max_dbs=10)
+db = env.open_db()
+
+with env.begin() as txn:
+    for key, value in list(txn.cursor(db=db))[1:]:
+        k, v = key.decode(), value.decode()
+        print('%s="%s"' % (k, v))

sts-test.pl

+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+use Mail::STS;
+
+my $domainname = $ARGV[0];
+print("Domain: $domainname\n");
+
+my $sts = Mail::STS->new;
+my $domain = $sts->domain($domainname);
+#print("\nMail::STS:Domain: $domain\n");
+#print("\nMail::STS:Domain: ".Dumper($domain));
+
+eval { $domain->record_type; } or
+    die("Domain $domainname does not resolve\n");
+
+my $tlsa = $domain->tlsa;
+print("\nNet::DNS::RR::TLSA: ".Dumper($tlsa));
+
+my $stsrecord = $domain->sts;
+print("\nMail::STS::STSRecord: ".Dumper($stsrecord));
+defined($stsrecord) or exit(0);
+
+my $tlsrpt = $domain->tlsrpt;
+print("\nMail::STS::TLSRPTRecord: ".Dumper($tlsrpt));
+defined($tlsrpt) or exit(0);
+
+my $policy = $domain->policy;
+print("\nMail::STS::Policy: ".Dumper($policy));
+defined($policy) or exit(0);