GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
Net::DNS::ToolKit::Utilities(3) User Contributed Perl Documentation Net::DNS::ToolKit::Utilities(3)

Net::DNS::ToolKit::Utilities - a collection of helper utilities

  use Net::DNS::ToolKit::Utilities qw(
        id
        question  
        revIP   
        query  
        dns_udpsend
        dns_udpresp
        dns_ans
        dns_ns
        dns_ptr
        rlook_send
        rlook_rcv
  );

  $unique = id($seed);
  $querybuf = question($name,$type);
  $rev = revIP($ip);
  $response = query(\$buffer,$timeout);
  $socket = dns_udpsend(\$buffer,$timeout);
  $response = dns_udpresp($socket,$timeout);
  ($aptr,$tptr,$auth_zone) = dns_ans(\$buffer);
  $nsptr = dns_ns(\$buffer);
  $hostname = dns_ptr(\$buffer);
  @hosts = dns_ptr(\$buffer);
  $socket = rlook_send($IP,$timeout);
  $hostname = rlook_rcv($socket,$timeout);

Net::DNS::ToolKit::Utilities provides a collection of DNS utilities built from the ToolKit building blocks
  • $unique = id($seed);

    Return a unique, non-zero, 16 bit ID for this session. Seeded with time, this number is autoincremented each time it is retrieved and will be unique each call from a single session. The number wraps around at 65535.

      input:        [optional] seed
      returns:      the last 16 bit number +1
        

    Optionally, the user may supply a seed for the first call. Subsquent calls will return the previous number + 1 (mod 65536). The seed is set when the module is instantiated if no seed is supplied.

  • $querybuf = question($name,$type);

    Create a C_IN DNS query of $type about $name.

      input:        host or domain name,
                    query type
      returns:      query buffer
        

    Supports types T_A, T_TXT, T_ANY, T_MX, T_NS, T_PTR

  • $rev = revIP($ip);

    Reverse an IP address. i.e

      78.56.34.12 = revIP(12.34.56.78);
    
      input:        a dot quad IP address
      returns:      reversed dot quad address
        

    NOTE: this is an operation on ASCII characters, not packed network addresses.

  • $response = query(\$buffer,$timeout);

    Sends a DNS query contained in $buffer. Return a DNS response buffer or undef on error. If the error is catastophic (like a timeout), $@ will be set.

      input:        pointer to query buffer,
                    optional timeout (secs, def 30)
      returns:      DNS answer or undef
        
  • $socket = dns_udpsend(\$buffer,$timeout);

    Sends a DNS query contained in $buffer. Returns a UDP socket or undef; If the error is catastophic (like a timeout), $@ will be set.

      input:        pointer to query buffer,
                    optional timeout (secs, def 30)
      returns:      socket or undef
        
  • $buffer = dns_udpresp($socket,$timeout);

    Returns a DNS answer from $socket and closes socket. Returns undef on failure. If the error is catastophic (like a timeout), $@ will be set.

      input:        socket,
                    optional timeout (secs, def 30)
      returns:      response buffer
    
      closes:       socket
        
  • ($aptr,$tptr,$auth_zone)=dns_ans(\$buffer);

    Parse a DNS answer and return pointer to an array of A response records and TXT records blessed into the callers namespace.

      input:        DNS answer
      returns:      pointers to two arrays,
                    auth_zone name or ''
        

    Returns an empty array unless there is at least ONE A record found.

    The first array contains packed IPv4 addresses of the form returned by inet_aton (text). The second array contains text strings.

    auth_zone will contain the zone name if an SOA record is found, otherwise it will contain ''.

  • $nsptr = dns_ns(\$buffer);

    Parse a DNS NS request answer and return pointer to a hash of name servers and TTL's.

      $ptr->{hostname}--->{addr} = netaddr
                       |
                       *->{ttl}  = seconds
        

    If no records are found, undef is returned

      input:        pointer to response buffer
      returns:      pointer to hash or undef
        
  • $host = dns_ptr(\$buffer);

    Parse a DNS PTR request answer and return the hostname

    If no records are found, undef or an empty array is returned

      input:        pointer to response buffer
      returns:      host name or array of hosts
        
  • $socket = rlook_send($IP,$timeout);

    Send a query for reverse lookup of $IP and return the receive socket handle.

      input:        dotquad IP address,
                    optional timeout (sec, def 30)
      return:       socket or undef
        
  • $hostname = rlook_rcv($socket,$timeout);

    Receive DNS response, parse for hostname, close socket;

      input:        receive socket,
                    optional timeout (sec, def 30)
      return:       hostname text or undef
        

        IO::Socket
        Net::DNS::Codes
        Net::DNS::ToolKit
        Net::DNS::ToolKit::RR

        none by default

        id   
        question
        revIP
        query
        dns_udpsend
        dns_udpresp
        dns_ans
        dns_ns
        dns_ptr
        rlook_send
        rlook_rcv

    Copyright 2003 - 2011, Michael Robinton <michael@bizsystems.com>

Michael Robinton <michael@bizsystems.com>

All rights reserved.

This program is free software; you can redistribute it and/or modify it under the terms of either:

  a) the GNU General Public License as published by the Free
  Software Foundation; either version 2, or (at your option) any
  later version, or

  b) the "Artistic License" which comes with this distribution.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details.

You should have received a copy of the Artistic License with this distribution, in the file named "Artistic". If not, I'll be glad to provide one.

You should also have received a copy of the GNU General Public License along with this program in the file named "Copying". If not, write to the

        Free Software Foundation, Inc.                        
        59 Temple Place, Suite 330
        Boston, MA  02111-1307, USA

or visit their web page on the internet at:

        http://www.gnu.org/copyleft/gpl.html.

Michael Robinton <michael@bizsystems.com>

Net::DNS::Codes, Net::DNS::ToolKit, Net::DNS::ToolKit::RR,
2011-11-05 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.