Added event handlers in plugin list commands outputs (/plugin and script commands)

1 files changed, 19 insertions, 0 deletions

diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index 8827e4553..2593ab309 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -2270,6 +2270,25 @@ weechat_perl_cmd (t_weechat_plugin *plugin,
             if (!handler_found)
                 plugin->print_server (plugin, "  (none)");
             
+            /* list Perl event handlers */
+            plugin->print_server (plugin, "");
+            plugin->print_server (plugin, "Perl event handlers:");
+            handler_found = 0;
+            for (ptr_handler = plugin->handlers;
+                 ptr_handler; ptr_handler = ptr_handler->next_handler)
+            {
+                if ((ptr_handler->type == PLUGIN_HANDLER_EVENT)
+                    && (ptr_handler->handler_args))
+                {
+                    handler_found = 1;
+                    plugin->print_server (plugin, "  %s => Perl(%s)",
+                                          ptr_handler->event,
+                                          ptr_handler->handler_args);
+                }
+            }
+            if (!handler_found)
+                plugin->print_server (plugin, "  (none)");
+            
 	    /* List Perl modifiers */
 	    plugin->print_server (plugin, "");
             plugin->print_server (plugin, "Python modifiers:");