D-Net

<?php

defined('_JEXEC') or die('Access denied');

jimport('joomla.application.component.view');

jimport('joomla.log.log');

jimport('joomla.utilities.utility');

class OpenAireViewEmailPublication extends JView {

	const SEARCH = 'search';

	const PIWIK = 'piwik';

	const LOG = 'openaire';

	const MAX_LINE = 900; // max allowable email line is 998 chars

	function display($template = NULL) {

		$application = JFactory :: getApplication();

		$locale = JFactory :: getLanguage() -> getTag();

		$itemId = JRequest :: getUInt('Itemid', 0);

		$publicationId = JRequest :: getString('publicationId');

		$recipient = JRequest :: getString('recipient');

		$this -> getModel(self :: PIWIK) -> track('emailPublication', 'publicationId=' . urlencode($this -> publicationId) . '&locale=' . urlencode($locale) . '&recipient=' . urlencode($recipient));

		$publication = $this -> getModel(self :: SEARCH) -> getPublication($publicationId, $locale);

		$this -> loadHelper('PublicationHelper');

		if (($publicationId == NULL) || ($publication == NULL) || ($publication -> title == NULL))

			JLog :: add('Error sending publication ' . $publicationId . ' via email to ' . $recipient . ': error retrieving publication', JLog :: ERROR, self :: LOG);

		else if (JUtility :: sendMail(JText :: _('EMAIL_ADDRESS'), JText :: _('OPENAIRE'), $recipient, JText :: _('OPENAIRE') . ' - ' . $publication -> title, $this -> splitLines(PublicationHelper :: formatPublication($publication, $itemId)), TRUE))

			JLog :: add('Sent publication ' . $publicationId . ' via email to ' . $recipient, JLog :: INFO, self :: LOG);

		else

			JLog :: add('Error sending publication ' . $publicationId . ' via email to ' . $recipient . ': error delivering message', JLog :: ERROR, self :: LOG);

		$application -> redirect(JRoute :: _('index.php?option=com_openaire&view=article&Itemid=' . $itemId . '&articleId=' . $publicationId, FALSE));

		return TRUE;

	}

	private function splitLines($body) {

		$newBody = '';

		while (strlen($body) >= self :: MAX_LINE) {

			$line = substr($body, 0, self :: MAX_LINE);

			$line = substr($line, 0, strrpos($line, ' '));

			$body = substr($body, strlen($line));

			$newBody .= $line . "\n";

		}

		$newBody .= $body;

		return $newBody;

	}

}