* Perl fixes:

 - remove XS API, it seems that I would never support it
 - use sys(write|read) for IO in Mail::Rspamd::Client
 - add proper installation process for Mail::Rspamd::Client
 - remove some other legacy

--HG--
rename : perl/Client.pm => perl/lib/Mail/Rspamd/Client.pm

1 files changed, 0 insertions, 330 deletions

diff --git a/perl/Rspamd/Message.xs b/perl/Rspamd/Message.xs
deleted file mode 100644
index c9a21886e..000000000
--- a/perl/Rspamd/Message.xs
+++ /dev/null
@@ -1,330 +0,0 @@
-MODULE = Mail::Rspamd PACKAGE = Mail::Rspamd::Message PREFIX = rspamd_message_
-
-Mail::Rspamd::Message
-rspamd_message_new(Class, pretty_headers = FALSE)
-		char *		Class
-		gboolean	pretty_headers
-	CODE:
-		RETVAL = g_mime_message_new (pretty_headers);
-		plist = g_list_prepend(plist, RETVAL);
-	OUTPUT:
-		RETVAL
-
-void
-DESTROY(message)
-		Mail::Rspamd::Message	message
-	CODE:
-		if (g_list_find(plist,message)) {
-			g_mime_object_unref (GMIME_OBJECT (message));
-			plist = g_list_remove(plist, message);
-		}
-
-void
-rspamd_message_add_recipient(message, type, name, address)
-		Mail::Rspamd::Message	message
-		char *		type
-		const char *	name
-		const char *	address
-	CODE:
-#ifndef GMIME24
-		g_mime_message_add_recipient (message, type, name, address);
-#else
-		if (!g_strcasecmp (type, "to")) {
-			g_mime_message_add_recipient (message, GMIME_RECIPIENT_TYPE_TO, name, address);
-		}
-		else if (!g_strcasecmp (type, "cc")) {
-			g_mime_message_add_recipient (message, GMIME_RECIPIENT_TYPE_CC, name, address);
-		}
-		else if (!g_strcasecmp (type, "bcc")) {
-			g_mime_message_add_recipient (message, GMIME_RECIPIENT_TYPE_BCC, name, address);
-		}
-#endif
-
-void
-rspamd_message_add_recipients_from_string(message, type, recipients)
- 	Mail::Rspamd::Message	message
-		char *		type
-		const char *	recipients
-	CODE:
-#ifndef GMIME24
-		g_mime_message_add_recipients_from_string (message, type, recipients);
-#else
-		/* XXX: add code here */
-		XSRETURN_UNDEF;
-#endif
-
-
-AV *
-rspamd_message_get_recipients(message, type)
-		Mail::Rspamd::Message	message
-		const char *	type
-	PREINIT:
-		InternetAddressList *		rcpt;
-		AV * 		retav;
-		int i;
-	CODE:
-		retav = newAV();
-#ifndef GMIME24
-		rcpt = (InternetAddressList *)g_mime_message_get_recipients (message, type);
-		while (rcpt) {
-		  SV * address = newSViv(0);
-		  sv_setref_pv(address, "Mail::Rspamd::InternetAddress", (Mail__Rspamd__InternetAddress)(rcpt->address));
-		  av_push(retav, address);
-		  rcpt = rcpt->next;
-		}
-#else
-		if (!g_strcasecmp (type, "to")) {
-			rcpt = g_mime_message_get_recipients (message, GMIME_RECIPIENT_TYPE_TO);
-		}
-		else if (!g_strcasecmp (type, "cc")) {
-			rcpt = g_mime_message_get_recipients (message, GMIME_RECIPIENT_TYPE_CC);
-		}
-		else if (!g_strcasecmp (type, "bcc")) {
-			rcpt = g_mime_message_get_recipients (message, GMIME_RECIPIENT_TYPE_BCC);
-		}
-		i = internet_address_list_length (rcpt);
-		while (i > 0) {
-			SV * address = newSViv(0);
-			sv_setref_pv(address, "Mail::Rspamd::InternetAddress", (Mail__Rspamd__InternetAddress)internet_address_list_get_address(rcpt, i));
-			av_push(retav, address);
-			-- i;
-		}
-#endif
-		RETVAL = retav;
-	OUTPUT:
-		RETVAL
-
-
-void
-interface_m_set (message, value)
-		Mail::Rspamd::Message	message
-	char *			value
-	INTERFACE_MACRO:
-	XSINTERFACE_FUNC
-	XSINTERFACE_FUNC_RSPAMD_MESSAGE_SET
-	INTERFACE:
-	set_subject
-	set_message_id
-	set_reply_to
-	set_sender
-
-const char *
-interface_m_get (message)
-		Mail::Rspamd::Message	message
-	INTERFACE_MACRO:
-	XSINTERFACE_FUNC
-	XSINTERFACE_FUNC_RSPAMD_MESSAGE_SET
-	INTERFACE:
-	get_subject
-	get_message_id
-	get_reply_to
-	get_sender
-		
- # date
-void
-rspamd_message_set_date (message, date, gmt_offset)
-		Mail::Rspamd::Message	message
-		time_t		date
-		int		gmt_offset
-	CODE:
-		g_mime_message_set_date (message, date, gmt_offset);
-
-void
-rspamd_message_set_date_from_string (message, str)
-		Mail::Rspamd::Message	message
-		const char *	str
-	PREINIT:
-		time_t		date;
-		int		offset = 0;
-	CODE:
-		date = g_mime_utils_header_decode_date (str, &offset);
-		g_mime_message_set_date (message, date, offset);
-
-
-void
-rspamd_message_get_date (message)
-		Mail::Rspamd::Message	message
-	PREINIT:
-		time_t		date;
-		int		gmt_offset;
-		I32		gimme = GIMME_V;
-		char *		str;
-	PPCODE:
-		if (gimme == G_SCALAR) {
-#ifdef GMIME24
-			str = g_mime_message_get_date_as_string (message);
-#else
-			str = g_mime_message_get_date_string (message);
-#endif
-			if (str) {
-				XPUSHs (sv_2mortal (newSVpv (str,0)));
-				g_free (str);
-	  		}
-		} else if (gimme == G_ARRAY) {
-			g_mime_message_get_date (message, &date, &gmt_offset);
-			XPUSHs (sv_2mortal (newSVnv (date)));
-			XPUSHs (sv_2mortal (newSViv (gmt_offset)));
-		}
-
-void
-rspamd_message_set_header (message, field, value)
-		Mail::Rspamd::Message	message
-		const char *	field
-		const char *	value
-	CODE:
-#ifdef GMIME24
-		g_mime_object_set_header (GMIME_OBJECT (message), field, value);
-#else
-		g_mime_message_set_header (message, field, value);
-#endif
-		
-void
-rspamd_message_remove_header (message, field)
-		Mail::Rspamd::Message	message
-		const char *	field
-	CODE:
-#ifdef GMIME24
-		g_mime_object_remove_header (GMIME_OBJECT (message), field);
-#else
-		g_mime_message_remove_header (message, field);
-#endif
-	
-
-void
-rspamd_message_add_header (message, field, value)
-		Mail::Rspamd::Message	message
-		const char *	field
-		const char *	value
-	CODE:
-#ifdef GMIME24
-		g_mime_object_set_header (GMIME_OBJECT (message), field, value);
-#else
-		g_mime_message_set_header (message, field, value);
-#endif
-
-const char *
-rspamd_message_get_header (message, field)
-		Mail::Rspamd::Message	message
-		const char *	field
-	CODE:
-#ifdef GMIME24
-		RETVAL = g_mime_object_get_header (GMIME_OBJECT (message), field);
-#else
-		RETVAL = g_mime_message_get_header (message, field);
-#endif
-	OUTPUT:
-		RETVAL
-
-void
-rspamd_message_set_mime_part (message, mime_part)
-		Mail::Rspamd::Message	message
-		Mail::Rspamd::Object	mime_part
-	CODE:
-		g_mime_message_set_mime_part (message, GMIME_OBJECT (mime_part));
-		plist = g_list_remove (plist, mime_part);
-
-#if !defined(GMIME24)
-SV *
-rspamd_message_get_body (message, want_plain = 1, is_html = 0)
-	CASE: items == 1
-		Mail::Rspamd::Message	message
-	PREINIT:
-		gboolean	want_plain = 1;
-		gboolean	is_html;
-	char *		textdata;
-	CODE:
-		textdata = g_mime_message_get_body (message, want_plain, &is_html);
-	if (textdata == NULL)
-	  XSRETURN_UNDEF;
-		RETVAL = newSVpv (textdata, 0);
-	g_free (textdata);
-	OUTPUT:
-		RETVAL
-	CASE: items == 2
-		Mail::Rspamd::Message	message
-		gboolean	want_plain
-	PREINIT:
-		gboolean	is_html;
-	char *		textdata;
-	CODE:
-		textdata = g_mime_message_get_body (message, want_plain, &is_html);
-	if (textdata == NULL)
-	  XSRETURN_UNDEF;
-		RETVAL = newSVpv (textdata, 0);
-	g_free (textdata);
-	OUTPUT:
-		RETVAL
-	CASE: items == 3
-		Mail::Rspamd::Message	message
-		gboolean	want_plain
-		gboolean	&is_html
-	PREINIT:
-	char *		textdata;
-	CODE:
-		textdata = g_mime_message_get_body (message, want_plain, &is_html);
-		if (textdata == NULL) {
-			RETVAL = &PL_sv_undef;
-		}
-		RETVAL = newSVpv (textdata, 0);
-		g_free (textdata);
-	OUTPUT:
-		is_html
-		RETVAL
-
-#endif
-		
-SV *
-rspamd_message_get_headers(message)
-		Mail::Rspamd::Message	message
-	PREINIT:
-		char *		textdata;
-	CODE:
-#ifdef GMIME24
-		textdata = g_mime_object_get_headers (GMIME_OBJECT (message));
-#else
-		textdata = g_mime_message_get_headers (message);
-#endif
-		if (textdata == NULL) {
-			RETVAL = &PL_sv_undef;
-		}
-		RETVAL = newSVpv (textdata, 0);
-		g_free (textdata);
-	OUTPUT:
-		RETVAL
-
-void
-rspamd_message_foreach_part (message, callback, svdata)
-		Mail::Rspamd::Message	message
-		SV *			callback
-		SV *			svdata
-	PREINIT:
-		struct _user_data_sv	*data;
-
-	CODE:
-		data = g_new0 (struct _user_data_sv, 1);
-		data->svuser_data = newSVsv (svdata);
-		data->svfunc = newSVsv (callback);
-		g_mime_message_foreach_part (message, call_sub_foreach, data);
-		g_free (data);
-
-SV *
-get_mime_part(message)
-		Mail::Rspamd::Message	message
-	PREINIT:
-		GMimeObject *	mime_object;
-	CODE:
-		if (message->mime_part != NULL) {
-			RETVAL = newSViv(4);
-			mime_object = GMIME_OBJECT (message->mime_part);
-			if (GMIME_IS_PART(mime_object)) {
-				sv_setref_pv(RETVAL, "Mail::Rspamd::Part", (Mail__Rspamd__Part)mime_object);
-			} else {
-				plist = g_list_prepend(plist, RETVAL);
-			}
-			g_mime_object_ref( mime_object );
-		} else {
-			RETVAL = &PL_sv_undef;
-		}
-	OUTPUT:
-		RETVAL
-