/[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.24 by flashcode, Tue Jul 12 17:05:01 2005 UTC revision 1.25 by flashcode, Sat Sep 3 12:37:20 2005 UTC
# Line 73  static XS (XS_IRC_register) Line 73  static XS (XS_IRC_register)
73      for (ptr_perl_script = perl_scripts; ptr_perl_script;      for (ptr_perl_script = perl_scripts; ptr_perl_script;
74           ptr_perl_script = ptr_perl_script->next_script)           ptr_perl_script = ptr_perl_script->next_script)
75      {      {
76          if (strcasecmp (ptr_perl_script->name, name) == 0)          if (ascii_strcasecmp (ptr_perl_script->name, name) == 0)
77          {          {
78              perl_script_found = ptr_perl_script;              perl_script_found = ptr_perl_script;
79              break;              break;
# Line 182  static XS (XS_IRC_print_with_channel) Line 182  static XS (XS_IRC_print_with_channel)
182      for (ptr_server = irc_servers; ptr_server;      for (ptr_server = irc_servers; ptr_server;
183           ptr_server = ptr_server->next_server)           ptr_server = ptr_server->next_server)
184      {      {
185          if (!server || (strcasecmp (ptr_server->name, server)) == 0)          if (!server || (ascii_strcasecmp (ptr_server->name, server)) == 0)
186          {          {
187              for (ptr_channel = ptr_server->channels; ptr_channel;              for (ptr_channel = ptr_server->channels; ptr_channel;
188                   ptr_channel = ptr_channel->next_channel)                   ptr_channel = ptr_channel->next_channel)
189              {              {
190                  if (strcasecmp (ptr_channel->name, channel) == 0)                  if (ascii_strcasecmp (ptr_channel->name, channel) == 0)
191                  {                  {
192                      ptr_buffer = ptr_channel->buffer;                      ptr_buffer = ptr_channel->buffer;
193                      break;                      break;
# Line 260  static XS (XS_IRC_command) Line 260  static XS (XS_IRC_command)
260          command = SvPV (ST (1), integer);          command = SvPV (ST (1), integer);
261          for (ptr_server = irc_servers; ptr_server; ptr_server = ptr_server->next_server)          for (ptr_server = irc_servers; ptr_server; ptr_server = ptr_server->next_server)
262          {          {
263              if (strcasecmp (ptr_server->name, server) == 0)              if (ascii_strcasecmp (ptr_server->name, server) == 0)
264                  break;                  break;
265          }          }
266          if (!ptr_server)          if (!ptr_server)
# Line 383  static XS (XS_IRC_get_info) Line 383  static XS (XS_IRC_get_info)
383            
384      if (arg)      if (arg)
385      {      {
386          if ( (strcasecmp (arg, "0") == 0) || (strcasecmp (arg, "version") == 0) )          if ( (ascii_strcasecmp (arg, "0") == 0) || (ascii_strcasecmp (arg, "version") == 0) )
387          {          {
388              info = PACKAGE_STRING;              info = PACKAGE_STRING;
389          }          }
390          else if ( ptr_server && ( (strcasecmp (arg, "1") == 0) || (strcasecmp (arg, "nick") == 0) ) )          else if ( ptr_server && ( (ascii_strcasecmp (arg, "1") == 0) || (ascii_strcasecmp (arg, "nick") == 0) ) )
391          {          {
392              if (ptr_server->nick)              if (ptr_server->nick)
393                  info = ptr_server->nick;                  info = ptr_server->nick;
394          }          }
395          else if ( (strcasecmp (arg, "2") == 0) || (strcasecmp (arg, "channel") == 0) )          else if ( (ascii_strcasecmp (arg, "2") == 0) || (ascii_strcasecmp (arg, "channel") == 0) )
396          {          {
397              if (BUFFER_IS_CHANNEL (gui_current_window->buffer))              if (BUFFER_IS_CHANNEL (gui_current_window->buffer))
398                  info = CHANNEL (gui_current_window->buffer)->name;                  info = CHANNEL (gui_current_window->buffer)->name;
399          }          }
400          else if ( ptr_server && ( (strcasecmp (arg, "3") == 0) || (strcasecmp (arg, "server") == 0) ) )          else if ( ptr_server && ( (ascii_strcasecmp (arg, "3") == 0) || (ascii_strcasecmp (arg, "server") == 0) ) )
401          {          {
402              if (ptr_server->name)              if (ptr_server->name)
403                  info = ptr_server->name;                  info = ptr_server->name;
404          }          }
405          else if ( (strcasecmp (arg, "4") == 0) || (strcasecmp (arg, "weechatdir") == 0) )          else if ( (ascii_strcasecmp (arg, "4") == 0) || (ascii_strcasecmp (arg, "weechatdir") == 0) )
406          {          {
407              info = weechat_home;              info = weechat_home;
408          }          }
409          else if ( ptr_server && ( (strcasecmp (arg, "5") == 0) || (strcasecmp (arg, "away") == 0) ) )          else if ( ptr_server && ( (ascii_strcasecmp (arg, "5") == 0) || (ascii_strcasecmp (arg, "away") == 0) ) )
410          {          {
411              XST_mIV (0, SERVER(gui_current_window->buffer)->is_away);              XST_mIV (0, SERVER(gui_current_window->buffer)->is_away);
412              XSRETURN (1);              XSRETURN (1);
# Line 448  static XS (XS_weechat_register) Line 448  static XS (XS_weechat_register)
448      for (ptr_perl_script = perl_scripts; ptr_perl_script;      for (ptr_perl_script = perl_scripts; ptr_perl_script;
449           ptr_perl_script = ptr_perl_script->next_script)           ptr_perl_script = ptr_perl_script->next_script)
450      {      {
451          if (strcasecmp (ptr_perl_script->name, name) == 0)          if (ascii_strcasecmp (ptr_perl_script->name, name) == 0)
452          {          {
453              perl_script_found = ptr_perl_script;              perl_script_found = ptr_perl_script;
454              break;              break;
# Line 731  static XS (XS_weechat_get_info) Line 731  static XS (XS_weechat_get_info)
731      arg = SvPV (ST (0), integer);      arg = SvPV (ST (0), integer);
732      if (arg)      if (arg)
733      {      {
734          if ( (strcasecmp (arg, "0") == 0) || (strcasecmp (arg, "version") == 0) )          if ( (ascii_strcasecmp (arg, "0") == 0) || (ascii_strcasecmp (arg, "version") == 0) )
735          {          {
736              info = PACKAGE_STRING;              info = PACKAGE_STRING;
737          }          }
738          else if ( ptr_server && ( (strcasecmp (arg, "1") == 0) || (strcasecmp (arg, "nick") == 0) ) )          else if ( ptr_server && ( (ascii_strcasecmp (arg, "1") == 0) || (ascii_strcasecmp (arg, "nick") == 0) ) )
739          {          {
740              if (ptr_server->nick)              if (ptr_server->nick)
741                  info = ptr_server->nick;                  info = ptr_server->nick;
742          }          }
743          else if ( (strcasecmp (arg, "2") == 0) || (strcasecmp (arg, "channel") == 0) )          else if ( (ascii_strcasecmp (arg, "2") == 0) || (ascii_strcasecmp (arg, "channel") == 0) )
744          {          {
745              if (BUFFER_IS_CHANNEL (gui_current_window->buffer))              if (BUFFER_IS_CHANNEL (gui_current_window->buffer))
746                  info = CHANNEL (gui_current_window->buffer)->name;                  info = CHANNEL (gui_current_window->buffer)->name;
747          }          }
748          else if ( ptr_server && ( (strcasecmp (arg, "3") == 0) || (strcasecmp (arg, "server") == 0) ) )          else if ( ptr_server && ( (ascii_strcasecmp (arg, "3") == 0) || (ascii_strcasecmp (arg, "server") == 0) ) )
749          {          {
750              if (ptr_server->name)              if (ptr_server->name)
751                  info = ptr_server->name;                  info = ptr_server->name;
752          }          }
753          else if ( (strcasecmp (arg, "4") == 0) || (strcasecmp (arg, "weechatdir") == 0) )          else if ( (ascii_strcasecmp (arg, "4") == 0) || (ascii_strcasecmp (arg, "weechatdir") == 0) )
754          {          {
755              info = weechat_home;              info = weechat_home;
756          }          }
757          else if ( ptr_server && ( (strcasecmp (arg, "5") == 0) || (strcasecmp (arg, "away") == 0) ) )          else if ( ptr_server && ( (ascii_strcasecmp (arg, "5") == 0) || (ascii_strcasecmp (arg, "away") == 0) ) )
758          {          {
759              XST_mIV (0, SERVER(gui_current_window->buffer)->is_away);              XST_mIV (0, SERVER(gui_current_window->buffer)->is_away);
760              XSRETURN (1);              XSRETURN (1);
761              return;              return;
762          }          }
763          else if ( (strcasecmp (arg, "100") == 0) || (strcasecmp (arg, "dccs") == 0) )          else if ( (ascii_strcasecmp (arg, "100") == 0) || (ascii_strcasecmp (arg, "dccs") == 0) )
764          {          {
765              int nItems = 0;              int nItems = 0;
766              t_irc_dcc *p = dcc_list;              t_irc_dcc *p = dcc_list;

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

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