… | |
… | |
68 | |
68 | |
69 | sub check_connection { |
69 | sub check_connection { |
70 | return if $CON; |
70 | return if $CON; |
71 | |
71 | |
72 | $CON = AnyEvent::IRC::Client->new; |
72 | $CON = AnyEvent::IRC::Client->new; |
|
|
73 | $CON->set_exception_cb (sub { |
|
|
74 | my ($exp, $ev) = @_; |
|
|
75 | warn "IRC: IRC EXCEPTION (event $ev): $exp\n"; |
|
|
76 | }); |
73 | $CON->connect ($BOTSERVER, $BOTPORT, { |
77 | $CON->connect ($BOTSERVER, $BOTPORT, { |
74 | nick => $BOTNAME, |
78 | nick => $BOTNAME, |
75 | user => $BOTNAME, |
79 | user => $BOTNAME, |
76 | real => 'deliantra server' |
80 | real => 'deliantra server' |
77 | }); |
81 | }); |