| Subject: | Patch for whois.jprs.jp |
| Date: | Fri, 6 Oct 2006 17:59:48 +0900 |
| To: | bug-Net-Domain-ExpireDate [...] rt.cpan.org |
| From: | "Tatsuhiko Miyagawa" <miyagawa [...] gmail.com> |
Hi, thanks for your work on this module.
Here's a patch to parse expire date from {whatever}.jp domains that
use whois.jprs.jp.
=== ExpireDate.pm
==================================================================
--- ExpireDate.pm (revision 5512)
+++ ExpireDate.pm (local)
@@ -255,6 +255,9 @@
$rulenum = 7.2; $m = $1; $d = $2; $y = $3;
} elsif ($whois =~ m|Registered through- (\d{2})/(\d{2})/(\d{2})|is) {
$rulenum = 7.3; $m = $1; $d = $2; $y = $3;
+ # [whois.jprs.jp] [....] 2006/12/31
+ } elsif ($whois =~
m|\[\x1b\x24\x42\x4d\x2d\x38\x7a\x34\x7c\x38\x42\x1b\x28\x42\]\s+(\d{4})/(\d{2})/(\d{2})|s)
{
+ $rulenum = 7.4; $Y = $1; $m = $2; $d = $3;
}
unless ($rulenum) {
=== test.pl
==================================================================
--- test.pl (revision 5512)
+++ test.pl (local)
@@ -90,6 +90,7 @@
ok( expire_date("nic.info", '%Y-%m-%d'), '2011-07-27' );
ok( expire_date("nic.us", '%Y-%m-%d'), '2007-04-17' );
ok( expire_date("orenet.co.uk", '%Y-%m-%d'), '2006-01-23' );
+ok( expire_date("google.jp", '%Y-%m-%d'), '2007-05-31' );
ok( sub { join ';', domain_dates("regtime.net", '%Y-%m-%d') },
'2000-09-06;2006-09-06;' );
ok( sub { join ';', domain_dates("webnames.ru", '%Y-%m-%d') },
'2001-09-19;2006-09-20;' );
--
Tatsuhiko Miyagawa