<?php
/**
- * sqspell_functions.php
+ * sqspell_functions.php
* ----------------------
* All SquirrelSpell-wide functions are in this file.
*
- * Copyright (c) 1999-2002 The SquirrelMail development team
+ * Copyright (c) 1999-2005 The SquirrelMail development team
* Licensed under the GNU GPL. For full terms see the file COPYING.
*
* $Id$
*
* @author Konstantin Riabitsev <icon@duke.edu> ($Author$)
* @version $Date$
+ * @package plugins
+ * @subpackage squirrelspell
*/
/**
* uses it for creating all Options pages.
*
* @param $title The title of the page to display
- * @param $scriptsrc This is used to link a file.js into the
+ * @param $scriptsrc This is used to link a file.js into the
* <script src="file.js"></script> format. This
* allows to separate javascript from the rest of the
* plugin and place it into the js/ directory.
* @return void
*/
function sqspell_makePage($title, $scriptsrc, $body){
- global $color, $SQSPELL_VERSION, $MOD;
- displayPageHeader($color, 'None');
- echo " <br>\n";
+ global $color, $SQSPELL_VERSION;
+
+ if (! sqgetGlobalVar('MOD', $MOD, SQ_GET) ) {
+ $MOD = 'options_main';
+ }
+
+ displayPageHeader($color, 'None');
+ echo " <br />\n";
/**
* Check if we need to link in a script.
*/
- if($scriptsrc) {
+ if($scriptsrc) {
echo "<script type=\"text/javascript\" src=\"js/$scriptsrc\"></script>\n";
}
echo html_tag( 'table', '', 'center', '', 'width="95%" border="0" cellpadding="2" cellspacing="0"' ) . "\n"
html_tag( 'td', '<strong>' . $title .'</strong>', 'center', $color[9] )
) . "\n"
. html_tag( 'tr', "\n" .
- html_tag( 'td', '<hr>', 'left' )
+ html_tag( 'td', '<hr />', 'left' )
) . "\n"
. html_tag( 'tr', "\n" .
html_tag( 'td', $body, 'left' )
* Generate a nice "Return to Options" link, unless this is the
* starting page.
*/
- if ($MOD != "options_main"){
+ if ($MOD != "options_main"){
echo html_tag( 'tr', "\n" .
- html_tag( 'td', '<hr>', 'left' )
+ html_tag( 'td', '<hr />', 'left' )
) . "\n"
. html_tag( 'tr', "\n" .
html_tag( 'td', '<a href="sqspell_options.php">'
* Close the table and display the version.
*/
echo html_tag( 'tr', "\n" .
- html_tag( 'td', '<hr>', 'left' )
+ html_tag( 'td', '<hr />', 'left' )
) . "\n"
. html_tag( 'tr',
html_tag( 'td', 'SquirrelSpell ' . $SQSPELL_VERSION, 'center', $color[9] )
- ) . "\n";
+ ) . "\n</table>\n";
+ echo '</body></html>';
}
/**
* @return void
*/
function sqspell_makeWindow($onload, $title, $scriptsrc, $body){
- global $color, $SQSPELL_VERSION, $theme_css;
- echo "<html>\n"
- . "<head>\n"
- . "<title>$title</title>\n";
- /**
- * Check if we have a defined css theme to use.
- */
- if ($theme_css != "") {
- echo "<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"$theme_css\">\n";
- }
- /**
- * Link in the .js file if needed
- */
- if ($scriptsrc){
- echo "<script type=\"text/javascript\" src=\"js/$scriptsrc\"></script>\n";
- }
- echo "</head>\n"
- . "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" "
- . "vlink=\"$color[7]\" alink=\"$color[7]\"";
+ global $color, $SQSPELL_VERSION;
+
+ displayHtmlHeader($title,
+ ($scriptsrc ? "\n<script type=\"text/javascript\" src=\"js/$scriptsrc\"></script>\n" : ''));
+
+ echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" "
+ . "vlink=\"$color[7]\" alink=\"$color[7]\"";
/**
* Provide an onload="jsfunction()" if asked to.
*/
if ($onload) {
- echo " onload=\"$onload\"";
+ echo " onload=\"$onload\"";
}
/**
* Draw the rest of the page.
*/
- echo '>'
+ echo ">\n"
. html_tag( 'table', "\n" .
html_tag( 'tr', "\n" .
html_tag( 'td', '<strong>' . $title . '</strong>', 'center', $color[9] )
) . "\n" .
html_tag( 'tr', "\n" .
- html_tag( 'td', '<hr>', 'left' )
+ html_tag( 'td', '<hr />', 'left' )
) . "\n" .
html_tag( 'tr', "\n" .
html_tag( 'td', $body, 'left' )
) . "\n" .
html_tag( 'tr', "\n" .
- html_tag( 'td', '<hr>', 'left' )
+ html_tag( 'td', '<hr />', 'left' )
) . "\n" .
html_tag( 'tr', "\n" .
html_tag( 'td', 'SquirrelSpell ' . $SQSPELL_VERSION, 'center', $color[9] )
/**
* This function does the encryption and decryption of the user
- * dictionary. It is only available when PHP is compiled with
+ * dictionary. It is only available when PHP is compiled with
* mcrypt support (--with-mcrypt). See doc/CRYPTO for more
* information.
*
* Double-check if we have the mcrypt_generic function. Bail out if
* not so.
*/
- if (!function_exists(mcrypt_generic)) {
+ if (!function_exists('mcrypt_generic')) {
return 'PANIC';
}
/**
break;
case 'decrypt':
$crypto = mdecrypt_generic($td, $input);
- /**
+ /**
* See if it decrypted successfully. If so, it should contain
* the string "# SquirrelSpell". If not, then bail out.
*/
/**
* Finish up the mcrypt routines and return the processed content.
*/
- mcrypt_generic_end ($td);
+ if (function_exists('mcrypt_generic_deinit')) {
+ // php 4.1.1+ syntax
+ mcrypt_generic_deinit ($td);
+ mcrypt_module_close ($td);
+ } else {
+ // older deprecated function
+ mcrypt_generic_end ($td);
+ }
return $crypto;
}
*
* @param $words_string Contents of the 0.2-style user dictionary.
* @return Contents of the 0.3-style user dictionary.
- */
+ */
function sqspell_upgradeWordsFile($words_string){
global $SQSPELL_APP_DEFAULT, $SQSPELL_VERSION;
/**
* If the user wants more, s/he can set them up in personal
* preferences. See doc/UPGRADING for more info.
*/
- $new_words_string =
- substr_replace($words_string,
- "# SquirrelSpell User Dictionary $SQSPELL_VERSION\n# "
- . "Last Revision: " . date("Y-m-d")
- . "\n# LANG: $SQSPELL_APP_DEFAULT\n# $SQSPELL_APP_DEFAULT",
- 0, strpos($words_string, "\n")) . "# End\n";
+ $new_words_string =
+ substr_replace($words_string,
+ "# SquirrelSpell User Dictionary $SQSPELL_VERSION\n# "
+ . "Last Revision: " . date("Y-m-d")
+ . "\n# LANG: $SQSPELL_APP_DEFAULT\n# $SQSPELL_APP_DEFAULT",
+ 0, strpos($words_string, "\n")) . "# End\n";
sqspell_writeWords($new_words_string);
return $new_words_string;
}
/**
- * Right now it just returns an array with the dictionaries
+ * Right now it just returns an array with the dictionaries
* available to the user for spell-checking. It will probably
* do more in the future, as features are added.
*
* to the requested language.
*
* @param $words The contents of the user's ".words" file.
- * @param $lang Which language words to return, e.g. requesting
+ * @param $lang Which language words to return, e.g. requesting
* "English" will return ONLY the words from user's
* English dictionary, disregarding any others.
* @return The list of words corresponding to the language
* requested.
- */
+ */
function sqspell_getLang($words, $lang){
$start=strpos($words, "# $lang\n");
/**
* the file is encrypted (well, "garbled"), then it tries to decrypt
* it, checks whether the decryption was successful, troubleshoots if
* not, then returns the clear-text dictionary to the app.
- *
- * @return the contents of the user's ".words" file, decrypted if
+ *
+ * @return the contents of the user's ".words" file, decrypted if
* necessary.
*/
function sqspell_getWords(){
* the user's old mailbox password. I admin, this is rather dirty,
* but efficient. ;)
*/
- global $key, $onetimepad, $old_key;
- if ($old_key) {
- $clear_key=$old_key;
+ sqgetGlobalVar('key', $key, SQ_COOKIE);
+ sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
+
+ sqgetGlobalVar('old_key', $old_key, SQ_POST);
+
+ if ($old_key != '') {
+ $clear_key=$old_key;
} else {
/**
* Get user's password (the key).
* gettext will bork. ;(
*/
$msg = html_tag( 'p', "\n" .
- '<strong>' . _("ATTENTION:") . '</strong><br>'
- . _("SquirrelSpell was unable to decrypt your personal dictionary. This is most likely due to the fact that you have changed your mailbox password. In order to proceed, you will have to supply your old password so that SquirrelSpell can decrypt your personal dictionary. It will be re-encrypted with your new password after this.<br>If you haven't encrypted your dictionary, then it got mangled and is no longer valid. You will have to delete it and start anew. This is also true if you don't remember your old password -- without it, the encrypted data is no longer accessible.") ,
+ '<strong>' . _("ATTENTION:") . '</strong><br />'
+ . _("SquirrelSpell was unable to decrypt your personal dictionary. This is most likely due to the fact that you have changed your mailbox password. In order to proceed, you will have to supply your old password so that SquirrelSpell can decrypt your personal dictionary. It will be re-encrypted with your new password after this. If you haven't encrypted your dictionary, then it got mangled and is no longer valid. You will have to delete it and start anew. This is also true if you don't remember your old password -- without it, the encrypted data is no longer accessible.") ,
'left' ) . "\n"
- . '<blockquote>' . "\n"
- . '<form method="post" onsubmit="return AYS()">' . "\n"
- . '<input type="hidden" name="MOD" value="crypto_badkey">' . "\n"
- . html_tag( 'p', "\n" .
- '<input type="checkbox" name="delete_words" value="ON">'
- . _("Delete my dictionary and start a new one") . '<br>'
- . _("Decrypt my dictionary with my old password:")
- . '<input name="old_key" size=\"10\">' ,
- 'left' ) . "\n"
- . '</blockquote>' . "\n"
- . html_tag( 'p', "\n" .
- '<input type="submit" value="'
- . _("Proceed") . ' >>">' ,
- 'center' ) . "\n"
- . '</form>' . "\n";
+
. '<blockquote>' . "\n"
+ . '<form method="post" onsubmit="return AYS()">' . "\n"
+ . '<input type="hidden" name="MOD" value="crypto_badkey" />' . "\n"
+ . html_tag( 'p', "\n" .
+ '<input type="checkbox" name="delete_words" value="ON" />'
+ . _("Delete my dictionary and start a new one") . '<br />'
+ . _("Decrypt my dictionary with my old password:")
+ . '<input name="old_key" size="10" />' ,
+ 'left' ) . "\n"
+ . '</blockquote>' . "\n"
+ . html_tag( 'p', "\n" .
+ '<input type="submit" value="'
+ . _("Proceed") . ' >>" />' ,
+ 'center' ) . "\n"
+ . '</form>' . "\n";
/**
* Add some string vars so they can be i18n'd.
*/
$msg .= "<script type='text/javascript'><!--\n"
- . "var ui_choice = \"" . _("You must make a choice") ."\";\n"
- . "var ui_candel = \"" . _("You can either delete your dictionary or type in the old password. Not both.") . "\";\n"
- . "var ui_willdel = \"" . _("This will delete your personal dictionary file. Proceed?") . "\";\n"
- . "//--></script>\n";
+ . "var ui_choice = \"" . _("You must make a choice") ."\";\n"
+ . "var ui_candel = \"" . _("You can either delete your dictionary or type in the old password. Not both.") . "\";\n"
+ . "var ui_willdel = \"" . _("This will delete your personal dictionary file. Proceed?") . "\";\n"
+ . "//--></script>\n";
/**
* See if this happened in the pop-up window or when accessing
- * the SpellChecker options page.
+ * the SpellChecker options page.
* This is a dirty solution, I agree. TODO: make this prettier.
*/
global $SCRIPT_NAME;
if (strstr($SCRIPT_NAME, "sqspell_options")){
- sqspell_makePage(_("Error Decrypting Dictionary"),
- "decrypt_error.js", $msg);
+ sqspell_makePage(_("Error Decrypting Dictionary"),
+ "decrypt_error.js", $msg);
} else {
- sqspell_makeWindow(null, _("Error Decrypting Dictionary"),
- "decrypt_error.js", $msg);
+ sqspell_makeWindow(null, _("Error Decrypting Dictionary"),
+ "decrypt_error.js", $msg);
}
exit;
} else {
/**
- * OK! Phew. Set the encryption flag to true so we can later on
+ * OK! Phew. Set the encryption flag to true so we can later on
* encrypt it again before saving to HDD.
*/
$SQSPELL_CRYPTO=true;
}
} else {
/**
- * No encryption is/was used. Set $SQSPELL_CRYPTO to false,
+ * No encryption is/was used. Set $SQSPELL_CRYPTO to false,
* in case we have to save the dictionary later.
*/
$SQSPELL_CRYPTO=false;
}
return $words;
}
-
+
/**
* Writes user dictionary into the $username.words file, then changes mask
* to 0600. If encryption is needed -- does that, too.
* User wants to encrypt the file. So be it.
* Get the user's password to use as a key.
*/
- global $key, $onetimepad;
+ sqgetGlobalVar('key', $key, SQ_COOKIE);
+ sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
+
$clear_key=OneTimePadDecrypt($key, $onetimepad);
/**
* Try encrypting it. If fails, scream bloody hell.
fclose($fp);
chmod($SQSPELL_WORDS_FILE, 0600);
}
-
+
function sqspell_deleteWords(){
/**
* So I open the door to my enemies,
* whatever.
*
* @return The template to use when storing the user dictionary.
- */
+ */
function sqspell_makeDummy(){
global $SQSPELL_VERSION, $SQSPELL_APP_DEFAULT;
$words = "# SquirrelSpell User Dictionary $SQSPELL_VERSION\n"
- . "# Last Revision: " . date('Y-m-d')
- . "\n# LANG: $SQSPELL_APP_DEFAULT\n# End\n";
+ . "# Last Revision: " . date('Y-m-d')
+ . "\n# LANG: $SQSPELL_APP_DEFAULT\n# End\n";
return $words;
}
* @return void, since it bails out with an access error if needed.
*/
function sqspell_ckMOD($rMOD){
- if (strstr($rMOD, '.')
- || strstr($rMOD, '/')
+ if (strstr($rMOD, '.')
+ || strstr($rMOD, '/')
|| strstr($rMOD, '%')
- || strstr($rMOD, "\\")){
+ || strstr($rMOD, "\\")){
echo _("Cute.");
exit;
}
/**
* SquirrelSpell version. Don't modify, since it identifies the format
- * of the user dictionary files and messing with this can do ugly
+ * of the user dictionary files and messing with this can do ugly
* stuff. :)
*/
$SQSPELL_VERSION="v0.3.8";
-?>
+?>
\ No newline at end of file
projects / squirrelmail.git / blobdiff