summaryrefslogtreecommitdiff
path: root/src/plugins/scripts/perl/weechat-perl.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/plugins/scripts/perl/weechat-perl.c')
-rw-r--r--src/plugins/scripts/perl/weechat-perl.c62
1 files changed, 31 insertions, 31 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index f52137d75..97d9870db 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -149,7 +149,7 @@ weechat_perl_exec (struct t_plugin_script *script,
{
weechat_printf (NULL,
weechat_gettext ("%s%s: error: %s"),
- weechat_prefix ("error"), "perl", SvPV_nolen (ERRSV));
+ weechat_prefix ("error"), "Perl", SvPV_nolen (ERRSV));
(void) POPs; /* poping the 'undef' */
mem_err = 0;
}
@@ -160,7 +160,7 @@ weechat_perl_exec (struct t_plugin_script *script,
weechat_printf (NULL,
weechat_gettext ("%s%s: function \"%s\" must "
"return one valid value (%d)"),
- weechat_prefix ("error"), "perl", function, count);
+ weechat_prefix ("error"), "Perl", function, count);
mem_err = 0;
}
else
@@ -183,7 +183,7 @@ weechat_perl_exec (struct t_plugin_script *script,
weechat_printf (NULL,
weechat_gettext ("%s%s: function \"%s\" is "
"internally misused"),
- weechat_prefix ("error"), "perl", function);
+ weechat_prefix ("error"), "Perl", function);
mem_err = 0;
}
}
@@ -202,7 +202,7 @@ weechat_perl_exec (struct t_plugin_script *script,
weechat_printf (NULL,
weechat_gettext ("%s%s: not enough memory in function "
"\"%s\""),
- weechat_prefix ("error"), "perl", function);
+ weechat_prefix ("error"), "Perl", function);
return NULL;
}
@@ -231,13 +231,13 @@ weechat_perl_load (char *filename)
weechat_printf (NULL,
weechat_gettext ("%s%s: loading Perl script \"%s\""),
- weechat_prefix ("info"), "perl", filename);
+ weechat_prefix ("info"), "Perl", filename);
if (stat (filename, &buf) != 0)
{
weechat_printf (NULL,
weechat_gettext ("%s%s: script \"%s\" not found"),
- weechat_prefix ("error"), "perl", filename);
+ weechat_prefix ("error"), "Perl", filename);
return 0;
}
@@ -261,7 +261,7 @@ weechat_perl_load (char *filename)
weechat_printf (NULL,
weechat_gettext ("%s%s: unable to create new "
"sub-interpreter"),
- weechat_prefix ("error"), "perl");
+ weechat_prefix ("error"), "Perl");
return 0;
}
@@ -286,7 +286,7 @@ weechat_perl_load (char *filename)
weechat_printf (NULL,
weechat_gettext ("%s%s: not enough memory to parse "
"file \"%s\""),
- weechat_prefix ("error"), "perl", filename);
+ weechat_prefix ("error"), "Perl", filename);
return 0;
}
@@ -297,10 +297,10 @@ weechat_perl_load (char *filename)
weechat_printf (NULL,
weechat_gettext ("%s%s: unable to parse file "
"\"%s\""),
- weechat_prefix ("error"), "perl", filename);
+ weechat_prefix ("error"), "Perl", filename);
weechat_printf (NULL,
weechat_gettext ("%s%s: error: %s"),
- weechat_prefix ("error"), "perl",
+ weechat_prefix ("error"), "Perl",
#ifndef MULTIPLICITY
SvPV(perl_get_sv("WeechatPerlScriptLoader::"
"weechat_perl_load_eval_file_error",
@@ -315,22 +315,24 @@ weechat_perl_load (char *filename)
{
weechat_printf (NULL,
weechat_gettext ("%s%s: unable to run file \"%s\""),
- weechat_prefix ("error"), "perl", filename);
+ weechat_prefix ("error"), "Perl", filename);
}
else
{
weechat_printf (NULL,
weechat_gettext ("%s%s: unknown error while "
"loading file \"%s\""),
- weechat_prefix ("error"), "perl", filename);
+ weechat_prefix ("error"), "Perl", filename);
}
#ifdef MULTIPLICITY
perl_destruct (perl_current_interpreter);
perl_free (perl_current_interpreter);
#endif
if (perl_current_script && (perl_current_script != &tempscript))
- weechat_script_remove (weechat_perl_plugin,
- &perl_scripts, perl_current_script);
+ {
+ script_remove (weechat_perl_plugin,
+ &perl_scripts, perl_current_script);
+ }
free (eval);
return 0;
@@ -343,7 +345,7 @@ weechat_perl_load (char *filename)
weechat_printf (NULL,
weechat_gettext ("%s%s: function \"register\" not "
"found (or failed) in file \"%s\""),
- weechat_prefix ("error"), "perl", filename);
+ weechat_prefix ("error"), "Perl", filename);
#ifdef MULTIPLICITY
perl_destruct (perl_current_interpreter);
perl_free (perl_current_interpreter);
@@ -385,7 +387,7 @@ weechat_perl_unload (struct t_plugin_script *script)
weechat_printf (NULL,
weechat_gettext ("%s%s: unloading script \"%s\""),
- weechat_prefix ("info"), "perl", script->name);
+ weechat_prefix ("info"), "Perl", script->name);
#ifndef MULTIPLICITY
eval_pv (script->interpreter, TRUE);
@@ -411,7 +413,7 @@ weechat_perl_unload (struct t_plugin_script *script)
perl_free (script->interpreter);
#endif
- weechat_script_remove (weechat_perl_plugin, &perl_scripts, script);
+ script_remove (weechat_perl_plugin, &perl_scripts, script);
}
/*
@@ -423,20 +425,19 @@ weechat_perl_unload_name (char *name)
{
struct t_plugin_script *ptr_script;
- ptr_script = weechat_script_search (weechat_perl_plugin,
- &perl_scripts, name);
+ ptr_script = script_search (weechat_perl_plugin, &perl_scripts, name);
if (ptr_script)
{
weechat_perl_unload (ptr_script);
weechat_printf (NULL,
weechat_gettext ("%s%s: script \"%s\" unloaded"),
- weechat_prefix ("info"), "perl", name);
+ weechat_prefix ("info"), "Perl", name);
}
else
{
weechat_printf (NULL,
weechat_gettext ("%s%s: script \"%s\" not loaded"),
- weechat_prefix ("error"), "perl", name);
+ weechat_prefix ("error"), "Perl", name);
}
}
@@ -618,14 +619,14 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
{
if (weechat_strcasecmp (argv[1], "autoload") == 0)
{
- weechat_script_auto_load (weechat_perl_plugin,
- "perl", &weechat_perl_load_cb);
+ script_auto_load (weechat_perl_plugin, "perl",
+ &weechat_perl_load_cb);
}
else if (weechat_strcasecmp (argv[1], "reload") == 0)
{
weechat_perl_unload_all ();
- weechat_script_auto_load (weechat_perl_plugin,
- "perl", &weechat_perl_load_cb);
+ script_auto_load (weechat_perl_plugin,
+ "perl", &weechat_perl_load_cb);
}
else if (weechat_strcasecmp (argv[1], "unload") == 0)
{
@@ -637,8 +638,8 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
if (weechat_strcasecmp (argv[1], "load") == 0)
{
/* load Perl script */
- path_script = weechat_script_search_full_name (weechat_perl_plugin,
- "perl", argv_eol[2]);
+ path_script = script_search_full_name (weechat_perl_plugin,
+ "perl", argv_eol[2]);
weechat_perl_load ((path_script) ? path_script : argv_eol[2]);
if (path_script)
free (path_script);
@@ -653,7 +654,7 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
weechat_printf (NULL,
weechat_gettext ("%s%s: unknown option for "
"command \"%s\""),
- weechat_prefix ("error"), "perl", "perl");
+ weechat_prefix ("error"), "Perl", "perl");
}
}
@@ -678,7 +679,7 @@ weechat_plugin_init (struct t_weechat_plugin *plugin)
{
weechat_printf (NULL,
weechat_gettext ("%s%s: unable to initialize Perl"),
- weechat_prefix ("error"), "perl");
+ weechat_prefix ("error"), "Perl");
return WEECHAT_RC_ERROR;
}
@@ -702,8 +703,7 @@ weechat_plugin_init (struct t_weechat_plugin *plugin)
weechat_mkdir_home ("perl", 0644);
weechat_mkdir_home ("perl/autoload", 0644);
- weechat_script_auto_load (weechat_perl_plugin,
- "perl", &weechat_perl_load_cb);
+ script_auto_load (weechat_perl_plugin, "perl", &weechat_perl_load_cb);
/* init ok */
return WEECHAT_RC_OK;
generated by cgit v1.2.3 (git 2.25.1) at 2024-10-31 01:24:36 +0000