Added IRC::command function for Perl scripts

src/irc/irc-channel.c

@@ -31,7 +31,6 @@
 #include "irc.h"
 
 
-t_irc_channel *current_channel = NULL;
 char *channel_modes = "iklmnst";
 
 

src/irc/irc-recv.c

@@ -76,7 +76,7 @@ irc_recv_command (t_irc_server *server, char *entire_line,
     if (irc_commands[i].recv_function != NULL)
     {
         return_code = (int) (irc_commands[i].recv_function) (server, host, arguments);
-        plugin_event_msg (irc_commands[i].command_name, entire_line);
+        plugin_event_msg (irc_commands[i].command_name, server->name, entire_line);
         return return_code;
     }
     

src/irc/irc-server.c

@@ -44,7 +44,6 @@
 
 t_irc_server *irc_servers = NULL;
 t_irc_server *last_irc_server = NULL;
-t_irc_server *current_irc_server = NULL;
 
 t_irc_message *recv_msgq, *msgq_last_msg;
 
@@ -686,8 +685,7 @@ server_connect (t_irc_server *server)
         server->sock4 = -1;
         return 0;
     }
-
-    current_irc_server = server;
+    
     return 1;
 }
 

src/irc/irc.h

@@ -198,9 +198,8 @@ struct t_dcc
 };
 
 extern t_irc_command irc_commands[];
-extern t_irc_server *irc_servers, *current_irc_server;
+extern t_irc_server *irc_servers;
 extern t_irc_message *recv_msgq, *msgq_last_msg;
-extern t_irc_channel *current_channel;
 extern t_dcc *dcc_list;
 extern char *dcc_status_string[6];
 extern char *channel_modes;