mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-12-14 10:43:24 +00:00
49 lines
1.2 KiB
Perl
Executable File
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;
|
|
}
|