diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-10-18 20:50:12 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-10-18 20:50:12 +0000 |
| commit | fcb1374e40ebd2b58c1ebf957a76fa5416034431 (patch) | |
| tree | 74be402eb1eeb1c4742e9c5955c8d8c4e7ed8d31 /src/perl | |
| parent | ac6bfeba1f83a205e1516eb6166ed2d79c9b6a54 (diff) | |
| download | irssi-fcb1374e40ebd2b58c1ebf957a76fa5416034431.zip | |
fixes
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@768 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/common/Server.xs | 42 | ||||
| -rw-r--r-- | src/perl/common/Window.xs | 14 | ||||
| -rw-r--r-- | src/perl/irc/IrcServer.xs | 23 |
3 files changed, 78 insertions, 1 deletions
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs index c3078485..d7b49eee 100644 --- a/src/perl/common/Server.xs +++ b/src/perl/common/Server.xs @@ -101,6 +101,48 @@ CODE: (char *) SvPV(ST(n), n_a), (char *) SvPV(ST(n+1), n_a), (int) SvIV(ST(n+2))); } +void +channels_join(server, data, automatic) + Irssi::Server server + char *data + int automatic +CODE: + server->channels_join(server, data, automatic); + +int +isnickflag(server, flag) + Irssi::Server server + char flag +CODE: + RETVAL = server->isnickflag(flag); +OUTPUT: + RETVAL + +int +ischannel(server, flag) + Irssi::Server server + char flag +CODE: + RETVAL = server->ischannel(flag); +OUTPUT: + RETVAL + +char * +get_nick_flags(server) + Irssi::Server server +CODE: + RETVAL = (char *) server->get_nick_flags(); +OUTPUT: + RETVAL + +void +send_message(server, target, msg) + Irssi::Server server + char *target + char *msg +CODE: + server->send_message(server, target, msg); + #******************************* MODULE = Irssi PACKAGE = Irssi::Connect PREFIX = server_ #******************************* diff --git a/src/perl/common/Window.xs b/src/perl/common/Window.xs index 7a516020..579fef71 100644 --- a/src/perl/common/Window.xs +++ b/src/perl/common/Window.xs @@ -52,7 +52,7 @@ CODE: signal_emit("send command", 3, cmd, server, item); void -printtext(server, channel, level, str) +printtext(server, channel, str, level) Irssi::Server server char *channel int level @@ -141,3 +141,15 @@ command(item, cmd) char *cmd CODE: signal_emit("send command", 3, cmd, item->server, item); + +#******************************* +MODULE = Irssi PACKAGE = Irssi::Channel +#******************************* + +void +print(channel, str, level=MSGLEVEL_CLIENTNOTICE) + Irssi::Channel channel + int level + char *str +CODE: + printtext(channel->server, channel->name, level, str); diff --git a/src/perl/irc/IrcServer.xs b/src/perl/irc/IrcServer.xs index 5f609605..2d4108e9 100644 --- a/src/perl/irc/IrcServer.xs +++ b/src/perl/irc/IrcServer.xs @@ -18,6 +18,29 @@ char * irc_server_get_channels(server) Irssi::Irc::Server server +void +send_raw(server, cmd) + Irssi::Irc::Server server + char *cmd +CODE: + irc_send_cmd(server, cmd); + +void +send_raw_now(server, cmd) + Irssi::Irc::Server server + char *cmd +CODE: + irc_send_cmd_now(server, cmd); + +void +send_raw_split(server, cmd, nickarg, max_nicks) + Irssi::Irc::Server server + char *cmd + int nickarg + int max_nicks +CODE: + irc_send_cmd_split(server, cmd, nickarg, max_nicks); + MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Connect PREFIX = irc_server_ void |