Added pspell support patch by Kris Steinhoff (#1483960)

1 files changed, 54 insertions, 0 deletions

diff --git a/program/steps/mail/spell_pspell.inc b/program/steps/mail/spell_pspell.inc
new file mode 100644
index 000000000..ad637e85b
--- /dev/null
+++ b/program/steps/mail/spell_pspell.inc
@@ -0,0 +1,54 @@
+<?php
+
+/*
+ +-----------------------------------------------------------------------+
+ | program/steps/mail/spell_pspell.inc                                   |
+ |                                                                       |
+ | This file is part of the RoundCube Webmail client                     |
+ | Licensed under the GNU GPL                                            |
+ |                                                                       |
+ | PURPOSE:                                                              |
+ |   Use the Pspell extension to check spelling, returns results         |
+ |   compatible with spell_googie.inc.                                   |
+ |                                                                       |
+ +-----------------------------------------------------------------------+
+ | Author: Kris Steinhoff <steinhof@umich.edu>                           |
+ +-----------------------------------------------------------------------+
+
+ $Id$
+
+*/
+
+if (!extension_loaded('pspell')) {
+    raise_error(array(
+      'code' => 500,
+      'file' => __FILE__,
+      'message' => "Pspell extension not available"), true, false);
+      
+    header('HTTP/1.1 404 Not Found');
+    exit;
+}
+
+$data = file_get_contents('php://input');
+$xml = simplexml_load_string($data);
+$text = (string)$xml->text;
+$words = preg_split('/[ !"#$%&()*+\\,-.\/\n:;<=>?@\[\]^_{|}]+/', $text, NULL,  PREG_SPLIT_NO_EMPTY |  PREG_SPLIT_OFFSET_CAPTURE );
+$plink = pspell_new(get_input_value('lang', RCUBE_INPUT_GET), null, null, 'utf-8');
+$out = '<?xml version="1.0" encoding="UTF-8"?><spellresult charschecked="'.strlen($text).'">';
+foreach ($words as $w) {
+    $word = $w[0];
+    $pos  = $w[1];
+    $len  = strlen($word);
+    if (!pspell_check($plink, $word)) {
+        $suggestions = pspell_suggest($plink, $word);
+        $out .= '<c o="'.$pos.'" l="'.$len.'">';
+        $out .= implode("\t", $suggestions);
+        $out .= '</c>';
+    }
+}
+$out .= '</spellresult>';
+
+echo $out;
+exit;
+
+?>