diff --git a/plugins/ktstandard/KTEmail.php b/plugins/ktstandard/KTEmail.php index 9f6146d..7c3934c 100644 --- a/plugins/ktstandard/KTEmail.php +++ b/plugins/ktstandard/KTEmail.php @@ -1,625 +1,629 @@ -. - * - * You can contact KnowledgeTree Inc., PO Box 7775 #87847, San Francisco, - * California 94120-7775, or email info@knowledgetree.com. - * - * The interactive user interfaces in modified source and object code versions - * of this program must display Appropriate Legal Notices, as required under - * Section 5 of the GNU General Public License version 3. - * - * In accordance with Section 7(b) of the GNU General Public License version 3, - * these Appropriate Legal Notices must retain the display of the "Powered by - * KnowledgeTree" logo and retain the original copyright notice. If the display of the - * logo is not reasonably feasible for technical reasons, the Appropriate Legal Notices - * must display the words "Powered by KnowledgeTree" and retain the original - * copyright notice. - * Contributor( s): ______________________________________ - * - */ - -require_once(KT_LIB_DIR . '/actions/actionregistry.inc.php'); - -require_once(KT_LIB_DIR . '/email/Email.inc'); -require_once(KT_LIB_DIR . '/users/User.inc'); -require_once(KT_LIB_DIR . '/groups/Group.inc'); -require_once(KT_LIB_DIR . '/documentmanagement/DocumentTransaction.inc'); -require_once(KT_LIB_DIR . '/documentmanagement/Document.inc'); -require_once(KT_DIR . '/ktwebservice/KTDownloadManager.inc.php'); - -/** - * Sends emails to the selected groups - */ -function sendGroupEmails($aGroupIDs, &$aUserEmails, &$aEmailErrors) { - global $default; - - // loop through groups - for ($i=0; $i 0) { - $oDestGroup = Group::get($aGroupIDs[$i]); - - $aMemberGroups = $oDestGroup->getMemberGroups(); - foreach ($aMemberGroups as $member){ - $aDestinationGroups[] = $member; - } - $aDestinationGroups[] = $oDestGroup; - - $default->log->info('sendingEmail to group ' . $oDestGroup->getName()); - // for each group, retrieve all the users - foreach($aDestinationGroups as $oGroup){ - // Need to only retrieve users that are not diabled. - $aUsers = kt_array_merge($aUsers, $oGroup->getUsers()); - } - - // FIXME: this should send one email with multiple To: users - // The FIX (26-09-2007): create an array of users to email - for ($j=0; $jlog->info('sendingEmail to group-member ' . $aUsers[$j]->getName() . ' with email ' . $aUsers[$j]->getEmail()); - // the user has an email address and has email notification enabled - if (strlen($aUsers[$j]->getEmail())>0 && $aUsers[$j]->getEmailNotification()) { - //if the to address is valid, send the mail - if (validateEmailAddress($aUsers[$j]->getEmail())) { - // use the email address as the index to ensure the user is only sent 1 email - $aUserEmails[$aUsers[$j]->getEmail()] = $aUsers[$j]->getName(); - } else { - $default->log->error('email validation failed for ' . $aUsers[$j]->getEmail()); - } - } else { - $default->log->info('either ' . $aUsers[$j]->getUserName() . ' has no email address, or notification is not enabled'); - } - } - } else { - $default->log->info('filtered group id=' . $aGroupIDs[$i]); - } - } -} - -/** - * Sends emails to the selected users - */ -function sendUserEmails($aUserIDs, &$aUserEmails, &$aEmailErrors) { - global $default; - - // loop through users - for ($i=0; $i 0) { - $oDestUser = User::get($aUserIDs[$i]); - $default->log->info('sendingEmail to user ' . $oDestUser->getName() . ' with email ' . $oDestUser->getEmail()); - // the user has an email address and has email notification enabled - if (strlen($oDestUser->getEmail())>0 && $oDestUser->getEmailNotification()) { - //if the to address is valid, send the mail - if (validateEmailAddress($oDestUser->getEmail())) { - // use the email address as the index to ensure the user is only sent 1 email - $aUserEmails[$oDestUser->getEmail()] = $oDestUser->getName(); - } - } else { - $default->log->info('either ' . $oDestUser->getUserName() . ' has no email address, or notification is not enabled'); - } - } else { - $default->log->info('filtered user id=' . $aUserIDs[$i]); - } - } -} - -/** - * Sends emails to the manually entered email addresses - */ -function sendManualEmails($aEmailAddresses, &$aUserEmails, &$aEmailErrors) { - global $default; - - // loop through users - foreach ($aEmailAddresses as $sEmailAddress) { - $default->log->info('sendingEmail to address ' . $sEmailAddress); - if (validateEmailAddress($sEmailAddress)) { - // use the email address as the index to ensure the user is only sent 1 email - $aUserEmails[$sEmailAddress] = ''; - } - } -} - -function sendExternalEmails($aEmailAddresses, $iDocumentID, $sDocumentName, $sComment, &$aEmailErrors){ - global $default; - $oSendingUser = User::get($_SESSION['userID']); - - // Create email content - $sMessage = ''; - $sMessage .= sprintf("Vea el documento '%s'
", $sDocumentName); - //$sMessage .= sprintf(_kt("Your colleague, %s, wishes you to view the document entitled '%s'."), $oSendingUser->getName(), $sDocumentName); - $sMessage .= 'Puede acceder ahora ('.generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", 'Ver documento').') pero tenga en cuenta que sólo podrá descargarlo una vez.'; - $sMessage .= "
"; - $sMessage .= 'Si desea volver a consultarlo más tarde, guárdelo antes.'; - //$sMessage .= _kt('Click on the hyperlink below to view it.') . '

'; - /*$sMsgEnd = '

' . _kt('Comments') . ':
' . $sComment; - $sMsgEnd .= '';*/ - - //$sMessage .= _kt('Comments') . ':
' . $sComment; - if (strlen($sComment) > 0) { - $sMessage .= '

' . _kt('Comments') . ':
' . nl2br($sComment); - } - $sMessage .= '
'; - - - //$sTitle = sprintf(_kt("Link (ID %s): %s from %s"), $iDocumentID, $sDocumentName, $oSendingUser->getName()); - //$sTitle = sprintf(_kt("%s quiere compartir con usted un documento (%s)"), $oSendingUser->getName(), $sDocumentName); - //$sTitle = sprintf(_kt("Document (ID %s): %s from %s"), $iDocumentID, $sDocumentName, $oSendingUser->getName()); - $sTitle = sprintf("El documento '%s'", $sDocumentName); - -/* $sTitle = sprintf(_kt("%s wants to share a document using KnowledgeTree"), $oSendingUser->getName()); - - $sMessage = '
-     '._kt('Hello').', -
-
-     '.sprintf(_kt('A KnowledgeTree user, %s, wants to share a document with you entitled "%s".'), $oSendingUser->getName(), $sDocumentName).' -
-
-     '._kt('Message').': -
-
-     '.$sComment.' -
-
-     '._kt('KnowledgeTree is easy to use open source document management software
    that helps businesses collaborate, securely store all critical documents, address
    compliance challenges, and improve business processes.').' -
-
'; -*/ - - $sEmail = null; - $sEmailFrom = null; - $oConfig =& KTConfig::getSingleton(); - if (!$oConfig->get('email/sendAsSystem')) { - $sEmail = $oSendingUser->getEmail(); - $sEmailFrom = $oSendingUser->getName(); - } - - $iCounter = 0; - foreach ($aEmailAddresses as $sAddress){ - $oEmail = new Email($sEmail, $sEmailFrom); - if(validateEmailAddress($sAddress)){ - // Add to list of addresses - $sDestEmails .= (empty($sDestEmails)) ? $sAddress : ', '.$sAddress; - - // Create uniqueish temporary session id - $session = 'ktext_'.$iDocumentID.time().$iCounter++; - - // Create download link - $oDownloadManager = new KTDownloadManager(); - $oDownloadManager->set_session($session); - $link = $oDownloadManager->allow_download($iDocumentID); - -// $link = "{$link}"; - //$links = '    '._kt('Learn More').''; - //$links.= " | "._kt('View Document').""; - //$links .= ' | '._kt('Download Free Trial').'

'; - //$links.= "
"._kt('View Document')."

"; - -// $sMsg = $sMessage.$link.$sMsgEnd; - $sMsg = $sMessage.$links; - $res = $oEmail->send(array($sAddress), $sTitle, $sMsg); - - if (PEAR::isError($res)) { - $default->log->error($res->getMessage()); - $aEmailErrors[] = $res->getMessage(); - } else if ($res === false) { - $default->log->error("Error sending email ($sTitle) to $sAddress"); - $aEmailErrors[] = "Error sending email ($sTitle) to $sAddress"; - } - } - $default->log->info("Send email ($sTitle) to external addresses $sDestEmails"); - - // emailed link transaction - // need a document to do this. - $oDocument =& Document::get($iDocumentID); - - $oDocumentTransaction = new DocumentTransaction($oDocument, sprintf(_kt("Document link emailed to external addresses %s. "), $sDestEmails).$sComment, 'ktcore.transactions.email_link'); - - if ($oDocumentTransaction->create()) { - $default->log->debug("emailBL.php created email link document transaction for document ID=$iDocumentID"); - } else { - $default->log->error("emailBL.php couldn't create email link document transaction for document ID=$iDocumentID"); - } - } -} - -/** - * Constructs the email message text and sends the message - */ -function sendEmail($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, $bAttachDocument = false, &$aEmailErrors) { - if ($bAttachDocument !== true) { - return sendEmailHyperlink($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, $aEmailErrors); - } else { - return sendEmailDocument($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, $aEmailErrors); - } -} - -function sendEmailDocument($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, &$aEmailErrors) { - global $default; - // Get the email list as a string for the logs - $sDestEmails = implode(',', $aDestEmailAddress); - $oSendingUser = User::get($_SESSION['userID']); - - //$sMessage .= sprintf(_kt("Your colleague, %s, wishes you to view the attached document entitled '%s'."), $oSendingUser->getName(), $sDocumentName); - $sMessage .= sprintf(_kt("Vea el documento adjunto '%s'."), $sDocumentName); - - //$sMessage .= _kt('Click on the hyperlink below to view it.') . '
'; - // add the link to the document to the mail - //$sMessage .= '
' . generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", $sDocumentName, true); - // add additional comment - if (strlen($sComment) > 0) { - $sMessage .= '

' . _kt('Comments') . ':
' . nl2br($sComment); - } - $sTitle = sprintf(_kt("El documento '%s'"), $sDocumentName); - - $sEmail = null; - $sEmailFrom = null; - $oConfig =& KTConfig::getSingleton(); - if (!$oConfig->get('email/sendAsSystem')) { - $sEmail = $oSendingUser->getEmail(); - $sEmailFrom = $oSendingUser->getName(); - } - $oEmail = new Email($sEmail, $sEmailFrom); - $oDocument = Document::get($iDocumentID); - - // Request a standard file path so that it can be attached to the - // email - $oStorage =& KTStorageManagerUtil::getSingleton(); - $sDocumentPath = $oStorage->temporaryFile($oDocument); - - $sDocumentFileName = $oDocument->getFileName(); - $res = $oEmail->sendAttachment($aDestEmailAddress, $sTitle, $sMessage, $sDocumentPath, $sDocumentFileName); - - // Tell the storage we don't need the temporary file anymore. - $oStorage->freeTemporaryFile($sDocumentPath); - - if (PEAR::isError($res)) { - $default->log->error($res->getMessage()); - $aEmailErrors[] = $res->getMessage(); - return $res; - } else if ($res === false) { - $default->log->error("Error sending email ($sTitle) to $sDestEmails"); - $aEmailErrors[] = "Error sending email ($sTitle) to $sDestEmails"; - return PEAR::raiseError(sprintf(_kt("Error sending email (%s) to %s"), $sTitle, $sDestEmails)); - } else { - $default->log->info("Send email ($sTitle) to $sDestEmails"); - } - - // emailed link transaction - $oDocumentTransaction = new DocumentTransaction($oDocument, sprintf(_kt("Document copy emailed to %s. "), $sDestEmails).$sComment, 'ktcore.transactions.email_attachment'); - if ($oDocumentTransaction->create()) { - $default->log->debug("emailBL.php created email link document transaction for document ID=$iDocumentID"); - } else { - $default->log->error("emailBL.php couldn't create email link document transaction for document ID=$iDocumentID"); - } -} - -function sendEmailHyperlink($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, &$aEmailErrors) { - global $default; - // Get the email list as a string for the logs - $sDestEmails = implode(',', $aDestEmailAddress); - $oSendingUser = User::get($_SESSION['userID']); - - $oDocument = Document::get($iDocumentID); - $sDocumentFullPath = $oDocument->getFullPath(); - - $sMessage = ''; - /* - if ($sDestUserName) { - $sMessage .= $sDestUserName . ',

'; - } - */ - - //$sMessage .= sprintf(_kt("Your colleague, %s, wishes you to view the document entitled '%s'."), $oSendingUser->getName(), $sDocumentName); - $sMessage .= sprintf("Vea el documento '%s'.", $sDocumentFullPath); - $sMessage .= "
"; - //$sMessage .= _kt('Click on the hyperlink below to view it.') . '
'; - // add the link to the document to the mail - //$sMessage .= '
' . generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", $sDocumentName, true); - $sMessage .= 'Puede acceder ahora ('.generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", 'Ver documento').') o más tarde a través de FLIPO.'; - - // add optional comment - if (strlen($sComment) > 0) { - $sMessage .= '

' . _kt('Comments') . ':
' . nl2br($sComment); - } - $sMessage .= ''; - //$sTitle = sprintf(_kt("Link (ID %s): %s from %s"), $iDocumentID, $sDocumentName, $oSendingUser->getName()); - $sTitle = sprintf(_kt("El documento '%s'"), $sDocumentName); - - //email the hyperlink - // - $sEmail = null; - $sEmailFrom = null; - $oConfig =& KTConfig::getSingleton(); - if (!$oConfig->get('email/sendAsSystem')) { - $sEmail = $oSendingUser->getEmail(); - $sEmailFrom = $oSendingUser->getName(); - } - $oEmail = new Email($sEmail, $sEmailFrom); - - $res = $oEmail->send($aDestEmailAddress, $sTitle, $sMessage); - if (PEAR::isError($res)) { - $default->log->error($res->getMessage()); - $aEmailErrors[] = $res->getMessage(); - return $res; - } else if ($res === false) { - $default->log->error("Error sending email ($sTitle) to $sDestEmails"); - $aEmailErrors[] = "Error sending email ($sTitle) to $sDestEmails"; - return PEAR::raiseError(sprintf(_kt("Error sending email (%s) to %s"), $sTitle, $sDestEmails)); - } else { - $default->log->info("Send email ($sTitle) to $sDestEmails"); - } - - // emailed link transaction - // need a document to do this. - $oDocument =& Document::get($iDocumentID); - - $oDocumentTransaction = new DocumentTransaction($oDocument, sprintf(_kt("Document link emailed to %s. "), $sDestEmails).$sComment, 'ktcore.transactions.email_link'); - - if ($oDocumentTransaction->create()) { - $default->log->debug("emailBL.php created email link document transaction for document ID=$iDocumentID"); - } else { - $default->log->error("emailBL.php couldn't create email link document transaction for document ID=$iDocumentID"); - } -} - -function validateEmailAddress($sEmailAddress) { - $aEmailAddresses = array(); - if (strpos($sEmailAddress, ';')) { - $aEmailAddresses = explode(';', $sEmailAddress); - } else { - $aEmailAddresses[] = $sEmailAddress; - } - $bToReturn = true; - for ($i=0; $iget('email/emailServer'); - if ($sEmailServer == 'none') { - return null; - } - if (empty($sEmailServer)) { - return null; - } - - return parent::getInfo(); - } - - function do_main() { - $oConfig = KTConfig::getSingleton(); - $bAttachment = $oConfig->get('email/allowAttachment', false); - $bEmailAddresses = $oConfig->get('email/allowEmailAddresses', false); - $bOnlyOwnGroup = $oConfig->get('email/onlyOwnGroups', false); - - - $fields = array(); - - $fields[] = new KTJSONLookupWidget(_kt('Groups'), '', - 'groups', '', $this->oPage, false, null, null, - array('action'=>sprintf('getGroups&fDocumentId=%d', $this->oDocument->getId()), - 'assigned' => array(), - 'multi'=>'true', - 'size'=>'8')); - - $fields[] = new KTJSONLookupWidget(_kt('Users'), '', - 'users', '', $this->oPage, false, null, null, - array('action'=>sprintf('getUsers&fDocumentId=%d', $this->oDocument->getId()), - 'assigned' => array(), - 'multi'=>'true', - 'size'=>'8')); - - - if ($bAttachment) { - $fields[] = new KTCheckboxWidget(_kt('Attach document'), - _kt('By default, documents are sent as links into the document management system. Select this option if you want the document contents to be sent as an attachment in the email.'), - 'fAttachDocument', null, $this->oPage); - } - if ($bEmailAddresses) { - $fields[] = new KTTextWidget(_kt('Email addresses'), - _kt('Documents can be emailed to external users by entering their email addresses below'), - 'fEmailAddresses', '', $this->oPage, - false, null, null, array('cols' => 60, 'rows' => 5)); - } - - $fields[] = new KTTextWidget(_kt('Comment'), - _kt('A message for those who receive the document'), - 'fComment', '', $this->oPage, - true, null, null, array('cols' => 60, 'rows' => 5)); - - - $oTemplate =& $this->oValidator->validateTemplate('ktstandard/action/email'); - $aTemplateData = array( - 'context' => &$this, - 'fields' => $fields, - 'groups' => $aGroups, - 'users' => $aUsers, - ); - return $oTemplate->render($aTemplateData); - } - - function json_getGroups() { - $oConfig = KTConfig::getSingleton(); - $bOnlyOwnGroup = $oConfig->get('email/onlyOwnGroups', false); - $sFilter = KTUtil::arrayGet($_REQUEST, 'filter', false); - $aGroupList = array('off'=> _kt('-- Please filter --')); - - if($sFilter && trim($sFilter)) { - $sWhere = sprintf('name LIKE "%%%s%%"', $sFilter); - if ($bOnlyOwnGroup != true) { - $aGroups = Group::getList($sWhere); - } else { - $aGroups = GroupUtil::listGroupsForUser($this->oUser, array('where' => $sWhere)); - } - $aGroupList = array(); - foreach($aGroups as $g) { - $aGroupList[$g->getId()] = $g->getName(); - } - } - - return $aGroupList; - } - - - function json_getUsers() { - $oConfig = KTConfig::getSingleton(); - $bOnlyOwnGroup = $oConfig->get('email/onlyOwnGroups', false); - - $sFilter = KTUtil::arrayGet($_REQUEST, 'filter', false); - $aUserList = array('off' => _kt('-- Please filter --')); - - if($sFilter && trim($sFilter)) { - $sWhere = sprintf('name LIKE \'%%%s%%\' AND disabled = \'0\'', $sFilter); - if ($bOnlyOwnGroup != true) { - $aUsers = User::getEmailUsers($sWhere); - } else { - $aGroups = GroupUtil::listGroupsForUser($this->oUser); - $aMembers = array(); - foreach ($aGroups as $oGroup) { - $aMembers = kt_array_merge($aMembers, $oGroup->getMembers()); - } - $aUsers = array(); - $aUserIds = array(); - foreach ($aMembers as $oUser) { - if (in_array($oUser->getId(), $aUserIds)) { - continue; - } - $aUsers[] = $oUser; - } - } - - $aUserList = array(); - foreach($aUsers as $u) { - $aUserList[$u->getId()] = $u->getName(); - } - } - - return $aUserList; - } - - - function do_email() { - $groupNewRight = trim($_REQUEST['groups_items_added'], chr(160)); - - $userNewRight = trim($_REQUEST['users_items_added'], chr(160)); - - $fEmailAddresses = trim($_REQUEST['fEmailAddresses']); - $fAttachDocument = $_REQUEST['fAttachDocument']; - $fComment = $this->oValidator->validateString($_REQUEST['fComment'], - array('redirect_to'=>array('', sprintf('fDocumentId=%d', $this->oDocument->getId())))); - - // explode group and user ids - $aGroupIDs = array(); - $aUserIDs = array(); - $aEmailAddresses = array(); - if (!empty($groupNewRight)) { - $aGroupIDs = explode(',', $groupNewRight); - } - if (!empty($userNewRight)) { - $aUserIDs = explode(',', $userNewRight); - } - if (!empty($fEmailAddresses)) { - $aAddresses = explode("\n", $fEmailAddresses); - foreach ($aAddresses as $item){ - $aItems = explode(' ', $item); - $aEmailAddresses = array_merge($aEmailAddresses, $aItems); - } - } - - $oConfig = KTConfig::getSingleton(); - $bAttachment = $oConfig->get('email/allowAttachment', false); - $bEmailAddresses = $oConfig->get('email/allowEmailAddresses', false); - - if (empty($bAttachment)) { - $fAttachDocument = false; - } - if (empty($bEmailAddresses)) { - $aEmailAddresses = array(); - } - - - //if we're going to send a mail, first make there is someone to send it to - if ((count($aGroupIDs) == 0) && (count($aUserIDs) == 0) && (count($aEmailAddresses) == 0)) { - $this->errorRedirectToMain(_kt('No recipients set'), sprintf('fDocumentId=%d', $this->oDocument->getId())); - exit(0); - } - - $iDocumentID = $this->oDocument->getID(); - $sDocumentName = $this->oDocument->getName(); - - $aEmailErrors = array(); - $aUserEmails = array(); - // send group emails - sendGroupEmails($aGroupIDs, $aUserEmails, $aEmailErrors); - // send user emails - sendUserEmails($aUserIDs, $aUserEmails, $aEmailErrors); - // send manual/external email addresses - if((boolean)$fAttachDocument){ - sendManualEmails($aEmailAddresses, $aUserEmails, $aEmailErrors); - }else{ - sendExternalEmails($aEmailAddresses, $iDocumentID, $sDocumentName, $fComment, $aEmailErrors); - } - - // get list of email addresses and send - if(!empty($aUserEmails)){ - // email addresses are in the keys -> extract the keys - $aListEmails = array_keys($aUserEmails); - sendEmail($aListEmails, $iDocumentID, $sDocumentName, $fComment, (boolean)$fAttachDocument, $aEmailErrors); - } - // Display success or error, not both - if (count($aEmailErrors)) { - $_SESSION['KTErrorMessage'][] = join('
\n', $aEmailErrors); - } else { - $_SESSION['KTInfoMessage'][] = _kt('Email sent'); - } - //go back to the document view page - controllerRedirect('viewDocument', sprintf("fDocumentId=%d", $this->oDocument->getId())); - } -} - -class KTEmailPlugin extends KTPlugin { - var $sNamespace = 'ktstandard.email.plugin'; - var $autoRegister = true; - - function KTEmailPlugin($sFilename = null) { - $res = parent::KTPlugin($sFilename); - $this->sFriendlyName = _kt('Email Plugin'); - return $res; - } - - function setup() { - $this->registerAction('documentaction', 'KTDocumentEmailAction', 'ktcore.actions.document.email'); - } -} - -$oRegistry =& KTPluginRegistry::getSingleton(); -$oRegistry->registerPlugin('KTEmailPlugin', 'ktstandard.email.plugin', __FILE__); +. + * + * You can contact KnowledgeTree Inc., PO Box 7775 #87847, San Francisco, + * California 94120-7775, or email info@knowledgetree.com. + * + * The interactive user interfaces in modified source and object code versions + * of this program must display Appropriate Legal Notices, as required under + * Section 5 of the GNU General Public License version 3. + * + * In accordance with Section 7(b) of the GNU General Public License version 3, + * these Appropriate Legal Notices must retain the display of the "Powered by + * KnowledgeTree" logo and retain the original copyright notice. If the display of the + * logo is not reasonably feasible for technical reasons, the Appropriate Legal Notices + * must display the words "Powered by KnowledgeTree" and retain the original + * copyright notice. + * Contributor( s): ______________________________________ + * + */ + +require_once(KT_LIB_DIR . '/actions/actionregistry.inc.php'); + +require_once(KT_LIB_DIR . '/email/Email.inc'); +require_once(KT_LIB_DIR . '/users/User.inc'); +require_once(KT_LIB_DIR . '/groups/Group.inc'); +require_once(KT_LIB_DIR . '/documentmanagement/DocumentTransaction.inc'); +require_once(KT_LIB_DIR . '/documentmanagement/Document.inc'); +require_once(KT_DIR . '/ktwebservice/KTDownloadManager.inc.php'); + +/** + * Sends emails to the selected groups + */ +function sendGroupEmails($aGroupIDs, &$aUserEmails, &$aEmailErrors) { + global $default; + + // loop through groups + for ($i=0; $i 0) { + $oDestGroup = Group::get($aGroupIDs[$i]); + + $aMemberGroups = $oDestGroup->getMemberGroups(); + foreach ($aMemberGroups as $member){ + $aDestinationGroups[] = $member; + } + $aDestinationGroups[] = $oDestGroup; + + $default->log->info('sendingEmail to group ' . $oDestGroup->getName()); + // for each group, retrieve all the users + foreach($aDestinationGroups as $oGroup){ + // Need to only retrieve users that are not diabled. + $aUsers = kt_array_merge($aUsers, $oGroup->getUsers()); + } + + // FIXME: this should send one email with multiple To: users + // The FIX (26-09-2007): create an array of users to email + for ($j=0; $jlog->info('sendingEmail to group-member ' . $aUsers[$j]->getName() . ' with email ' . $aUsers[$j]->getEmail()); + // the user has an email address and has email notification enabled + if (strlen($aUsers[$j]->getEmail())>0 && $aUsers[$j]->getEmailNotification()) { + //if the to address is valid, send the mail + if (validateEmailAddress($aUsers[$j]->getEmail())) { + // use the email address as the index to ensure the user is only sent 1 email + $aUserEmails[$aUsers[$j]->getEmail()] = $aUsers[$j]->getName(); + } else { + $default->log->error('email validation failed for ' . $aUsers[$j]->getEmail()); + } + } else { + $default->log->info('either ' . $aUsers[$j]->getUserName() . ' has no email address, or notification is not enabled'); + } + } + } else { + $default->log->info('filtered group id=' . $aGroupIDs[$i]); + } + } +} + +/** + * Sends emails to the selected users + */ +function sendUserEmails($aUserIDs, &$aUserEmails, &$aEmailErrors) { + global $default; + + // loop through users + for ($i=0; $i 0) { + $oDestUser = User::get($aUserIDs[$i]); + $default->log->info('sendingEmail to user ' . $oDestUser->getName() . ' with email ' . $oDestUser->getEmail()); + // the user has an email address and has email notification enabled + if (strlen($oDestUser->getEmail())>0 && $oDestUser->getEmailNotification()) { + //if the to address is valid, send the mail + if (validateEmailAddress($oDestUser->getEmail())) { + // use the email address as the index to ensure the user is only sent 1 email + $aUserEmails[$oDestUser->getEmail()] = $oDestUser->getName(); + } + } else { + $default->log->info('either ' . $oDestUser->getUserName() . ' has no email address, or notification is not enabled'); + } + } else { + $default->log->info('filtered user id=' . $aUserIDs[$i]); + } + } +} + +/** + * Sends emails to the manually entered email addresses + */ +function sendManualEmails($aEmailAddresses, &$aUserEmails, &$aEmailErrors) { + global $default; + + // loop through users + foreach ($aEmailAddresses as $sEmailAddress) { + $default->log->info('sendingEmail to address ' . $sEmailAddress); + if (validateEmailAddress($sEmailAddress)) { + // use the email address as the index to ensure the user is only sent 1 email + $aUserEmails[$sEmailAddress] = ''; + } + } +} + +function sendExternalEmails($aEmailAddresses, $iDocumentID, $sDocumentName, $sComment, &$aEmailErrors){ + global $default; + $oSendingUser = User::get($_SESSION['userID']); + + // Create email content + $sMessage = ''; + $sMessage .= sprintf("Vea el documento '%s'
", $sDocumentName); + //$sMessage .= sprintf(_kt("Your colleague, %s, wishes you to view the document entitled '%s'."), $oSendingUser->getName(), $sDocumentName); + $sMessage .= 'Puede acceder ahora (%s) pero tenga en cuenta que sólo podrá descargarlo una vez.'; + $sMessage .= "
"; + $sMessage .= 'Si desea volver a consultarlo más tarde, guárdelo antes.'; + //$sMessage .= _kt('Click on the hyperlink below to view it.') . '

'; + /*$sMsgEnd = '

' . _kt('Comments') . ':
' . $sComment; + $sMsgEnd .= '';*/ + + //$sMessage .= _kt('Comments') . ':
' . $sComment; + if (strlen($sComment) > 0) { + $sMessage .= '

' . _kt('Comments') . ':
' . nl2br($sComment); + } + $sMessage .= '
'; + + + //$sTitle = sprintf(_kt("Link (ID %s): %s from %s"), $iDocumentID, $sDocumentName, $oSendingUser->getName()); + //$sTitle = sprintf(_kt("%s quiere compartir con usted un documento (%s)"), $oSendingUser->getName(), $sDocumentName); + //$sTitle = sprintf(_kt("Document (ID %s): %s from %s"), $iDocumentID, $sDocumentName, $oSendingUser->getName()); + $sTitle = sprintf("El documento '%s'", $sDocumentName); + +/* $sTitle = sprintf(_kt("%s wants to share a document using KnowledgeTree"), $oSendingUser->getName()); + + $sMessage = '
+     '._kt('Hello').', +
+
+     '.sprintf(_kt('A KnowledgeTree user, %s, wants to share a document with you entitled "%s".'), $oSendingUser->getName(), $sDocumentName).' +
+
+     '._kt('Message').': +
+
+     '.$sComment.' +
+
+     '._kt('KnowledgeTree is easy to use open source document management software
    that helps businesses collaborate, securely store all critical documents, address
    compliance challenges, and improve business processes.').' +
+
'; +*/ + + $sEmail = null; + $sEmailFrom = null; + $oConfig =& KTConfig::getSingleton(); + if (!$oConfig->get('email/sendAsSystem')) { + $sEmail = $oSendingUser->getEmail(); + $sEmailFrom = $oSendingUser->getName(); + } + + $iCounter = 0; + foreach ($aEmailAddresses as $sAddress){ + $oEmail = new Email($sEmail, $sEmailFrom); + if(validateEmailAddress($sAddress)){ + // Add to list of addresses + $sDestEmails .= (empty($sDestEmails)) ? $sAddress : ', '.$sAddress; + + // Create uniqueish temporary session id + $session = 'ktext_'.$iDocumentID.time().$iCounter++; + + // Create download link + $oDownloadManager = new KTDownloadManager(); + $oDownloadManager->set_session($session); + $link = $oDownloadManager->allow_download($iDocumentID); + +// $link = "{$link}"; + //$links = '    '._kt('Learn More').''; + //$links.= " | "._kt('View Document').""; + //$links .= ' | '._kt('Download Free Trial').'

'; + //$links.= "
"._kt('View Document')."

"; + +// $sMsg = $sMessage.$link.$sMsgEnd; + + //$sMsg = $sMessage.$links; + + $sLink = "Ver documento"; + $sMsg = sprintf($sMessage, $sLink); + $res = $oEmail->send(array($sAddress), $sTitle, $sMsg); + + if (PEAR::isError($res)) { + $default->log->error($res->getMessage()); + $aEmailErrors[] = $res->getMessage(); + } else if ($res === false) { + $default->log->error("Error sending email ($sTitle) to $sAddress"); + $aEmailErrors[] = "Error sending email ($sTitle) to $sAddress"; + } + } + $default->log->info("Send email ($sTitle) to external addresses $sDestEmails"); + + // emailed link transaction + // need a document to do this. + $oDocument =& Document::get($iDocumentID); + + $oDocumentTransaction = new DocumentTransaction($oDocument, sprintf(_kt("Document link emailed to external addresses %s. "), $sDestEmails).$sComment, 'ktcore.transactions.email_link'); + + if ($oDocumentTransaction->create()) { + $default->log->debug("emailBL.php created email link document transaction for document ID=$iDocumentID"); + } else { + $default->log->error("emailBL.php couldn't create email link document transaction for document ID=$iDocumentID"); + } + } +} + +/** + * Constructs the email message text and sends the message + */ +function sendEmail($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, $bAttachDocument = false, &$aEmailErrors) { + if ($bAttachDocument !== true) { + return sendEmailHyperlink($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, $aEmailErrors); + } else { + return sendEmailDocument($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, $aEmailErrors); + } +} + +function sendEmailDocument($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, &$aEmailErrors) { + global $default; + // Get the email list as a string for the logs + $sDestEmails = implode(',', $aDestEmailAddress); + $oSendingUser = User::get($_SESSION['userID']); + + //$sMessage .= sprintf(_kt("Your colleague, %s, wishes you to view the attached document entitled '%s'."), $oSendingUser->getName(), $sDocumentName); + $sMessage .= sprintf(_kt("Vea el documento adjunto '%s'."), $sDocumentName); + + //$sMessage .= _kt('Click on the hyperlink below to view it.') . '
'; + // add the link to the document to the mail + //$sMessage .= '
' . generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", $sDocumentName, true); + // add additional comment + if (strlen($sComment) > 0) { + $sMessage .= '

' . _kt('Comments') . ':
' . nl2br($sComment); + } + $sTitle = sprintf(_kt("El documento '%s'"), $sDocumentName); + + $sEmail = null; + $sEmailFrom = null; + $oConfig =& KTConfig::getSingleton(); + if (!$oConfig->get('email/sendAsSystem')) { + $sEmail = $oSendingUser->getEmail(); + $sEmailFrom = $oSendingUser->getName(); + } + $oEmail = new Email($sEmail, $sEmailFrom); + $oDocument = Document::get($iDocumentID); + + // Request a standard file path so that it can be attached to the + // email + $oStorage =& KTStorageManagerUtil::getSingleton(); + $sDocumentPath = $oStorage->temporaryFile($oDocument); + + $sDocumentFileName = $oDocument->getFileName(); + $res = $oEmail->sendAttachment($aDestEmailAddress, $sTitle, $sMessage, $sDocumentPath, $sDocumentFileName); + + // Tell the storage we don't need the temporary file anymore. + $oStorage->freeTemporaryFile($sDocumentPath); + + if (PEAR::isError($res)) { + $default->log->error($res->getMessage()); + $aEmailErrors[] = $res->getMessage(); + return $res; + } else if ($res === false) { + $default->log->error("Error sending email ($sTitle) to $sDestEmails"); + $aEmailErrors[] = "Error sending email ($sTitle) to $sDestEmails"; + return PEAR::raiseError(sprintf(_kt("Error sending email (%s) to %s"), $sTitle, $sDestEmails)); + } else { + $default->log->info("Send email ($sTitle) to $sDestEmails"); + } + + // emailed link transaction + $oDocumentTransaction = new DocumentTransaction($oDocument, sprintf(_kt("Document copy emailed to %s. "), $sDestEmails).$sComment, 'ktcore.transactions.email_attachment'); + if ($oDocumentTransaction->create()) { + $default->log->debug("emailBL.php created email link document transaction for document ID=$iDocumentID"); + } else { + $default->log->error("emailBL.php couldn't create email link document transaction for document ID=$iDocumentID"); + } +} + +function sendEmailHyperlink($aDestEmailAddress, $iDocumentID, $sDocumentName, $sComment, &$aEmailErrors) { + global $default; + // Get the email list as a string for the logs + $sDestEmails = implode(',', $aDestEmailAddress); + $oSendingUser = User::get($_SESSION['userID']); + + $oDocument = Document::get($iDocumentID); + $sDocumentFullPath = $oDocument->getFullPath(); + + $sMessage = ''; + /* + if ($sDestUserName) { + $sMessage .= $sDestUserName . ',

'; + } + */ + + //$sMessage .= sprintf(_kt("Your colleague, %s, wishes you to view the document entitled '%s'."), $oSendingUser->getName(), $sDocumentName); + $sMessage .= sprintf("Vea el documento '%s'.", $sDocumentFullPath); + $sMessage .= "
"; + //$sMessage .= _kt('Click on the hyperlink below to view it.') . '
'; + // add the link to the document to the mail + //$sMessage .= '
' . generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", $sDocumentName, true); + $sMessage .= 'Puede acceder ahora ('.generateControllerLink('viewDocument', "fDocumentID=$iDocumentID", 'Ver documento').') o más tarde a través de FLIPO.'; + + // add optional comment + if (strlen($sComment) > 0) { + $sMessage .= '

' . _kt('Comments') . ':
' . nl2br($sComment); + } + $sMessage .= ''; + //$sTitle = sprintf(_kt("Link (ID %s): %s from %s"), $iDocumentID, $sDocumentName, $oSendingUser->getName()); + $sTitle = sprintf(_kt("El documento '%s'"), $sDocumentName); + + //email the hyperlink + // + $sEmail = null; + $sEmailFrom = null; + $oConfig =& KTConfig::getSingleton(); + if (!$oConfig->get('email/sendAsSystem')) { + $sEmail = $oSendingUser->getEmail(); + $sEmailFrom = $oSendingUser->getName(); + } + $oEmail = new Email($sEmail, $sEmailFrom); + + $res = $oEmail->send($aDestEmailAddress, $sTitle, $sMessage); + if (PEAR::isError($res)) { + $default->log->error($res->getMessage()); + $aEmailErrors[] = $res->getMessage(); + return $res; + } else if ($res === false) { + $default->log->error("Error sending email ($sTitle) to $sDestEmails"); + $aEmailErrors[] = "Error sending email ($sTitle) to $sDestEmails"; + return PEAR::raiseError(sprintf(_kt("Error sending email (%s) to %s"), $sTitle, $sDestEmails)); + } else { + $default->log->info("Send email ($sTitle) to $sDestEmails"); + } + + // emailed link transaction + // need a document to do this. + $oDocument =& Document::get($iDocumentID); + + $oDocumentTransaction = new DocumentTransaction($oDocument, sprintf(_kt("Document link emailed to %s. "), $sDestEmails).$sComment, 'ktcore.transactions.email_link'); + + if ($oDocumentTransaction->create()) { + $default->log->debug("emailBL.php created email link document transaction for document ID=$iDocumentID"); + } else { + $default->log->error("emailBL.php couldn't create email link document transaction for document ID=$iDocumentID"); + } +} + +function validateEmailAddress($sEmailAddress) { + $aEmailAddresses = array(); + if (strpos($sEmailAddress, ';')) { + $aEmailAddresses = explode(';', $sEmailAddress); + } else { + $aEmailAddresses[] = $sEmailAddress; + } + $bToReturn = true; + for ($i=0; $iget('email/emailServer'); + if ($sEmailServer == 'none') { + return null; + } + if (empty($sEmailServer)) { + return null; + } + + return parent::getInfo(); + } + + function do_main() { + $oConfig = KTConfig::getSingleton(); + $bAttachment = $oConfig->get('email/allowAttachment', false); + $bEmailAddresses = $oConfig->get('email/allowEmailAddresses', false); + $bOnlyOwnGroup = $oConfig->get('email/onlyOwnGroups', false); + + + $fields = array(); + + $fields[] = new KTJSONLookupWidget(_kt('Groups'), '', + 'groups', '', $this->oPage, false, null, null, + array('action'=>sprintf('getGroups&fDocumentId=%d', $this->oDocument->getId()), + 'assigned' => array(), + 'multi'=>'true', + 'size'=>'8')); + + $fields[] = new KTJSONLookupWidget(_kt('Users'), '', + 'users', '', $this->oPage, false, null, null, + array('action'=>sprintf('getUsers&fDocumentId=%d', $this->oDocument->getId()), + 'assigned' => array(), + 'multi'=>'true', + 'size'=>'8')); + + + if ($bAttachment) { + $fields[] = new KTCheckboxWidget(_kt('Attach document'), + _kt('By default, documents are sent as links into the document management system. Select this option if you want the document contents to be sent as an attachment in the email.'), + 'fAttachDocument', null, $this->oPage); + } + if ($bEmailAddresses) { + $fields[] = new KTTextWidget(_kt('Email addresses'), + _kt('Documents can be emailed to external users by entering their email addresses below'), + 'fEmailAddresses', '', $this->oPage, + false, null, null, array('cols' => 60, 'rows' => 5)); + } + + $fields[] = new KTTextWidget(_kt('Comment'), + _kt('A message for those who receive the document'), + 'fComment', '', $this->oPage, + true, null, null, array('cols' => 60, 'rows' => 5)); + + + $oTemplate =& $this->oValidator->validateTemplate('ktstandard/action/email'); + $aTemplateData = array( + 'context' => &$this, + 'fields' => $fields, + 'groups' => $aGroups, + 'users' => $aUsers, + ); + return $oTemplate->render($aTemplateData); + } + + function json_getGroups() { + $oConfig = KTConfig::getSingleton(); + $bOnlyOwnGroup = $oConfig->get('email/onlyOwnGroups', false); + $sFilter = KTUtil::arrayGet($_REQUEST, 'filter', false); + $aGroupList = array('off'=> _kt('-- Please filter --')); + + if($sFilter && trim($sFilter)) { + $sWhere = sprintf('name LIKE "%%%s%%"', $sFilter); + if ($bOnlyOwnGroup != true) { + $aGroups = Group::getList($sWhere); + } else { + $aGroups = GroupUtil::listGroupsForUser($this->oUser, array('where' => $sWhere)); + } + $aGroupList = array(); + foreach($aGroups as $g) { + $aGroupList[$g->getId()] = $g->getName(); + } + } + + return $aGroupList; + } + + + function json_getUsers() { + $oConfig = KTConfig::getSingleton(); + $bOnlyOwnGroup = $oConfig->get('email/onlyOwnGroups', false); + + $sFilter = KTUtil::arrayGet($_REQUEST, 'filter', false); + $aUserList = array('off' => _kt('-- Please filter --')); + + if($sFilter && trim($sFilter)) { + $sWhere = sprintf('name LIKE \'%%%s%%\' AND disabled = \'0\'', $sFilter); + if ($bOnlyOwnGroup != true) { + $aUsers = User::getEmailUsers($sWhere); + } else { + $aGroups = GroupUtil::listGroupsForUser($this->oUser); + $aMembers = array(); + foreach ($aGroups as $oGroup) { + $aMembers = kt_array_merge($aMembers, $oGroup->getMembers()); + } + $aUsers = array(); + $aUserIds = array(); + foreach ($aMembers as $oUser) { + if (in_array($oUser->getId(), $aUserIds)) { + continue; + } + $aUsers[] = $oUser; + } + } + + $aUserList = array(); + foreach($aUsers as $u) { + $aUserList[$u->getId()] = $u->getName(); + } + } + + return $aUserList; + } + + + function do_email() { + $groupNewRight = trim($_REQUEST['groups_items_added'], chr(160)); + + $userNewRight = trim($_REQUEST['users_items_added'], chr(160)); + + $fEmailAddresses = trim($_REQUEST['fEmailAddresses']); + $fAttachDocument = $_REQUEST['fAttachDocument']; + $fComment = $this->oValidator->validateString($_REQUEST['fComment'], + array('redirect_to'=>array('', sprintf('fDocumentId=%d', $this->oDocument->getId())))); + + // explode group and user ids + $aGroupIDs = array(); + $aUserIDs = array(); + $aEmailAddresses = array(); + if (!empty($groupNewRight)) { + $aGroupIDs = explode(',', $groupNewRight); + } + if (!empty($userNewRight)) { + $aUserIDs = explode(',', $userNewRight); + } + if (!empty($fEmailAddresses)) { + $aAddresses = explode("\n", $fEmailAddresses); + foreach ($aAddresses as $item){ + $aItems = explode(' ', $item); + $aEmailAddresses = array_merge($aEmailAddresses, $aItems); + } + } + + $oConfig = KTConfig::getSingleton(); + $bAttachment = $oConfig->get('email/allowAttachment', false); + $bEmailAddresses = $oConfig->get('email/allowEmailAddresses', false); + + if (empty($bAttachment)) { + $fAttachDocument = false; + } + if (empty($bEmailAddresses)) { + $aEmailAddresses = array(); + } + + + //if we're going to send a mail, first make there is someone to send it to + if ((count($aGroupIDs) == 0) && (count($aUserIDs) == 0) && (count($aEmailAddresses) == 0)) { + $this->errorRedirectToMain(_kt('No recipients set'), sprintf('fDocumentId=%d', $this->oDocument->getId())); + exit(0); + } + + $iDocumentID = $this->oDocument->getID(); + $sDocumentName = $this->oDocument->getName(); + + $aEmailErrors = array(); + $aUserEmails = array(); + // send group emails + sendGroupEmails($aGroupIDs, $aUserEmails, $aEmailErrors); + // send user emails + sendUserEmails($aUserIDs, $aUserEmails, $aEmailErrors); + // send manual/external email addresses + if((boolean)$fAttachDocument){ + sendManualEmails($aEmailAddresses, $aUserEmails, $aEmailErrors); + }else{ + sendExternalEmails($aEmailAddresses, $iDocumentID, $sDocumentName, $fComment, $aEmailErrors); + } + + // get list of email addresses and send + if(!empty($aUserEmails)){ + // email addresses are in the keys -> extract the keys + $aListEmails = array_keys($aUserEmails); + sendEmail($aListEmails, $iDocumentID, $sDocumentName, $fComment, (boolean)$fAttachDocument, $aEmailErrors); + } + // Display success or error, not both + if (count($aEmailErrors)) { + $_SESSION['KTErrorMessage'][] = join('
\n', $aEmailErrors); + } else { + $_SESSION['KTInfoMessage'][] = _kt('Email sent'); + } + //go back to the document view page + controllerRedirect('viewDocument', sprintf("fDocumentId=%d", $this->oDocument->getId())); + } +} + +class KTEmailPlugin extends KTPlugin { + var $sNamespace = 'ktstandard.email.plugin'; + var $autoRegister = true; + + function KTEmailPlugin($sFilename = null) { + $res = parent::KTPlugin($sFilename); + $this->sFriendlyName = _kt('Email Plugin'); + return $res; + } + + function setup() { + $this->registerAction('documentaction', 'KTDocumentEmailAction', 'ktcore.actions.document.email'); + } +} + +$oRegistry =& KTPluginRegistry::getSingleton(); +$oRegistry->registerPlugin('KTEmailPlugin', 'ktstandard.email.plugin', __FILE__);