The author replied to my e-mail with a fix and after another e-mail exchange, gave me permission to post the correspondence and a link to the new version of Net::ParseWhois, in case anyone has decided to use it.perl -MNet::Whois -e "$w=new Net::Whois::Domain \"flyflyfly.com\"; + print 1 unless($w->ok)" 1 perl -MNet::ParseWhois -e "$w=new Net::ParseWhois::Domain \"flyfly +fly.com\"; print 1 unless($w->ok)" no registrar configured for referral whois.corenic.net Can't call method "ok" without a package or object reference at -e + line 1.
Thanks for the feedback. You are actually the first person (out of maybe 40 who've downloaded the code) to send me email.
Attached you'll find the latest version of Net::ParseWhois. I fixed the bug you found and a few others. See the perldoc Net::ParseWhois page for details, but basically - it'll return an object now with ok properly set to true if a domain exists no matter what. If ParseWhois doesn't know about the registrar, it'll set unknown_register to true and raw_whois_data will have the raw data --
I have a few more things I need to do before minting version 0.6, which'll be when I'll actually submit the module to CPAN.. drop me a note if you'd like to be kept abrest on the latest developments.unless ($w->ok) { die "No match for $dom\n"; } if ($w->unknown_registrar) { die "domain found, registrar unknown. raw data \follows\n" . $w->r +aw_whois_text . "\n"; }
Thanks again for your feedback.
Abe
Abe further stated that he will be continuing work on this module and will be uploading it to CPAN.
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Net::ParseWhois Update
by Anonymous Monk on Jan 27, 2001 at 07:19 UTC |