pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-04 00:33:13 +02:00
Code Activity

Added "Perl scripts unloaded" message when unloading all Perl scripts

Browse Source
This commit is contained in:
Sebastien Helleu
2003-11-30 15:09:04 +00:00
parent e2e384df49
commit c8c5ff3d68
8 changed files with 302 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/common/command.c
+4 -2
View File
@@ -1031,7 +1031,7 @@ weechat_cmd_perl (int argc, char **argv)
{
handler_found = 1;
irc_display_prefix (NULL, PREFIX_PLUGIN);
gui_printf (NULL, " IRC(%s) => Perl(%s)\n",
gui_printf (NULL, _(" IRC(%s) => Perl(%s)\n"),
ptr_plugin_handler->name,
ptr_plugin_handler->function_name);
}
@@ -1053,7 +1053,7 @@ weechat_cmd_perl (int argc, char **argv)
{
handler_found = 1;
irc_display_prefix (NULL, PREFIX_PLUGIN);
gui_printf (NULL, " Command /%s => Perl(%s)\n",
gui_printf (NULL, _(" Command /%s => Perl(%s)\n"),
ptr_plugin_handler->name,
ptr_plugin_handler->function_name);
}
@@ -1070,6 +1070,8 @@ weechat_cmd_perl (int argc, char **argv)
{
/* unload all Perl scripts */
plugin_unload (PLUGIN_TYPE_PERL, NULL);
irc_display_prefix (NULL, PREFIX_PLUGIN);
gui_printf (NULL, _("Perl scripts unloaded\n"));
}
break;
case 2: