NAME

Net::Netcraft::Query - Query the Netcraft webserver search

SYNOPSIS

use Net::Netcraft::Query;

my $site = "www.juventus.it";

my $req = Net::Netcraft::Query->new(
  site => $site,
);

my %res = $req->query;

print "Site                    : " . $res{site} . "\n";
print "Domain                  : " . $res{domain} . "\n";
print "IP Address              : " . $res{ip_address} . "\n";
print "Nameserver              : " . $res{nameserver} . "\n";
print "Reverse Dns             : " . $res{reverse_dns} . "\n";
print "Country                 : " . $res{country} . "\n";
print "Nameserver Organisation : " . $res{nameserver_organisation} . "\n";
print "Date First Seen         : " . $res{date_first_seen} . "\n";
print "Dns Admin               : " . $res{dns_admin} . "\n";
print "Organisation            : " . $res{organisation} . "\n";
print "Domain Registry         : " . $res{domain_registry} . "\n";
print "Last Reboot             : " . $res{last_reboot} . "\n";
print "Netblock Owner          : " . $res{netblock_owner} . "\n";

print "\n";

print "History 1               : " . $res{history_1} . "\n";
print "History 2               : " . $res{history_2} . "\n";

DESCRIPTION

This module allows you to query the Netcraft webserver search service.

Please visit http://news.netcraft.com/ for more information.

METHODS

new

The constructor. Given a web site returns a Net::Netcraft::Query object:

my $req = Net::Netcraft::Query->new(
  site => $site,
);

host

Default is 'http://toolbar.netcraft.com/site_report?url=http://';

site

Web site to check (required);

timeout

Default is 10;

http_proxy

A URL for proxy-ing HTTP requests.

user_agent

Default is 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'.

query

It returns a hash containing all results (country, date_first_seen, dns_admin, domain, domain_registry, history_1 - history_10, ip_address, last_reboot, nameserver, nameserver_organisation, netblock_owner, organisation, reverse_dns, site, site_rank);

my %res = $req->query;

SEE ALSO

Netcraft Services, http://news.netcraft.com/

AUTHOR

Matteo Cantoni, <matteo.cantoni@nothink.org<gt>

CONTRIBUTORS

Joshua D. Abraham

COPYRIGHT AND LICENSE

Copyright (C) 2007,2008 by Matteo Cantoni

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.