84 |
$_[KERNEL]->post($IRC_ALIAS => register => 'all'); |
$_[KERNEL]->post($IRC_ALIAS => register => 'all'); |
85 |
$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT); |
$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT); |
86 |
}, |
}, |
87 |
irc_255 => sub { # server is done blabbing |
irc_255 => sub { # server is done blabbing |
88 |
$_[KERNEL]->post($IRC_ALIAS => join => $CHANNEL); |
$_[KERNEL]->post($IRC_ALIAS => join => $CHANNEL); |
89 |
$_[KERNEL]->post($IRC_ALIAS => join => '#logger'); |
$_[KERNEL]->post($IRC_ALIAS => join => '#logger'); |
90 |
$_[KERNEL]->yield("heartbeat"); # start heartbeat |
$_[KERNEL]->yield("heartbeat"); # start heartbeat |
140 |
channel, |
channel, |
141 |
nick, |
nick, |
142 |
message |
message |
143 |
from log order by time desc limit $nr |
from log order by log.time desc limit $nr |
144 |
}); |
}); |
145 |
$sth->execute(); |
$sth->execute(); |
146 |
$res = "Last $nr messages: "; |
$res = "Last $nr messages: "; |