Permalink
Browse files

Add 'pingable', 'ping_hdl' and 'org' attribute to the Route(6) objects

Fix typo on attribute (useless extra space)
  • Loading branch information...
1 parent f934f26 commit 40a75d0b733e0566cbf0548925143ecd180e7ef6 @arhuman committed Nov 9, 2012
Showing with 104 additions and 34 deletions.
  1. +1 −1 lib/Net/Whois/Object/Role.pm
  2. +67 −24 lib/Net/Whois/Object/Route.pm
  3. +36 −9 lib/Net/Whois/Object/Route6.pm
@@ -34,7 +34,7 @@ __PACKAGE__->attributes( 'primary', ['nic_hdl'] );
__PACKAGE__->attributes( 'mandatory', [ 'role', 'address', 'e_mail', 'tech_c', 'admin_c', 'nic_hdl', 'changed', 'source' ] );
__PACKAGE__->attributes( 'optional', [ 'phone', 'fax_no', 'org', 'trouble', 'remarks', 'notify', 'mnt_by', 'abuse_mailbox' ] );
__PACKAGE__->attributes( 'single', [ 'role', 'nic_hdl', 'source' ] );
-__PACKAGE__->attributes( 'multiple', [ 'address', 'e_mail',' org', 'tech_c', 'admin_c', 'changed', 'phone', 'fax_no', 'trouble', 'remarks', 'notify', 'mnt_by', 'abuse_mailbox' ] );
+__PACKAGE__->attributes( 'multiple', [ 'address', 'e_mail', 'org', 'tech_c', 'admin_c', 'changed', 'phone', 'fax_no', 'trouble', 'remarks', 'notify', 'mnt_by', 'abuse_mailbox' ] );
=head1 NAME
@@ -5,34 +5,42 @@ use base qw/Net::Whois::Object/;
# http://www.ripe.net/data-tools/support/documentation/update-ref-manual#section-25
# http://www.apnic.net/apnic-info/whois_search/using-whois/guide/route
#
-# route: [mandatory] [single] [primary/look-up key]
-# descr: [mandatory] [multiple] [ ]
-# origin: [mandatory] [single] [primary/inverse key]
-# holes: [optional] [multiple] [ ]
-# member-of: [optional] [multiple] [inverse key]
-# inject: [optional] [multiple] [ ]
-# aggr-mtd: [optional] [single] [ ]
-# aggr-bndry: [optional] [single] [ ]
-# export-comps: [optional] [single] [ ]
-# components: [optional] [single] [ ]
-# remarks: [optional] [multiple] [ ]
-# cross-mnt: [optional] [multiple] [inverse key]
-# cross-nfy: [optional] [multiple] [inverse key]
-# notify: [optional] [multiple] [inverse key]
-# mnt-lower: [optional] [multiple] [inverse key]
-# mnt-routes: [optional] [multiple] [inverse key]
-# mnt-by: [mandatory] [multiple] [inverse key]
-# changed: [mandatory] [multiple] [ ]
-# source: [mandatory] [single] [ ]
-
-# From http://www.apnic.net/apnic-info/whois_search/using-whois/guide/route
-# country: [optional] [single] [ ]
+# From : whois -t route
+# % This is the RIPE Database query service.
+# % The objects are in RPSL format.
+# %
+# % The RIPE Database is subject to Terms and Conditions.
+# % See http://www.ripe.net/db/support/db-terms-conditions.pdf
+#
+# route: [mandatory] [single] [primary/lookup key]
+# descr: [mandatory] [multiple] [ ]
+# origin: [mandatory] [single] [primary/inverse key]
+# pingable: [optional] [multiple] [ ]
+# ping-hdl: [optional] [multiple] [inverse key]
+# holes: [optional] [multiple] [ ]
+# org: [optional] [multiple] [inverse key]
+# member-of: [optional] [multiple] [inverse key]
+# inject: [optional] [multiple] [ ]
+# aggr-mtd: [optional] [single] [ ]
+# aggr-bndry: [optional] [single] [ ]
+# export-comps: [optional] [single] [ ]
+# components: [optional] [single] [ ]
+# remarks: [optional] [multiple] [ ]
+# notify: [optional] [multiple] [inverse key]
+# mnt-lower: [optional] [multiple] [inverse key]
+# mnt-routes: [optional] [multiple] [inverse key]
+# mnt-by: [mandatory] [multiple] [inverse key]
+# changed: [mandatory] [multiple] [ ]
+# source: [mandatory] [single] [ ]
#
+# % This query was served by the RIPE Database Query Service version 1.38 (WHOIS4)
+
+
__PACKAGE__->attributes( 'primary', ['route'] );
__PACKAGE__->attributes( 'mandatory', [ 'route', 'origin', 'descr', 'mnt_by', 'changed', 'source' ] );
-__PACKAGE__->attributes( 'optional', [ 'holes', 'member_of', 'inject', 'aggr_mtd', 'aggr_bndry', 'export_comps', 'components', 'remarks', 'cross_mnt', 'cross_nfy', 'notify', 'mnt_lower', 'mnt_routes', 'country' ] );
+__PACKAGE__->attributes( 'optional', [ 'pingable', 'ping_hdl', 'holes', 'org', 'member_of', 'inject', 'aggr_mtd', 'aggr_bndry', 'export_comps', 'components', 'remarks', 'cross_mnt', 'cross_nfy', 'notify', 'mnt_lower', 'mnt_routes', 'country' ] );
__PACKAGE__->attributes( 'single', [ 'route', 'origin', 'aggr_mtd', 'aggr_bndry', 'export_comps', 'components', 'source', 'country' ] );
-__PACKAGE__->attributes( 'multiple', [ 'descr', 'mnt_by', 'changed', 'holes', 'member_of', 'inject', 'remarks', 'cross_mnt', 'cross_nfy', 'notify', 'mnt_lower', 'mnt_routes' ] );
+__PACKAGE__->attributes( 'multiple', [ 'descr', 'mnt_by', 'changed','pingable', 'ping_hdl', 'holes', 'org', 'member_of', 'inject', 'remarks', 'cross_mnt', 'cross_nfy', 'notify', 'mnt_lower', 'mnt_routes' ] );
=head1 NAME
@@ -81,12 +89,47 @@ always return the current descr array.
Accessor to the origin attribute.
Accepts an optional origin, always return the current origin.
+=head2 B<pingable( [$pingable] )>
+
+Accessor to the pingable attribute.
+Accepts an optional pingable line to be added to the pingable array,
+always return the current pingable array.
+
+An IPv4 or an IPv6 address allowing a network operator to advertise an IP address of a node
+that should be reachable from outside networks. This node can be
+used as a destination address for diagnostic tests.
+The IP address must be within the address range of the prefix
+containing this attribute.
+
+=head2 B<ping_hdl( [$ping_hdl] )>
+
+Accessor to the ping_hdl attribute.
+Accepts an optional ping_hdl line to be added to the ping_hdl array,
+always return the current ping_hdl array.
+
+References a person or role capable of responding to queries
+concerning the IP address(es) specified in the 'pingable'
+attribute.
+
=head2 B<holes( [$hole] )>
Accessor to the holes attribute.
Accepts an optional hole to be added to the holes array,
always return the current holes array.
+=head2 B<org( [$org] )>
+
+Accessor to the org attribute.
+Accepts an optional org, always return the current org.
+
+Points to an existing organisation object representing the entity that
+holds the resource.
+
+The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
+followed by a source specification. The first digit must not be "0".
+Source specification starts with "-" followed by source name up to
+9-character length.
+
=head2 B<member_of( [$member_of] )>
Accessor to the member_of attribute.
@@ -24,15 +24,13 @@ use base qw/Net::Whois::Object/;
# changed: [mandatory] [multiple] [ ]
# source: [mandatory] [single] [ ]
-# From http://www.apnic.net/apnic-info/whois_search/using-whois/guide/route6
-# country: [optional] [single] [ ]
-#
+
BEGIN {
__PACKAGE__->attributes( 'primary', ['route6'] );
__PACKAGE__->attributes( 'mandatory', [ 'route6', 'origin', 'descr', 'mnt_by', 'changed', 'source' ] );
- __PACKAGE__->attributes( 'optional', [ 'holes', 'org', 'member_of', 'inject', 'aggr_mtd', 'aggr_bndry', 'export_comps', 'components', 'remarks', 'notify', 'mnt_lower', 'mnt_routes', 'country' ] );
+ __PACKAGE__->attributes( 'optional', [ 'pingable', 'ping_hdl', 'holes', 'org', 'member_of', 'inject', 'aggr_mtd', 'aggr_bndry', 'export_comps', 'components', 'remarks', 'notify', 'mnt_lower', 'mnt_routes', 'country' ] );
__PACKAGE__->attributes( 'single', [ 'route6', 'origin', 'aggr_mtd', 'aggr_bndry', 'export_comps', 'components', 'source', 'country' ] );
- __PACKAGE__->attributes( 'multiple', [ 'descr', 'mnt_by', 'changed', 'holes', 'org', 'member_of', 'inject', 'remarks', 'notify', 'mnt_lower', 'mnt_routes' ] );
+ __PACKAGE__->attributes( 'multiple', [ 'descr', 'mnt_by', 'changed', 'pingable', 'ping_hdl', 'holes', 'org', 'member_of', 'inject', 'remarks', 'notify', 'mnt_lower', 'mnt_routes' ] );
}
=head1 NAME
@@ -80,18 +78,47 @@ always return the current descr array.
Accessor to the origin attribute.
Accepts an optional origin, always return the current origin.
-=head2 B<org( [$org] )>
+=head2 B<pingable( [$pingable] )>
-Accessor to the org attribute.
-Accepts an optional org to be added to the org array,
-always return the current org array.
+Accessor to the pingable attribute.
+Accepts an optional pingable line to be added to the pingable array,
+always return the current pingable array.
+
+An IPv4 or an IPv6 address allowing a network operator to advertise an IP address of a node
+that should be reachable from outside networks. This node can be
+used as a destination address for diagnostic tests.
+The IP address must be within the address range of the prefix
+containing this attribute.
+
+=head2 B<ping_hdl( [$ping_hdl] )>
+
+Accessor to the ping_hdl attribute.
+Accepts an optional ping_hdl line to be added to the ping_hdl array,
+always return the current ping_hdl array.
+
+References a person or role capable of responding to queries
+concerning the IP address(es) specified in the 'pingable'
+attribute.
=head2 B<holes( [$hole] )>
Accessor to the holes attribute.
Accepts an optional hole to be added to the holes array,
always return the current holes array.
+=head2 B<org( [$org] )>
+
+Accessor to the org attribute.
+Accepts an optional org, always return the current org.
+
+Points to an existing organisation object representing the entity that
+holds the resource.
+
+The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
+followed by a source specification. The first digit must not be "0".
+Source specification starts with "-" followed by source name up to
+9-character length.
+
=head2 B<member_of( [$member_of] )>
Accessor to the member_of attribute.

0 comments on commit 40a75d0

Please sign in to comment.