849bdf42 |
1 | <?php |
2 | /** |
3 | FORGET_ME.MOD.PHP |
4 | ------------------ |
5 | This module deletes the words from the user dictionary. Called |
6 | after EDIT_DIC module. |
7 | **/ |
8 | // Make it two packs of Guinness and a bag of pistachios, fidian. :) |
9 | global $words_ary, $sqspell_use_app, $SQSPELL_VERSION; |
10 | if (sizeof($words_ary)){ |
11 | // something needs to be deleted. |
12 | $words=sqspell_getWords(); |
13 | $lang_words = sqspell_getLang($words, $sqspell_use_app); |
14 | $msg = "<p>Deleting the following entries from <strong>$sqspell_use_app</strong> dictionary:</p> |
15 | <ul>\n"; |
16 | for ($i=0; $i<sizeof($words_ary); $i++){ |
17 | // remove word by word... |
18 | $lang_words=str_replace("$words_ary[$i]\n", "", $lang_words); |
19 | $msg .= "<li>$words_ary[$i]</li>\n"; |
20 | } |
21 | $new_words_ary=split("\n", $lang_words); |
22 | // Wipe this lang, if only 2 members in array (no words left). |
23 | if (sizeof($new_words_ary)<=2) $lang_words=""; |
24 | $new_lang_words = $lang_words; |
25 | // process the stuff and write the dic back. |
26 | $langs=sqspell_getSettings($words); |
27 | $words_dic = "# SquirrelSpell User Dictionary $SQSPELL_VERSION\n# Last Revision: " . date("Y-m-d") . "\n# LANG: " . join(", ", $langs) . "\n"; |
28 | for ($i=0; $i<sizeof($langs); $i++){ |
29 | if ($langs[$i]==$sqspell_use_app) |
30 | $lang_words = $new_lang_words; |
31 | else $lang_words = sqspell_getLang($words, $langs[$i]); |
32 | if ($lang_words) $words_dic .= $lang_words; |
33 | } |
34 | $words_dic .= "# End\n"; |
35 | sqspell_writeWords($words_dic); |
36 | $msg .= "</ul> |
37 | <p>All done!</p>\n"; |
38 | sqspell_makePage("Personal Dictionary Updated", null, $msg); |
39 | } else { |
40 | // Click on some words first, Einstein! |
41 | sqspell_makePage("Personal Dictionary", null, "<p>No changes requested.</p>"); |
42 | } |
43 | ?> |
44 | |