home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _9c5534cc404e88efe5ccb2c8c0fd7d72 < prev    next >
Text File  |  2000-03-23  |  5KB  |  121 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Net::Whois - Get and parse "whois" domain data from InterNIC</TITLE>
  5. <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> Net::Whois - Get and parse "whois" domain data from InterNIC</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#author">AUTHOR</A></LI>
  26.     <LI><A HREF="#copyright">COPYRIGHT</A></LI>
  27. </UL>
  28. <!-- INDEX END -->
  29.  
  30. <HR>
  31. <P>
  32. <H1><A NAME="name">NAME</A></H1>
  33. <P>Net::Whois - Get and parse ``whois'' domain data from InterNIC</P>
  34. <P>
  35. <HR>
  36. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  37. <UL>
  38. <LI>Linux</LI>
  39. <LI>Solaris</LI>
  40. <LI>Windows</LI>
  41. </UL>
  42. <HR>
  43. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  44. <P>Note that all fields except ``name'' and ``tag'' may be undef
  45. because ``whois'' information is erratically filled in.</P>
  46. <P>use Net::Whois;
  47. use Carp;</P>
  48. <PRE>
  49.  my $w = new Net::Whois::Domain $dom
  50.  or die "Can't connect to Whois server\n;</PRE>
  51. <PRE>
  52.  unless ($w->ok) { croak "No match for $dom";}</PRE>
  53. <PRE>
  54.  print "Domain: ", $w->domain, "\n";
  55.  print "Name: ", $w->name, "\n";
  56.  print "Tag: ", $w->tag, "\n";
  57.  print "Address:\n", map { "    $_\n" } $w->address;
  58.  print "Country: ", $w->country, "\n";
  59.  print "Name Servers:\n", map { "    $$_[0] ($$_[1])\n" }
  60.  @{$w->servers};
  61.  my ($c, $t);
  62.  if ($c = $w->contacts) {
  63.    print "Contacts:\n";
  64.    for $t (sort keys %$c) {
  65.      print "    $t:\n";
  66.      print map { "\t$_\n" } @{$$c{$t}};
  67.    }
  68.  }
  69.  print "Record created:", $w->record_created ;
  70.  print "Record updated:", $w->record_updated ;</PRE>
  71. <P>
  72. <HR>
  73. <H1><A NAME="description">DESCRIPTION</A></H1>
  74. <P>Net::Whois::Domain <CODE>new()</CODE> attempts to retrieve and parse the given
  75. domain's ``whois'' information from the InterNIC (whois.internic.net).
  76. If the server could not be contacted, is too busy, or otherwise does not process
  77. the query then the constructor does not return a reference and your object is undefined.
  78. If the constructor returns a reference, that reference can be used to access the various
  79. attributes of the domains' whois entry assuming that there was a match.
  80. The member function ok returns 1 if a match 0 if no match.</P>
  81. <P>Note that the Locale::Country module (part of the Locale-Codes
  82. distribution) is used to recognize spelled-out country names; if that
  83. module is not present, only two-letter country abbreviations will be
  84. recognized.</P>
  85. <P>The server consulted is ``whois.internic.net''. You can only
  86. get .org, .edu, .net, .com domains from Internic. Other whois servers
  87. for other Top-Level-Domains (TLD) return information in a different syntax
  88. and are not supported at this time. Also, only queries for domains are
  89. valid. Querying for a network will fail utterly since those are not
  90. kept in the whois.internic.net server (a future enhancement will
  91. add a network lookup function). Querying for NIC handles won't work
  92. since they have a different return syntax than a domain. Domains other
  93. than those listed won't work they're not in the server. A future enhancment
  94. planned will send the query to the appropriate server based on its TLD.</P>
  95. <P>
  96. <HR>
  97. <H1><A NAME="author">AUTHOR</A></H1>
  98. <P>Originally written by Chip Salzenberg (<A HREF="mailto:chip@pobox.com">chip@pobox.com</A>) 
  99. in April of 1997 for Idle Communications, Inc. 
  100. In September of 1998 Dana Hudes (<A HREF="mailto:dhudes@hudes.org">dhudes@hudes.org</A>) found this
  101. but it was broken and he needed it so he fixed it.
  102. In August, 1999 Dana and Chip agreed to become co-maintainers of the module.
  103. Dana released a new version of Net::Whois to CPAN and resumed active
  104. development.</P>
  105. <P>
  106. <HR>
  107. <H1><A NAME="copyright">COPYRIGHT</A></H1>
  108. <P>This module is free software; you can redistribute it and/or modify
  109. it under the same terms as Perl itself. If you make modifications,
  110. the author would like to know so that they can be incorporated into
  111. future releases.</P>
  112. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  113. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  114. <STRONG><P CLASS=block> Net::Whois - Get and parse "whois" domain data from InterNIC</P></STRONG>
  115. </TD></TR>
  116. </TABLE>
  117.  
  118. </BODY>
  119.  
  120. </HTML>
  121.