From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH 1/4] perl: Add get_country_name() function. Date: Thu, 10 Sep 2020 17:57:44 +0200 Message-ID: <20200910155747.12553-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============5385032764535383488==" List-Id: --===============5385032764535383488== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit This function can be used to get the stored name for a given country code. Signed-off-by: Stefan Schantl --- src/perl/Location.xs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/src/perl/Location.xs b/src/perl/Location.xs index 1cb2e21..dcf3f0d 100644 --- a/src/perl/Location.xs +++ b/src/perl/Location.xs @@ -243,6 +243,28 @@ lookup_asn(db, address) # # Get functions # +SV* +get_country_name(db, ccode) + struct loc_database* db; + char* ccode; + + CODE: + RETVAL = &PL_sv_undef; + + // Lookup country code + struct loc_country *country; + int err = loc_database_get_country(db, &country, ccode); + if(!err) { + // Extract the name for the given country code. + const char* country_name = loc_country_get_name(country); + RETVAL = newSVpv(country_name, strlen(country_name)); + + loc_country_unref(country); + } + + OUTPUT: + RETVAL + SV* get_continent_code(db, ccode) struct loc_database* db; -- 2.20.1 --===============5385032764535383488==--