1 files changed, 124 insertions, 0 deletions
diff --git a/perl/Rspamd/InternetAddress.xs b/perl/Rspamd/InternetAddress.xs
new file mode 100644
index 000000000..834117bbe
--- /dev/null
+++ b/perl/Rspamd/InternetAddress.xs
@@ -0,0 +1,124 @@
+MODULE = Mail::Rspamd PACKAGE = Mail::Rspamd::InternetAddress PREFIX = rspamd_internet_address_
+
+Mail::Rspamd::InternetAddress
+rspamd_internet_address_new (Class, name, address)
+	CASE: items <= 1
+		char *		Class
+	CODE:
+		RETVAL = internet_address_new ();
+		plist = g_list_prepend (plist, RETVAL);
+	OUTPUT:
+		RETVAL
+	CASE: items == 2
+		char *		Class
+		char *		name
+	CODE:
+		RETVAL = internet_address_new_group (name);
+		plist = g_list_prepend (plist, RETVAL);
+	OUTPUT:
+		RETVAL
+	CASE: items == 3
+		char *		Class
+		char *		name
+		char *		address
+	CODE:
+		RETVAL = internet_address_new_name (name, address);
+		plist = g_list_prepend (plist, RETVAL);
+	OUTPUT:
+		RETVAL
+
+void
+DESTROY(ia)
+		Mail::Rspamd::InternetAddress	ia
+	CODE:
+		if (g_list_find (plist,ia)) {
+			internet_address_unref (ia);
+			plist = g_list_remove (plist, ia);
+		}
+
+AV *
+rspamd_internet_address_parse_string (str)
+		const char *		str
+	PREINIT:
+		InternetAddressList *		addrlist;
+		AV * 		retav;
+	CODE:
+		addrlist = internet_address_parse_string (str);
+		retav = newAV ();
+		while (addrlist) {
+		  SV * address = newSViv (0);
+		  sv_setref_pv (address, "Mail::Rspamd::InternetAddress", (Mail__Rspamd__InternetAddress)(addrlist->address));
+		  av_push (retav, address);
+		  addrlist = addrlist->next;
+		}
+		RETVAL = retav;
+	OUTPUT:
+		RETVAL
+
+void
+interface_ia_set (ia, value)
+		Mail::Rspamd::InternetAddress	ia
+	char *				value
+	INTERFACE_MACRO:
+	XSINTERFACE_FUNC
+	XSINTERFACE_FUNC_RSPAMD_IA_SET
+	INTERFACE:
+	set_name
+	set_addr
+
+SV *
+rspamd_internet_address_to_string (ia, encode = TRUE)
+		Mail::Rspamd::InternetAddress	ia
+		gboolean		encode
+	PREINIT:
+		char *		textdata;
+	CODE:
+		textdata = internet_address_to_string (ia, encode);
+		if (textdata == NULL) {
+			XSRETURN_UNDEF;
+		}
+		RETVAL = newSVpv (textdata, 0);
+	OUTPUT:
+		RETVAL
+
+void
+rspamd_internet_address_set_group (ia, ...)
+		Mail::Rspamd::InternetAddress	ia
+	PREINIT:
+		Mail__Rspamd__InternetAddress	addr;
+		InternetAddressList *		addrlist = NULL;
+		int			i;
+	CODE:
+		if (items < 2) {
+	  		XSRETURN_UNDEF;
+		}
+		for (i = items - 1; i > 0; --i) {
+			/* retrieve each address from the perl array */
+			if (sv_derived_from (ST (items - i), "Mail::Rspamd::InternetAddress")) {
+				IV tmp = SvIV ((SV*)SvRV (ST (items - i)));
+				addr = INT2PTR (Mail__Rspamd__InternetAddress, tmp);
+			}
+			if (addr) {
+				internet_address_list_append (addrlist, addr);
+			}
+		}
+		if (addrlist) {
+			internet_address_set_group (ia, addrlist);
+		}
+
+void
+rspamd_internet_address_add_member (ia, member)
+		Mail::Rspamd::InternetAddress	ia
+		Mail::Rspamd::InternetAddress	member
+	CODE:
+		internet_address_add_memeber (ia, member);
+
+Mail::Rspamd::InternetAddressType
+rspamd_internet_address_type (ia)
+		Mail::Rspamd::InternetAddress	ia
+	CODE:
+		RETVAL = ia->type;
+	OUTPUT:
+		RETVAL
+
+