Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix GeoIP2 database file extraction (#764)

Browse Source
This commit is contained in:
Vincent Herbet 2019-10-17 15:42:27 +02:00 committed by Arkshine
parent 5e48c9b6db
commit 6fb27a03a7
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
support/buildbot/package.pl
View File

@ -7,7 +7,7 @@ use File::Basename;
use File::stat;
use File::Temp qw/ tempfile :seekable/;
use Net::FTP;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use Archive::Tar;
use Time::localtime;
my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path);
@ -72,12 +72,10 @@ if (-e $geoIPfile) {
unlink($geoIPfile);
}
open(my $fh, ">", $geoIPfile)
or die "cannot open $geoIPfile for writing: $!";
binmode($fh);
gunzip '../GeoLite2-Country.tar.gz' => $fh
or die "gunzip failed: $GunzipError\n";
close($fh);
my $next = Archive::Tar->iter('../GeoLite2-Country.tar.gz', 1, {filter => qr/\.mmdb$/});
while (my $file = $next->()) {
$file->extract($geoIPfile) or warn "Extraction failed";
}
my (@packages,@mac_exclude);
@packages = ('base', 'cstrike', 'dod', 'esf', 'ns', 'tfc', 'ts');