77 |
SPAGAIN; |
SPAGAIN; |
78 |
|
|
79 |
sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV)); |
sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV)); |
80 |
return_code = 1; |
return_code = PLUGIN_RC_KO; |
81 |
if (SvTRUE (sv)) |
if (SvTRUE (sv)) |
82 |
{ |
{ |
83 |
plugin->printf_server (plugin, "Perl error: %s", SvPV (sv, count)); |
plugin->printf_server (plugin, "Perl error: %s", SvPV (sv, count)); |
114 |
/* make gcc happy */ |
/* make gcc happy */ |
115 |
(void) command; |
(void) command; |
116 |
|
|
117 |
weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer, |
return weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer, |
118 |
handler_args, server, arguments); |
handler_args, server, arguments); |
|
return 1; |
|
119 |
} |
} |
120 |
|
|
121 |
/* |
/* |
210 |
XSRETURN_NO; |
XSRETURN_NO; |
211 |
} |
} |
212 |
|
|
213 |
|
message = SvPV (ST (0), integer); |
214 |
|
|
215 |
channel_name = NULL; |
channel_name = NULL; |
216 |
server_name = NULL; |
server_name = NULL; |
217 |
|
|
222 |
server_name = SvPV (ST (2), integer); |
server_name = SvPV (ST (2), integer); |
223 |
} |
} |
224 |
|
|
|
message = SvPV (ST (0), integer); |
|
225 |
perl_plugin->printf (perl_plugin, |
perl_plugin->printf (perl_plugin, |
226 |
server_name, channel_name, |
server_name, channel_name, |
227 |
"%s", message); |
"%s", message); |
1072 |
weechat_script_auto_load (plugin, "perl", weechat_perl_load); |
weechat_script_auto_load (plugin, "perl", weechat_perl_load); |
1073 |
|
|
1074 |
/* init ok */ |
/* init ok */ |
1075 |
return 1; |
return PLUGIN_RC_OK; |
1076 |
} |
} |
1077 |
|
|
1078 |
/* |
/* |