Net::Hesiod - Perl interface to Hesiod Library API
use Net::Hesiod qw(
hesiod_init hesiod_end hesiod_to_bind hesiod_resolve
hesiod_getservbyname hesiod_getmailhost );
$bindname = hesiod_to_bind($context,$name,$type);
@results = hesiod_resolve($context,$name,$type);
@pwent = hesiod_getpwnam($context,$username);
@pwent = hesiod_getpwuid($context,$uid);
@servent = hesiod_getservbyname($context,$servicename,$proto);
@mhent = hesiod_getmailhost($context,$username);
my $ctxt = new Net::Hesiod;
$bindname = $ctxt->to_bind($name,$type);
@results = $ctxt->resolve($name,$type);
@pwent = $ctxt->getpwnam($username);
@pwent = $ctxt->getpwuid($uid);
@servent = $ctxt->getservbyname($servicename,$proto);
@mhent = $ctxt->getmailhost($username);
$results = $ctxt->query($name,$type,$delim);
@results = $ctxt->query($name,$type,$delim);
These routines interface to the Hesiod Library API. Hesiod is a distributed database, with records stored as text records in DNS, that is used to provide system information in clusters such as MIT's Athena project. http://web.mit.edu/is/athena/
This module provides both standard and object-orientated interfaces to the standard Hesiod library API. It requires the hesiod library to already be installed (and Hesiod configured) on the system.
Before using any of the routines, the hesiod library needs to be initialized. This can be done in the non-OO interface by calling hesiod_init. The scalar $context should be passed to subsequent calls, and when you are through with the Hesiod library, the resources should be explicitly freed with the hesiod_end routine.
In the OO interface, the constructor does the hesiod initialization, and the resources will be automatcially freed by the destructor when the Hesiod object gets destroyed. (In actuality, the constructor merely calls hesiod_init and blesses the resulting $context reference.)
hesiod_init returns 0 if successful, -1 if fails (and $! set). The OO constructor returns a new object reference if successful, and undef otherwise.
The hesiod_to_bind routine and the to_bind method convert a hesiod query on a name and type to a DNS type query. No actual lookup is done.
The hesiod_resolve routine and the resolve method perform an actual query. As with all DNS queries, multiple records can be returned, each of which is returned as separate items in returned list. Usually, only the first item is relevant.
The routines hesiod_getpwnam, hesiod_getpwuid, hesiod_getservbyname, and the related methods (getpwnam, getpwuid, and getservbyname), are hesiod versions of the Core Perl routines getpwnam, getpwuid, and getservbyname. The arrays returned have the same structure as the Core routines. NOTE: The service entry returned by hesiod_getservbyname and the related method has the port number in host-byte order, not network-byte order as the standard C servent structure does. This is consistent with the CORE getservbyname and related functions.
hesiod_getmailhost and the related method getmailhost return the Hesiod postoffice structure for the named user. The returned post office array has three elements, corresponding to the type, host, and name of the mailbox.
The method query is a convenience wrapper to the hesiod_resolve function. In scalar context, it join's the list of strings returned by the resolve routine with the $delim argument (which defaults to ', '), thus returning the entire query as a single scalar. In list context, it split's each element of the list of strings returned by the raw routine on $delim (which defaults to '\s*,\s*'), and returns an array of all the values.
The C language version of the API contains a number of routines to free storage allocated by the library for the results of these queries. The Perl API copies these results to Perl variables, then immediately frees the storage allocated by the Hesiod library, and these routines are not needed in the Perl API.
Nothing by default. The following routines are exportable:
The first three can alternatively be exported with the tag resolve, and the whole list with the tag all.
This code is copyright (c) 2001 by Tom Payerle email@example.com
All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself, or alternatively (at your option) under either the:
GNU GPL http://www.gnu.org/copyleft/gpl.html
or The Artistic License http://www.perl.com/pub/language/misc/Artistic.html
This code is provided AS IS, without any express or implied warranties.
hesiod_init, hesiod_end, hesiod_to_bind, hesiod_resolve
hesiod_getpwnam, hesiod_getpwuid, hesiod_getservbyname, hesiod_getmailhost
MIT's Athena Project http://web.mit.edu/is/athena/
To install Net::Hesiod, copy and paste the appropriate command in to your terminal.
perl -MCPAN -e shell
For more information on module installation, please visit the detailed CPAN module installation guide.