50 |
my $ENCODING = 'ISO-8859-2'; |
my $ENCODING = 'ISO-8859-2'; |
51 |
my $TIMESTAMP = '%Y-%m-%d %H:%M:%S'; |
my $TIMESTAMP = '%Y-%m-%d %H:%M:%S'; |
52 |
|
|
53 |
|
my $sleep_on_error = 5; |
54 |
|
|
55 |
## END CONFIG |
## END CONFIG |
56 |
|
|
57 |
|
|
542 |
warn "## indetify $NICK\n"; |
warn "## indetify $NICK\n"; |
543 |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
$_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); |
544 |
}, |
}, |
545 |
|
irc_disconnected => sub { |
546 |
|
warn "## disconnected, reconnecting again\n"; |
547 |
|
$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT); |
548 |
|
}, |
549 |
|
irc_socketerr => sub { |
550 |
|
warn "## socket error... sleeping for $sleep_on_error seconds and retry"; |
551 |
|
sleep($sleep_on_error); |
552 |
|
$_[KERNEL]->post($IRC_ALIAS => connect => $CONNECT); |
553 |
|
}, |
554 |
# irc_433 => sub { |
# irc_433 => sub { |
555 |
# print "# irc_433: ",$_[ARG1], "\n"; |
# print "# irc_433: ",$_[ARG1], "\n"; |
556 |
# warn "## indetify $NICK\n"; |
# warn "## indetify $NICK\n"; |