Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 5 → Rev 6

/web/test/gallery/cpg133/include/mailer.inc.php
0,0 → 1,233
<?php
/*************************
Coppermine Photo Gallery
************************
Copyright (c) 2003-2005 Coppermine Dev Team
v1.1 originaly written by Gregory DEMAR
 
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
********************************************
Coppermine version: 1.3.3
$Source: /cvsroot/coppermine/stable/include/mailer.inc.php,v $
$Revision: 1.6 $
$Author: gaugau $
$Date: 2005/04/19 03:17:11 $
**********************************************/
 
$CONFIG['smtp_host'] = '';
$CONFIG['smtp_username'] = '';
$CONFIG['smtp_password'] = '';
// Custom mail function
function cpg_mail($to, $subject, $msg_body, $type = 'text/plain', $sender_name = '', $sender_email = '')
{
global $CONFIG;
global $lang_charset;
 
if ($sender_name == '') $sender_name = $CONFIG['gallery_name'];
if ($sender_email == '') $sender_email = $CONFIG['gallery_admin_email'];
 
$charset = $CONFIG['charset'] == 'language file' ? $lang_charset : $CONFIG['charset'];
 
$extra_headers = "From: $sender_name <$sender_email>\n" . "MIME-Version: 1.0\n" . "Content-type: $type; charset=" . $charset . "\n" . "Content-transfer-encoding: 8bit\n" . "Date: " . gmdate('D, d M Y H:i:s', time()) . " UT\n" ."X-Priority: 3 (Normal)\n" ."X-MSMail-Priority: Normal\n" . "X-Mailer: Coppermine Photo Gallery\n" ."Importance: Normal";
// Fix any bare linefeeds in the message to make it RFC821 Compliant.
 
$message = preg_replace("/(?<!\r)\n/si", "\r\n", $msg_body);
 
if (empty($CONFIG['smtp_host'])) {
return mail($to, $subject, $msg_body, $extra_headers);
} else {
return smtp_mail($to, $subject, $msg_body, $extra_headers);
}
}
 
/**
* smtp.php
* -------------------
* begin : Wed May 09 2001
* copyright : (C) 2001 The phpBB Group
* email : support@phpbb.com
*
* $Id: mailer.inc.php,v 1.6 2005/04/19 03:17:11 gaugau Exp $
*/
 
/**
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*/
 
// This function has been modified as provided
// by SirSir to allow multiline responses when
// using SMTP Extensions
 
function server_parse($socket, $response)
{
while (substr($server_response, 3, 1) != ' ') {
if (!($server_response = fgets($socket, 256))) {
cpg_die(ERROR, "Couldn't get mail server response codes", __FILE__, __LINE__);
}
}
 
if (!(substr($server_response, 0, 3) == $response)) {
cpg_die(ERROR, "Ran into problems sending Mail. Response: $server_response", "", __FILE__, __LINE__);
}
}
 
/**
* Function: smtpmail
* Description: This is a functional replacement for php's builtin mail
* function, that uses smtp.
* Usage: The usage for this function is identical to that of php's
* built in mail function.
*/
function smtp_mail($mail_to, $subject, $message, $headers = "")
{
// For now I'm using an array based $smtp_vars to hold the smtp server
// info, but it should probably change to $CONFIG...
// then the relevant info would be $CONFIG['smtp_host'] and
// $CONFIG['smtp_port'].
global $CONFIG;
 
// Fix any bare linefeeds in the message to make it RFC821 Compliant.
 
$message = preg_replace("/(?<!\r)\n/si", "\r\n", $message);
 
if ($headers != "") {
if (is_array($headers)) {
if (sizeof($headers) > 1) {
$headers = join("\n", $headers);
} else {
$headers = $headers[0];
}
}
$headers = chop($headers);
 
// Make sure there are no bare linefeeds in the headers
 
$headers = preg_replace("/(?<!\r)\n/si", "\r\n", $headers);
 
// Ok this is rather confusing all things considered,
// but we have to grab bcc and cc headers and treat them differently
// Something we really didn't take into consideration originally
 
$header_array = explode("\n", $headers);
@reset($header_array);
$headers = "";
while (list(, $header) = each($header_array)) {
if (preg_match("/^cc:/si", $header)) {
$cc = preg_replace("/^cc:(.*)/si", "\\1", $header);
} else if (preg_match("/^bcc:/si", $header)) {
$bcc = preg_replace("/^bcc:(.*)/si", "\\1", $header);
$header = "";
}
$headers .= $header . "\n";
}
$headers = chop($headers);
$cc = explode(",", $cc);
$bcc = explode(",", $bcc);
}
if (trim($mail_to) == "") {
cpg_die(ERROR, "No email address specified", __FILE__, __LINE__);
}
if (trim($subject) == "") {
cpg_die(ERROR, "No email Subject specified", __FILE__, __LINE__);
}
if (trim($message) == "") {
cpg_die(ERROR, "Email message was blank", __FILE__, __LINE__);
}
$mail_to_array = explode(",", $mail_to);
 
// Ok we have error checked as much as we can to this point let's get on
// it already.
 
if (!$socket = fsockopen($CONFIG['smtp_host'], 25, $errno, $errstr, 20)) {
cpg_die(ERROR, "Could not connect to smtp host : $errno : $errstr", __FILE__, __LINE__);
}
server_parse($socket, "220");
 
if (!empty($CONFIG['smtp_username']) && !empty($CONFIG['smtp_password'])) {
// Send the RFC2554 specified EHLO.
// This improved as provided by SirSir to accomodate
// both SMTP AND ESMTP capable servers
fputs($socket, "EHLO " . $CONFIG['smtp_host'] . "\r\n");
server_parse($socket, "250");
 
fputs($socket, "AUTH LOGIN\r\n");
server_parse($socket, "334");
fputs($socket, base64_encode($CONFIG['smtp_username']) . "\r\n");
server_parse($socket, "334");
fputs($socket, base64_encode($CONFIG['smtp_password']) . "\r\n");
server_parse($socket, "235");
} else {
// Send the RFC821 specified HELO.
fputs($socket, "HELO " . $CONFIG['smtp_host'] . "\r\n");
server_parse($socket, "250");
}
// From this point onward most server response codes should be 250
// Specify who the mail is from....
fputs($socket, "MAIL FROM: <" . $CONFIG['gallery_admin_email'] . ">\r\n");
server_parse($socket, "250");
// Specify each user to send to and build to header.
$to_header = "To: ";
@reset($mail_to_array);
while (list(, $mail_to_address) = each($mail_to_array)) {
 
// Add an additional bit of error checking to the To field.
 
$mail_to_address = trim($mail_to_address);
if (preg_match('/[^ ]+\@[^ ]+/', $mail_to_address)) {
fputs($socket, "RCPT TO: <$mail_to_address>\r\n");
server_parse($socket, "250");
}
$to_header .= (($mail_to_address != '') ? ', ' : '') . "<$mail_to_address>";
}
// Ok now do the CC and BCC fields...
@reset($bcc);
while (list(, $bcc_address) = each($bcc)) {
 
// Add an additional bit of error checking to bcc header...
 
$bcc_address = trim($bcc_address);
if (preg_match('/[^ ]+\@[^ ]+/', $bcc_address)) {
fputs($socket, "RCPT TO: <$bcc_address>\r\n");
server_parse($socket, "250");
}
}
@reset($cc);
while (list(, $cc_address) = each($cc)) {
 
// Add an additional bit of error checking to cc header
 
$cc_address = trim($cc_address);
if (preg_match('/[^ ]+\@[^ ]+/', $cc_address)) {
fputs($socket, "RCPT TO: <$cc_address>\r\n");
server_parse($socket, "250");
}
}
// Ok now we tell the server we are ready to start sending data
fputs($socket, "DATA\r\n");
// This is the last response code we look for until the end of the message.
server_parse($socket, "354");
// Send the Subject Line...
fputs($socket, "Subject: $subject\r\n");
// Now the To Header.
fputs($socket, "$to_header\r\n");
// Now any custom headers....
fputs($socket, "$headers\r\n\r\n");
// Ok now we are ready for the message...
fputs($socket, "$message\r\n");
// Ok the all the ingredients are mixed in let's cook this puppy...
fputs($socket, ".\r\n");
server_parse($socket, "250");
// Now tell the server we are done and close the socket...
fputs($socket, "QUIT\r\n");
fclose($socket);
 
return true;
}
 
?>