summaryrefslogtreecommitdiff
path: root/src/plugins/scripts/perl
diff options
context:
space:
mode:
authorSebastien Helleu <flashcode@flashtux.org>2009-03-28 20:58:00 +0100
committerSebastien Helleu <flashcode@flashtux.org>2009-03-28 20:58:00 +0100
commitb2f1273c01f2f13f02683a7d31823540f251f951 (patch)
treea3bcdde82e0b3f3aaeaed5d986ec45b5b7dadd99 /src/plugins/scripts/perl
parent30a50c6999b8ba312abe674470ac052e322211a1 (diff)
downloadweechat-b2f1273c01f2f13f02683a7d31823540f251f951.zip
Add infolists with list of scripts
Diffstat (limited to 'src/plugins/scripts/perl')
-rw-r--r--src/plugins/scripts/perl/weechat-perl.c25
1 files changed, 25 insertions, 0 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index 04c0437ad..50fcc8a83 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -595,6 +595,30 @@ weechat_perl_completion_cb (void *data, const char *completion_item,
}
/*
+ * weechat_perl_infolist_cb: callback for infolist
+ */
+
+struct t_infolist *
+weechat_perl_infolist_cb (void *data, const char *infolist_name,
+ void *pointer, const char *arguments)
+{
+ /* make C compiler happy */
+ (void) data;
+ (void) arguments;
+
+ if (!infolist_name || !infolist_name[0])
+ return NULL;
+
+ if (weechat_strcasecmp (infolist_name, "perl_script") == 0)
+ {
+ return script_infolist_list_scripts (weechat_perl_plugin,
+ perl_scripts, pointer);
+ }
+
+ return NULL;
+}
+
+/*
* weechat_perl_debug_dump_cb: dump Perl plugin data in WeeChat log file
*/
@@ -680,6 +704,7 @@ weechat_plugin_init (struct t_weechat_plugin *plugin, int argc, char *argv[])
script_init (weechat_perl_plugin,
&weechat_perl_command_cb,
&weechat_perl_completion_cb,
+ &weechat_perl_infolist_cb,
&weechat_perl_debug_dump_cb,
&weechat_perl_buffer_closed_cb,
&weechat_perl_load_cb);