Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
R
rdap-conformance
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
CentralNic
rdap-conformance
Commits
807a208a
Unverified
Commit
807a208a
authored
Jul 25, 2018
by
Gavin Brown
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
update
parent
7022bce1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
rdap-conformance
rdap-conformance
+6
-7
No files found.
rdap-conformance
View file @
807a208a
...
...
@@ -19,17 +19,15 @@ GetOptions(
'
debug
',
);
pod2usage
()
if
(
$opt
->
{'
help
'});
pod2usage
({'
-verbose
'
=>
99
,
'
-sections
'
=>
'
USAGE|OPTIONS
'})
unless
(
$ARGV
[
0
]);
$opt
->
{'
type
'}
||=
'
domain
';
pod2usage
({'
-verbose
'
=>
99
,
'
-sections
'
=>
'
USAGE|OPTIONS
'})
unless
(
$opt
->
{'
type
'}
=~
/^(domain|entity|nameserver|help)$/
);
$opt
->
{'
type
'}
||=
'
domain
';
$opt
->
{'
handle
'}
||=
basename
(
$ARGV
[
0
]);
pod2usage
()
if
(
$opt
->
{'
help
'});
pod2usage
({'
-verbose
'
=>
99
,
'
-sections
'
=>
'
USAGE|OPTIONS
'})
unless
(
$ARGV
[
0
]
||
$opt
->
{'
type
'}
=~
/^(domain|entity|nameserver|help)$/
);
$ENV
{'
NET_RDAP_UA_DEBUG
'}
=
$opt
->
{'
debug
'};
printf
(
STDERR
"
Testing %s
which is a domain
...
\n
",
$ARGV
[
0
],
$opt
->
{'
type
'});
printf
(
STDERR
"
Testing %s
, type '%s'
...
\n
",
$ARGV
[
0
],
$opt
->
{'
type
'});
my
$response
=
Net::
RDAP
->
new
->
fetch
(
URI
->
new
(
$ARGV
[
0
]));
...
...
@@ -98,6 +96,7 @@ sub check_rdap_conformance {
}
}
}
sub
check_gtld_conformance
{
my
$response
=
shift
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment