emailcollector_card.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2018 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2022 Charlene Benke     <charlene@patas-monkey.com>
 *
 * 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 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
// Load Dolibarr environment
require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/agenda.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/events.class.php';
 
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
include_once DOL_DOCUMENT_ROOT.'/emailcollector/class/emailcollector.class.php';
include_once DOL_DOCUMENT_ROOT.'/emailcollector/class/emailcollectorfilter.class.php';
include_once DOL_DOCUMENT_ROOT.'/emailcollector/class/emailcollectoraction.class.php';
include_once DOL_DOCUMENT_ROOT.'/emailcollector/lib/emailcollector.lib.php';
 
// use Webklex\PHPIMAP;
require DOL_DOCUMENT_ROOT.'/includes/webklex/php-imap/vendor/autoload.php';
use Webklex\PHPIMAP\ClientManager;
use Webklex\PHPIMAP\Exceptions\ConnectionFailedException;
use Webklex\PHPIMAP\Exceptions\InvalidWhereQueryCriteriaException;
 
 
use OAuth\Common\Storage\DoliStorage;
use OAuth\Common\Consumer\Credentials;
 
if (!$user->admin) {
  accessforbidden();
}
if (!isModEnabled('emailcollector')) {
  accessforbidden();
}
 
// Load traductions files required by page
$langs->loadLangs(array("admin", "mails", "other"));
 
// Get parameters
$id = GETPOST('id', 'int');
$ref        = GETPOST('ref', 'alpha');
$action = GETPOST('action', 'aZ09');
$confirm    = GETPOST('confirm', 'alpha');
$cancel     = GETPOST('cancel', 'aZ09');
$contextpage = GETPOST('contextpage', 'aZ') ?GETPOST('contextpage', 'aZ') : 'emailcollectorcard'; // To manage different context of search
$backtopage = GETPOST('backtopage', 'alpha');
 
$operationid = GETPOST('operationid', 'int');
 
// Initialize technical objects
$object = new EmailCollector($db);
$extrafields = new ExtraFields($db);
$diroutputmassaction = $conf->emailcollector->dir_output.'/temp/massgeneration/'.$user->id;
$hookmanager->initHooks(array('emailcollectorcard')); // Note that conf->hooks_modules contains array
 
// Fetch optionals attributes and labels
$extrafields->fetch_name_optionals_label($object->table_element);
 
$search_array_options = $extrafields->getOptionalsFromPost($object->table_element, '', 'search_');
 
// Initialize array of search criterias
$search_all = GETPOST("search_all", 'alpha');
$search = array();
foreach ($object->fields as $key => $val) {
  if (GETPOST('search_'.$key, 'alpha')) {
    $search[$key] = GETPOST('search_'.$key, 'alpha');
  }
}
 
if (GETPOST('saveoperation2')) {
  $action = 'updateoperation';
}
if (empty($action) && empty($id) && empty($ref)) {
  $action = 'view';
}
 
// Load object
include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be include, not include_once.
 
// Security check - Protection if external user
//if ($user->socid > 0) accessforbidden();
//if ($user->socid > 0) $socid = $user->socid;
//$isdraft = (($object->statut == MyObject::STATUS_DRAFT) ? 1 : 0);
//$result = restrictedArea($user, 'mymodule', $object->id, '', '', 'fk_soc', 'rowid', $isdraft);
 
$permissionnote = $user->admin; // Used by the include of actions_setnotes.inc.php
$permissiondellink = $user->admin; // Used by the include of actions_dellink.inc.php
$permissiontoadd = $user->admin; // Used by the include of actions_addupdatedelete.inc.php and actions_lineupdown.inc.php
 
$debuginfo = '';
$error = 0;
 
 
/*
 * Actions
 */
 
$parameters = array();
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
 
if ($reshook < 0) {
  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}
 
if (empty($reshook)) {
  $permissiontoadd = 1;
  $permissiontodelete = 1;
  if (empty($backtopage)) {
    $backtopage = DOL_URL_ROOT.'/admin/emailcollector_card.php?id='.($id > 0 ? $id : '__ID__');
  }
  $backurlforlist = DOL_URL_ROOT.'/admin/emailcollector_list.php';
 
  // Actions cancel, add, update, delete or clone
  include DOL_DOCUMENT_ROOT.'/core/actions_addupdatedelete.inc.php';
 
  // Actions when linking object each other
  include DOL_DOCUMENT_ROOT.'/core/actions_dellink.inc.php';
 
  // Actions when printing a doc from card
  include DOL_DOCUMENT_ROOT.'/core/actions_printing.inc.php';
}
 
if (GETPOST('addfilter', 'alpha')) {
  $emailcollectorfilter = new EmailCollectorFilter($db);
  $emailcollectorfilter->type = GETPOST('filtertype', 'aZ09');
  $emailcollectorfilter->rulevalue = GETPOST('rulevalue', 'alpha');
  $emailcollectorfilter->fk_emailcollector = $object->id;
  $emailcollectorfilter->status = 1;
 
  $result = $emailcollectorfilter->create($user);
 
  if ($result > 0) {
    $object->fetchFilters();
  } else {
    setEventMessages($emailcollectorfilter->errors, $emailcollectorfilter->error, 'errors');
  }
}
 
if ($action == 'deletefilter') {
  $emailcollectorfilter = new EmailCollectorFilter($db);
  $emailcollectorfilter->fetch(GETPOST('filterid', 'int'));
  if ($emailcollectorfilter->id > 0) {
    $result = $emailcollectorfilter->delete($user);
    if ($result > 0) {
      $object->fetchFilters();
    } else {
      setEventMessages($emailcollectorfilter->errors, $emailcollectorfilter->error, 'errors');
    }
  }
}
 
if (GETPOST('addoperation', 'alpha')) {
  $emailcollectoroperation = new EmailCollectorAction($db);
  $emailcollectoroperation->type = GETPOST('operationtype', 'aZ09');
  $emailcollectoroperation->actionparam = GETPOST('operationparam', 'restricthtml');
  $emailcollectoroperation->fk_emailcollector = $object->id;
  $emailcollectoroperation->status = 1;
  $emailcollectoroperation->position = 50;
 
  if ($emailcollectoroperation->type == '-1') {
    $error++;
    setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Operation")), null, 'errors');
  }
 
  if (in_array($emailcollectoroperation->type, array('loadthirdparty', 'loadandcreatethirdparty'))
    && empty($emailcollectoroperation->actionparam)) {
      $error++;
      setEventMessages($langs->trans("ErrorAParameterIsRequiredForThisOperation"), null, 'errors');
  }
 
  if (!$error) {
    $result = $emailcollectoroperation->create($user);
 
    if ($result > 0) {
      $object->fetchActions();
    } else {
      $error++;
      setEventMessages($emailcollectoroperation->errors, $emailcollectoroperation->error, 'errors');
    }
  }
}
 
if ($action == 'updateoperation') {
  $emailcollectoroperation = new EmailCollectorAction($db);
  $emailcollectoroperation->fetch(GETPOST('rowidoperation2', 'int'));
 
  $emailcollectoroperation->actionparam = GETPOST('operationparam2', 'alphawithlgt');
 
  if (in_array($emailcollectoroperation->type, array('loadthirdparty', 'loadandcreatethirdparty'))
    && empty($emailcollectoroperation->actionparam)) {
      $error++;
      setEventMessages($langs->trans("ErrorAParameterIsRequiredForThisOperation"), null, 'errors');
  }
 
  if (!$error) {
    $result = $emailcollectoroperation->update($user);
 
    if ($result > 0) {
      $object->fetchActions();
    } else {
      $error++;
      setEventMessages($emailcollectoroperation->errors, $emailcollectoroperation->error, 'errors');
    }
  }
}
if ($action == 'deleteoperation') {
  $emailcollectoroperation = new EmailCollectorAction($db);
  $emailcollectoroperation->fetch(GETPOST('operationid', 'int'));
  if ($emailcollectoroperation->id > 0) {
    $result = $emailcollectoroperation->delete($user);
    if ($result > 0) {
      $object->fetchActions();
    } else {
      setEventMessages($emailcollectoroperation->errors, $emailcollectoroperation->error, 'errors');
    }
  }
}
 
if ($action == 'collecttest') {
  dol_include_once('/emailcollector/class/emailcollector.class.php');
 
  $res = $object->doCollectOneCollector(1);
  if ($res > 0) {
    $debuginfo = $object->debuginfo;
    setEventMessages($object->lastresult, null, 'mesgs');
  } else {
    $debuginfo = $object->debuginfo;
    setEventMessages($object->error, null, 'errors');
  }
 
  $action = '';
}
 
if ($action == 'confirm_collect') {
  dol_include_once('/emailcollector/class/emailcollector.class.php');
 
  $res = $object->doCollectOneCollector(0);
  if ($res > 0) {
    $debuginfo = $object->debuginfo;
    setEventMessages($object->lastresult, null, 'mesgs');
  } else {
    $debuginfo = $object->debuginfo;
    setEventMessages($object->error, null, 'errors');
  }
 
  $action = '';
}
 
 
 
/*
 * View
 */
 
$form = new Form($db);
$formfile = new FormFile($db);
 
$help_url = "EN:Module_EMail_Collector|FR:Module_Collecteur_de_courrier_électronique|ES:Module_EMail_Collector";
 
llxHeader('', 'EmailCollector', $help_url);
 
// Part to create
if ($action == 'create') {
  print load_fiche_titre($langs->trans("NewEmailCollector", $langs->transnoentitiesnoconv("EmailCollector")));
 
  print '<form method="POST" action="'.$_SERVER["PHP_SELF"].'">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print '<input type="hidden" name="action" value="add">';
  print '<input type="hidden" name="backtopage" value="'.$backtopage.'">';
 
  print dol_get_fiche_head(array(), '');
 
  print '<table class="border centpercent tableforfield">'."\n";
 
  //unset($fields[]);
 
  // Common attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/commonfields_add.tpl.php';
 
  // Other attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_add.tpl.php';
 
  print '</table>'."\n";
 
  print dol_get_fiche_end();
 
  print $form->buttonsSaveCancel("Create");
 
  print '</form>';
}
 
// Part to edit record
if (($id || $ref) && $action == 'edit') {
  print load_fiche_titre($langs->trans("EmailCollector"));
 
  print '<form method="POST" action="'.$_SERVER["PHP_SELF"].'">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print '<input type="hidden" name="action" value="update">';
  print '<input type="hidden" name="backtopage" value="'.$backtopage.'">';
  print '<input type="hidden" name="id" value="'.$object->id.'">';
 
  print dol_get_fiche_head();
 
  print '<table class="border centpercent tableforfield">'."\n";
 
  // Common attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/commonfields_edit.tpl.php';
 
  // Other attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_edit.tpl.php';
 
  print '</table>';
 
  print dol_get_fiche_end();
 
  print $form->buttonsSaveCancel();
 
  print '</form>';
}
 
// Part to show record
if ($object->id > 0 && (empty($action) || ($action != 'edit' && $action != 'create'))) {
  $res = $object->fetch_optionals();
 
  $object->fetchFilters();
  $object->fetchActions();
 
  $head = emailcollectorPrepareHead($object);
  print dol_get_fiche_head($head, 'card', $langs->trans("EmailCollector"), -1, 'email');
 
  $formconfirm = '';
 
  // Confirmation to delete
  if ($action == 'delete') {
    $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id, $langs->trans('DeleteEmailCollector'), $langs->trans('ConfirmDeleteEmailCollector'), 'confirm_delete', '', 0, 1);
  }
 
  // Clone confirmation
  if ($action == 'clone') {
    // Create an array for form
    $formquestion = array();
    $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id, $langs->trans('ToClone'), $langs->trans('ConfirmCloneEmailCollector', $object->ref), 'confirm_clone', $formquestion, 'yes', 1);
  }
 
  // Confirmation of action process
  if ($action == 'collect') {
    $formquestion = array();
    $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id, $langs->trans('EmailCollectorConfirmCollectTitle'), $langs->trans('EmailCollectorConfirmCollect'), 'confirm_collect', $formquestion, 0, 1, 220);
  }
 
  // Call Hook formConfirm
  $parameters = array('formConfirm' => $formconfirm);
  $reshook = $hookmanager->executeHooks('formConfirm', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
  if (empty($reshook)) {
    $formconfirm .= $hookmanager->resPrint;
  } elseif ($reshook > 0) {
    $formconfirm = $hookmanager->resPrint;
  }
 
  // Print form confirm
  print $formconfirm;
 
  // Object card
  // ------------------------------------------------------------
  $linkback = '<a href="'.DOL_URL_ROOT.'/admin/emailcollector_list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
 
  $morehtmlref = '<div class="refidno">';
  $morehtmlref .= '</div>';
 
  $morehtml = '';
 
  $sourcedir = $object->source_directory;
  $targetdir = ($object->target_directory ? $object->target_directory : ''); // Can be '[Gmail]/Trash' or 'mytag'
 
  $connection = null;
  $connectstringserver = '';
  $connectstringsource = '';
  $connectstringtarget = '';
 
  // Note: $object->host has been loaded by the fetch
  $usessl = 1;
 
  $connectstringserver = $object->getConnectStringIMAP($usessl);
 
  if ($action == 'scan') {
    if (!empty($conf->global->MAIN_IMAP_USE_PHPIMAP)) {
      if ($object->acces_type == 1) {
        // Mode OAUth2 with PHP-IMAP
        require_once DOL_DOCUMENT_ROOT.'/core/lib/oauth.lib.php'; // define $supportedoauth2array
        $keyforsupportedoauth2array = $object->oauth_service;
        if (preg_match('/^.*-/', $keyforsupportedoauth2array)) {
          $keyforprovider = preg_replace('/^.*-/', '', $keyforsupportedoauth2array);
        } else {
          $keyforprovider = '';
        }
        $keyforsupportedoauth2array = preg_replace('/-.*$/', '', $keyforsupportedoauth2array);
        $keyforsupportedoauth2array = 'OAUTH_'.$keyforsupportedoauth2array.'_NAME';
 
        $OAUTH_SERVICENAME = (empty($supportedoauth2array[$keyforsupportedoauth2array]['name']) ? 'Unknown' : $supportedoauth2array[$keyforsupportedoauth2array]['name'].($keyforprovider ? '-'.$keyforprovider : ''));
 
        require_once DOL_DOCUMENT_ROOT.'/includes/OAuth/bootstrap.php';
        //$debugtext = "Host: ".$this->host."<br>Port: ".$this->port."<br>Login: ".$this->login."<br>Password: ".$this->password."<br>access type: ".$this->acces_type."<br>oauth service: ".$this->oauth_service."<br>Max email per collect: ".$this->maxemailpercollect;
        //dol_syslog($debugtext);
 
        $token = '';
 
        $storage = new DoliStorage($db, $conf, $keyforprovider);
 
        try {
          $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
 
          $expire = true;
          // Is token expired or will token expire in the next 30 seconds
          // if (is_object($tokenobj)) {
          //  $expire = ($tokenobj->getEndOfLife() !== -9002 && $tokenobj->getEndOfLife() !== -9001 && time() > ($tokenobj->getEndOfLife() - 30));
          // }
          // Token expired so we refresh it
          if (is_object($tokenobj) && $expire) {
            $credentials = new Credentials(
              getDolGlobalString('OAUTH_'.$object->oauth_service.'_ID'),
              getDolGlobalString('OAUTH_'.$object->oauth_service.'_SECRET'),
              getDolGlobalString('OAUTH_'.$object->oauth_service.'_URLAUTHORIZE')
              );
            $serviceFactory = new \OAuth\ServiceFactory();
            $oauthname = explode('-', $OAUTH_SERVICENAME);
 
            // ex service is Google-Emails we need only the first part Google
            $apiService = $serviceFactory->createService($oauthname[0], $credentials, $storage, array());
 
            // We have to save the token because Google give it only once
            $refreshtoken = $tokenobj->getRefreshToken();
            //var_dump($tokenobj);
            $tokenobj = $apiService->refreshAccessToken($tokenobj);
 
            $tokenobj->setRefreshToken($refreshtoken);
            $storage->storeAccessToken($OAUTH_SERVICENAME, $tokenobj);
          }
          $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
          if (is_object($tokenobj)) {
            $token = $tokenobj->getAccessToken();
          } else {
            $error++;
            $morehtml .= "Token not found";
          }
        } catch (Exception $e) {
          $error++;
          $morehtml .= $e->getMessage();
        }
 
        if (empty($object->login)) {
          $error++;
          $morehtml .= 'Error: Login is empty. Must be email owner when using MAIN_IMAP_USE_PHPIMAP and OAuth.';
        }
 
        $cm = new ClientManager();
        $client = $cm->make([
          'host'           => $object->host,
          'port'           => $object->port,
          'encryption'     => 'ssl',
          'validate_cert'  => true,
          'protocol'       => 'imap',
          'username'       => $object->login,
          'password'       => $token,
          'authentication' => "oauth",
        ]);
      } else {
        // Mode login/pass with PHP-IMAP
        $cm = new ClientManager();
        $client = $cm->make([
          'host'           => $object->host,
          'port'           => $object->port,
          'encryption'     => 'ssl',
          'validate_cert'  => true,
          'protocol'       => 'imap',
          'username'       => $object->login,
          'password'       => $object->password,
          'authentication' => "login",
        ]);
      }
      if (!$error) {
        try {
          // To emulate the command connect, you can run
          // openssl s_client -crlf -connect outlook.office365.com:993
          // TAG1 AUTHENTICATE XOAUTH2 dXN...
          // TO Get debug log, you can set protected $debug = true; in Protocol.php file
          //
          // A MS bug make this not working !
          // See https://github.com/MicrosoftDocs/office-developer-exchange-docs/issues/100
          // See github.com/MicrosoftDocs/office-developer-exchange-docs/issues/87
          // See github.com/Webklex/php-imap/issues/81
          $client->connect();
 
          $f = $client->getFolders(false, $object->source_directory);
          $nbemail = $f[0]->examine()["exists"];
          $morehtml .= $nbemail;
        } catch (ConnectionFailedException $e) {
          $morehtml .= 'ConnectionFailedException '.$e->getMessage();
        }
      }
    } else {
      if (function_exists('imap_open')) {
        try {
          if ($sourcedir) {
            //$connectstringsource = $connectstringserver.imap_utf7_encode($sourcedir);
            $connectstringsource = $connectstringserver.$object->getEncodedUtf7($sourcedir);
          }
          if ($targetdir) {
            //$connectstringtarget = $connectstringserver.imap_utf7_encode($targetdir);
            $connectstringtarget = $connectstringserver.$object->getEncodedUtf7($targetdir);
          }
 
          $timeoutconnect = empty($conf->global->MAIN_USE_CONNECT_TIMEOUT) ? 5 : $conf->global->MAIN_USE_CONNECT_TIMEOUT;
          $timeoutread = empty($conf->global->MAIN_USE_RESPONSE_TIMEOUT) ? 20 : $conf->global->MAIN_USE_RESPONSE_TIMEOUT;
 
          dol_syslog("imap_open connectstring=".$connectstringsource." login=".$object->login." password=".$object->password." timeoutconnect=".$timeoutconnect." timeoutread=".$timeoutread);
 
          $result1 = imap_timeout(IMAP_OPENTIMEOUT, $timeoutconnect); // timeout seems ignored with ssl connect
          $result2 = imap_timeout(IMAP_READTIMEOUT, $timeoutread);
          $result3 = imap_timeout(IMAP_WRITETIMEOUT, 5);
          $result4 = imap_timeout(IMAP_CLOSETIMEOUT, 5);
 
          dol_syslog("result1=".$result1." result2=".$result2." result3=".$result3." result4=".$result4);
 
          $connection = imap_open($connectstringsource, $object->login, $object->password);
 
          //dol_syslog("end imap_open connection=".var_export($connection, true));
        } catch (Exception $e) {
          $morehtml .= $e->getMessage();
        }
 
        if (!$connection) {
          $morehtml .= 'Failed to open IMAP connection '.$connectstringsource;
          if (function_exists('imap_last_error')) {
            $morehtml .= '<br>'.imap_last_error();
          }
          dol_syslog("Error ".$morehtml, LOG_WARNING);
          //var_dump(imap_errors())
        } else {
          dol_syslog("Imap connected. Now we call imap_num_msg()");
          $morehtml .= imap_num_msg($connection);
        }
 
        if ($connection) {
          dol_syslog("Imap close");
          imap_close($connection);
        }
      } else {
        $morehtml .= 'IMAP functions not available on your PHP. ';
      }
    }
  }
 
  $morehtml = $form->textwithpicto($langs->trans("NbOfEmailsInInbox"), 'connect string '.$connectstringserver).': '.($morehtml ? $morehtml : '?');
  $morehtml .= '<a class="flat paddingleft marginleftonly" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=scan&token='.newToken().'">'.img_picto('', 'refresh', 'class="paddingrightonly"').$langs->trans("Refresh").'</a>';
 
  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref.'<div class="refidno">'.$morehtml.'</div>', '', 0, '', '', 0, '');
 
  print '<div class="fichecenter">';
  print '<div class="fichehalfleft">';
  print '<div class="underbanner clearboth"></div>';
  print '<table class="border centpercent tableforfield">'."\n";
 
  // Common attributes
  //$keyforbreak='fieldkeytoswithonsecondcolumn';
  include DOL_DOCUMENT_ROOT.'/core/tpl/commonfields_view.tpl.php';
 
  // Other attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';
 
  print '</table>';
 
 
  print '<form method="POST" action="'.$_SERVER["PHP_SELF"].'">';
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print '<input type="hidden" name="action" value="updatefiltersactions">';
  print '<input type="hidden" name="backtopage" value="'.$backtopage.'">';
  print '<input type="hidden" name="id" value="'.$object->id.'">';
 
  // Filters
  print '<div class="div-table-responsive-no-min">';
  print '<table id="tablelineoffilters" class="noborder margintable noshadow">';
  print '<tr class="liste_titre nodrag nodrop">';
  print '<td>'.img_picto('', 'filter', 'class="pictofixedwidth opacitymedium"').$form->textwithpicto($langs->trans("Filters"), $langs->trans("EmailCollectorFilterDesc")).'</td><td></td><td></td>';
  print '</tr>';
  // Add filter
  print '<tr class="oddeven nodrag nodrop">';
  print '<td>';
  $arrayoftypes = array(
    'from'=>array('label'=>'MailFrom', 'data-placeholder'=>$langs->trans('SearchString')),
    'to'=>array('label'=>'MailTo', 'data-placeholder'=>$langs->trans('SearchString')),
    'cc'=>array('label'=>'Cc', 'data-placeholder'=>$langs->trans('SearchString')),
    'bcc'=>array('label'=>'Bcc', 'data-placeholder'=>$langs->trans('SearchString')),
    'subject'=>array('label'=>'Subject', 'data-placeholder'=>$langs->trans('SearchString')),
    'body'=>array('label'=>'Body', 'data-placeholder'=>$langs->trans('SearchString')),
    // disabled because PHP imap_search is not compatible IMAPv4, only IMAPv2
    //'header'=>array('label'=>'Header', 'data-placeholder'=>'HeaderKey SearchString'),                // HEADER key value
    //'X1'=>'---',
    //'notinsubject'=>array('label'=>'SubjectNotIn', 'data-placeholder'=>'SearchString'),
    //'notinbody'=>array('label'=>'BodyNotIn', 'data-placeholder'=>'SearchString'),
    'X2'=>'---',
    'seen'=>array('label'=>'AlreadyRead', 'data-noparam'=>1),
    'unseen'=>array('label'=>'NotRead', 'data-noparam'=>1),
    'unanswered'=>array('label'=>'Unanswered', 'data-noparam'=>1),
    'answered'=>array('label'=>'Answered', 'data-noparam'=>1),
    'smaller'=>array('label'=>'SmallerThan', 'data-placeholder'=>$langs->trans('NumberOfBytes')),
    'larger'=>array('label'=>'LargerThan', 'data-placeholder'=>$langs->trans('NumberOfBytes')),
    'X3'=>'---',
    'withtrackingid'=>array('label'=>'WithDolTrackingID', 'data-noparam'=>1),
    'withouttrackingid'=>array('label'=>'WithoutDolTrackingID', 'data-noparam'=>1),
    'withtrackingidinmsgid'=>array('label'=>'WithDolTrackingIDInMsgId', 'data-noparam'=>1),
    'withouttrackingidinmsgid'=>array('label'=>'WithoutDolTrackingIDInMsgId', 'data-noparam'=>1),
    'X4'=>'---',
    'isnotanswer'=>array('label'=>'IsNotAnAnswer', 'data-noparam'=>1),
    'isanswer'=>array('label'=>'IsAnAnswer', 'data-noparam'=>1)
  );
  print $form->selectarray('filtertype', $arrayoftypes, '', 1, 0, 0, '', 1, 0, 0, '', 'maxwidth300', 1, '', 2);
 
  print "\n";
  print '<script>';
  print 'jQuery("#filtertype").change(function() {
        console.log("We change a filter");
        if (jQuery("#filtertype option:selected").attr("data-noparam")) {
            jQuery("#rulevalue").attr("placeholder", "");
            jQuery("#rulevalue").text(""); jQuery("#rulevalue").prop("disabled", true);
        }
        else { jQuery("#rulevalue").prop("disabled", false); }
        jQuery("#rulevalue").attr("placeholder", (jQuery("#filtertype option:selected").attr("data-placeholder")));
    ';
  /*$noparam = array();
   foreach ($arrayoftypes as $key => $value)
   {
   if ($value['noparam']) $noparam[] = $key;
   }*/
  print '})';
  print '</script>'."\n";
 
  print '</td><td>';
  print '<input type="text" name="rulevalue" id="rulevalue">';
  print '</td>';
  print '<td class="right"><input type="submit" name="addfilter" id="addfilter" class="flat button small" value="'.$langs->trans("Add").'"></td>';
  print '</tr>';
  // List filters
  foreach ($object->filters as $rulefilter) {
    $rulefilterobj = new EmailCollectorFilter($db);
    $rulefilterobj->fetch($rulefilter['id']);
 
    print '<tr class="oddeven">';
    print '<td title="'.dol_escape_htmltag($langs->trans("Filter").': '.$rulefilter['type']).'">';
    print $langs->trans($arrayoftypes[$rulefilter['type']]['label']);
    print '</td>';
    print '<td>'.$rulefilter['rulevalue'].'</td>';
    print '<td class="right">';
    print ' <a href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=deletefilter&token='.urlencode(newToken()).'&filterid='.$rulefilter['id'].'">'.img_delete().'</a>';
    print '</td>';
    print '</tr>';
  }
 
  print '</tr>';
  print '</table>';
  print '</div>';
 
  print '<div class="clearboth"></div><br>';
 
  // Operations
  print '<div class="div-table-responsive">';
  print '<table id="tablelines" class="noborder margintable noshadow">';
  print '<tr class="liste_titre nodrag nodrop">';
  print '<td>'.img_picto('', 'technic', 'class="pictofixedwidth"').$form->textwithpicto($langs->trans("EmailcollectorOperations"), $langs->trans("EmailcollectorOperationsDesc")).'</td><td></td><td></td><td></td>';
  print '</tr>';
 
  $arrayoftypes = array(
    'loadthirdparty' => $langs->trans('LoadThirdPartyFromName', $langs->transnoentities("ThirdPartyName")),
    'loadandcreatethirdparty' => $langs->trans('LoadThirdPartyFromNameOrCreate', $langs->transnoentities("ThirdPartyName")),
    'recordjoinpiece' => 'AttachJoinedDocumentsToObject',
    'recordevent' => 'RecordEvent'
  );
  $arrayoftypesnocondition = $arrayoftypes;
  if (isModEnabled('project')) {
    $arrayoftypes['project'] = 'CreateLeadAndThirdParty';
  }
  $arrayoftypesnocondition['project'] = 'CreateLeadAndThirdParty';
  if (isModEnabled('ticket')) {
    $arrayoftypes['ticket'] = 'CreateTicketAndThirdParty';
  }
  $arrayoftypesnocondition['ticket'] = 'CreateTicketAndThirdParty';
  if (isModEnabled('recruitment')) {
    $arrayoftypes['candidature'] = 'CreateCandidature';
  }
  $arrayoftypesnocondition['candidature'] = 'CreateCandidature';
 
  // support hook for add action
  $parameters = array('arrayoftypes' => $arrayoftypes);
  $res = $hookmanager->executeHooks('addMoreActionsEmailCollector', $parameters, $object, $action);
 
  if ($res) {
    $arrayoftypes = $hookmanager->resArray;
  } else {
    foreach ($hookmanager->resArray as $k => $desc) {
      $arrayoftypes[$k] = $desc;
    }
  }
 
  // Add operation
  print '<tr class="oddeven nodrag nodrop">';
  print '<td>';
  print $form->selectarray('operationtype', $arrayoftypes, '', 1, 0, 0, '', 1, 0, 0, '', 'minwidth150 maxwidth300', 1);
  print '</td><td>';
  //print '<input type="text" name="operationparam">';
  $htmltext = $langs->transnoentitiesnoconv("OperationParamDesc");
  print $form->textwithpicto('<input type="text" name="operationparam">', $htmltext, 1, 'help', '', 0, 2, 'operationparamtt');
  print '</td>';
  print '<td>';
  print '</td>';
  print '<td class="right"><input type="submit" name="addoperation" id="addoperation" class="flat button small" value="'.$langs->trans("Add").'"></td>';
  print '</tr>';
  // List operations
  $nboflines = count($object->actions);
  $table_element_line = 'emailcollector_emailcollectoraction';
  $fk_element = 'position';
  $i = 0;
  foreach ($object->actions as $ruleaction) {
    $ruleactionobj = new EmailcollectorAction($db);
    $ruleactionobj->fetch($ruleaction['id']);
 
    print '<tr class="drag drop oddeven" id="row-'.$ruleaction['id'].'">';
    print '<td title="'.dol_escape_htmltag($langs->trans("Operation").': '.$ruleaction['type']).'">';
    print '<!-- type of action: '.$ruleaction['type'].' -->';
    if (array_key_exists($ruleaction['type'], $arrayoftypes)) {
      print $langs->trans($arrayoftypes[$ruleaction['type']]);
    } else {
      if (array_key_exists($ruleaction['type'], $arrayoftypesnocondition)) {
        print '<span class="opacitymedium">'.$langs->trans($arrayoftypesnocondition[$ruleaction['type']]).' - '.$langs->trans("Disabled").'</span>';
      }
    }
 
    if (in_array($ruleaction['type'], array('recordevent'))) {
      print $form->textwithpicto('', $langs->transnoentitiesnoconv('IfTrackingIDFoundEventWillBeLinked'));
    } elseif (in_array($ruleaction['type'], array('loadthirdparty', 'loadandcreatethirdparty'))) {
      print $form->textwithpicto('', $langs->transnoentitiesnoconv('EmailCollectorLoadThirdPartyHelp'));
    }
    print '</td>';
    print '<td class="wordbreak minwidth300 small">';
    if ($action == 'editoperation' && $ruleaction['id'] == $operationid) {
      print '<input type="text" class="quatrevingtquinzepercent" name="operationparam2" value="'.dol_escape_htmltag($ruleaction['actionparam']).'"><br>';
      print '<input type="hidden" name="rowidoperation2" value="'.$ruleaction['id'].'">';
      print '<input type="submit" class="button small button-save" name="saveoperation2" value="'.$langs->trans("Save").'">';
      print '<input type="submit" class="button small button-cancel" name="cancel" value="'.$langs->trans("Cancel").'">';
    } else {
      print dol_escape_htmltag($ruleaction['actionparam']);
    }
    print '</td>';
    // Move up/down
    print '<td class="center linecolmove tdlineupdown">';
    if ($i > 0) {
      print '<a class="lineupdown" href="'.$_SERVER['PHP_SELF'].'?action=up&amp;rowid='.$ruleaction['id'].'">'.img_up('default', 0, 'imgupforline').'</a>';
    }
    if ($i < count($object->actions) - 1) {
      print '<a class="lineupdown" href="'.$_SERVER['PHP_SELF'].'?action=down&amp;rowid='.$ruleaction['id'].'">'.img_down('default', 0, 'imgdownforline').'</a>';
    }
    print '</td>';
    // Delete
    print '<td class="right nowraponall">';
    print '<a class="editfielda marginrightonly" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=editoperation&token='.newToken().'&operationid='.$ruleaction['id'].'">'.img_edit().'</a>';
    print ' <a href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=deleteoperation&token='.newToken().'&operationid='.$ruleaction['id'].'">'.img_delete().'</a>';
    print '</td>';
    print '</tr>';
    $i++;
  }
 
  print '</tr>';
  print '</table>';
  print '</div>';
 
  if (!empty($conf->use_javascript_ajax)) {
    $urltorefreshaftermove = DOL_URL_ROOT.'/admin/emailcollector_card.php?id='.$id;
    include DOL_DOCUMENT_ROOT.'/core/tpl/ajaxrow.tpl.php';
  }
 
  print '</form>';
 
  print '</div>';
  print '</div>'; // End <div class="fichecenter">
 
 
  print '<div class="clearboth"></div><br>';
 
  print dol_get_fiche_end();
 
  // Buttons for actions
  if ($action != 'presend' && $action != 'editline') {
    print '<div class="tabsAction">'."\n";
    $parameters = array();
    $reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
    if ($reshook < 0) {
      setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
    }
 
    if (empty($reshook)) {
      // Edit
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=edit&token='.newToken().'">'.$langs->trans("Edit").'</a></div>';
 
      // Clone
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'&action=clone&token='.newToken().'&object=order">'.$langs->trans("ToClone").'</a></div>';
 
      // Collect now
      print '<div class="inline-block divButAction"><a class="butAction reposition" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=collecttest&token='.newToken().'">'.$langs->trans("TestCollectNow").'</a></div>';
 
      if (count($object->actions) > 0) {
        print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=collect&token='.newToken().'">'.$langs->trans("CollectNow").'</a></div>';
      } else {
        print '<div class="inline-block divButAction"><a class="butActionRefused" href="#" title="'.dol_escape_htmltag($langs->trans("NoOperations")).'">'.$langs->trans("CollectNow").'</a></div>';
      }
 
      print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.urlencode(newToken()).'">'.$langs->trans('Delete').'</a></div>';
    }
    print '</div>'."\n";
  }
 
  if (!empty($debuginfo)) {
    print info_admin($debuginfo);
  }
}
 
// End of page
llxFooter();
$db->close();