NAME

Auth.pm - A module to handle sessions for IRC::Bot.

SYNOPSIS

use IRC::Bot::Auth
my $seen = IRC::Bot::Auth->new();

# later on...

# Check to see if $nick has existing session
sub on_public {
  my ( $kernel, $who, $where, $msg ) = @_[ KERNEL, ARG0, ARG1, ARG2 ];
  my $nick = ( split /!/, $who )[0];

  # Do Stuff...

  my $check = $auth->is_auth( $nick );
  if ( $check != 1 ) {
      # Do stuff...
  }
  else {
      # Denied
  }

}

DESCRIPTION

Provides session handling for IRC::Bot.

METHODS

is_auth()

is_auth() takes one argument, users nick, and checks to see if they are authed. Returns 0 if authed, 1 if otherwise.

Use like so:

my $check = $auth->is_auth( $nick );

get_ses()

get_ses() takes a nickname as an argument. Checks to see if user is authed and returns data from session.

Use like so:

my $nick_ses = $auth->get_ses( $nick );

auth_set()

auth_set() Sets users session. Takes a nick for an argument, sets session time at one hour.

Use like so:

$auth->auth_set( $nick );

de_auth()

de_auth() clears the session, takes a nick for an argument.

Use like so:

$auth->de_auth( $nick );

CREDITS

See IRC::Bot

AUTHOR

Benjamin Smith (DeFyance) defyance@just-another.net

SEE ALSO

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