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

Allow script commands to reload only one script

Browse Source
This commit is contained in:
Sebastien Helleu
2010-02-23 10:51:59 +01:00
parent 27bf347e1c
commit 3d3dc1593d
31 changed files with 257 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/scripts/perl/weechat-perl.c
+37
View File
@@ -506,6 +506,38 @@ weechat_perl_unload_all ()
}
}
/*
* weechat_perl_reload_name: reload a Perl script by name
*/
void
weechat_perl_reload_name (const char *name)
{
struct t_plugin_script *ptr_script;
char *filename;
ptr_script = script_search (weechat_perl_plugin, perl_scripts, name);
if (ptr_script)
{
filename = strdup (ptr_script->filename);
if (filename)
{
weechat_perl_unload (ptr_script);
weechat_printf (NULL,
weechat_gettext ("%s: script \"%s\" unloaded"),
PERL_PLUGIN_NAME, name);
weechat_perl_load (filename);
free (filename);
}
}
else
{
weechat_printf (NULL,
weechat_gettext ("%s%s: script \"%s\" not loaded"),
weechat_prefix ("error"), PERL_PLUGIN_NAME, name);
}
}
/*
* weechat_perl_command_cb: callback for "/perl" command
*/
@@ -572,6 +604,11 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
if (path_script)
free (path_script);
}
else if (weechat_strcasecmp (argv[1], "reload") == 0)
{
/* reload one Perl script */
weechat_perl_reload_name (argv_eol[2]);
}
else if (weechat_strcasecmp (argv[1], "unload") == 0)
{
/* unload Perl script */