Perl updates

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@707 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-10-01 21:46:48 +00:00 committed by cras
commit c48a05c3e8
25 changed files with 188 additions and 737 deletions

58
src/perl/core/Masks.xs Normal file
View file

@ -0,0 +1,58 @@
MODULE = Irssi PACKAGE = Irssi
int
mask_match(mask, nick, user, host)
char *mask
char *nick
char *user
char *host
CODE:
RETVAL = mask_match(NULL, mask, nick, user, host);
OUTPUT:
RETVAL
int
mask_match_address(mask, nick, address)
char *mask
char *nick
char *address
CODE:
RETVAL = mask_match_address(NULL, mask, nick, address);
OUTPUT:
RETVAL
int
masks_match(masks, nick, address)
char *masks
char *nick
char *address
CODE:
RETVAL = masks_match(NULL, masks, nick, address);
OUTPUT:
RETVAL
#*******************************
MODULE = Irssi PACKAGE = Irssi::Server
#*******************************
int
mask_match(server, mask, nick, user, host)
Irssi::Server server
char *mask
char *nick
char *user
char *host
int
mask_match_address(server, mask, nick, address)
Irssi::Server server
char *mask
char *nick
char *address
int
masks_match(server, masks, nick, address)
Irssi::Server server
char *masks
char *nick
char *address