From 72b7233de5891316a00fe4ff0d94c5dc15fd5ead Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 13 Jan 2016 06:28:53 -0700
Subject: Add a marginally better help function, e.g. ;help ;hilight

---
 config-default/commands.xml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'config-default')

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 9f1f9b5..97b5d70 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -185,6 +185,18 @@
     $conn->privmsg($event->replyto, "Please refer to http://antispammeta.net and irc.freenode.net #antispammeta");
   ]]>
   </command>
+  <command cmd="^;help (?&lt;cmd&gt;\S+)$">
+  <![CDATA[
+    my @cmds = grep { $_->{cmd} =~ /$+{cmd}/} @{$::commands->{command}};
+    if ((scalar @cmds) > 2) {
+      $conn->privmsg($event->replyto, "Please refer to http://antispammeta.net and irc.freenode.net #antispammeta");
+    } else {
+      foreach my $cmd (@cmds) {
+        $conn->privmsg($event->replyto, ($cmd->{flag} // ' ') . ' ' . $cmd->{cmd})
+      }
+    }
+  ]]>
+  </command>
   <command cmd="^;db$">
   <![CDATA[
     $conn->privmsg($event->replyto, "db is at http://antispammeta.net/query.html");
-- 
cgit v1.2.3