SEARCH
NEW RPMS
DIRECTORIES
ABOUT
FAQ
VARIOUS
BLOG
DONATE




YUM REPOSITORY

 
 

Bot::Quote

Section: User Contributed Perl Documentation (3)
Updated: 2007-06-22
Index 

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 defitroAATTjust-another.net 

SEE ALSO

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


 

Index

NAME
SYNOPSIS
DESCRIPTION
METHODS
CREDITS
AUTHOR
SEE ALSO

This document was created byman2html,using the manual pages.