From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Thu, 25 Aug 2022 16:54:05 +0000 (+0200)
Subject: Add function to get the error message of a session.
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=53b533d3fadba3189bfb24e32bc214ea0eaf8f93;p=people%2Fstevee%2Fperl-ipset.git

Add function to get the error message of a session.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---

diff --git a/IPSet.xs b/IPSet.xs
index 956a687..82a9810 100644
--- a/IPSet.xs
+++ b/IPSet.xs
@@ -254,6 +254,25 @@ setname_exists(session, setname)
 		RETVAL
 
 
+SV*
+get_error_message(session)
+	struct ipset_session *session;
+
+	CODE:
+		RETVAL = &PL_sv_undef;
+
+		const char* error = ipset_session_report_msg(session);
+
+		if (error) {
+			RETVAL = newSVpv(error, strlen(error));
+
+			// Reset the report buffer.
+			ipset_session_report_reset(session);
+		}
+
+	OUTPUT:
+		RETVAL
+
 void
 DESTROY(session)
 	struct ipset_session *session;