foreach my $session (keys(%main::sessions)) {
if (defined(read_session_activity($session))) {
- if (read_session_activity($session) < (time() - 30) and read_session_activity($session) < (time() - 45)) {
- my $irc = $main::sessions{$session}{'session'};
- $irc->yield( part => '#pg_docbot' );
- }
-
if (read_session_activity($session) < (time() - 180) and read_session_activity($session) < (time() - 240)) {
print_msg("Session $session timed out", INFO);
# FIXME: what to do?