From a5a66264de2f56c5b1ba00e0228eae61f70d5689 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Fri, 28 Apr 2000 08:07:42 +0000 Subject: Perl working again, better than ever (unless there's bugs :) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@191 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/xs/Irssi-flood.xs | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 src/perl/xs/Irssi-flood.xs (limited to 'src/perl/xs/Irssi-flood.xs') diff --git a/src/perl/xs/Irssi-flood.xs b/src/perl/xs/Irssi-flood.xs new file mode 100644 index 00000000..3cb04226 --- /dev/null +++ b/src/perl/xs/Irssi-flood.xs @@ -0,0 +1,29 @@ +MODULE = Irssi PACKAGE = Irssi::Server + +void +autoignore_add(server, nick, level) + Irssi::Server server + char *nick + int level + +int +autoignore_remove(server, mask, level) + Irssi::Server server + char *mask + int level + +#******************************* +MODULE = Irssi PACKAGE = Irssi::Autoignore +#******************************* + +void +values(ai) + Irssi::Autoignore ai +PREINIT: + HV *hv; +PPCODE: + hv = newHV(); + hv_store(hv, "nick", 4, new_pv(ai->nick), 0); + hv_store(hv, "timeleft", 8, newSViv(ai->timeleft), 0); + hv_store(hv, "level", 5, newSViv(ai->level), 0); + XPUSHs(sv_2mortal(newRV_noinc((SV*)hv))); -- cgit v1.2.3