update

parent 7022bce1
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment