From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Sun, 29 Sep 2019 09:55:12 +0000 (+0200)
Subject: perl: Add function to get the description of the database.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=973c5f03e64d71ce74c4d007e65c17985e3c8974;p=people%2Fsennis%2Flibloc.git

perl: Add function to get the description of the 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 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
 #