Speculative onion routing of email

src/freedombone-base-email

@@ -150,6 +150,41 @@ function configure_email_onion {
     set_completion_param "email onion domain" "${onion_address}"
     add_email_hostname "$onion_address"
 
+    #echo "$DEFAULT_DOMAIN_NAME $onion_address" > /etc/exim4/onionrelay.txt
+    #cdb -m -c -t /tmp/onionrelay.tmp /etc/exim4/onionrelay.cdb /etc/exim4/onionrelay.txt
+
+    #{ "perl_startup = do '/etc/exim4/perl-routines.pl'";
+    #  "perl_at_start"; } > /etc/exim4/conf.d/main/perl
+
+    #{ "use Net::DNS::Resolver;";
+    #  "sub onionLookup {";
+    #  "  my \$hostname = shift;";
+    #  "  my \$res = Net::DNS::Resolver->new(nameservers => [qw(127.0.0.1)],);";
+    #  "  \$res->port(5300);";
+    #  "  my \$query = \$res->search(\$hostname);";
+    #  "  foreach my \$rr (\$query->answer) {";
+    #  "    next unless \$rr->type eq \"A\";";
+    #  "    return \$rr->address;";
+    #  "  }";
+    #  "  return 'no_such_host';";
+    #  "}"; } > /etc/exim4/perl-routines.pl
+
+    #{ "ONION_RELAYDB=/etc/exim4/onionrelay.cdb";
+    #  "domainlist onion_relays     = cdb;ONION_RELAYDB"; } > /etc/exim4/conf.d/domainlists
+
+    #{ "# send things over tor where we have an entry for it";
+    #  "onionrelays:";
+    #  "  driver    = manualroute";
+    #  "  domains   = +onion_relays";
+    #  "  transport = onion_relay";
+    #  "  # get the automap IP for the onion address from the tor daemon";
+    #  "  route_data = \${perl{onionLookup}{\${lookup{\$domain}cdb{ONION_RELAYDB}}}}";
+    #  "  no_more"; } > /etc/exim4/conf.d/router/50_exim4-config-onion
+
+    #{ "onion_relay:";
+    #  "  driver = smtp";
+    #  "  socks_proxy = 127.0.0.1 port=9050"; } > /etc/exim4/conf.d/transport/50_exim4-config_onion
+
     mark_completed "${FUNCNAME[0]}"
 }