From 9a7ba3e09a318d9f1ef66b41377b4f66029915db Mon Sep 17 00:00:00 2001
From: Vsevolod Stakhov <vsevolod@rambler-co.ru>
Date: Sat, 25 Oct 2008 05:06:16 +0400
Subject: * Add ability to handle multiply recipients * Reflect changes to perl
 library

---
 perl/rspamd.xs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

(limited to 'perl')

diff --git a/perl/rspamd.xs b/perl/rspamd.xs
index 60c670f6c..b22dc849f 100644
--- a/perl/rspamd.xs
+++ b/perl/rspamd.xs
@@ -101,6 +101,33 @@ get_part (r, num)
 	OUTPUT:
 	RETVAL
 
+void
+ip (r)
+	CODE:
+	dXSTARG;
+	struct worker_task *r;
+	char *ip_str;
+
+	perl_set_session (r);
+	sv_upgrade(TARG, SVt_PV);
+	ip_str = inet_ntoa (r->from_addr);
+	sv_setpv(TARG, ip_str);
+	ST(0) = TARG;
+
+void
+from (r)
+	CODE:
+	dXSTARG;
+	struct worker_task *r;
+
+	perl_set_session (r);
+	if (r->from == NULL) {
+		XSRETURN_UNDEF;
+	}
+	sv_upgrade(TARG, SVt_PV);
+	sv_setpv(TARG, r->from);
+	ST(0) = TARG;
+
 void
 save_point (r)
     CODE:
-- 
cgit v1.2.3