perl: Add function to gather the license of a database.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs
index 496fc43e100282fd05f09d003eb922664be02d8a..ab27f0bf31866862cb0d3c54ae55896e5cc956e1 100644 (file)
--- 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
 #