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