NAME

Apache::Wyrd::Services::TicketPad - Key storage for LoginServer Service

SYNOPSIS

        use Apache::Wyrd::Services::TicketPad;
        my $pad = Apache::Wyrd::Services::TicketPad->new($ticketfile, 5);
        my $key = 'Swordfish';
        my $ticket = join ('', qw(
                5261306521af6ea42a9c19060e1dc1258791d4c1f6ac
                9be773c5e454b1679171f2ddf35967a5b4bad255e9c8
                e8c98444d3790c3793a826b6460087cbaaf32036a19b
                526236eb07931ea055808f047d81f6afae38ffabb720
        ));
        $pad->add_ticket($ticket, $key);
        $key = $pad->find($ticket);

DESCRIPTION

NONE

PERL METHODS

(format: (returns) name (arguments after self))

(Apache::Wyrd::Services::TicketFile) new (scalar, scalar)

Accepts a filename for the file which will hold the ticket pad and the number of tickets the pad should keep (default 100). Returns the TicketPad object.

(void) add_ticket (scalar, scalar)

Accepts a key and a value for an entry (ticket) in the ticket pad. Discards the oldest ticket if this would raise the size of the pad beyond capacity.

(scalar) add_ticket (scalar)

Accepts a key and returns the value of the ticket under that key. Returns the empty string if the ticket cannot be found.

BUGS/CAVEATS/RESERVED METHODS

Will fail if the Apache process cannot create a file unreadable by group or other.

AUTHOR

Barry King <wyrd@nospam.wyrdwright.com>

SEE ALSO

Apache::Wyrd::Services::Auth

Authorization handler

Apache::Wyrd::Services::LoginServer

Perl Handler for login services.

LICENSE

Copyright 2002-2007 Wyrdwright, Inc. and licensed under the GNU GPL.

See LICENSE under the documentation for Apache::Wyrd.