Password tab) * * @version 1.1 * @author Aleksander 'A.L.E.C' Machniak * @editor Daniel Black * * Configuration Items (config/main.inc.php): * password_confirm_current - boolean to determine whether current password * is required to change password. Defaults to FALSE. * password_db_dsn - is the PEAR database DSN for performing the query. Defaults * to the default databse setting in config/db.inc.php * password_query - the SQL query used to change the password. * If the SQL query is a SELECT it will return an error message in a row if unsuccessful * If the SQL query is a UPDATE it will update a single row only. * An UPDATE where zero rows changed will be inteperated to be a wrong username/password * More than one row changed will be inteperated as an internal error * The query can contain the following macros that will be expanded as follows: * %p is replaced with the plaintext new password * %c is replaced with the crypt version of the new password, MD5 if available * otherwise DES. * %u is replaced with the username (from the session info) * %o is replaced with the password before the change * %h is replaced with the imap host (from the session info) * Escaping of macros is handled by this module. * Defaults to "SELECT update_passwd(%c, %u)" * To use this you need to define the update_passwd function in your * database. * * Example SQL queries: * These will typically need to define a function to change the password: * * Example implementations of an update_passwd function: * * This is for use with LMS (http://lms.org.pl) database and postgres: * CREATE OR REPLACE FUNCTION update_passwd(hash text, account text) RETURNS integer AS $$ * DECLARE * res integer; * BEGIN * UPDATE passwd SET password = hash * WHERE login = split_part(account, '@', 1) * AND domainid = (SELECT id FROM domains WHERE name = split_part(account, '@', 2)) * RETURNING id INTO res; * RETURN res; * END; * $$ LANGUAGE plpgsql SECURITY DEFINER; * * This is for use with a SELECT update_passwd(%o,%c,%u) query * Uupdates the password only when the old password matches the MD5 password in the database * CREATE FUNCTION update_password (oldpass text, cryptpass text, user text) RETURNS text * MODIFIES SQL DATA * BEGIN * DECLARE currentsalt varchar(20); * DECLARE error text; * SET error = 'incorrect current password'; * SELECT substring_index(substr(user.password,4),_latin1'$',1) INTO currentsalt FROM users WHERE username=user; * SELECT '' INTO error FROM users WHERE username=user AND password=ENCRYPT(oldpass,currentsalt); * UPDATE users SET password=cryptpass WHERE username=user AND password=ENCRYPT(oldpass,currentsalt); * RETURN error; * END * * Example SQL UPDATEs: * * Plain text passwords: * UPDATE users SET password=%p WHERE username=%u AND password=%o AND domain=%h LIMIT 1 * * Crypt text passwords: * UPDATE users SET password=%c WHERE username=%u LIMIT 1 * * Use a MYSQL crypt function (*nix only) with random 8 character salt * UPDATE users SET password=ENCRYPT(%p,concat(_utf8'$1$',right(md5(rand()),8),_utf8'$')) WHERE username=%u LIMIT 1 * * MD5 stored passwords: * UPDATE users SET password=MD5(%p) WHERE username=%u AND password=MD5(%o) LIMIT 1 * */ class password extends rcube_plugin { public $task = 'settings'; function init() { $rcmail = rcmail::get_instance(); // add Tab label $rcmail->output->add_label('password'); $this->register_action('plugin.password', array($this, 'password_init')); $this->register_action('plugin.password-save', array($this, 'password_save')); $this->register_handler('plugin.body', array($this, 'password_form')); $this->include_script('password.js'); } function password_init() { $this->add_texts('localization/'); rcmail::get_instance()->output->send('plugin'); } function password_save() { $rcmail = rcmail::get_instance(); $confirm = $rcmail->config->get('password_confirm_current'); $this->add_texts('localization/'); if (($confirm && !isset($_POST['_curpasswd'])) || !isset($_POST['_newpasswd'])) $rcmail->output->command('display_message', $this->gettext('nopassword'), 'error'); else { $curpwd = get_input_value('_curpasswd', RCUBE_INPUT_POST); $newpwd = get_input_value('_newpasswd', RCUBE_INPUT_POST); if ($confirm && $_SESSION['password'] != $rcmail->encrypt_passwd($curpwd)) $rcmail->output->command('display_message', $this->gettext('passwordincorrect'), 'error'); else if (!($res = $this->_save($curpwd,$newpwd))) { $rcmail->output->command('display_message', $this->gettext('successfullysaved'), 'confirmation'); $_SESSION['password'] = $rcmail->encrypt_passwd($newpwd); } else $rcmail->output->command('display_message', $res, 'error'); } rcmail_overwrite_action('plugin.password'); rcmail::get_instance()->output->send('plugin'); } function password_form() { $rcmail = rcmail::get_instance(); $confirm = $rcmail->config->get('password_confirm_current'); // add some labels to client $rcmail->output->add_label( 'password.nopassword', 'password.nocurpassword', 'password.passwordinconsistency', 'password.changepasswd' ); // $rcmail->output->set_pagetitle($this->gettext('changepasswd')); $rcmail->output->set_env('product_name', $rcmail->config->get('product_name')); // allow the following attributes to be added to the tag $attrib_str = create_attrib_string($attrib, array('style', 'class', 'id', 'cellpadding', 'cellspacing', 'border', 'summary')); // return the complete edit form as table $out = '\n\n"; $a_show_cols = array('newpasswd' => array('type' => 'text'), 'confpasswd' => array('type' => 'text')); if ($confirm) { $a_show_cols['curpasswd'] = array('type' => 'text'); // show current password selection $field_id = 'curpasswd'; $input_newpasswd = new html_passwordfield(array('name' => '_curpasswd', 'id' => $field_id, 'size' => 20)); $out .= sprintf("\n", $field_id, rep_specialchars_output($this->gettext('curpasswd')), $input_newpasswd->show($rcmail->config->get('curpasswd'))); } // show new password selection $field_id = 'newpasswd'; $input_newpasswd = new html_passwordfield(array('name' => '_newpasswd', 'id' => $field_id, 'size' => 20)); $out .= sprintf("\n", $field_id, rep_specialchars_output($this->gettext('newpasswd')), $input_newpasswd->show($rcmail->config->get('newpasswd'))); // show confirm password selection $field_id = 'confpasswd'; $input_confpasswd = new html_passwordfield(array('name' => '_confpasswd', 'id' => $field_id, 'size' => 20)); $out .= sprintf("\n", $field_id, rep_specialchars_output($this->gettext('confpasswd')), $input_confpasswd->show($rcmail->config->get('confpasswd'))); $out .= "\n
%s
%s
%s
"; $out .= '
'; $out .= $rcmail->output->button(array( 'command' => 'plugin.password-save', 'type' => 'input', 'class' => 'button mainaction', 'label' => 'save' )); $rcmail->output->add_gui_object('passform', 'password-form'); return $rcmail->output->form_tag(array( 'id' => 'password-form', 'name' => 'password-form', 'method' => 'post', 'action' => './?_task=settings&_action=plugin.password-save', ), $out); } private function _save($curpass,$passwd) { $cfg = rcmail::get_instance()->config; if (!($sql = $cfg->get('password_query'))) $sql = "SELECT update_passwd(%c, %u)"; if ($dsn = $cfg->get('password_db_dsn')) { $db = new rcube_mdb2($dsn, '', FALSE); $db->set_debug((bool)$cfg->get('sql_debug')); $db->db_connect('w'); } else { $db = rcmail::get_instance()->get_dbh(); } if ($err = $db->is_error()) return $err; if (strpos($sql,'%c') !== FALSE) { $salt = ''; if (CRYPT_MD5) { $len = rand(3,CRYPT_SALT_LENGTH); } else if (CRYPT_STD_DES) { $len = 2; } else { return $this->gettext('nocryptfunction'); } for ($i = 0; $i < $len ; $i++) { $salt .= chr(rand(ord('.'),ord('z'))); } $sql = str_replace('%c', $db->quote(crypt($passwd, CRYPT_MD5 ? '$1$'.$salt.'$' : $salt)), $sql); } $sql = str_replace('%u', $db->quote($_SESSION['username'],'text'), $sql); $sql = str_replace('%p', $db->quote($passwd,'text'), $sql); $sql = str_replace('%o', $db->quote($curpass,'text'), $sql); $sql = str_replace('%h', $db->quote($_SESSION['imap_host'],'text'), $sql); $res = $db->query($sql); if ($err = $db->is_error()) return $err; if (strtolower(substr(trim($query),0,6))=='select') { return $db->fetch_array($res); } else { $res = $db->affected_rows($res); if ($res == 0) return $this->gettext('errorsaving'); if ($res == 1) return FALSE; // THis is the good case - 1 row updated return $this->gettext('internalerror'); } } } ?>