webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-17 06:23:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert "geoip-functions.pl: Add functions to export locations and to flush them."

Browse Source 
This reverts commit e758c76384.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-06-10 21:27:06 +02:00
parent 36331a6a9c
commit e7b1b002c9
1 changed files with 0 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
config/cfgroot/geoip-functions.pl
View File

@@ -198,63 +198,4 @@ sub get_geoip_locations() {
return @sorted_locations;
}
# Function to get the continent code of a given country code.
sub get_continent_code($$) {
my ($db_handle, $ccode) = @_;
# Omit the continent code.
my $continent_code = &Location::get_continent_code($db_handle, $ccode);
return $continent_code;
}
# Function to flush all exported GeoIP locations.
sub flush_exported_locations () {
# Check if the xt_geoip_db_directory exists.
if (-e $xt_geoip_db_directory) {
# Perform a direcory listing.
opendir (DIR, $xt_geoip_db_directory) or die "Could not open $xt_geoip_db_directory. $!\n";
# Loop through the files.
while (my $file = readdir(DIR)) {
# Check if the element is a file.
if (-f "$xt_geoip_db_directory/$file") {
# Delete it.
unlink("$xt_geoip_db_directory/$file");
}
}
}
}
# Function which calls location-exporter to export a given array
# of locations.
sub export_locations (\@) {
my @locations = @{ shift() };
# String to store the given locations and pass it to the exporter tool.
my $locations_string;
# Only export IPv4 addresses.
my $family = "--family=ipv4";
# Specify xt_geoip as output format.
my $format = "--format=xt_geoip";
# Location export command.
my @command = ("/usr/bin/location-exporter", "--directory=$xt_geoip_db_directory", "$format", "$family");
# Check if the export directory exists, otherwise create it.
unless (-d $xt_geoip_db_directory) { mkdir $xt_geoip_db_directory };
# Loop through the array of locations which needs to be exported.
foreach my $location (@locations) {
# Add location to the command array.
push(@command, $location);
}
# Execute location-exporter to export the requested country codes.
system(@command) == 0
or die "@command failed: $?";
}
1;