From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH 03/11] location-functions.pl: Add address_has_flag() function. Date: Tue, 22 Sep 2020 20:25:01 +0200 Message-ID: <20200922182509.18643-3-stefan.schantl@ipfire.org> In-Reply-To: <20200922182509.18643-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============4315984846900796857==" List-Id: --===============4315984846900796857== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable This function can be used to check if a given address has one of the known flags like "Anonymous Proxy". If this is true, the mapped special country code will be returned. Signed-off-by: Stefan Schantl --- config/cfgroot/location-functions.pl | 29 ++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/config/cfgroot/location-functions.pl b/config/cfgroot/location-f= unctions.pl index c8ccd94c2..b0b8cd086 100644 --- a/config/cfgroot/location-functions.pl +++ b/config/cfgroot/location-functions.pl @@ -33,6 +33,13 @@ my %not_iso_3166_location =3D ( "A3" =3D> "Worldwide Anycast Instance", ); =20 +# Hash which contains possible network flags and their mapped location codes. +my %network_flags =3D ( + "LOC_NETWORK_FLAG_ANONYMOUS_PROXY" =3D> "A1", + "LOC_NETWORK_FLAG_SATELLITE_PROVIDER" =3D> "A2", + "LOC_NETWORK_FLAG_ANYCAST" =3D> "A3", +); + # Array which contains special country codes. my @special_locations =3D ( "A1", "A2", "A3" ); =20 @@ -183,4 +190,26 @@ sub get_locations() { return @sorted_locations; } =20 +# Function to check if a given address has a special flag. +sub address_has_flag($) { + my ($address) =3D @_; + + # Init libloc database handle. + my $db_handle =3D &init(); + + # Loop through the hash of possible network flags. + foreach my $flag (keys(%network_flags)) { + # Check if the address has the current flag. + if (&Location::lookup_network_has_flag($db_handle, $address, $flag)) { + # The given address has the requested flag. + # + # Grab the mapped location code for this flag. + $mapped_code =3D $network_flags{$flag}; + + # Return the code. + return $mapped_code; + } + } +} + 1; --=20 2.20.1 --===============4315984846900796857==--