mr2 has asked for the wisdom of the Perl Monks concerning the following question: 

for example i do:

# /msg #channel re
$self->privmsg($channel, 're');

# /mode #channel +o mr2
$self->mode($channel,'+o','mr2');

# /quit message
$self->quit('message');

& how do i make /kick #channel mr2 ?

[download]

Replies are listed 'Best First'.
Re: how do i make a /kick $nick ... using Net::IRC
by Corion (Patriarch) on Aug 10, 2002 at 10:23 UTC

    I haven't used (or installed) Net::IRC, but from looking at the source presented at http://www.speakeasy.org/~cgires/trading/Net/Connection.pm, I assume that

    $self->kick($channel, $nickname, $reason);

    [download]

    should do the trick. For commands not directly supported by Net::IRC, the sl command prints a raw string directly to the server - but you'll have to build the string with the command and the quoted text yourself then.

    perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web

    [download]
[reply]
[d/l]
[select]

      and how to get /whois $nick ?

      i haven't found it in example that comes with Net::IRC module

[reply]
        well, by doing the same as Corion above and looking through the source (I haven't used or installed Net::IRC either), I would assume that 
        $self->whois($nick);

        [download]
        should do the trick
[reply]
[d/l]
Re: how do i make a /kick $nick ... using Net::IRC
by Corion (Patriarch) on Aug 10, 2002 at 22:35 UTC

    You might really want to read RFC 1459 ("The Internet Relay Chat Protocol"), as it details what should and shouldn't be done as a client. Another helpful resource might be http://www.irchelp.org/. The source code of Net::IRC should also prove a wealth of information, as most interesting commands (for a bot) should already have found their way into it - and, not really surprising, the names for the commands are the same as the commands in the clients, which are, even less surprisingly the same as the commands sent over to the server. 

    perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web

    [download]
[reply]
[d/l]
      thnx for help! ;)
[reply]

Back to Seekers of Perl Wisdom