my %Stack;
my $nextq; # queue for next_tick
my $wait_pids; # list of [ pid, callback, callback_arg ]
-my $later_q; # list of callbacks to run at some later interval
my $EXPMAP; # fd -> idle_time
our $EXPTIME = 180; # 3 minutes
my ($reap_armed);
my @q = delete @Stack{keys %Stack};
for my $q (@q) { @$q = () }
$EXPMAP = undef;
- $wait_pids = $later_q = $nextq = $ToClose = undef;
+ $wait_pids = $nextq = $ToClose = undef;
$_io = undef; # closes real $Epoll FD
$Epoll = undef; # may call DSKQXS::DESTROY
} while (@Timers || keys(%Stack) || $nextq || $wait_pids ||
- $later_q || $ToClose || keys(%DescriptorMap) ||
+ $ToClose || keys(%DescriptorMap) ||
$PostLoopCallback || keys(%UniqTimer));
$reap_armed = undef;
$obj->event_step;
}
} while (PostEventLoop());
- _run_later();
}
=head2 C<< CLASS->SetPostLoopCallback( CODEREF ) >>
}
}
-sub _run_later () {
- my $q = $later_q or return;
- $later_q = undef;
- $Stack{later_q} = $q;
- $_->() for @$q;
- delete $Stack{later_q};
-}
-
-sub later ($) {
- push @$later_q, $_[0]; # autovivifies @$later_q
- add_uniq_timer('later', 60, \&_run_later);
-}
-
sub expire_old () {
my $cur = $EXPMAP or return;
$EXPMAP = undef;
}
}
-# called every X minute(s) or so by PublicInbox::DS::later
-my $IDLERS = {};
-my $idle_timer;
+# called every minute or so by PublicInbox::DS::later
+my $IDLERS; # fileno($obj->{sock}) => PublicInbox::IMAP
sub idle_tick_all {
my $old = $IDLERS;
- $IDLERS = {};
+ $IDLERS = undef;
for my $i (values %$old) {
next if ($i->{wbuf} || !exists($i->{-idle_tag}));
$i->update_idle_time or next;
$IDLERS->{fileno($i->{sock})} = $i;
$i->write(\"* OK Still here\r\n");
}
- $idle_timer = scalar keys %$IDLERS ?
- PublicInbox::DS::later(\&idle_tick_all) : undef;
+ $IDLERS and
+ PublicInbox::DS::add_uniq_timer('idle', 60, \&idle_tick_all);
}
sub cmd_idle ($$) {
$ibx->subscribe_unlock($fd, $self);
$self->{imapd}->idler_start;
}
- $idle_timer //= PublicInbox::DS::later(\&idle_tick_all);
+ PublicInbox::DS::add_uniq_timer('idle', 60, \&idle_tick_all);
$IDLERS->{$fd} = $self;
\"+ idling\r\n"
}