Add 'geoloc' and 'language' attribute to Inet6Num object

arhuman · Nov 9, 2012 · 2997819 · 2997819
1 parent b567ed3
commit 2997819
Showing 1 changed file with 53 additions and 22 deletions.
diff --git a/lib/Net/Whois/Object/Inet6Num.pm b/lib/Net/Whois/Object/Inet6Num.pm
@@ -5,32 +5,43 @@ use base qw/Net::Whois::Object/;
 # http://www.ripe.net/data-tools/support/documentation/update-ref-manual#section-12
 # http://www.apnic.net/apnic-info/whois_search/using-whois/guide/inet6num
 #
-# inet6num:      [mandatory]  [single]     [primary/look-up key]
+# From : whois -t inet6num  
-# netname:       [mandatory]  [single]     [lookup key]
+# % This is the RIPE Database query service.
-# descr:         [mandatory]  [multiple]   [ ]
+# % The objects are in RPSL format.
-# country:       [mandatory]  [multiple]   [ ]
+# %
-# org:           [optional]   [single]     [inverse key]
+# % The RIPE Database is subject to Terms and Conditions.
-# admin-c:       [mandatory]  [multiple]   [inverse key]
+# % See http://www.ripe.net/db/support/db-terms-conditions.pdf
-# tech-c:        [mandatory]  [multiple]   [inverse key]
+# 
-# status:        [mandatory]  [single]     [ ]
+# inet6num:       [mandatory]  [single]     [primary/lookup key]
-# remarks:       [optional]   [multiple]   [ ]
+# netname:        [mandatory]  [single]     [lookup key]
-# notify:        [optional]   [multiple]   [inverse key]
+# descr:          [mandatory]  [multiple]   [ ]
-# mnt-by:        [mandatory]  [multiple]   [inverse key]
+# country:        [mandatory]  [multiple]   [ ]
-# mnt-lower:     [optional]   [multiple]   [inverse key]
+# geoloc:         [optional]   [single]     [ ]
-# mnt-routes:    [optional]   [multiple]   [inverse key]
+# language:       [optional]   [multiple]   [ ]
-# mnt-domains:   [optional]   [multiple]   [inverse key]
+# org:            [optional]   [single]     [inverse key]
-# mnt-irt:       [optional]   [multiple]   [inverse key]
+# admin-c:        [mandatory]  [multiple]   [inverse key]
-# changed:       [mandatory]  [multiple]   [ ]
+# tech-c:         [mandatory]  [multiple]   [inverse key]
-# source:        [mandatory]  [single]     [ ]
+# status:         [mandatory]  [single]     [ ]
-
+# assignment-size:[optional]   [single]     [ ]
-# From  http://www.apnic.net/apnic-info/whois_search/using-whois/guide/inet6num?view=text-only
+# remarks:        [optional]   [multiple]   [ ]
+# notify:         [optional]   [multiple]   [inverse key]
+# mnt-by:         [mandatory]  [multiple]   [inverse key]
+# mnt-lower:      [optional]   [multiple]   [inverse key]
+# mnt-routes:     [optional]   [multiple]   [inverse key]
+# mnt-domains:    [optional]   [multiple]   [inverse key]
+# mnt-irt:        [optional]   [multiple]   [inverse key]
+# changed:        [mandatory]  [multiple]   [ ]
+# source:         [mandatory]  [single]     [ ]
+# 
+# % This query was served by the RIPE Database Query Service version 1.38 (WHOIS4)
+
 #
 # mnt-irt:       [mandatory]  [single]     [inverse key]
 __PACKAGE__->attributes( 'primary',   ['inet6num'] );
 __PACKAGE__->attributes( 'mandatory', [ 'inet6num', 'netname', 'status', 'source' ] );
-__PACKAGE__->attributes( 'optional', [ 'org', 'remarks', 'notify', 'mnt_lower', 'mnt_routes', 'mnt_domains', 'mnt_irt' ] );
+__PACKAGE__->attributes( 'optional', ['geoloc', 'language', 'org', 'remarks', 'notify', 'mnt_lower', 'mnt_routes', 'mnt_domains', 'mnt_irt' ] );
-__PACKAGE__->attributes( 'single', [ 'inet6num', 'netname', 'org', 'status', 'source' ] );
+__PACKAGE__->attributes( 'single', [ 'inet6num', 'netname', 'geoloc', 'org', 'status', 'source' ] );
-__PACKAGE__->attributes( 'multiple', [ 'descr', 'country', 'tech_c', 'admin_c', 'remarks', 'notify', 'mnt_by', 'mnt_lower', 'mnt_routes', 'mnt_domains', 'mnt_irt', 'changed' ] );
+__PACKAGE__->attributes( 'multiple', [ 'descr', 'country','language', 'tech_c', 'admin_c', 'remarks', 'notify', 'mnt_by', 'mnt_lower', 'mnt_routes', 'mnt_domains', 'mnt_irt', 'changed' ] );
 
 =head1 NAME
 
@@ -98,6 +109,26 @@ organisation is based or some transit country in between. There are no rules
 defined for this attribute. It cannot therefore be used in any reliable way to
 map IP addresses to countries.
 
+=head2 B<geoloc( [$geoloc] )>
+
+Accessor to the geoloc attribute.
+Accepts an optional geoloc, always return the current geoloc.
+
+The location coordinates for the resource
+
+Location coordinates of the resource. Can take one of the following forms:
+[-90,90][-180,180]
+
+=head2 B<language( [$language] )>
+
+Accessor to the language attribute.
+Accepts an optional language to be added to the language array,
+always return the current language array.
+
+Identifies the language.
+
+Valid two-letter ISO 639-1 language code.
+
 =head2 B<org( [$org] )>
 
 Accessor to the org attribute.