| 1 | <?php |
|---|
| 2 | |
|---|
| 3 | /* |
|---|
| 4 | +-----------------------------------------------------------------------+ |
|---|
| 5 | | program/steps/mail/spell_pspell.inc | |
|---|
| 6 | | | |
|---|
| 7 | | This file is part of the RoundCube Webmail client | |
|---|
| 8 | | Licensed under the GNU GPL | |
|---|
| 9 | | | |
|---|
| 10 | | PURPOSE: | |
|---|
| 11 | | Use the Pspell extension to check spelling, returns results | |
|---|
| 12 | | compatible with spell_googie.inc. | |
|---|
| 13 | | | |
|---|
| 14 | +-----------------------------------------------------------------------+ |
|---|
| 15 | | Author: Kris Steinhoff <steinhof@umich.edu> | |
|---|
| 16 | +-----------------------------------------------------------------------+ |
|---|
| 17 | |
|---|
| 18 | $Id$ |
|---|
| 19 | |
|---|
| 20 | */ |
|---|
| 21 | |
|---|
| 22 | if (!extension_loaded('pspell')) { |
|---|
| 23 | raise_error(array( |
|---|
| 24 | 'code' => 500, |
|---|
| 25 | 'file' => __FILE__, |
|---|
| 26 | 'message' => "Pspell extension not available"), true, false); |
|---|
| 27 | |
|---|
| 28 | header('HTTP/1.1 404 Not Found'); |
|---|
| 29 | exit; |
|---|
| 30 | } |
|---|
| 31 | |
|---|
| 32 | // read input |
|---|
| 33 | $data = file_get_contents('php://input'); |
|---|
| 34 | |
|---|
| 35 | // parse data (simplexml_load_string breaks CRLFs) |
|---|
| 36 | $left = strpos($data, '<text>'); |
|---|
| 37 | $right = strrpos($data, '</text>'); |
|---|
| 38 | $text = substr($data, $left+6, $right-($left+6)); |
|---|
| 39 | |
|---|
| 40 | // tokenize |
|---|
| 41 | $words = preg_split('/[ !"#$%&()*+\\,-.\/\n:;<=>?@\[\]^_{|}]+/', $text, NULL, PREG_SPLIT_NO_EMPTY | PREG_SPLIT_OFFSET_CAPTURE ); |
|---|
| 42 | |
|---|
| 43 | // init spellchecker |
|---|
| 44 | $plink = pspell_new(get_input_value('lang', RCUBE_INPUT_GET), null, null, 'utf-8', PSPELL_FAST); |
|---|
| 45 | |
|---|
| 46 | // send output |
|---|
| 47 | $out = '<?xml version="1.0" encoding="UTF-8"?><spellresult charschecked="'.rc_strlen($text).'">'; |
|---|
| 48 | |
|---|
| 49 | $diff = 0; |
|---|
| 50 | foreach ($words as $w) { |
|---|
| 51 | $word = trim($w[0]); |
|---|
| 52 | $pos = $w[1] - $diff; |
|---|
| 53 | $len = rc_strlen($word); |
|---|
| 54 | if ($word && $plink && !pspell_check($plink, $word)) { |
|---|
| 55 | $suggestions = pspell_suggest($plink, $word); |
|---|
| 56 | $out .= '<c o="'.$pos.'" l="'.$len.'">'; |
|---|
| 57 | $out .= implode("\t", $suggestions); |
|---|
| 58 | $out .= '</c>'; |
|---|
| 59 | } |
|---|
| 60 | $diff += (strlen($word) - $len); |
|---|
| 61 | } |
|---|
| 62 | |
|---|
| 63 | $out .= '</spellresult>'; |
|---|
| 64 | |
|---|
| 65 | header("Content-Type: text/xml"); |
|---|
| 66 | echo $out; |
|---|
| 67 | exit; |
|---|
| 68 | |
|---|
| 69 | ?> |
|---|