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