r109 - in packages: . libnet-domain-tld-perl libnet-domain-tld-perl/branches libnet-domain-tld-perl/branches/upstream libnet-domain-tld-perl/branches/upstream/current
Allard Hoeve
hoeve-guest@haydn.debian.org
Thu, 10 Jun 2004 08:01:45 -0600
Author: hoeve-guest
Date: 2004-06-10 08:01:41 -0600 (Thu, 10 Jun 2004)
New Revision: 109
Added:
packages/libnet-domain-tld-perl/
packages/libnet-domain-tld-perl/branches/
packages/libnet-domain-tld-perl/branches/upstream/
packages/libnet-domain-tld-perl/branches/upstream/current/
packages/libnet-domain-tld-perl/branches/upstream/current/LICENSE
packages/libnet-domain-tld-perl/branches/upstream/current/MANIFEST
packages/libnet-domain-tld-perl/branches/upstream/current/Makefile.PL
packages/libnet-domain-tld-perl/branches/upstream/current/README
packages/libnet-domain-tld-perl/branches/upstream/current/TLD.pm
packages/libnet-domain-tld-perl/branches/upstream/current/test.pl
packages/libnet-domain-tld-perl/tags/
Log:
[svn-inject] Installing original source of libnet-domain-tld-perl
Added: packages/libnet-domain-tld-perl/branches/upstream/current/LICENSE
===================================================================
--- packages/libnet-domain-tld-perl/branches/upstream/current/LICENSE 2004-06-10 14:00:50 UTC (rev 108)
+++ packages/libnet-domain-tld-perl/branches/upstream/current/LICENSE 2004-06-10 14:01:41 UTC (rev 109)
@@ -0,0 +1,383 @@
+Terms of Perl itself
+
+a) the GNU General Public License as published by the Free
+ Software Foundation; either version 1, or (at your option) any
+ later version, or
+b) the "Artistic License"
+
+---------------------------------------------------------------------------
+
+The General Public License (GPL)
+Version 2, June 1991
+
+Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave,
+Cambridge, MA 02139, USA. Everyone is permitted to copy and distribute
+verbatim copies of this license document, but changing it is not allowed.
+
+Preamble
+
+The licenses for most software are designed to take away your freedom to share
+and change it. By contrast, the GNU General Public License is intended to
+guarantee your freedom to share and change free software--to make sure the
+software is free for all its users. This General Public License applies to most of
+the Free Software Foundation's software and to any other program whose
+authors commit to using it. (Some other Free Software Foundation software is
+covered by the GNU Library General Public License instead.) You can apply it to
+your programs, too.
+
+When we speak of free software, we are referring to freedom, not price. Our
+General Public Licenses are designed to make sure that you have the freedom
+to distribute copies of free software (and charge for this service if you wish), that
+you receive source code or can get it if you want it, that you can change the
+software or use pieces of it in new free programs; and that you know you can do
+these things.
+
+To protect your rights, we need to make restrictions that forbid anyone to deny
+you these rights or to ask you to surrender the rights. These restrictions
+translate to certain responsibilities for you if you distribute copies of the
+software, or if you modify it.
+
+For example, if you distribute copies of such a program, whether gratis or for a
+fee, you must give the recipients all the rights that you have. You must make
+sure that they, too, receive or can get the source code. And you must show
+them these terms so they know their rights.
+
+We protect your rights with two steps: (1) copyright the software, and (2) offer
+you this license which gives you legal permission to copy, distribute and/or
+modify the software.
+
+Also, for each author's protection and ours, we want to make certain that
+everyone understands that there is no warranty for this free software. If the
+software is modified by someone else and passed on, we want its recipients to
+know that what they have is not the original, so that any problems introduced by
+others will not reflect on the original authors' reputations.
+
+Finally, any free program is threatened constantly by software patents. We wish
+to avoid the danger that redistributors of a free program will individually obtain
+patent licenses, in effect making the program proprietary. To prevent this, we
+have made it clear that any patent must be licensed for everyone's free use or
+not licensed at all.
+
+The precise terms and conditions for copying, distribution and modification
+follow.
+
+GNU GENERAL PUBLIC LICENSE
+TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND
+MODIFICATION
+
+0. This License applies to any program or other work which contains a notice
+placed by the copyright holder saying it may be distributed under the terms of
+this General Public License. The "Program", below, refers to any such program
+or work, and a "work based on the Program" means either the Program or any
+derivative work under copyright law: that is to say, a work containing the
+Program or a portion of it, either verbatim or with modifications and/or translated
+into another language. (Hereinafter, translation is included without limitation in
+the term "modification".) Each licensee is addressed as "you".
+
+Activities other than copying, distribution and modification are not covered by
+this License; they are outside its scope. The act of running the Program is not
+restricted, and the output from the Program is covered only if its contents
+constitute a work based on the Program (independent of having been made by
+running the Program). Whether that is true depends on what the Program does.
+
+1. You may copy and distribute verbatim copies of the Program's source code as
+you receive it, in any medium, provided that you conspicuously and appropriately
+publish on each copy an appropriate copyright notice and disclaimer of warranty;
+keep intact all the notices that refer to this License and to the absence of any
+warranty; and give any other recipients of the Program a copy of this License
+along with the Program.
+
+You may charge a fee for the physical act of transferring a copy, and you may at
+your option offer warranty protection in exchange for a fee.
+
+2. You may modify your copy or copies of the Program or any portion of it, thus
+forming a work based on the Program, and copy and distribute such
+modifications or work under the terms of Section 1 above, provided that you also
+meet all of these conditions:
+
+a) You must cause the modified files to carry prominent notices stating that you
+changed the files and the date of any change.
+
+b) You must cause any work that you distribute or publish, that in whole or in
+part contains or is derived from the Program or any part thereof, to be licensed
+as a whole at no charge to all third parties under the terms of this License.
+
+c) If the modified program normally reads commands interactively when run, you
+must cause it, when started running for such interactive use in the most ordinary
+way, to print or display an announcement including an appropriate copyright
+notice and a notice that there is no warranty (or else, saying that you provide a
+warranty) and that users may redistribute the program under these conditions,
+and telling the user how to view a copy of this License. (Exception: if the
+Program itself is interactive but does not normally print such an announcement,
+your work based on the Program is not required to print an announcement.)
+
+These requirements apply to the modified work as a whole. If identifiable
+sections of that work are not derived from the Program, and can be reasonably
+considered independent and separate works in themselves, then this License,
+and its terms, do not apply to those sections when you distribute them as
+separate works. But when you distribute the same sections as part of a whole
+which is a work based on the Program, the distribution of the whole must be on
+the terms of this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote it.
+
+Thus, it is not the intent of this section to claim rights or contest your rights to
+work written entirely by you; rather, the intent is to exercise the right to control
+the distribution of derivative or collective works based on the Program.
+
+In addition, mere aggregation of another work not based on the Program with the
+Program (or with a work based on the Program) on a volume of a storage or
+distribution medium does not bring the other work under the scope of this
+License.
+
+3. You may copy and distribute the Program (or a work based on it, under
+Section 2) in object code or executable form under the terms of Sections 1 and 2
+above provided that you also do one of the following:
+
+a) Accompany it with the complete corresponding machine-readable source
+code, which must be distributed under the terms of Sections 1 and 2 above on a
+medium customarily used for software interchange; or,
+
+b) Accompany it with a written offer, valid for at least three years, to give any
+third party, for a charge no more than your cost of physically performing source
+distribution, a complete machine-readable copy of the corresponding source
+code, to be distributed under the terms of Sections 1 and 2 above on a medium
+customarily used for software interchange; or,
+
+c) Accompany it with the information you received as to the offer to distribute
+corresponding source code. (This alternative is allowed only for noncommercial
+distribution and only if you received the program in object code or executable
+form with such an offer, in accord with Subsection b above.)
+
+The source code for a work means the preferred form of the work for making
+modifications to it. For an executable work, complete source code means all the
+source code for all modules it contains, plus any associated interface definition
+files, plus the scripts used to control compilation and installation of the
+executable. However, as a special exception, the source code distributed need
+not include anything that is normally distributed (in either source or binary form)
+with the major components (compiler, kernel, and so on) of the operating system
+on which the executable runs, unless that component itself accompanies the
+executable.
+
+If distribution of executable or object code is made by offering access to copy
+from a designated place, then offering equivalent access to copy the source
+code from the same place counts as distribution of the source code, even though
+third parties are not compelled to copy the source along with the object code.
+
+4. You may not copy, modify, sublicense, or distribute the Program except as
+expressly provided under this License. Any attempt otherwise to copy, modify,
+sublicense or distribute the Program is void, and will automatically terminate
+your rights under this License. However, parties who have received copies, or
+rights, from you under this License will not have their licenses terminated so long
+as such parties remain in full compliance.
+
+5. You are not required to accept this License, since you have not signed it.
+However, nothing else grants you permission to modify or distribute the Program
+or its derivative works. These actions are prohibited by law if you do not accept
+this License. Therefore, by modifying or distributing the Program (or any work
+based on the Program), you indicate your acceptance of this License to do so,
+and all its terms and conditions for copying, distributing or modifying the
+Program or works based on it.
+
+6. Each time you redistribute the Program (or any work based on the Program),
+the recipient automatically receives a license from the original licensor to copy,
+distribute or modify the Program subject to these terms and conditions. You
+may not impose any further restrictions on the recipients' exercise of the rights
+granted herein. You are not responsible for enforcing compliance by third parties
+to this License.
+
+7. If, as a consequence of a court judgment or allegation of patent infringement
+or for any other reason (not limited to patent issues), conditions are imposed on
+you (whether by court order, agreement or otherwise) that contradict the
+conditions of this License, they do not excuse you from the conditions of this
+License. If you cannot distribute so as to satisfy simultaneously your obligations
+under this License and any other pertinent obligations, then as a consequence
+you may not distribute the Program at all. For example, if a patent license would
+not permit royalty-free redistribution of the Program by all those who receive
+copies directly or indirectly through you, then the only way you could satisfy
+both it and this License would be to refrain entirely from distribution of the
+Program.
+
+If any portion of this section is held invalid or unenforceable under any particular
+circumstance, the balance of the section is intended to apply and the section as
+a whole is intended to apply in other circumstances.
+
+It is not the purpose of this section to induce you to infringe any patents or other
+property right claims or to contest validity of any such claims; this section has
+the sole purpose of protecting the integrity of the free software distribution
+system, which is implemented by public license practices. Many people have
+made generous contributions to the wide range of software distributed through
+that system in reliance on consistent application of that system; it is up to the
+author/donor to decide if he or she is willing to distribute software through any
+other system and a licensee cannot impose that choice.
+
+This section is intended to make thoroughly clear what is believed to be a
+consequence of the rest of this License.
+
+8. If the distribution and/or use of the Program is restricted in certain countries
+either by patents or by copyrighted interfaces, the original copyright holder who
+places the Program under this License may add an explicit geographical
+distribution limitation excluding those countries, so that distribution is permitted
+only in or among countries not thus excluded. In such case, this License
+incorporates the limitation as if written in the body of this License.
+
+9. The Free Software Foundation may publish revised and/or new versions of the
+General Public License from time to time. Such new versions will be similar in
+spirit to the present version, but may differ in detail to address new problems or
+concerns.
+
+Each version is given a distinguishing version number. If the Program specifies a
+version number of this License which applies to it and "any later version", you
+have the option of following the terms and conditions either of that version or of
+any later version published by the Free Software Foundation. If the Program does
+not specify a version number of this License, you may choose any version ever
+published by the Free Software Foundation.
+
+10. If you wish to incorporate parts of the Program into other free programs
+whose distribution conditions are different, write to the author to ask for
+permission. For software which is copyrighted by the Free Software Foundation,
+write to the Free Software Foundation; we sometimes make exceptions for this.
+Our decision will be guided by the two goals of preserving the free status of all
+derivatives of our free software and of promoting the sharing and reuse of
+software generally.
+
+NO WARRANTY
+
+11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS
+NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE
+COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM
+"AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR
+IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
+ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE,
+YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
+CORRECTION.
+
+12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED
+TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY
+WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS
+PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES
+ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM
+(INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY
+OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS
+BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
+
+END OF TERMS AND CONDITIONS
+
+
+---------------------------------------------------------------------------
+
+The Artistic License
+
+Preamble
+
+The intent of this document is to state the conditions under which a Package
+may be copied, such that the Copyright Holder maintains some semblance of
+artistic control over the development of the package, while giving the users of the
+package the right to use and distribute the Package in a more-or-less customary
+fashion, plus the right to make reasonable modifications.
+
+Definitions:
+
+- "Package" refers to the collection of files distributed by the Copyright
+ Holder, and derivatives of that collection of files created through textual
+ modification.
+- "Standard Version" refers to such a Package if it has not been modified,
+ or has been modified in accordance with the wishes of the Copyright
+ Holder.
+- "Copyright Holder" is whoever is named in the copyright or copyrights for
+ the package.
+- "You" is you, if you're thinking about copying or distributing this Package.
+- "Reasonable copying fee" is whatever you can justify on the basis of
+ media cost, duplication charges, time of people involved, and so on. (You
+ will not be required to justify it to the Copyright Holder, but only to the
+ computing community at large as a market that must bear the fee.)
+- "Freely Available" means that no fee is charged for the item itself, though
+ there may be fees involved in handling the item. It also means that
+ recipients of the item may redistribute it under the same conditions they
+ received it.
+
+1. You may make and give away verbatim copies of the source form of the
+Standard Version of this Package without restriction, provided that you duplicate
+all of the original copyright notices and associated disclaimers.
+
+2. You may apply bug fixes, portability fixes and other modifications derived from
+the Public Domain or from the Copyright Holder. A Package modified in such a
+way shall still be considered the Standard Version.
+
+3. You may otherwise modify your copy of this Package in any way, provided
+that you insert a prominent notice in each changed file stating how and when
+you changed that file, and provided that you do at least ONE of the following:
+
+ a) place your modifications in the Public Domain or otherwise
+ make them Freely Available, such as by posting said modifications
+ to Usenet or an equivalent medium, or placing the modifications on
+ a major archive site such as ftp.uu.net, or by allowing the
+ Copyright Holder to include your modifications in the Standard
+ Version of the Package.
+
+ b) use the modified Package only within your corporation or
+ organization.
+
+ c) rename any non-standard executables so the names do not
+ conflict with standard executables, which must also be provided,
+ and provide a separate manual page for each non-standard
+ executable that clearly documents how it differs from the Standard
+ Version.
+
+ d) make other distribution arrangements with the Copyright Holder.
+
+4. You may distribute the programs of this Package in object code or executable
+form, provided that you do at least ONE of the following:
+
+ a) distribute a Standard Version of the executables and library
+ files, together with instructions (in the manual page or equivalent)
+ on where to get the Standard Version.
+
+ b) accompany the distribution with the machine-readable source of
+ the Package with your modifications.
+
+ c) accompany any non-standard executables with their
+ corresponding Standard Version executables, giving the
+ non-standard executables non-standard names, and clearly
+ documenting the differences in manual pages (or equivalent),
+ together with instructions on where to get the Standard Version.
+
+ d) make other distribution arrangements with the Copyright Holder.
+
+5. You may charge a reasonable copying fee for any distribution of this Package.
+You may charge any fee you choose for support of this Package. You may not
+charge a fee for this Package itself. However, you may distribute this Package in
+aggregate with other (possibly commercial) programs as part of a larger
+(possibly commercial) software distribution provided that you do not advertise
+this Package as a product of your own.
+
+6. The scripts and library files supplied as input to or produced as output from
+the programs of this Package do not automatically fall under the copyright of this
+Package, but belong to whomever generated them, and may be sold
+commercially, and may be aggregated with this Package.
+
+7. C or perl subroutines supplied by you and linked into this Package shall not
+be considered part of this Package.
+
+8. Aggregation of this Package with a commercial distribution is always permitted
+provided that the use of this Package is embedded; that is, when no overt attempt
+is made to make this Package's interfaces visible to the end user of the
+commercial distribution. Such use shall not be construed as a distribution of
+this Package.
+
+9. The name of the Copyright Holder may not be used to endorse or promote
+products derived from this software without specific prior written permission.
+
+10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.
+
+The End
+
+
Added: packages/libnet-domain-tld-perl/branches/upstream/current/MANIFEST
===================================================================
--- packages/libnet-domain-tld-perl/branches/upstream/current/MANIFEST 2004-06-10 14:00:50 UTC (rev 108)
+++ packages/libnet-domain-tld-perl/branches/upstream/current/MANIFEST 2004-06-10 14:01:41 UTC (rev 109)
@@ -0,0 +1,5 @@
+MANIFEST
+Makefile.PL
+README
+TLD.pm
+test.pl
Added: packages/libnet-domain-tld-perl/branches/upstream/current/Makefile.PL
===================================================================
--- packages/libnet-domain-tld-perl/branches/upstream/current/Makefile.PL 2004-06-10 14:00:50 UTC (rev 108)
+++ packages/libnet-domain-tld-perl/branches/upstream/current/Makefile.PL 2004-06-10 14:01:41 UTC (rev 109)
@@ -0,0 +1,11 @@
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+push(@extras,
+ AUTHOR => 'Alexander Pavlovic <alex-1@telus.net>'
+ ) if ($ExtUtils::MakeMaker::Version >= 5.4301);
+WriteMakefile(
+ NAME => 'Net::Domain::TLD',
+ VERSION_FROM => 'TLD.pm', # finds $VERSION
+ PREREQ_PM => {Memoize => 0}, # e.g., Module::Name => 1.1
+);
Property changes on: packages/libnet-domain-tld-perl/branches/upstream/current/Makefile.PL
___________________________________________________________________
Name: svn:executable
+
Added: packages/libnet-domain-tld-perl/branches/upstream/current/README
===================================================================
--- packages/libnet-domain-tld-perl/branches/upstream/current/README 2004-06-10 14:00:50 UTC (rev 108)
+++ packages/libnet-domain-tld-perl/branches/upstream/current/README 2004-06-10 14:01:41 UTC (rev 109)
@@ -0,0 +1,61 @@
+NAME
+ Net::Domain::TLD - Gives ability to retrieve currently available tld
+ names/descriptions and perform verification of given tld name
+
+SYNOPSIS
+ use Net::Domain::TLD;
+ my $domain_list = Net::Domain::TLD->new;
+ my @ccTLDs = $domain_list->ccTLDs;
+
+DESCRIPTION
+ The purpose of this module is to provide user with current list of
+ available top level domain names including new ICANN additions and
+ ccTLDs
+
+INSTALL
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+PUBLIC INTERFACES
+ new Creates new Net::Domain::TLD instance
+
+ my $tld = Net::Domain::TLD->new;
+
+ All
+ my @list = $tld->All;
+
+ returns list or hash ref of all TLDs names/descriptions
+
+ TLDs_new
+ my @list = $tld->TLDs_new;
+
+ returns list or hash ref of new TLD names/descriptions
+
+ gTLDs_open
+ my $names = $tld->gTLDs_open;
+
+ returns a list or hash ref of generic TLD names/descriptions
+ available to general public
+
+ gTLDs_restricted
+ my @list = $tld->gTLDs_restricted;
+
+ returns a list or hash ref of generic TLD names/descriptions
+ restricted for assignment to specific users
+
+ ccTLDs
+ my $names = $tld->ccTLDs;
+
+ returns a list or hash ref of country code TLD names/descriptions
+
+ exists
+ determines if given tld exists, returns 1 if tld is valid and 0 if
+ not
+
+ $tld->exists(q{info}) ? print q{ok} : print q{not ok};
+
+AUTHOR
+ Alexander Pavlovic <alex-1@telus.net>
+
Added: packages/libnet-domain-tld-perl/branches/upstream/current/TLD.pm
===================================================================
--- packages/libnet-domain-tld-perl/branches/upstream/current/TLD.pm 2004-06-10 14:00:50 UTC (rev 108)
+++ packages/libnet-domain-tld-perl/branches/upstream/current/TLD.pm 2004-06-10 14:01:41 UTC (rev 109)
@@ -0,0 +1,428 @@
+package Net::Domain::TLD;
+
+=head1 NAME
+
+Net::Domain::TLD - Gives ability to retrieve currently available tld
+names/descriptions and perform verification of given tld name
+
+=head1 SYNOPSIS
+
+ use Net::Domain::TLD;
+ my $domain_list = Net::Domain::TLD->new;
+ my @ccTLDs = $domain_list->ccTLDs;
+
+=head1 DESCRIPTION
+
+The purpose of this module is to provide user
+with current list of available top level domain names
+including new ICANN additions and ccTLDs
+
+=head1 INSTALL
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+=head1 COPYRIGHT
+
+Copyright (c) 2003 Alexander Pavlovic. All rights reserved. This program is
+free software; you can redistribute it and/or modify it under the same
+terms as Perl itself.
+
+=cut
+
+use strict;
+use warnings;
+use Memoize;
+
+use constant NEW_TLDS => '_newTLDs';
+use constant GENERIC_TLDS_OPEN => '_gTLDs_open';
+use constant GENERIC_TLDS_RESTRICTED => '_gTLDs_restricted';
+use constant CC_TLDS => '_ccTLDs';
+
+sub BEGIN {
+ our ($VERSION) = '$Revision: 1.5 $' =~ /Revision: ([\d.]+)/;
+}
+
+use constant TLD_PROFILE => {
+ #fetched from http://www.icann.org/tlds/
+ &NEW_TLDS => {
+ q{aero} => q{Air-transport industry},
+ q{biz} => q{Businesses},
+ q{coop} => q{Cooperatives},
+ q{info} => q{Unrestricted use},
+ q{museum} => q{Museums},
+ q{name} => q{For registration by individuals},
+ q{pro} => q{Accountants, lawyers, and physicians},
+ },
+ #fetched from http://www.dnso.org/constituency/gtld/gtld.html
+ #specific defininitions from http://whatis.techtarget.com
+ &GENERIC_TLDS_OPEN => {
+ q{com} => q{Commercial organization},
+ q{net} => q{Network connection services provider},
+ q{org} => q{Non-profit organizations and industry standard groups}
+ },
+ &GENERIC_TLDS_RESTRICTED => {
+ q{gov} => q{United States Government},
+ q{mil} => q{United States Military},
+ q{edu} => q{Educational institution},
+ q{int} => q{International treaties/databases}
+ },
+ #fetched from http://www.iana.org/cctld/cctld-whois.htm
+ &CC_TLDS => {
+ q{ac} => q{Ascension Island},
+ q{ad} => q{Andorra},
+ q{ae} => q{United Arab Emirates},
+ q{af} => q{Afghanistan},
+ q{ag} => q{Antigua and Barbuda},
+ q{ai} => q{Anguilla},
+ q{al} => q{Albania},
+ q{am} => q{Armenia},
+ q{an} => q{Netherlands Antilles},
+ q{ao} => q{Angola},
+ q{aq} => q{Antartica},
+ q{ar} => q{Argentina},
+ q{as} => q{American Samoa},
+ q{at} => q{Austria},
+ q{au} => q{Australia},
+ q{aw} => q{Aruba},
+ q{az} => q{Azerbaijan},
+ q{ba} => q{Bosnia and Herzegovina},
+ q{bb} => q{Barbados},
+ q{bd} => q{Bangladesh},
+ q{be} => q{Belgium},
+ q{bf} => q{Burkina Faso},
+ q{bg} => q{Bulgaria},
+ q{bh} => q{Bahrain},
+ q{bi} => q{Burundi},
+ q{bj} => q{Benin},
+ q{bm} => q{Bermuda},
+ q{bn} => q{Brunei Darussalam},
+ q{bo} => q{Bolivia},
+ q{br} => q{Brazil},
+ q{bs} => q{Bahamas},
+ q{bt} => q{Bhutan},
+ q{bv} => q{Bouvet Island},
+ q{bw} => q{Botswana},
+ q{by} => q{Belarus},
+ q{bz} => q{Belize},
+ q{ca} => q{Canada},
+ q{cc} => q{Cocos (Keeling) Islands},
+ q{cd} => q{Congo, Democratic Republic of the},
+ q{cf} => q{Central African Republic},
+ q{cg} => q{Congo, Republic of},
+ q{ch} => q{Switzerland},
+ q{ci} => q{Cote d'Ivoire},
+ q{ck} => q{Cook Islands},
+ q{cl} => q{Chile},
+ q{cm} => q{Cameroon},
+ q{cn} => q{China},
+ q{co} => q{Colombia},
+ q{cr} => q{Costa Rica},
+ q{cu} => q{Cuba},
+ q{cv} => q{Cap Verde},
+ q{cx} => q{Christmas Island},
+ q{cy} => q{Cyprus},
+ q{cz} => q{Czech Republic},
+ q{de} => q{Germany},
+ q{dj} => q{Djibouti},
+ q{dk} => q{Denmark},
+ q{dm} => q{Dominica},
+ q{do} => q{Dominican Republic},
+ q{dz} => q{Algeria},
+ q{ec} => q{Ecuador},
+ q{ee} => q{Estonia},
+ q{eg} => q{Egypt},
+ q{eh} => q{Western Sahara},
+ q{er} => q{Eritrea},
+ q{es} => q{Spain},
+ q{et} => q{Ethiopia},
+ q{fi} => q{Finland},
+ q{fj} => q{Fiji},
+ q{fk} => q{Falkland Islands (Malvina)},
+ q{fm} => q{Micronesia, Federal State of},
+ q{fo} => q{Faroe Islands},
+ q{fr} => q{France},
+ q{ga} => q{Gabon},
+ q{gd} => q{Grenada},
+ q{ge} => q{Georgia},
+ q{gf} => q{French Guiana},
+ q{gg} => q{Guernsey},
+ q{gh} => q{Ghana},
+ q{gi} => q{Gibraltar},
+ q{gl} => q{Greenland},
+ q{gm} => q{Gambia},
+ q{gn} => q{Guinea},
+ q{gp} => q{Guadeloupe},
+ q{gq} => q{Equatorial Guinea},
+ q{gr} => q{Greece},
+ q{gs} => q{South Georgia and the South Sandwich Islands},
+ q{gt} => q{Guatemala},
+ q{gu} => q{Guam},
+ q{gw} => q{Guinea-Bissau},
+ q{gy} => q{Guyana},
+ q{hk} => q{Hong Kong},
+ q{hm} => q{Heard and McDonald Islands},
+ q{hn} => q{Honduras},
+ q{hr} => q{Croatia/Hrvatska},
+ q{ht} => q{Haiti},
+ q{hu} => q{Hungary},
+ q{id} => q{Indonesia},
+ q{ie} => q{Ireland},
+ q{il} => q{Israel},
+ q{im} => q{Isle of Man},
+ q{in} => q{India},
+ q{io} => q{British Indian Ocean Territory},
+ q{iq} => q{Iraq},
+ q{ir} => q{Iran (Islamic Republic of)},
+ q{is} => q{Iceland},
+ q{it} => q{Italy},
+ q{je} => q{Jersey},
+ q{jm} => q{Jamaica},
+ q{jo} => q{Jordan},
+ q{jp} => q{Japan},
+ q{ke} => q{Kenya},
+ q{kg} => q{Kyrgyzstan},
+ q{kh} => q{Cambodia},
+ q{ki} => q{Kiribati},
+ q{km} => q{Comoros},
+ q{kn} => q{Saint Kitts and Nevis},
+ q{kp} => q{Korea, Democratic People's Republic},
+ q{kr} => q{Korea, Republic of},
+ q{kw} => q{Kuwait},
+ q{ky} => q{Cayman Islands},
+ q{kz} => q{Kazakhstan},
+ q{la} => q{Lao People's Democratic Republic},
+ q{lb} => q{Lebanon},
+ q{lc} => q{Saint Lucia},
+ q{li} => q{Liechtenstein},
+ q{lk} => q{Sri Lanka},
+ q{lr} => q{Liberia},
+ q{ls} => q{Lesotho},
+ q{lt} => q{Lithuania},
+ q{lu} => q{Luxembourg},
+ q{lv} => q{Latvia},
+ q{ly} => q{Libyan Arab Jamahiriya},
+ q{ma} => q{Morocco},
+ q{mc} => q{Monaco},
+ q{md} => q{Moldova, Republic of},
+ q{mg} => q{Madagascar},
+ q{mh} => q{Marshall Islands},
+ q{mk} => q{Macedonia, Former Yugoslav Republic},
+ q{ml} => q{Mali},
+ q{mm} => q{Myanmar},
+ q{mn} => q{Mongolia},
+ q{mo} => q{Macau},
+ q{mp} => q{Northern Mariana Islands},
+ q{mq} => q{Martinique},
+ q{mr} => q{Mauritania},
+ q{ms} => q{Montserrat},
+ q{mt} => q{Malta},
+ q{mu} => q{Mauritius},
+ q{mv} => q{Maldives},
+ q{mw} => q{Malawi},
+ q{mx} => q{Mexico},
+ q{my} => q{Malaysia},
+ q{mz} => q{Mozambique},
+ q{na} => q{Namibia},
+ q{nc} => q{New Caledonia},
+ q{ne} => q{Niger},
+ q{nf} => q{Norfolk Island},
+ q{ng} => q{Nigeria},
+ q{ni} => q{Nicaragua},
+ q{nl} => q{Netherlands},
+ q{no} => q{Norway},
+ q{np} => q{Nepal},
+ q{nr} => q{Nauru},
+ q{nu} => q{Niue},
+ q{nz} => q{New Zealand},
+ q{om} => q{Oman},
+ q{pa} => q{Panama},
+ q{pe} => q{Peru},
+ q{pf} => q{French Polynesia},
+ q{pg} => q{Papua New Guinea},
+ q{ph} => q{Philippines},
+ q{pk} => q{Pakistan},
+ q{pl} => q{Poland},
+ q{pm} => q{St. Pierre and Miquelon},
+ q{pn} => q{Pitcairn Island},
+ q{pr} => q{Puerto Rico},
+ q{ps} => q{Palestinian Territories},
+ q{pt} => q{Portugal},
+ q{pw} => q{Palau},
+ q{py} => q{Paraguay},
+ q{qa} => q{Qatar},
+ q{re} => q{Reunion Island},
+ q{ro} => q{Romania},
+ q{ru} => q{Russian Federation},
+ q{rw} => q{Rwanda},
+ q{sa} => q{Saudi Arabia},
+ q{sb} => q{Solomon Islands},
+ q{sc} => q{Seychelles},
+ q{sd} => q{Sudan},
+ q{se} => q{Sweden},
+ q{sg} => q{Singapore},
+ q{sh} => q{St. Helena},
+ q{si} => q{Slovenia},
+ q{sj} => q{Svalbard and Jan Mayen Islands},
+ q{sk} => q{Slovak Republic},
+ q{sl} => q{Sierra Leone},
+ q{sm} => q{San Marino},
+ q{sn} => q{Senegal},
+ q{so} => q{Somalia},
+ q{sr} => q{Suriname},
+ q{st} => q{Sao Tome and Principe},
+ q{sv} => q{El Salvador},
+ q{sy} => q{Syrian Arab Republic},
+ q{sz} => q{Swaziland},
+ q{tc} => q{Turks and Caicos Islands},
+ q{td} => q{Chad},
+ q{tf} => q{French Southern Territories},
+ q{tg} => q{Togo},
+ q{th} => q{Thailand},
+ q{tj} => q{Tajikistan},
+ q{tk} => q{Tokelau},
+ q{tm} => q{Turkmenistan},
+ q{tn} => q{Tunisia},
+ q{to} => q{Tonga},
+ q{tp} => q{East Timor},
+ q{tr} => q{Turkey},
+ q{tt} => q{Trinidad and Tobago},
+ q{tv} => q{Tuvalu},
+ q{tw} => q{Taiwan},
+ q{tz} => q{Tanzania},
+ q{ua} => q{Ukraine},
+ q{ug} => q{Uganda},
+ q{uk} => q{United Kingdom},
+ q{um} => q{US Minor Outlying Islands},
+ q{us} => q{United States},
+ q{uy} => q{Uruguay},
+ q{uz} => q{Uzbekistan},
+ q{va} => q{Holy See (City Vatican State)},
+ q{vc} => q{Saint Vincent and the Grenadines},
+ q{ve} => q{Venezuela},
+ q{vg} => q{Virgin Islands (British)},
+ q{vi} => q{Virgin Islands (USA)},
+ q{vn} => q{Vietnam},
+ q{vu} => q{Vanuatu},
+ q{wf} => q{Wallis and Futuna Islands},
+ q{ws} => q{Western Samoa},
+ q{ye} => q{Yemen},
+ q{yt} => q{Mayotte},
+ q{yu} => q{Yugoslavia},
+ q{za} => q{South Africa},
+ q{zm} => q{Zambia},
+ q{zw} => q{Zimbabwe}
+ }
+};
+
+=head1 PUBLIC INTERFACES
+
+=over 4
+
+=item new
+
+Creates new Net::Domain::TLD instance
+
+my $tld = Net::Domain::TLD->new;
+
+=cut
+
+sub new {
+ for ( qw ( All TLDs_new gTLDs_open gTLDs_restricted ccTLDs exists ) ) {
+ memoize $_;
+ }
+ return bless {}, shift;
+}
+
+=item All
+
+ my @list = $tld->All;
+
+returns list or hash ref of all TLDs names/descriptions
+
+=cut
+
+sub All {
+ my %list;
+ for ( NEW_TLDS, GENERIC_TLDS_OPEN, GENERIC_TLDS_RESTRICTED, CC_TLDS ) {
+ @list{keys %{TLD_PROFILE->{$_}}} = values %{TLD_PROFILE->{$_}};
+ }
+ return wantarray ? keys %list : \%list;
+}
+
+=item TLDs_new
+
+ my @list = $tld->TLDs_new;
+
+returns list or hash ref of new TLD names/descriptions
+
+=cut
+
+sub TLDs_new {
+ wantarray ? keys % { TLD_PROFILE->{&NEW_TLDS} } : TLD_PROFILE->{&NEW_TLDS};
+}
+
+=item gTLDs_open
+
+ my $names = $tld->gTLDs_open;
+
+returns a list or hash ref of generic TLD names/descriptions available to general public
+
+=cut
+
+sub gTLDs_open {
+ wantarray ? keys % { TLD_PROFILE->{&GENERIC_TLDS_OPEN} } : TLD_PROFILE->{&GENERIC_TLDS_OPEN};
+}
+
+=item gTLDs_restricted
+
+ my @list = $tld->gTLDs_restricted;
+
+returns a list or hash ref of generic TLD names/descriptions restricted for assignment to specific users
+
+=cut
+
+sub gTLDs_restricted {
+ wantarray ? keys % { TLD_PROFILE->{&GENERIC_TLDS_RESTRICTED} } : TLD_PROFILE->{&GENERIC_TLDS_RESTRICTED};
+}
+
+=item ccTLDs
+
+ my $names = $tld->ccTLDs;
+
+returns a list or hash ref of country code TLD names/descriptions
+
+=cut
+
+sub ccTLDs {
+ my $self = shift;
+ wantarray ? keys % { TLD_PROFILE->{&CC_TLDS} } : TLD_PROFILE->{&CC_TLDS};
+}
+
+=item exists
+
+determines if given tld exists, returns 1 if tld is valid and 0 if not
+
+ $tld->exists(q{info}) ? print q{ok} : print q{not ok};
+
+=cut
+
+sub exists {
+ my ( $self, $tld ) = @_;
+ $tld = lc $tld;
+ $tld =~ s/\s+//g;
+ my $list = $self->All;
+ return exists $list->{$tld};
+}
+
+1;
+
+=back
+
+=head1 AUTHOR
+
+Alexander Pavlovic <alex-1@telus.net>
+
+=cut
Added: packages/libnet-domain-tld-perl/branches/upstream/current/test.pl
===================================================================
--- packages/libnet-domain-tld-perl/branches/upstream/current/test.pl 2004-06-10 14:00:50 UTC (rev 108)
+++ packages/libnet-domain-tld-perl/branches/upstream/current/test.pl 2004-06-10 14:01:41 UTC (rev 109)
@@ -0,0 +1,22 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+######################### We start with some black magic to print on failure.
+
+# Change 1..1 below to 1..last_test_to_print .
+# (It may become useful if the test is moved to ./t subdirectory.)
+
+BEGIN { $| = 1; print "1..1\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use Net::Domain::TLD;
+$loaded = 1;
+print "ok 1\n";
+
+######################### End of black magic.
+
+# Insert your test code below (better if it prints "ok 13"
+# (correspondingly "not ok 13") depending on the success of chunk 13
+# of the test code):
+
+my $tld = Net::Domain::TLD->new;
+print qq{ok 2\n} if $tld->exists ( q{edu} );
Property changes on: packages/libnet-domain-tld-perl/branches/upstream/current/test.pl
___________________________________________________________________
Name: svn:executable
+