- Location - lists.ipfire.org

How to update the database daily?
by Michael Tremer 02 Oct '19

02 Oct '19

Hello, I just wanted to summarise and archive a conversation that I had with Peter yesterday on the phone: We were talking about what mechanisms would be best to distribute the database on a daily basis. There are two options of which the first one is a downloader script which is called by systemd or cron on a regular basis, downloads the database, verifies it and done. The second option is to use the package updating mechanism of distributions, i.e. sending a daily update of a package with the latest version of the database. That way, no extra configuration for systems behind a proxy and without any access to the internet would be necessary. I personally do not think that any distribution would be able or willing to push a daily package update regardless of its size. There is no precedent for it in any distribution I know, but Peter was going to check with Debian if this is a possible path and report back. Best, -Michael

1 0

[PATCH] perl: Add function to perform AS number lookups.
by Stefan Schantl 01 Oct '19

01 Oct '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location.xs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/src/perl/Location.xs b/src/perl/Location.xs index ab27f0b..63410c4 100644 --- a/src/perl/Location.xs +++ b/src/perl/Location.xs @@ -117,6 +117,32 @@ lookup_country_code(db, address) OUTPUT: RETVAL +unsigned int +lookup_asn(db, address) + struct loc_database* db; + char* address; + + CODE: + // Lookup network + struct loc_network *network; + int err = loc_database_lookup_from_string(db, address, &network); + if (err) { + croak("Could not look up for %s\n", address); + } + + // Extract the ASN + unsigned int as_number = loc_network_get_asn(network); + loc_network_unref(network); + + if (as_number) { + RETVAL = as_number; + } else { + //RETVAL = NULL; + RETVAL = 0; + } + OUTPUT: + RETVAL + void DESTROY(db) struct loc_database* db; -- 2.20.1

2 1

[PATCH] perl: Testsuite: Add test for lookup_asn()
by Stefan Schantl 01 Oct '19

01 Oct '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/t/Location.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/perl/t/Location.t b/src/perl/t/Location.t index aef15c3..af5e258 100644 --- a/src/perl/t/Location.t +++ b/src/perl/t/Location.t @@ -11,7 +11,7 @@ use warnings; # Where to find the test database. my $testdb = "../../testdata/test.db"; -use Test::More tests => 5; +use Test::More tests => 6; BEGIN { use_ok('Location') }; ######################### @@ -36,3 +36,6 @@ ok($description eq "This is a geo location database", "Test 3 - Get Database Des my $country_code = &Location::lookup_country_code($db, $address); ok($country_code eq "DE", "Test 4 - Lookup country code for $address"); + +my $as_number = &Location::lookup_asn($db, $address); +ok($as_number eq "204867", "Test 5 - Lookup Autonomous System for $address"); -- 2.20.1

2 1

[PATCH] perl: Add tests to testsuite.
by Stefan Schantl 01 Oct '19

01 Oct '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/t/Location.t | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/src/perl/t/Location.t b/src/perl/t/Location.t index a68c094..aef15c3 100644 --- a/src/perl/t/Location.t +++ b/src/perl/t/Location.t @@ -8,10 +8,31 @@ use strict; use warnings; -use Test::More tests => 1; +# Where to find the test database. +my $testdb = "../../testdata/test.db"; + +use Test::More tests => 5; BEGIN { use_ok('Location') }; ######################### # Insert your test code below, the Test::More module is use()ed here so read # its man page ( perldoc Test::More ) for help writing this test script. + +# Address which should be used for database lookup. +my $address = "2a07:1c44:5800::1"; + +# Connect to the database. +my $db = &Location::init("$testdb"); + +my $vendor = &Location::get_vendor($db); +ok($vendor eq "IPFire Project", "Test 1 - Get Database Vendor"); + +my $license = &Location::get_license($db); +ok($license eq "CC", "Test 2 - Get Database license"); + +my $description = &Location::get_description($db); +ok($description eq "This is a geo location database", "Test 3 - Get Database Description"); + +my $country_code = &Location::lookup_country_code($db, $address); +ok($country_code eq "DE", "Test 4 - Lookup country code for $address"); -- 2.20.1

1 0

[PATCH] Add example database for testing purposes.
by Stefan Schantl 01 Oct '19

01 Oct '19

This example database and it's content can be used for various testing purposes. The testsuite of the perl bindings depends on it. Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- testdata/Readme.txt | 12 ++++++++++++ testdata/test.db | Bin 0 -> 16459 bytes 2 files changed, 12 insertions(+) create mode 100644 testdata/Readme.txt create mode 100644 testdata/test.db diff --git a/testdata/Readme.txt b/testdata/Readme.txt new file mode 100644 index 0000000..25e7f59 --- /dev/null +++ b/testdata/Readme.txt @@ -0,0 +1,12 @@ +The database in this folder can be used to run various tests against it and +has been created by using the "create-database.py" script in the examples directory. + +It contains the following content: + +Vendor: "IPFire Project" +Description: "This is a geo location database" +License: "CC" + +AS: "AS204867 (Lightning Wire Labs GmbH)" +Subnet: "2a07:1c44:5800::/40" +Country Code: "DE" diff --git a/testdata/test.db b/testdata/test.db new file mode 100644 index 0000000000000000000000000000000000000000..5840aca7fa48bed4459803c6005a3e7ac2eea146 GIT binary patch literal 16459 zcmeI&NlpSm6oBDEoF{OerJUJm+`2I~PLV_wCbDtSU<cYLoj~usgJ<&?-a+eW#k{a} zL*%cJ)ZdTlPV=oP-v*_#YSqYkcsqIj4r6j|KQtyUm!rlU`Q5rb^I^=XT;CL5Wn&?L z00IagfB*srAb<b@2q1t!&kJO2;NJ1L=iieTL;wK<5I_I{1Q0*~0R#|00D-><WaQ>g zx7;?MS~BbBgI)6>KOgRzkNCO!&%p09$5fB2o=`ohdP=qAw11{_PIcb*jC|pHR`r}} z$$53}g6c)zOX~cx>J`<JtN#3&ny;(gP%XLX&ll9(s@_s9x$V#Ibj^4DT*iC8_tlvL z)kW2kECdih009ILKmY**5I_KdJ{KsRJAj}60Q9*8KOX@E5I_I{1Q0*~0R#|00D=E2 za9z2G+mWrblc%Vjn!9G)vF;PvMwHm+q#mYm(z1_X8rH&2WP-qy<3=-W#jS?DmpjX0 Ltz$1=YFFk9;D*Fd literal 0 HcmV?d00001 -- 2.20.1

1 0

[PATCH] examples: python/create-database.py: Add license to database
by Stefan Schantl 01 Oct '19

01 Oct '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- examples/python/create-database.py | 3 +++ 1 file changed, 3 insertions(+) diff --git a/examples/python/create-database.py b/examples/python/create-database.py index 284c85f..651709c 100644 --- a/examples/python/create-database.py +++ b/examples/python/create-database.py @@ -10,6 +10,9 @@ w.vendor = "IPFire Project" # Set a description w.description = "This is a geo location database" +# Set a license +w.license = "CC" + # Add an AS a = w.add_as(204867) a.name = "Lightning Wire Labs GmbH" -- 2.20.1

1 0

[PATCH] perl: Add function to gather the license of a database.
by Stefan Schantl 29 Sep '19

29 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Location.xs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index 496fc43..ab27f0b 100644 --- a/src/perl/Location/Location.xs +++ b/src/perl/Location/Location.xs @@ -79,6 +79,16 @@ get_description(db) OUTPUT: RETVAL +const char* +get_license(db) + struct loc_database* db; + + CODE: + // Get database license + RETVAL = loc_database_get_license(db); + OUTPUT: + RETVAL + # # Lookup functions # -- 2.20.1

1 0

[PATCH] perl: Add function to get the description of the database.
by Stefan Schantl 29 Sep '19

29 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Location.xs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index f94ca31..496fc43 100644 --- a/src/perl/Location/Location.xs +++ b/src/perl/Location/Location.xs @@ -69,6 +69,16 @@ get_vendor(db) OUTPUT: RETVAL +const char* +get_description(db) + struct loc_database* db; + + CODE: + // Get database description + RETVAL = loc_database_get_description(db); + OUTPUT: + RETVAL + # # Lookup functions # -- 2.20.1

1 0

[PATCH] perl: Fix comments outside of a C code block.
by Stefan Schantl 29 Sep '19

29 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Location.xs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index 9e98aed..f94ca31 100644 --- a/src/perl/Location/Location.xs +++ b/src/perl/Location/Location.xs @@ -56,9 +56,9 @@ init(file) OUTPUT: RETVAL -/* - * Database functions - */ +# +# Database functions +# const char* get_vendor(db) struct loc_database* db; @@ -69,9 +69,9 @@ get_vendor(db) OUTPUT: RETVAL -/* - * Lookup functions - */ +# +# Lookup functions +# char* lookup_country_code(db, address) struct loc_database* db; -- 2.20.1

1 0

[PATCH] perl: Remove unneeded/unwanted files.
by Stefan Schantl 25 Sep '19

25 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Changes | 5 ----- src/perl/Location/MANIFEST | 2 -- src/perl/Location/README | 38 -------------------------------------- 3 files changed, 45 deletions(-) delete mode 100644 src/perl/Location/Changes delete mode 100644 src/perl/Location/README diff --git a/src/perl/Location/Changes b/src/perl/Location/Changes deleted file mode 100644 index 7afbdba..0000000 --- a/src/perl/Location/Changes +++ /dev/null @@ -1,5 +0,0 @@ -Revision history for Perl extension Location. - -0.01 Mon Sep 23 19:59:15 2019 - - original version; created by h2xs 1.23 with options - -O -A -n Location loc/libloc.h loc/database.h diff --git a/src/perl/Location/MANIFEST b/src/perl/Location/MANIFEST index 55fe58b..f381916 100644 --- a/src/perl/Location/MANIFEST +++ b/src/perl/Location/MANIFEST @@ -1,9 +1,7 @@ -Changes Location.xs Makefile.PL MANIFEST ppport.h -README typemap t/Location.t lib/Location.pm diff --git a/src/perl/Location/README b/src/perl/Location/README deleted file mode 100644 index 21d8017..0000000 --- a/src/perl/Location/README +++ /dev/null @@ -1,38 +0,0 @@ -Location version 0.01 -=================== - -The README is used to introduce the module and provide instructions on -how to install the module, any machine dependencies it may have (for -example C compilers and installed libraries) and any other information -that should be provided before the module is installed. - -A README file is required for CPAN modules since CPAN extracts the -README file from a module distribution so that people browsing the -archive can use it get an idea of the modules uses. It is usually a -good idea to provide version information here so that people can -decide whether fixes for the module are worth downloading. - -INSTALLATION - -To install this module type the following: - - perl Makefile.PL - make - make test - make install - -DEPENDENCIES - -This module requires these other modules and libraries: - - libloc - -COPYRIGHT AND LICENCE - -Put the correct copyright and licence information here. - -Copyright (C) 2019 by Stefan Schantl - -This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself, either Perl version 5.28.1 or, -at your option, any later version of Perl 5 you may have available. -- 2.20.1

1 0

2024

2023

2022

2021

2020

2019

2018

2017

Location