1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#!/usr/bin/perl
use MaxMind::DB::Writer::Tree;
my %types = (
code => 'utf8_string',
continent => 'map',
country => 'map',
en => 'utf8_string',
geoname_id => 'uint32',
iso_code => 'utf8_string',
names => 'map',
registered_country => 'map',
);
my $tree = MaxMind::DB::Writer::Tree->new(
database_type => 'GeoIP2-Country',
description => { en => 'SpamAssassin test data' },
ip_version => 6,
record_size => 28,
map_key_type_callback => sub { $types{ $_[0] } },
);
$tree->insert_network(
'8.8.8.8/32' => {
'continent' => {
'code' => 'NA',
'geoname_id' => 6255149,
'names' => {
'en' => 'North America',
},
},
'country' => {
'iso_code' => 'US',
'geoname_id' => 6252001,
'names' => {
'en' => 'United States',
},
},
'registered_country' => {
'iso_code' => 'US',
'geoname_id' => 6252001,
'names' => {
'en' => 'United States',
},
},
},
);
$tree->insert_network(
'2001:4860:4860::8888/128' => {
'continent' => {
'code' => 'NA',
'geoname_id' => 6255149,
'names' => {
'en' => 'North America',
},
},
'country' => {
'iso_code' => 'US',
'geoname_id' => 6252001,
'names' => {
'en' => 'United States',
},
},
'registered_country' => {
'iso_code' => 'US',
'geoname_id' => 6252001,
'names' => {
'en' => 'United States',
},
},
},
);
open my $fh, '>:raw', 'GeoIP2-Country.mmdb';
$tree->write_tree($fh);
close $fh;
|
