using Net::IRC for actions

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

Anyone out there familiar with Net::IRC and familiar know your away around IRC/MIRC? My question is, I want my bot to do a specific action when the bot is slapped (ie: /me slaps Wizard). I'm sure my regex is fine but I think the reason it's not reading in the action is because it's not being read as "on_public" text..

Everything else in the on_public is working, just not the actions.

sub on_public 
{

   my ($conn, $event) = @_;
   my $nick = $event->{nick};

   . . .
   elsif ($text =~ m/slaps Wizard/i)
   {
      $conn->privmsg($conn->{channel}, "Hey, don't slap me!");
   }

   . . .
}
[download]

I tried looking on Google but it doesn't say anything about reading user actions. Any ideas?

Comment on using Net::IRC for actions Download Code

Replies are listed 'Best First'.
Re: using Net::IRC for actions by friedo (Prior) on May 03, 2005 at 01:12 UTC
Actions are actually not part of the IRC protocol, but are CTCP events. Thus they aren't handled by your `on_public` handler. Instead, set a handler for the `caction` event. For more, see the docs for Net::IRC::Event.	[reply] [d/l] [select]
Re: using Net::IRC for actions by eibwen (Friar) on May 03, 2005 at 00:28 UTC
prefix and suffix the action text with `\001`. UPDATE: As far as I can tell/recall `ACTION` is not in the IRC RFC (or the addendum), but rather the CTCP specification.	[reply] [d/l] [select]
Re^2: using Net::IRC for actions by Anonymous Monk on May 03, 2005 at 00:47 UTC
Sorry, do you mean elsif ($text =~ m/\001slaps\001/i)? I tried that as the regex and it didn't change anything.	[reply]
Re^3: using Net::IRC for actions by iblech (Friar) on May 03, 2005 at 15:48 UTC
No, that's wrong. According to the CTCP Specification, correct is: `$text =~ m/^\001ACTION slaps Wizard\001$/` --Ingo	[reply] [d/l]
Re: using Net::IRC for actions by Steve_p (Priest) on May 03, 2005 at 13:28 UTC
For a simple bot like this, I'd suggest looking into Bot::BasicBot.	[reply]