jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

Make /LOAD script.pl load it.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3256 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2004-06-29 10:07:03 +00:00 committed by cras
parent 7bc708b5c7
commit 482d07b7c3
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/perl/perl-fe.c
View File

@ -160,6 +160,25 @@ static void cmd_script_list(void)
TXT_SCRIPT_LIST_FOOTER); TXT_SCRIPT_LIST_FOOTER);
} }
static void cmd_load(const char *data, SERVER_REC *server, void *item)
{
char *rootmodule, *submodule;
void *free_arg;
size_t len;
if (!cmd_get_params(data, &free_arg, 2 , &rootmodule, &submodule))
return;
len = strlen(rootmodule);
if (len > 3 && strcmp(rootmodule + len - 3, ".pl") == 0) {
/* make /LOAD script.pl work as expected */
signal_stop();
cmd_script_load(data);
}
cmd_params_free(free_arg);
}
static void sig_script_error(PERL_SCRIPT_REC *script, const char *error) static void sig_script_error(PERL_SCRIPT_REC *script, const char *error)
{ {
printformat(NULL, NULL, MSGLEVEL_CLIENTERROR, printformat(NULL, NULL, MSGLEVEL_CLIENTERROR,
@ -230,6 +249,7 @@ void fe_perl_init(void)
command_bind("script unload", NULL, (SIGNAL_FUNC) cmd_script_unload); command_bind("script unload", NULL, (SIGNAL_FUNC) cmd_script_unload);
command_bind("script reset", NULL, (SIGNAL_FUNC) cmd_script_reset); command_bind("script reset", NULL, (SIGNAL_FUNC) cmd_script_reset);
command_bind("script list", NULL, (SIGNAL_FUNC) cmd_script_list); command_bind("script list", NULL, (SIGNAL_FUNC) cmd_script_list);
command_bind("load", NULL, (SIGNAL_FUNC) cmd_load);
command_set_options("script exec", "permanent"); command_set_options("script exec", "permanent");
signal_add("script error", (SIGNAL_FUNC) sig_script_error); signal_add("script error", (SIGNAL_FUNC) sig_script_error);
@ -248,6 +268,7 @@ void fe_perl_deinit(void)
command_unbind("script unload", (SIGNAL_FUNC) cmd_script_unload); command_unbind("script unload", (SIGNAL_FUNC) cmd_script_unload);
command_unbind("script reset", (SIGNAL_FUNC) cmd_script_reset); command_unbind("script reset", (SIGNAL_FUNC) cmd_script_reset);
command_unbind("script list", (SIGNAL_FUNC) cmd_script_list); command_unbind("script list", (SIGNAL_FUNC) cmd_script_list);
command_unbind("load", (SIGNAL_FUNC) cmd_load);
signal_remove("script error", (SIGNAL_FUNC) sig_script_error); signal_remove("script error", (SIGNAL_FUNC) sig_script_error);
signal_remove("complete command script load", (SIGNAL_FUNC) sig_complete_load); signal_remove("complete command script load", (SIGNAL_FUNC) sig_complete_load);