Added Irssi::Irc::get_mask() and Irssi::Irc::MASK_*

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2163 dbcabf3a-b0e7-0310-adc4-f8d773084564

src/perl/irc/Channel.xs

@@ -1,8 +1,44 @@
 #include "module.h"
 
-MODULE = Irssi::Irc::Channel	PACKAGE = Irssi::Irc::Channel  PREFIX = irc_
+MODULE = Irssi::Irc::Channel	PACKAGE = Irssi::Irc  PREFIX = irc_
 PROTOTYPES: ENABLE
 
+char *
+irc_get_mask(nick, address, flags)
+	char *nick
+	char *address
+	int flags
+
+int
+MASK_NICK()
+CODE:
+	RETVAL = IRC_MASK_NICK;
+OUTPUT:
+	RETVAL
+
+int
+MASK_USER()
+CODE:
+	RETVAL = IRC_MASK_USER;
+OUTPUT:
+	RETVAL
+
+int
+MASK_HOST()
+CODE:
+	RETVAL = IRC_MASK_HOST;
+OUTPUT:
+	RETVAL
+
+int
+MASK_DOMAIN()
+CODE:
+	RETVAL = IRC_MASK_DOMAIN;
+OUTPUT:
+	RETVAL
+
+MODULE = Irssi::Irc::Channel	PACKAGE = Irssi::Irc::Channel  PREFIX = irc_
+
 void
 bans(channel)
 	Irssi::Irc::Channel channel

src/perl/irc/module.h

@@ -5,6 +5,7 @@
 #include "irc-channels.h"
 #include "irc-queries.h"
 #include "irc-nicklist.h"
+#include "irc-masks.h"
 
 #include "bans.h"
 #include "modes.h"