NAME

Quote.pm - A module to record user quotes for IRC::Bot.

SYNOPSIS

  use Bot::Quote
  my $quote = Bot::Quote->new();

  # later on...

  # Lets look and see if they have a quote recorded.
  sub on_public {
    my ( $kernel, $who, $where, $msg ) = @_[ KERNEL, ARG0, ARG1, ARG2 ];
    my $nick = ( split /!/, $who )[0];

    # Do Stuff...

        elsif ( $msg =~ m/^!quote/i ) {
           my @arg  = split ( / /, $msg );
           my $name = $arg[1];

           if ($name) {
               my $said = $quote->quote_query( $name );
               $kernel->post( 'privmsg', $where, $said ); 
           }
           else { 
               $kernel->post( 'privmsg', $where, "Need help, $nick?"); 
           }

  }

DESCRIPTION

Provides methods for recording quotes for users on a channel

METHODS

quote_set()

quote_set() takes two arguments, users nick and the quote to record.

Use like so:

 my $set = $quote->set_quote( $nick, $text );
 $kernel->post( 'privmsg', $where, $set );

quote_query()

quote_query() Takes one argument, a nick. Checks to see if nick has quote recorded. If so, it will return the quote, otherwise it will let you know if it was not found.

Use like so:

 my $get = $quote->quote_query( $nick );
 $kernel->post( 'privmsg', $where, $get );
 

quote_forget()

quote_forget() Takes one argumet, a nick. This will remove the nick from the cache. Returns a message letting you know nick has been removed.

Use like so:

 my $forget = $quote->quote_forget( $nick );
 $kernel->post( 'privmsg', $where, $forget );
 

CREDITS

See Bot

AUTHOR

Benjamin Smith defitro@just-another.net

SEE ALSO

Bot POE::Component::IRC Cache::FileCache