Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Net::IRC "on kick(ed)"

by mr2 (Friar)
on Aug 14, 2002 at 14:06 UTC ( #190077=perlquestion: print w/replies, xml ) Need Help??
mr2 has asked for the wisdom of the Perl Monks concerning the following question:

how should the sub that start's on kick event look like?
i mean how to check if my perl bot is kicked off the channel?

how "sub on_kick {}" &
"$conn2->add_global_handler('msg', \&on_msg);" should look like?

(i haven't found it the example that comes with Net::Irc module ;/)

i have an example :
#!/usr/bin/perl use Net::IRC; use strict; my $server = "myserver"; my $irc = new Net::IRC; my $conn1 = $irc->newconn(Nick => "test1", Server => $server, Port => 6667); my $conn2 = $irc->newconn(Nick => "test2", Server => $server, Port => 6667); $conn1->add_global_handler('msg', \&on_msg); $conn2->add_global_handler('msg', \&on_msg); $irc->start; sub on_msg { my ($self, $event) = @_; my $who = $event->nick; $self->privmsg($who, "hello, $who!!"); }

Replies are listed 'Best First'.
Re: Net::IRC "on kick(ed)"
by LTjake (Prior) on Aug 14, 2002 at 14:44 UTC
    I've never used the module, but a quick look into Net::IRC::Event shows that kick is the event that would be called:
    kick The "kick" event is triggered upon receipt of a KICK message, which me +ans that someone on a channel with the client (or possibly the client + itself!) has been forcibly ejected.
    Thus, your code should look something like:
    $conn->add_global_hander('kick', \&on_kick); sub on_kick { my ($self, $event) = @_; my $who = $event->nick; # $who is the person who was kicked. }

    Note: you can use Data::Dumper to see what the event structure looks like:
    use Data::Dumper; # ... sub on_kick { my ($self, $event) = @_; print Dumper($event); }
Re: Net::IRC "on kick(ed)"
by BUU (Prior) on Aug 14, 2002 at 16:03 UTC
    Wtf is wrong with you man?


    this is like your 3rd or 4th post in a row saying "blah blah i cant read documents for net::irc can someone do it for me" and the third or fouth time someones replied saying "i've never used net::irc before in my life, but gee, i go look at it for 5 seconds and i can answer your question" MAYBE THATS A SUBTLE HINT.

      sorry ... it was a litlebit stupid from my side ;/ (bad mood i gues)

      anyway ... thnx ppl! (it will not repeat)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://190077]
Approved by Courage
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2018-04-20 09:56 GMT
Find Nodes?
    Voting Booth?