679 |
|
|
680 |
if ( $args->{kernel} && $send_rss_msgs ) { |
if ( $args->{kernel} && $send_rss_msgs ) { |
681 |
$send_rss_msgs--; |
$send_rss_msgs--; |
682 |
|
# FIXME bug! should be save_message |
683 |
|
# save_message( channel => $args->{channel}, me => 1, nick => $NICK, message => $msg ); |
684 |
$sth_insert_log->execute( $args->{channel}, 1, $NICK, $msg, 'now()' ); |
$sth_insert_log->execute( $args->{channel}, 1, $NICK, $msg, 'now()' ); |
685 |
my ( $type, $to ) = ( 'notice', $args->{channel} ); |
my ( $type, $to ) = ( 'notice', $args->{channel} ); |
686 |
( $type, $to ) = ( 'privmsg', $args->{nick} ) if $args->{private}; |
( $type, $to ) = ( 'privmsg', $args->{nick} ) if $args->{private}; |
947 |
$channel = $nick if $sub eq 'private'; |
$channel = $nick if $sub eq 'private'; |
948 |
|
|
949 |
my $sql = { |
my $sql = { |
950 |
add => qq{ insert into feeds (url,name,channel,nick,private) values (?,?,?,?,?) }, |
add => qq{ insert into feeds (url,name,channel,nick,private) values (?,?,?,?,?) }, |
951 |
# remove => qq{ delete from feeds where url = ? and name = ? }, |
# remove => qq{ delete from feeds where url = ? and name = ? }, |
952 |
start => qq{ update feeds set active = true where url = ? }, |
start => qq{ update feeds set active = true where url = ? }, |
953 |
stop => qq{ update feeds set active = false where url = ? }, |
stop => qq{ update feeds set active = false where url = ? }, |
981 |
rss_check_updates( $_[KERNEL] ); |
rss_check_updates( $_[KERNEL] ); |
982 |
}, |
}, |
983 |
irc_477 => sub { |
irc_477 => sub { |
984 |
_log "# irc_477: ",$_[ARG1]; |
_log "<< irc_477: ",$_[ARG1]; |
985 |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "register $NICK" ); |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "register $NICK" ); |
986 |
}, |
}, |
987 |
irc_505 => sub { |
irc_505 => sub { |
988 |
_log "# irc_505: ",$_[ARG1]; |
_log "<< irc_505: ",$_[ARG1]; |
989 |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "register $NICK" ); |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "register $NICK" ); |
990 |
# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "set hide email on" ); |
# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "set hide email on" ); |
991 |
# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "set email dpavlin\@rot13.org" ); |
# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "set email dpavlin\@rot13.org" ); |
992 |
}, |
}, |
993 |
irc_registered => sub { |
irc_registered => sub { |
994 |
_log "## registrated $NICK"; |
_log "## registrated $NICK, /msg nickserv IDENTIFY $NICK"; |
995 |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
996 |
}, |
}, |
997 |
irc_disconnected => sub { |
irc_disconnected => sub { |
998 |
_log "## disconnected, reconnecting again"; |
_log "## disconnected.. sleeping for $sleep_on_error seconds and reconnecting again"; |
999 |
$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT); |
sleep($sleep_on_error); |
1000 |
|
$_[KERNEL]->post( $IRC_ALIAS => connect => $CONNECT); |
1001 |
}, |
}, |
1002 |
irc_socketerr => sub { |
irc_socketerr => sub { |
1003 |
_log "## socket error... sleeping for $sleep_on_error seconds and retry"; |
_log "## socket error... sleeping for $sleep_on_error seconds and retry"; |
1004 |
sleep($sleep_on_error); |
sleep($sleep_on_error); |
1005 |
$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT); |
$_[KERNEL]->post( $IRC_ALIAS => connect => $CONNECT); |
1006 |
}, |
}, |
1007 |
# irc_433 => sub { |
# irc_433 => sub { |
1008 |
# print "# irc_433: ",$_[ARG1], "\n"; |
# print "# irc_433: ",$_[ARG1], "\n"; |
1009 |
# warn "## indetify $NICK\n"; |
# warn "## indetify $NICK\n"; |
1010 |
# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
1011 |
# }, |
# }, |
1012 |
|
# irc_451 # please register |
1013 |
|
irc_snotice => sub { |
1014 |
|
_log "<< snotice",$_[ARG0]; |
1015 |
|
if ( $_[ARG0] =~ m!/(QUOTE)\s+(PASS\s+\d+)!i ) { |
1016 |
|
warn ">> $1 | $2\n"; |
1017 |
|
$_[KERNEL]->post( $IRC_ALIAS => lc($1) => $2); |
1018 |
|
} |
1019 |
|
}, |
1020 |
_child => sub {}, |
_child => sub {}, |
1021 |
_default => sub { |
_default => sub { |
1022 |
_log sprintf "sID:%s %s %s", |
_log sprintf "sID:%s %s %s", |