/[weechat]/weechat/src/plugins/perl/wee-perl.c
ViewVC logotype

Diff of /weechat/src/plugins/perl/wee-perl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by flashcode, Tue Jul 12 08:35:58 2005 UTC revision 1.24 by flashcode, Tue Jul 12 17:05:01 2005 UTC
# Line 354  static XS (XS_IRC_add_command_handler) Line 354  static XS (XS_IRC_add_command_handler)
354    
355  static XS (XS_IRC_get_info)  static XS (XS_IRC_get_info)
356  {  {
357      char *arg, *info = NULL, *server;      char *arg, *info = NULL, *server_name;
358      t_irc_server *ptr_server;      t_irc_server *ptr_server;
359      int integer;      int integer;
360      dXSARGS;      dXSARGS;
# Line 364  static XS (XS_IRC_get_info) Line 364  static XS (XS_IRC_get_info)
364            
365      if (items == 2)      if (items == 2)
366      {      {
367          server = SvPV (ST (0), integer);          server_name = SvPV (ST (0), integer);
368          arg = SvPV (ST (1), integer);          arg = SvPV (ST (1), integer);
369          for (ptr_server = irc_servers; ptr_server; ptr_server = ptr_server->next_server)          ptr_server = server_search (server_name);
         {  
             if (strcasecmp (ptr_server->name, server) == 0)  
                 break;  
         }  
370          if (!ptr_server)          if (!ptr_server)
371          {          {
372              irc_display_prefix (NULL, PREFIX_ERROR);              irc_display_prefix (NULL, PREFIX_ERROR);
# Line 720  static XS (XS_weechat_get_info) Line 716  static XS (XS_weechat_get_info)
716      {      {
717          server_name = SvPV (ST (1), integer);          server_name = SvPV (ST (1), integer);
718          ptr_server = server_search (server_name);          ptr_server = server_search (server_name);
719            if (!ptr_server)
720            {
721                irc_display_prefix (NULL, PREFIX_ERROR);
722                gui_printf (NULL,
723                            _("%s error: server not found for \"%s\" function\n"),
724                            "Perl", "get_info");
725                XSRETURN_NO;
726            }
727      }      }
728      else      else
729          ptr_server = SERVER(gui_current_window->buffer);          ptr_server = SERVER(gui_current_window->buffer);
730            
     if (!ptr_server)  
     {  
         irc_display_prefix (NULL, PREFIX_ERROR);  
         gui_printf (NULL,  
                     _("%s error: server not found for \"%s\" function\n"),  
                     "Perl", "get_info");  
         XSRETURN_NO;  
     }  
       
731      arg = SvPV (ST (0), integer);      arg = SvPV (ST (0), integer);
732      if (arg)      if (arg)
733      {      {

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26