view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME

    AnyEvent::Ident - Simple asynchronous ident client and server

VERSION

    version 0.08

SYNOPSIS

    client:

     use AnyEvent::Ident qw( ident_client );
     
     ident_client '127.0.0.1', 113, $server_port, $client_port, sub {
       my($res) = @_; # isa AnyEvent::Client::Response 
       if($res->is_success)
       {
         print "user: ", $res->username, "\n"
         print "os:   ", $res->os, "\n"
       }
       else
       {
         warn "Ident error: " $res->error_type;
       }
     };

    server:

     use AnyEvent::Ident qw( ident_server );
     
     ident_server '127.0.0.1', 113, sub {
       my $tx = shift;
       if($tx->req->server_port == 400
       && $tx->req->client_port == 500)
       {
         $tx->reply_with_user('UNIX', 'grimlock');
       }
       else
       {
         $tx->reply_with_error('NO-USER');
       }
     };

DESCRIPTION

    This module provides a simple procedural interface to
    AnyEvent::Ident::Client and AnyEvent::Ident::Server.

FUNCTIONS

 ident_server

     my $server = ident_server $hostname, $port, $callback;
     my $server = ident_server $hostname, $port, $callback, \%opt;

    Start an ident server listening to the address given by $hostname on
    port $port. For each request $callback will be called and passed in an
    instance of AnyEvent::Ident::Transaction.

    %opt is optional hash of arguments. See
    AnyEvent::Ident::Server#CONSTRUCTOR for legal key/value pairs and
    defaults.