App::Twirc::Plugin::BangCommands - Commands prefixed with !

POE-Component-Server-Twirc documentation Contained in the POE-Component-Server-Twirc distribution.

Index

Code Index:

NAME

Top

App::Twirc::Plugin::BangCommands - Commands prefixed with !

SYNOPSIS

Top

  # in config (.yml in this example)
  plugins:
      -BangCommands

  # in your IRC clientt
  This is a status message (no "post" prefix necessary)
  !follow net_twitter
  !rate_limit_status

DESCRIPTION

Top

In your IRC client, text entered without an exclamation point (!) prefix will be posted as a status message. Commands start with an exclamation mark (!) prefix.

AUTHOR

Top

Marc Mims <marc@questright.com>

LICENSE

Top

Copyright (c) 2009 Marc Mims

You may distribute this code and/or modify it under the same terms as Perl itself.

POE-Component-Server-Twirc documentation Contained in the POE-Component-Server-Twirc distribution. 
package App::Twirc::Plugin::BangCommands;
use warnings;
use strict;

sub new { bless {}, shift }

sub preprocess {
    my (undef,undef,undef,undef, $textref) = @_;

    unless ( $$textref =~ s/^!\s*// ) {
        $$textref = "post $$textref";
    }
    return;
}

1;

__END__