aboutsummaryrefslogtreecommitdiff
path: root/whoseip/Whoseip/DB.pm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2014-10-19 09:50:13 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2014-10-19 09:50:13 +0300
commit014b0852e307a32cbb6bf27a71d3541f89cc1e84 (patch)
tree70e9593bb25a968cdc02f4e9620e4cb9837a5b32 /whoseip/Whoseip/DB.pm
parentd8b056b5f2edea6a19ba3ebd7accc6892fa48908 (diff)
downloaddnstools-014b0852e307a32cbb6bf27a71d3541f89cc1e84.tar.gz
dnstools-014b0852e307a32cbb6bf27a71d3541f89cc1e84.tar.bz2
whoseip: set version 1.00
Diffstat (limited to 'whoseip/Whoseip/DB.pm')
-rw-r--r--whoseip/Whoseip/DB.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/whoseip/Whoseip/DB.pm b/whoseip/Whoseip/DB.pm
index a824491..0e63cdf 100644
--- a/whoseip/Whoseip/DB.pm
+++ b/whoseip/Whoseip/DB.pm
@@ -37,7 +37,7 @@ our @EXPORT_OK = ( qw(ipdb_open ipdb_lookup ipdb_insert
our @EXPORT = qw();
-our $VERSION = "1.0";
+our $VERSION = "1.00";
my %ipv4_mask2len;
my @ipv4_len2mask;
@@ -775,6 +775,7 @@ sub ipdb_lookup_unlocked($$) {
netmask => inet_ntoa(pack('N', $r->[1])),
timestamp => $r->[2],
ttl => time - $r->[2],
+ package => 'whoseip',
version => $VERSION );
@res{keys %{$r->[4]}} = values %{$r->[4]}
if (defined($r->[4]) and ref($r->[4]) eq 'HASH');

Return to:

Send suggestions and report system problems to the System administrator.