Net::TCPwrappers 1.11

Net::TCPwrappers is a Perl interface to tcp_wrappers.

SYNOPSIS

use Net::TCPwrappers qw(RQ_DAEMON RQ_FILE request_init fromhost hosts_access);
...
my $progname = yadd;
while (accept(CLIENT, SERVER)) {
my $req = request_init(RQ_DAEMON, $progname, RQ_FILE, fileno(CLIENT));
fromhost($req);
if (!hosts_access($req)) {
# unauthorized access.
...
}
else {
# service connecting client.
...
}
}

ABSTRACT

Net::TCPwrappers offers perl programmers a convenient interface to the libwrap.a library from tcp_wrappers, Wietse Venemas popular TCP/IP daemon wrapper package. Use it in your perl code to monitor and filter access to TCP-based network services on unix hosts.

Net::TCPwrappers mimics the libwrap.a library fairly closely - the names of the functions and constants are identical, and calling arguments have been altered only slightly to be more perl-like.