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

Message ID 20190929095556.10745-1-stefan.schantl@ipfire.org
State Accepted
Commit 733bd087d837417ace1006f82bde95b1b6b76fb8
Headers
Series perl: Add function to gather the license of a database. |

Commit Message

Stefan Schantl Sept. 29, 2019, 9:55 a.m. UTC
  Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---
 src/perl/Location/Location.xs | 10 ++++++++++
 1 file changed, 10 insertions(+)
  

Patch

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
 #