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

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;

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! */

src/perl/irc/Server.xs

@@ -69,6 +69,13 @@ send_raw_now(server, cmd)
 CODE:
 	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
 send_raw_split(server, cmd, nickarg, max_nicks)
 	Irssi::Irc::Server server