Changeset 258

Timestamp:

06/21/08 19:02:14 (5 months ago)

Author:

Slynderdale

Message:

Fixes #38 by checking actions for spelling corrections as well as added support to retrieve and check the spelling for words using CTCP messages to the bot.

Files:

• trunk/Phergie/Plugin/Spellcheck.php (modified) (1 diff)

trunk/Phergie/Plugin/Spellcheck.php

@@ -145 +145 @@
-        }
-    }
+
+    /**
+     * Parses incoming CTCP action requests for spelling suggestions.
+     *
+     * @return void
+     */
+    public function onAction()
+    {
+        $message = $this->event->getArgument(1);
+        $target = $this->event->getNick();
+
+        if (preg_match('#(\S+)\s*\(sp\??\)#i', $message, $m)) {
+            $word = $m[1];
+            if (!pspell_check($this->pspell, $word)) {
+                $suggestions = pspell_suggest($this->pspell, $word);
+                if (empty($suggestions)) {
+                    $this->doPrivmsg($target, 'I could not find any suggestions for ' . $word);
+                } else {
+                    $suggestions = array_splice($suggestions, 0, $this->limit);
+                    $this->doPrivmsg($target, $target . ': Suggestions for \'' . $word . '\': ' . implode(', ', $suggestions));
+                }
+            } else {
+                $this->doPrivmsg($target, $target . ': The word ' . $word . ' seems to be spelled correctly.');
+            }
+        }
+    }
+
+    /**
+     * Parses incoming CTCP request for spelling suggestions.
+     *
+     * @return void
+     */
+    public function onCtcp()
+    {
+        $source = $this->event->getSource();
+        $ctcp = $this->event->getArgument(1);
+
+        if (preg_match('{spell(?:[\s_+-]*check)?\s+(\S+)}ix', $ctcp, $m)) {
+            $word = $m[1];
+            if (!pspell_check($this->pspell, $word)) {
+                $suggestions = pspell_suggest($this->pspell, $word);
+                if (empty($suggestions)) {
+                    $this->doPrivmsg($source, 'I could not find any suggestions for ' . $word);
+                } else {
+                    $suggestions = array_splice($suggestions, 0, $this->limit);
+                    $this->doPrivmsg($source, $target . ': Suggestions for \'' . $word . '\': ' . implode(', ', $suggestions));
+                }
+            } else {
+                $this->doPrivmsg($source, $target . ': The word ' . $word . ' seems to be spelled correctly.');
+            }
+        }
+    }
-}