pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-29 14:26:39 +02:00
Code Activity

Perl scripts auto-load, if no path given, look in ~/.weechat/perl when loading Perl script, auto create plugin directories at startup (~/.weechat/perl, /perl/autoload, /python, /python/autoload, /ruby, /ruby/autoload)

Browse Source
This commit is contained in:
uid67137
2003-12-26 12:59:31 +00:00
parent 57e00428ca
commit 3ea696bbc0
18 changed files with 750 additions and 472 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/common/command.c
+14 -1
View File
@@ -993,6 +993,7 @@ weechat_cmd_perl (int argc, char **argv)
t_plugin_script *ptr_plugin_script;
t_plugin_handler *ptr_plugin_handler;
int handler_found;
char *path_script;
#ifdef PLUGIN_PERL
switch (argc)
@@ -1078,7 +1079,19 @@ weechat_cmd_perl (int argc, char **argv)
if (strcmp (argv[0], "load") == 0)
{
/* load Perl script */
plugin_load (PLUGIN_TYPE_PERL, argv[1]);
if (strstr(argv[1], DIR_SEPARATOR))
path_script = NULL;
else
{
path_script = (char *) malloc ((strlen (weechat_home) +
strlen (argv[1]) + 7) * sizeof (char));
sprintf (path_script, "%s%s%s%s%s", weechat_home,
DIR_SEPARATOR, "perl", DIR_SEPARATOR, argv[1]);
}
plugin_load (PLUGIN_TYPE_PERL,
(path_script) ? path_script : argv[1]);
if (path_script)
free (path_script);
}
else
{