<?php
/*************************************************************************************
   Copyright notice
   
   (c) 2002-2012 Oliver Georgi <oliver@phpwcms.de> // All rights reserved.
 
   This script is part of PHPWCMS. The PHPWCMS web content management system 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.
  
   The GNU General Public License can be found at http://www.gnu.org/copyleft/gpl.html
   A copy is found in the textfile GPL.txt and important notices to the license 
   from the author is found in LICENSE.txt distributed with these scripts.
  
   This script is distributed in the hope that it will be useful, but WITHOUT ANY 
   WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
   PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 
   This copyright notice MUST APPEAR in all copies of the script!
*************************************************************************************/

session_start();
$phpwcms = array();
require_once ('../../config/phpwcms/conf.inc.php');
require_once ('../inc_lib/default.inc.php');
require_once (PHPWCMS_ROOT.'/include/inc_lib/dbcon.inc.php');

require_once (PHPWCMS_ROOT.'/include/inc_lib/general.inc.php');
checkLogin();
require_once (PHPWCMS_ROOT.'/include/inc_ext/phpmailer/class.phpmailer.php');
//load default language EN
require_once (PHPWCMS_ROOT.'/include/inc_lang/backend/en/lang.inc.php');
if($_SESSION["wcs_user_lang_custom"]) { //use custom lang if available -> was set in login.php
	include(PHPWCMS_ROOT.'/include/inc_lang/backend/'.substr($_SESSION["wcs_user_lang"],0,2).'/lang.inc.php');
}

?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
	<title>phpwcms: Send Newsletter</title>
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
	<link href="../inc_css/newsletter.iframe.css" rel="stylesheet" type="text/css" />
</head>
<body>
<?php

$newsletter_id	= empty($_GET['newsletter_id']) ? 0 : intval($_GET['newsletter_id']);

if($newsletter_id) {
	// read the given subscription datas from db
	$sql  = "SELECT *FROM ".DB_PREPEND."phpwcms_newsletter WHERE newsletter_id=".$newsletter_id." LIMIT 1";
	$newsletter = _dbQuery($sql);
	if(isset($newsletter[0]['newsletter_vars'])) {
		$newsletter[0]['newsletter_vars'] = unserialize($newsletter[0]['newsletter_vars']);
		$newsletter = $newsletter[0];
	} else {
		$newsletter = false;
	}
} else {
	$newsletter	= false;
}

if(!$newsletter) {

	echo 'No valid newsletter ID given.';

} elseif($_SESSION["wcs_user_admin"] == 1) {

	$notest		= 1;
	$recipient	= array();
	$loop		= isset($_GET['loop']) ? intval($_GET['loop']) : 0;
	if(!$loop && @ini_get('safe_mode') == '1') {
		$loop = 25;
	}
	$pause		= isset($_GET['pause']) ? intval($_GET['pause']) : 1;

	//check if a test email should be send
	if(!empty($_GET['send_testemail'])) {
	
		$notest = 0;

		$test_email_error = array();
		$test_email = clean_slweg($_GET['send_testemail']);
		$test_email = str_replace(array(' ', ','), ';', $test_email);
		$test_email = convertStringToArray($test_email, ';');
		
		foreach($test_email as $test_email_value) {
			if(is_valid_email($test_email_value)) {
				
				$recipient[] = array(	'address_name'	=> 'Newsletter test recipient', 
										'address_email'	=> $test_email_value, 
										'address_key'	=> '', 
										'queue_id'		=> 0 );
				
				echo '<p><strong>'.$BL['be_newsletter_testemail'].'</strong></p>';
				
			} else {
				$test_email_error[] = $test_email_value;
			}
		}
		
		if(count($test_email_error)) {
			echo str_replace('###TEST###', '&nbsp;&#8226; '.implode('&nbsp;&#8226; ', $test_email_error), $BL['be_newsletter_testerror']);
		}


	} elseif(isset($_GET['send_confirm']) && $_GET['send_confirm'] == 'confirmed') {
	
		// retrieve all recipients now
		
		// disable time limit
		if(!$loop) {
			set_time_limit(0);
		}
		
		// retrieve recipients for current loop
		$sql  = 'SELECT address_key, address_email, address_name, queue_id ';
		$sql .= 'FROM '.DB_PREPEND.'phpwcms_address ';
		$sql .= 'LEFT JOIN '.DB_PREPEND.'phpwcms_newsletterqueue ';
		$sql .= 'ON '.DB_PREPEND.'phpwcms_address.address_id = '.DB_PREPEND.'phpwcms_newsletterqueue.queue_rid ';
		$sql .= 'WHERE '.DB_PREPEND.'phpwcms_newsletterqueue.queue_status=0 AND ';
		$sql .= DB_PREPEND.'phpwcms_newsletterqueue.queue_pid='.$newsletter["newsletter_id"];
		if($loop) {
			$sql .= ' LIMIT '.$loop;
		}
		$recipient = _dbQuery($sql);
	
	
	} else {
	
		// do nothing
	
	}
	
	
	if(count($recipient)) {

		echo '<p><strong>'.$BL['be_newsletter_to'].': </strong><p>';
		
		// check for newsletter template
		if(!empty($newsletter['newsletter_vars']['template']) && ($template = @file_get_contents(PHPWCMS_TEMPLATE.'inc_newsletter/'.$newsletter['newsletter_vars']['template'].'/newsletter.tmpl'))) {
			$template_html = trim(get_tmpl_section('HTML', $template));
			$template_text = trim(get_tmpl_section('TEXT', $template));
			if($template_html) {
				$newsletter['newsletter_vars']['html'] = str_replace('{CONTENT}', $newsletter['newsletter_vars']['html'], $template_html);
				$newsletter['newsletter_vars']['html'] = preg_replace('/( src=["\'](?!http:|https:|mailto:))(.*?)/i', '$1'.PHPWCMS_URL.'$2', $newsletter['newsletter_vars']['html']);
			}
			if($template_text) {
				$newsletter['newsletter_vars']['text'] = str_replace('{CONTENT}', $newsletter['newsletter_vars']['text'], $template_text);
			}
		}
	
		$mail = new PHPMailer();
		$mail->Mailer 		= $phpwcms['SMTP_MAILER'];
		$mail->Host 		= $phpwcms['SMTP_HOST'];
		$mail->Port 		= $phpwcms['SMTP_PORT'];
		$mail->CharSet	 	= $phpwcms["charset"];
		if($phpwcms['SMTP_AUTH']) {
			$mail->SMTPAuth = 1;
			$mail->Username = $phpwcms['SMTP_USER'];
			$mail->Password = $phpwcms['SMTP_PASS'];
		}
		
		$mail->From 		= $newsletter['newsletter_vars']['from_email'];
		$mail->FromName 	= $newsletter['newsletter_vars']['from_name'];
		$mail->Sender	 	= $newsletter['newsletter_vars']['replyto'];
		$mail->Subject		= $newsletter['newsletter_subject'];
		
		if(!$mail->SetLanguage($phpwcms['default_lang'])) {
			$mail->SetLanguage('en');
		}
		
		$mail->SMTPKeepAlive = true;
		
		$x = 0;
		
		foreach($recipient as $value) {
		
			if($x == 20) {
				$mail->SmtpClose(); // Manually close the SMTP connection
				$mail->SMTPKeepAlive = true;
			}
	
			$mail->AddAddress($value['address_email'], $value['address_name']);
			
			if($newsletter['newsletter_vars']['html'] && $newsletter['newsletter_vars']['text']) {
				//send both TEXT and HTML part
				$mail->Body =	 build_email_text($newsletter['newsletter_vars']['html'], $value);
				$mail->AltBody = build_email_text($newsletter['newsletter_vars']['text'], $value);
				$mail->IsHTML(1);
			}
			
			if($newsletter['newsletter_vars']['html'] && !$newsletter['newsletter_vars']['text']) {
				//send HTML part
				$mail->Body = build_email_text($newsletter['newsletter_vars']['html'], $value);
				$mail->IsHTML(1);
			}
			
			if(!$newsletter['newsletter_vars']['html'] && $newsletter['newsletter_vars']['text']) {
				//send TEXT part
				$mail->Body = build_email_text($newsletter['newsletter_vars']['text'], $value);
				$mail->IsHTML(0);
			}
			
			// update newsletter queue
			$sql  = 'UPDATE '.DB_PREPEND.'phpwcms_newsletterqueue SET ';
			$sql .= 'queue_changed=NOW(), ';
			if( ( $mailresult = $mail->Send() ) == false ) {
				// save error information
				$sql .= 'queue_status=2, ';
				$sql .= "queue_errormsg='".aporeplace($mail->ErrorInfo)."' ";
			} else {
				// save success
				$sql .= 'queue_status=1 ';
			}
			$sql .= 'WHERE queue_id='.$value['queue_id'];
			@_dbQuery($sql, 'UPDATE');
			
			if($mailresult == false) {
				echo '<p style="color:#CC3300">'.$value['address_email'].' ('.$mail->ErrorInfo.')</p>';
			} else {
				echo '. ';
			}
			flush();
			
			$mail->ClearAddresses();
			$x++;
	
			if($loop && $loop == $x) {
				$mail->SmtpClose();
				updateSentDate($newsletter["newsletter_id"]);
				echo '<script type="text/javascript">'.LF.SCRIPT_CDATA_START.LF;
				echo 'function loopIt() { self.location.href="act_sendnewsletter.php?';
				echo 'newsletter_id='.$newsletter["newsletter_id"].'&';
				echo 'send_confirm=confirmed&loop='.$loop.'&pause='.$pause.'"; }'.LF;
				echo 'window.setTimeout("loopIt()", '. ($pause * 1000) .')'.LF;
				echo LF.SCRIPT_CDATA_END.LF.'</script></body></html>';

				flush();
				exit();
			}
			
		}
		
		$mail->SmtpClose();
		updateSentDate($newsletter["newsletter_id"]);
		echo '<br /><br />';
		echo $BL['be_newsletter_ready'];
	
	
	}
		
} else {
	echo 'no permission';
}

function build_email_text($text, &$value) {

	//build right message part
	$refkey	= rawurlencode($value['address_key']);

	$text = str_replace('###RECIPIENT_NAME###', $value['address_name'], $text);
	$text = str_replace('###RECIPIENT_EMAIL###', $value['address_email'], $text);
	$text = str_replace('###SITE_URL###', PHPWCMS_URL, $text);
	$text = str_replace('###VERIFY_LINK###', PHPWCMS_URL.'verify.php?s='.$refkey, $text);
	$text = str_replace('###DELETE_LINK###', PHPWCMS_URL.'verify.php?u='.$refkey, $text);
	
	return $text;

}

function updateSentDate($id=0) {

	$sql  = "UPDATE ".DB_PREPEND."phpwcms_newsletter SET ";
	$sql .= "newsletter_lastsending=NOW(), ";
	$sql .= "newsletter_changed=newsletter_changed ";
	$sql .= "WHERE newsletter_id=".$id." LIMIT 1";
	_dbQuery($sql, 'UPDATE');

}


?>
</body>
</html>
