22 lines
728 B
Text
22 lines
728 B
Text
|
Index: dbmScripts/ipcc_maker.pl
|
||
|
|
--- dbmScripts/ipcc_maker.pl.orig
|
||
|
|
+++ dbmScripts/ipcc_maker.pl
|
||
|
|
@@ -31,7 +31,7 @@ close REG || warn("can't close $reg_file, but continui
|
||
|
|
|
||
|
|
|
||
|
|
print "Saving ultralite IP registry to disk\n";
|
||
|
|
-my $ip = new IO::File "> ../lib/IP/Country/Fast/ip.gif";
|
||
|
|
+my $ip = new IO::File "> ${WRKDIR}/data/ip.gif";
|
||
|
|
if (defined $ip) {
|
||
|
|
binmode $ip;
|
||
|
|
print $ip pack("N",time()); # returned by $obj->db_time()
|
||
|
|
@@ -44,7 +44,7 @@ if (defined $ip) {
|
||
|
|
|
||
|
|
print "Saving ultralite country database to disk\n";
|
||
|
|
|
||
|
|
-open (CC, "> ../lib/IP/Country/Fast/cc.gif")
|
||
|
|
+open (CC, "> ${WRKDIR}/data/cc.gif")
|
||
|
|
or die ("couldn't create country database: $!");
|
||
|
|
binmode CC;
|
||
|
|
foreach my $country (sort $tree->get_countries()){
|