gecko-dev/tools/download-stats/lookup-hosts.pl
2004-05-22 16:52:04 +00:00

49 lines
1.2 KiB
Perl
Executable File

#!/usr/bin/perl
use DBI;
use Socket;
use strict;
$| = 1;
my $verbose = 1;
# Establish a database connection.
my $dsn = "DBI:mysql:host=mecha.mozilla.org;database=logs;port=3306";
my $dbh = DBI->connect($dsn,
"logs",
"1ssw?w?",
{ RaiseError => 1,
PrintError => 0,
ShowErrorStatement => 1 }
);
my $sth = $dbh->prepare("UPDATE entries SET client = ? WHERE client = ?");
my $ips = $dbh->selectcol_arrayref('SELECT DISTINCT(client) FROM entries
WHERE client REGEXP "^[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}\.[[:digit:]]{1,3}$"');
my $count = scalar(@$ips);
print STDERR "$count total addresses to look up.\n" if $verbose;
my $attempted = 0;
my $succeeded = 0;
my ($ip, $host);
foreach $ip (@$ips) {
$host = gethostbyaddr(inet_aton($ip), AF_INET);
if ($host) {
$sth->execute($host, $ip);
++$succeeded;
#print STDERR "$ip = $host\n" if $verbose;
}
else {
#print STDERR "No match for $ip\n" if $verbose;
}
++$attempted;
print STDERR "$succeeded/$attempted/$count\n" if ($attempted % 100) == 0 && $verbose;
}