irssi/src/perl/irc/Flood.xs
2000-10-01 20:48:48 +00:00

29 lines
636 B
Text

MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Server
void
autoignore_add(server, nick, level)
Irssi::Irc::Server server
char *nick
int level
int
autoignore_remove(server, mask, level)
Irssi::Irc::Server server
char *mask
int level
#*******************************
MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Autoignore
#*******************************
void
values(ai)
Irssi::Irc::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)));