httpd: make internals slightly more generic

[public-inbox.git] / lib / PublicInbox / Daemon.pm

diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm
index bceae6e5699f5d13412f7cdc4e544074b58fd1d7..1af03cc47947c9cd7f5ab10fa9a71409fc39af0b 100644 (file)
--- a/lib/PublicInbox/Daemon.pm
+++ b/lib/PublicInbox/Daemon.pm
@@ -81,11 +81,11 @@ sub load_mod ($) {
        my $mod = $modc.'D';
        eval "require $mod"; # IMAPD|HTTPD|NNTPD|POP3D
        die $@ if $@;
-       my %xn = map { $_ => $mod->can($_) } qw(refresh post_accept);
-       $xn{tlsd} = $mod->new if $mod->can('refresh_groups'); #!HTTPD
-       my $tlsd = $xn{tlsd};
-       $xn{refresh} //= sub { $tlsd->refresh_groups(@_) };
-       $xn{post_accept} //= sub { $modc->new($_[0], $tlsd) };
+       my %xn;
+       my $tlsd = $xn{tlsd} = $mod->new;
+       $xn{refresh} = sub { $tlsd->refresh_groups(@_) };
+       $xn{post_accept} = $tlsd->can('post_accept_cb') ?
+                       $tlsd->post_accept_cb : sub { $modc->new($_[0], $tlsd) };
        $xn{af_default} = 'httpready' if $modc eq 'PublicInbox::HTTP';
        \%xn;
 }