summaryrefslogtreecommitdiff
path: root/src/perl/perl-fe.c
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-07-29 13:13:16 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-07-29 13:13:16 +0000
commit7c358c184405e1b6f654a202dc2dba8cdf4c5ff5 (patch)
treec11f11df1e187012e31233be78c60e12146256d3 /src/perl/perl-fe.c
parent0163f2771f0ef66575655e7925e59892fdb0d586 (diff)
downloadirssi-7c358c184405e1b6f654a202dc2dba8cdf4c5ff5.zip
/SCRIPT EXEC took only one argument. /SCRIPT LIST is now printed with
CLIENTCRAP level. maybe local($/) = '\n' in irssi-core.pl now resets it correctly? .. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1684 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-fe.c')
-rw-r--r--src/perl/perl-fe.c11
1 files changed, 6 insertions, 5 deletions
diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c
index 7e00584c..8201b178 100644
--- a/src/perl/perl-fe.c
+++ b/src/perl/perl-fe.c
@@ -41,7 +41,8 @@ static void cmd_script_exec(const char *data)
char *code;
void *free_arg;
- if (!cmd_get_params(data, &free_arg, 1 | PARAM_FLAG_OPTIONS,
+ if (!cmd_get_params(data, &free_arg, 1 | PARAM_FLAG_OPTIONS |
+ PARAM_FLAG_GETREST,
"script exec", &optlist, &code))
return;
@@ -112,7 +113,7 @@ static void cmd_script_list(void)
return;
}
- printformat(NULL, NULL, MSGLEVEL_CLIENTNOTICE,
+ printformat(NULL, NULL, MSGLEVEL_CLIENTCRAP,
TXT_SCRIPT_LIST_HEADER);
data = g_string_new(NULL);
@@ -129,19 +130,19 @@ static void cmd_script_list(void)
}
}
- printformat(NULL, NULL, MSGLEVEL_CLIENTNOTICE,
+ printformat(NULL, NULL, MSGLEVEL_CLIENTCRAP,
TXT_SCRIPT_LIST_LINE, rec->name, data->str);
}
g_string_free(data, TRUE);
- printformat(NULL, NULL, MSGLEVEL_CLIENTNOTICE,
+ printformat(NULL, NULL, MSGLEVEL_CLIENTCRAP,
TXT_SCRIPT_LIST_FOOTER);
}
static void sig_script_error(PERL_SCRIPT_REC *script, const char *error)
{
printformat(NULL, NULL, MSGLEVEL_CLIENTERROR,
- TXT_SCRIPT_ERROR, script->name);
+ TXT_SCRIPT_ERROR, script == NULL ? "??" : script->name);
printtext(NULL, NULL, MSGLEVEL_CLIENTERROR, "%[-s]%s", error);
}