1package Net::ParseWhois::Domain::Registrar::Netsol;
2
3require 5.004;
4use strict;
5
6@Net::ParseWhois::Domain::Registrar::Netsol::ISA = qw(Net::ParseWhois::Domain::Registrar);
7$Net::ParseWhois::Domain::Registrar::Netsol::VERSION = 0.6;
8
9sub rdebug		{ 0 }
10sub regex_org_start	{ '^Registrant:'}
11sub regex_no_match	{ '^No match for' }
12sub regex_created	{ '^Record created on (.*)\.$' }
13sub regex_expires	{ '^Record expires on (.*)\.$' }
14# NetSol no longer gives last updated date for individual domains
15sub regex_updated	{ '^Record last updated on (.*)\.$' }
16sub regex_domain	{ '^Domain Name: (.*)$' }
17sub regex_nameservers	{ '^Domain servers in listed order:$' }
18# Billing contacts no longer given via WHOIS
19sub my_contacts		{ [ qw(Administrative Technical) ] }
20sub my_data		{ [ qw(my_contacts regex_org_start regex_no_match regex_created regex_updated regex_expires regex_domain regex_nameservers) ] }
21
22sub parse_text {
23	my $self = shift;
24	my $text = shift; # array ref, one line per element
25
26	# Because NetSol doesn't give the last time a domain record was
27	# updated, we need to pre-fill that data value so the parse_contacts
28	# method won't screw-up.	--jcm, 11/16/05
29	$self->{RECORD_UPDATED}="n/a";
30
31	$self->dump_text($text) if $self->rdebug;
32
33	$self->parse_start($text);
34	$self->dump_text($text) if $self->rdebug;
35	$self->parse_org($text);
36	$self->dump_text($text) if $self->rdebug;
37	$self->parse_domain_name($text);
38	$self->dump_text($text) if $self->rdebug;
39	$self->parse_contacts($text);
40	$self->dump_text($text) if $self->rdebug;
41	$self->parse_domain_stats($text);
42	$self->dump_text($text) if $self->rdebug;
43	$self->parse_nameservers($text);
44	$self->dump_text($text) if $self->rdebug;
45
46	return $self;
47}
48
491;
50