aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

New perl command send_raw_first, patch by ComradeP (Bug 413)

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4265 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Wouter Coekaerts 2006-05-04 10:07:23 +00:00 committed by coekie
parent 4de9baf8f1
commit 740987a39b
3 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/irc/core/irc.c
View File

@ -139,6 +139,16 @@ void irc_send_cmd_now(IRC_SERVER_REC *server, const char *cmd)
irc_send_cmd_full(server, cmd, TRUE, TRUE, FALSE); irc_send_cmd_full(server, cmd, TRUE, TRUE, FALSE);
} }
/* Send command to server putting it at the beginning of the queue of
commands to send -- it will go out as soon as possible in accordance
to the flood protection settings. */
void irc_send_cmd_first(IRC_SERVER_REC *server, const char *cmd)
{
g_return_if_fail(cmd != NULL);
irc_send_cmd_full(server, cmd, FALSE, TRUE, FALSE);
}
static char *split_nicks(const char *cmd, char **pre, char **nicks, char **post, int arg) static char *split_nicks(const char *cmd, char **pre, char **nicks, char **post, int arg)
{ {
char *p; char *p;

4
src/irc/core/irc.h
View File

@ -44,6 +44,10 @@ void irc_send_cmd_split(IRC_SERVER_REC *server, const char *cmd,
/* Send command to server immediately bypassing all flood protections /* Send command to server immediately bypassing all flood protections
and queues. */ and queues. */
void irc_send_cmd_now(IRC_SERVER_REC *server, const char *cmd); void irc_send_cmd_now(IRC_SERVER_REC *server, const char *cmd);
/* Send command to server putting it at the beginning of the queue of
commands to send -- it will go out as soon as possible in accordance
to the flood protection settings. */
void irc_send_cmd_first(IRC_SERVER_REC *server, const char *cmd);
/* The core of the irc_send_cmd* functions. If `raw' is TRUE, the `cmd' /* The core of the irc_send_cmd* functions. If `raw' is TRUE, the `cmd'
won't be checked at all if it's 512 bytes or not, or if it contains won't be checked at all if it's 512 bytes or not, or if it contains
line feeds or not. Use with extreme caution! */ line feeds or not. Use with extreme caution! */

7
src/perl/irc/Server.xs
View File

@ -69,6 +69,13 @@ send_raw_now(server, cmd)
CODE: CODE:
irc_send_cmd_now(server, cmd); irc_send_cmd_now(server, cmd);
void
send_raw_first(server, cmd)
Irssi::Irc::Server server
char *cmd
CODE:
irc_send_cmd_first(server, cmd);
void void
send_raw_split(server, cmd, nickarg, max_nicks) send_raw_split(server, cmd, nickarg, max_nicks)
Irssi::Irc::Server server Irssi::Irc::Server server