view release on metacpan or  search on metacpan

lib/App/rdapper.pm  view on Meta::CPAN

    'registrar'     => \$registrar,
    'registry'      => \$registry,
    'nocolor'       => \$nocolor,
    'reverse'       => \$reverse,
    'version'       => \$version,
    'search'        => \$search,
    'debug'         => \$debug,
    'autnum'        => sub { $type = 'autnum' },
    'domain'        => sub { $type = 'domain' },
    'nameserver'    => sub { $type = 'nameserver' },
    'entity'        => sub { $type = 'entity' },
    'ip'            => sub { $type = 'ip' },
    'tld'           => sub { $type = 'tld' },
    'url'           => sub { $type = 'url' },
    'strings'       => \$strings,
);

my $funcs = {
    'ip network' => sub { __PACKAGE__->print_ip(@_) },
    'autnum'     => sub { __PACKAGE__->print_asn(@_) },
    'domain'     => sub { __PACKAGE__->print_domain(@_) },
    'entity'     => sub { __PACKAGE__->print_entity(@_) },
    'nameserver' => sub { __PACKAGE__->print_nameserver(@_) },
    'help'       => sub { 1 }, # help only contains generic properties
};

my $OBJECT_TYPE_DISPLAY_NAMES = {
    'ip network' => _('IP Network'),
    'autnum'     => _('Autonomous System'),
    'domain'     => _('Domain Name'),
    'entity'     => _('Entity'),
    'nameserver' => _('Nameserver'),
    'help'       => _('Help'),
};

my @ROLE_DISPLAY_NAMES_ORDER = qw(registrant administrative technical billing
    abuse registrar reseller sponsor proxy notifications noc);

my %ROLE_DISPLAY_NAMES = (
    'registrant'        => _('Registrant'),
    'technical'         => _('Technical'),
    'administrative'    => _('Administrative'),
    'abuse'             => _('Abuse'),
    'billing'           => _('Billing'),
    'registrar'         => _('Registrar'),
    'reseller'          => _('Reseller'),
    'sponsor'           => _('Sponsor'),
    'proxy'             => _('Proxy'),
    'notifications'     => _('Notifications'),
    'noc'               => _('NOC'),
);

my %EVENT_DISPLAY_NAMES = (
    'registration'                  => _('Registration'),
    'reregistration'                => _('Reregistration'),
    'last changed'                  => _('Last Changed'),
    'expiration'                    => _('Expiration'),
    'deletion'                      => _('Deletion'),
    'reinstantiation'               => _('Reinstantiation'),
    'transfer'                      => _('Transfer'),
    'locked'                        => _('Locked'),
    'unlocked'                      => _('Unlocked'),
    'last update of RDAP database'  => _('Last update of RDAP database'),
    'registrar expiration'          => _('Registrar expiration'),
    'enum validation expiration'    => _('ENUM validation expiration'),
);

my %STATUS_DISPLAY_NAMES = (
    'validated'                     => _('validated'),
    'renew prohibited'              => _('renew prohibited'),
    'update prohibited'             => _('update prohibited'),
    'transfer prohibited'           => _('transfer prohibited'),
    'delete prohibited'             => _('delete prohibited'),
    'proxy'                         => _('proxy'),
    'private'                       => _('private'),
    'removed'                       => _('removed'),
    'obscured'                      => _('obscured'),
    'associated'                    => _('associated'),
    'active'                        => _('active'),
    'inactive'                      => _('inactive'),
    'locked'                        => _('locked'),
    'pending create'                => _('pending create'),
    'pending renew'                 => _('pending renew'),
    'pending transfer'              => _('pending transfer'),
    'pending update'                => _('pending update'),
    'pending delete'                => _('pending delete'),
    'add period'                    => _('add period'),
    'auto renew period'             => _('auto renew period'),
    'client delete prohibited'      => _('client delete prohibited'),
    'client hold'                   => _('client hold'),
    'client renew prohibited'       => _('client renew prohibited'),
    'client transfer prohibited'    => _('client transfer prohibited'),
    'client update prohibited'      => _('client update prohibited'),
    'pending restore'               => _('pending restore'),
    'redemption period'             => _('redemption period'),
    'renew period'                  => _('renew period'),
    'server delete prohibited'      => _('server delete prohibited'),
    'server renew prohibited'       => _('server renew prohibited'),
    'server transfer prohibited'    => _('server transfer prohibited'),
    'server update prohibited'      => _('server update prohibited'),
    'server hold'                   => _('server hold'),
    'transfer period'               => _('transfer period'),
    'administrative'                => _('administrative'),
    'reserved'                      => _('reserved'),
);

my @EVENTS = (
    'registration',
    'reregistration',
    'last changed',
    'expiration',
    'deletion',
    'reinstantiation',
    'transfer',
    'locked',
    'unlocked',
    'last update of RDAP database',
    'registrar expiration',
    'enum validation expiration',
);

my %EVENT_DISPLAY_ORDER;
for (my $i = 0 ; $i < scalar(@EVENTS) ; $i++) {
    $EVENT_DISPLAY_ORDER{$EVENTS[$i]} = $i;
}

my %NOTICE_REMARK_TYPE = (
    'result set truncated due to authorization'         => _('result set truncated due to authorization'),
    'result set truncated due to excessive load'        => _('result set truncated due to excessive load'),
    'result set truncated due to unexplainable reasons' => _('result set truncated due to unexplainable reasons'),
    'object truncated due to authorization'             => _('object truncated due to authorization'),
    'object truncated due to excessive load'            => _('object truncated due to excessive load'),
    'object truncated due to unexplainable reasons'     => _('object truncated due to unexplainable reasons'),
    'object redacted due to authorization'              => _('object redacted due to authorization'),
);

my %VCARD_KIND_DISPLAY_NAME = (
    'individual'    => _('individual'),
    'group'         => _('group'),
    'org'           => _('org'),
    'location'      => _('location'),
    'application'   => _('application'),
    'device'        => _('device'),
);

my @VCARD_DISPLAY_ORDER = qw(SOURCE KIND FN TITLE ROLE ORG ADR GEO EMAIL CONTACT-URI SOCIALPROFILE TEL IMPP URL CATEGORIES NOTE);
my %VCARD_NODE_NAMES = (
    ADR             => _('Address'),
    CATEGORIES      => _('Categories'),
    'CONTACT-URI'   => _('Contact Link'),
    EMAIL           => _('Email'),
    FN              => _('Name'),
    GEO             => _('Location'),
    IMPP            => _('Messaging'),
    KIND            => _('Kind'),
    NOTE            => _('Note'),
    ORG             => _('Organization'),
    ROLE            => _('Role'),
    SOCIALPROFILE   => _('Profile'),
    SOURCE          => _('Source'),
    TEL             => _('Phone'),
    TITLE           => _('Title'),
    URL             => _('Website'),
);

my %PUBLIC_ID_DISPLAY_NAME = (
    'IANA Registrar ID' => _('IANA Registrar ID'),
);

my @ADR_DISPLAY_ORDER = (ADR_STREET, ADR_CITY, ADR_SP, ADR_PC, ADR_CC);
my %ADR_DISPLAY_NAMES = (
    &ADR_STREET => _('Street'),
    &ADR_CITY   => _('City'),
    &ADR_SP     => _('State/Province'),
    &ADR_PC     => _('Postal Code'),
    &ADR_CC     => _('Country'),