lei_auth: rename {nrd} field to {net} for clarity

We're authing for both reads and writes, this makes it
clear that we support both NetReader and NetWriter.

diff --git a/lib/PublicInbox/LeiAuth.pm b/lib/PublicInbox/LeiAuth.pm
index bf0110ed85a1199b00c213e1c28813e5b4f9d5be..c70d8e8fd5066118d65038b334db782b52d74cb4 100644 (file)
--- a/lib/PublicInbox/LeiAuth.pm
+++ b/lib/PublicInbox/LeiAuth.pm
@@ -10,22 +10,22 @@ use parent qw(PublicInbox::IPC);
 use PublicInbox::PktOp qw(pkt_do);
 use PublicInbox::NetReader;
 
-sub nrd_merge {
-       my ($lei, $nrd_new) = @_;
+sub net_merge {
+       my ($lei, $net_new) = @_;
        if ($lei->{pkt_op_p}) { # from lei_convert worker
-               pkt_do($lei->{pkt_op_p}, 'nrd_merge', $nrd_new);
+               pkt_do($lei->{pkt_op_p}, 'net_merge', $net_new);
        } else { # single lei-daemon consumer
                my $self = $lei->{auth} or return; # client disconnected
-               my $nrd = $self->{nrd};
-               %$nrd = (%$nrd, %$nrd_new);
+               my $net = $self->{net};
+               %$net = (%$net, %$net_new);
        }
 }
 
 sub do_auth { # called via wq_io_do
        my ($self) = @_;
-       my ($lei, $nrd) = @$self{qw(lei nrd)};
-       $nrd->imap_common_init($lei);
-       nrd_merge($lei, $nrd); # tell lei-daemon updated auth info
+       my ($lei, $net) = @$self{qw(lei net)};
+       $net->imap_common_init($lei);
+       net_merge($lei, $net); # tell lei-daemon updated auth info
 }
 
 sub do_finish_auth { # dwaitpid callback
@@ -44,7 +44,7 @@ sub auth_start {
        my ($self, $lei, $post_auth_cb, @args) = @_;
        $lei->_lei_cfg(1); # workers may need to read config
        my $op = $lei->workers_start($self, 'auth', 1, {
-               'nrd_merge' => [ \&nrd_merge, $lei ],
+               'net_merge' => [ \&net_merge, $lei ],
                '' => [ \&auth_eof, $lei, $post_auth_cb, @args ],
        });
        $self->wq_io_do('do_auth', []);
@@ -63,8 +63,8 @@ sub ipc_atfork_child {
 }
 
 sub new {
-       my ($cls, $nrd) = @_; # nrd may be NetReader or descendant (NetWriter)
-       bless { nrd => $nrd }, $cls;
+       my ($cls, $net) = @_; # net may be NetReader or descendant (NetWriter)
+       bless { net => $net }, $cls;
 }
 
 1;