my ($self) = @_;
my $lei = $self->{lei};
my $in_fmt = $lei->{opt}->{'in-format'};
+ my $mics;
+ if (my $nrd = $lei->{nrd}) { # may prompt user once
+ $nrd->{mics_cached} = $nrd->imap_common_init($lei);
+ }
if (my $stdin = delete $self->{0}) {
PublicInbox::MboxReader->$in_fmt($stdin, \&mbox_cb, $self);
}
require PublicInbox::MdirReader;
}
$self->{inputs} = \@inputs;
- return convert_start($lei) if !$nrd;
-
- if (my $err = $nrd->errors) {
- return $lei->fail($err);
+ if ($nrd) {
+ if (my $err = $nrd->errors) {
+ return $lei->fail($err);
+ }
+ $nrd->{quiet} = $opt->{quiet};
+ $lei->{nrd} = $nrd;
}
- $nrd->{quiet} = $opt->{quiet};
- $lei->{nrd} = $nrd;
- require PublicInbox::LeiAuth;
- my $auth = $lei->{auth} = PublicInbox::LeiAuth->new($nrd);
- $auth->auth_start($lei, \&convert_start, $lei);
+ convert_start($lei);
}
sub ipc_atfork_child {
# uses cached auth info prepared by mic_for
sub mic_get {
- my ($self, $sec) = @_;
- my $mic_arg = $self->{mic_arg}->{$sec};
- unless ($mic_arg) {
- my $uri = ref $sec ? $sec : PublicInbox::URIimap->new($sec);
- $sec = uri_section($uri);
- $mic_arg = $self->{mic_arg}->{$sec} or
- die "BUG: no Mail::IMAPClient->new arg for $sec";
+ my ($self, $uri) = @_;
+ my $sec = uri_section($uri);
+ # see if caller saved result of imap_common_init
+ if (my $cached = $self->{mics_cached}) {
+ my $mic = $cached->{$sec};
+ return $mic if $mic && $mic->IsConnected;
+ delete $cached->{$sec};
}
+ my $mic_arg = $self->{mic_arg}->{$sec} or
+ die "BUG: no Mail::IMAPClient->new arg for $sec";
if (defined(my $cb_name = $mic_arg->{Authcallback})) {
if (ref($cb_name) ne 'CODE') {
$mic_arg->{Authcallback} = $self->can($cb_name);
my $uri = PublicInbox::URIimap->new($url);
my $sec = $self->can('uri_section')->($uri);
local $0 = $uri->mailbox." $sec";
- my $mic = $self->mic_get($sec) or die "E: not connected: $@";
+ my $mic = $self->mic_get($uri) or die "E: not connected: $@";
$mic->select($uri->mailbox) or return; # non-existent
if ($mic->delete_message('1:*')) {
$mic->expunge;