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; |
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; |
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) |
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); |
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; |
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; |