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

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

2 files changed, 14 insertions, 0 deletions

diff --git a/src/irc/core/irc.c b/src/irc/core/irc.c
index e91fc738..528e541f 100644
--- a/src/irc/core/irc.c
+++ b/src/irc/core/irc.c
@@ -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);
 }
 
+/* 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)
 {
 	char *p;
diff --git a/src/irc/core/irc.h b/src/irc/core/irc.h
index 5197f42d..de19e084 100644
--- a/src/irc/core/irc.h
+++ b/src/irc/core/irc.h
@@ -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
    and queues. */
 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'
    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! */