function EmailBlast(&$rows, &$a_skeys, $EmailColumn, $aDispCols) { $subject = trim(CleanGet('txt_subject')); $email_text = trim(CleanGet('txt_email')); ?> <h2>Email Transmit Report</h2> <p>Recipients are listed below. If a recipient has a missing or invalid email, the administrator will get a "bounce" message, which you can use to correct the recipient's email address. </p> <?php foreach ($a_skeys as $skey) { if (CleanGet('embox' . $skey, '', false) == '') { continue; } $namepart = ''; foreach ($aDispCols as $col) { $namepart .= trim($rows[$skey][$col]) . ' '; } $recipient = $namepart . '<' . $rows[$skey][$EmailColumn] . '>'; EmailSend($recipient, $subject, $email_text); echo $namepart . ' ' . $rows[$skey][$EmailColumn] . '<br>'; } }
function PW_ForgotPage1() { // KFD 11/13/06. Heavily modified for new system, threw out // the older code entirely, now that all apps have a users // table built into them. $eml = trim(gp('txt_email')); $seml = SQLFC(strtolower($eml)); $heml = hx($eml); $ueml = urlencode($eml); //$leml= MakeUserId(strtolower($eml)); $db2 = scDBConn_Push('usermaint'); $sq = "Select skey,user_id,member_password,email FROM users " . " where LOWER(email)={$seml}"; $member = SQL_AllRows($sq); // Nothing of any kind is a bummer, we can't do anything if (count($member) == 0) { ErrorAdd('There are no active accounts with that email address'); } else { $leml = MakeUserID($eml); $member = $member[0]; // If we know who they are, send a password and allow them to change it $user_pwkey = md5($member['member_password'] . $leml . time()); //$ref=$_SERVER['HTTP_REFERER']; $http = httpWebSite() . "/"; $row = array('skey' => $member['skey'], 'user_pwkey' => $user_pwkey); $UID = $member['user_id']; $PWD = $member['member_password']; // KFD 12/21/06. Done for medinfo originally. If UID looks like // the email, send the email instead $emailUID = $member['email']; $table_dd = DD_Tableref('users'); SQLX_Update($table_dd, $row); $emailuser_id = OptionGet('EMAIL_USERID', 'N') == 'Y' ? $emailUID : $leml; $text_email = "\nYour username and password are: {$emailuser_id} and {$PWD}.\n \nIf you would like to change your password, click here:\n<{$http}?gp_page=x_password&gpp=2&eml={$ueml}&hash={$user_pwkey}>\n"; scDBConn_Pop(); //echo $text_email; EmailSend($eml, 'System Access Request', $text_email); ?> <b>Email Has Been Sent</b>. An email has been sent to you with information needed to access the system. <?php gpSet('gpp', 'X'); } }