join ' ', 'serial:' . $_->serial, 'ref:' . $_->refresh,
'ret:' . $_->retry, 'exp:' . $_->expire,
'min:' . $_->minimum . "\n";
join ' ', 'serial:' . $_->serial, 'ref:' . $_->refresh,
'ret:' . $_->retry, 'exp:' . $_->expire,
'min:' . $_->minimum . "\n";
my $info = user_info $_;
my $req = parse_url($info ? $info->{host} : $_);
whois $req->{host}, \&netwhois_print, [ $context, $req ];
my $info = user_info $_;
my $req = parse_url($info ? $info->{host} : $_);
whois $req->{host}, \&netwhois_print, [ $context, $req ];