++ed by:
KES
Author image Benjamin W. Smith

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 defitro@just-another.net

SEE ALSO

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