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