* Copyright (C) 2001-2002 Jean-Louis Bergamo * Copyright (C) 2006-2013 Laurent Destailleur * Copyright (C) 2012 Regis Houssin * Copyright (C) 2012 J. Fernando Lagrange * Copyright (C) 2018-2024 Frédéric France * Copyright (C) 2018 Alexandre Spangaro * Copyright (C) 2024 MDW * * 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 . */ /** * \file htdocs/public/project/new.php * \ingroup project * \brief Page to record a message/lead into a project/lead */ if (!defined('NOLOGIN')) { define("NOLOGIN", 1); // This means this output page does not require to be logged. } if (!defined('NOCSRFCHECK')) { define("NOCSRFCHECK", 1); // We accept to go on this page from external web site. } if (!defined('NOIPCHECK')) { define('NOIPCHECK', '1'); // Do not check IP defined into conf $dolibarr_main_restrict_ip } if (!defined('NOBROWSERNOTIF')) { define('NOBROWSERNOTIF', '1'); } // For MultiCompany module. // Do not use GETPOST here, function is not defined and define must be done before including main.inc.php // Because 2 entities can have the same ref. $entity = (!empty($_GET['entity']) ? (int) $_GET['entity'] : (!empty($_POST['entity']) ? (int) $_POST['entity'] : 1)); if (is_numeric($entity)) { define("DOLENTITY", $entity); } // Load Dolibarr environment require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php'; require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php'; // Init vars $errmsg = ''; $error = 0; $backtopage = GETPOST('backtopage', 'alpha'); $action = GETPOST('action', 'aZ09'); // Load translation files $langs->loadLangs(array("members", "companies", "install", "other", "projects")); if (!getDolGlobalString('PROJECT_ENABLE_PUBLIC')) { print $langs->trans("Form for public lead registration has not been enabled"); exit; } // Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context $hookmanager->initHooks(array('publicnewleadcard', 'globalcard')); $extrafields = new ExtraFields($db); $object = new Project($db); $user->loadDefaultValues(); // Security check if (empty($conf->project->enabled)) { httponly_accessforbidden('Module Project not enabled'); } /** * Show header for new member * * @param string $title Title * @param string $head Head array * @param int $disablejs More content into html header * @param int $disablehead More content into html header * @param array $arrayofjs Array of complementary js files * @param array $arrayofcss Array of complementary css files * @return void */ function llxHeaderVierge($title, $head = "", $disablejs = 0, $disablehead = 0, $arrayofjs = [], $arrayofcss = []) { global $user, $conf, $langs, $mysoc; top_htmlhead($head, $title, $disablejs, $disablehead, $arrayofjs, $arrayofcss); // Show html headers print ''; // Define urllogo $urllogo = DOL_URL_ROOT.'/theme/common/login_logo.png'; if (!empty($mysoc->logo_small) && is_readable($conf->mycompany->dir_output.'/logos/thumbs/'.$mysoc->logo_small)) { $urllogo = DOL_URL_ROOT.'/viewimage.php?cache=1&modulepart=mycompany&file='.urlencode('logos/thumbs/'.$mysoc->logo_small); } elseif (!empty($mysoc->logo) && is_readable($conf->mycompany->dir_output.'/logos/'.$mysoc->logo)) { $urllogo = DOL_URL_ROOT.'/viewimage.php?cache=1&modulepart=mycompany&file='.urlencode('logos/'.$mysoc->logo); } elseif (is_readable(DOL_DOCUMENT_ROOT.'/theme/dolibarr_logo.svg')) { $urllogo = DOL_URL_ROOT.'/theme/dolibarr_logo.svg'; } print '
'; // Output html code for logo if ($urllogo) { print '
'; print '
'; print ''; print '
'; if (!getDolGlobalString('MAIN_HIDE_POWERED_BY')) { print '
'.$langs->trans("PoweredBy").'
'; } print '
'; } if (getDolGlobalString('PROJECT_IMAGE_PUBLIC_NEWLEAD')) { print '
'; print ''; print '
'; } print '
'; print '
'; } /** * Show footer for new member * * @return void */ function llxFooterVierge() { print '
'; printCommonFooter('public'); print "\n"; print "\n"; } /* * Actions */ $parameters = array(); // Note that $action and $object may have been modified by some hooks $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); if ($reshook < 0) { setEventMessages($hookmanager->error, $hookmanager->errors, 'errors'); } // Action called when page is submitted if (empty($reshook) && $action == 'add') { $error = 0; $urlback = ''; $db->begin(); if (!GETPOST("lastname")) { $error++; $errmsg .= $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Lastname"))."
\n"; } if (!GETPOST("firstname")) { $error++; $errmsg .= $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Firstname"))."
\n"; } if (!GETPOST("email")) { $error++; $errmsg .= $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Email"))."
\n"; } if (!GETPOST("description")) { $error++; $errmsg .= $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Message"))."
\n"; } if (GETPOST("email") && !isValidEmail(GETPOST("email"))) { $error++; $langs->load("errors"); $errmsg .= $langs->trans("ErrorBadEMail", GETPOST("email"))."
\n"; } // Set default opportunity status $defaultoppstatus = getDolGlobalInt('PROJECT_DEFAULT_OPPORTUNITY_STATUS_FOR_ONLINE_LEAD'); if (empty($defaultoppstatus)) { $error++; $langs->load("errors"); $errmsg .= $langs->trans("ErrorModuleSetupNotComplete", $langs->transnoentitiesnoconv("Project"))."
\n"; } $visibility = getDolGlobalString('PROJET_VISIBILITY'); $proj = new Project($db); $thirdparty = new Societe($db); if (!$error) { // Search thirdparty and set it if found to the new created project $result = $thirdparty->fetch(0, '', '', '', '', '', '', '', '', '', GETPOST('email')); if ($result > 0) { $proj->socid = $thirdparty->id; } else { // Create the prospect if (GETPOST('societe')) { $thirdparty->name = GETPOST('societe'); $thirdparty->name_alias = dolGetFirstLastname(GETPOST('firstname'), GETPOST('lastname')); } else { $thirdparty->name = dolGetFirstLastname(GETPOST('firstname'), GETPOST('lastname')); } $thirdparty->email = GETPOST('email'); $thirdparty->address = GETPOST('address'); $thirdparty->zip = GETPOST('zip'); $thirdparty->town = GETPOST('town'); $thirdparty->country_id = GETPOSTINT('country_id'); $thirdparty->state_id = GETPOSTINT('state_id'); $thirdparty->client = $thirdparty::PROSPECT; $thirdparty->code_client = 'auto'; $thirdparty->code_fournisseur = 'auto'; // Fill array 'array_options' with data from the form $extrafields->fetch_name_optionals_label($thirdparty->table_element); $ret = $extrafields->setOptionalsFromPost(null, $thirdparty, '', 1); if ($ret < 0) { $error++; $errmsg = ($extrafields->error ? $extrafields->error.'
' : '').implode('
', $extrafields->errors); } if (!$error) { $result = $thirdparty->create($user); if ($result <= 0) { $error++; $errmsg = ($thirdparty->error ? $thirdparty->error.'
' : '').implode('
', $thirdparty->errors); } else { $proj->socid = $thirdparty->id; } } } } if (!$error) { // Defined the ref into $defaultref $defaultref = ''; $modele = getDolGlobalString('PROJECT_ADDON', 'mod_project_simple'); // Search template files $file = ''; $classname = ''; $filefound = 0; $dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']); foreach ($dirmodels as $reldir) { $file = dol_buildpath($reldir."core/modules/project/".$modele.'.php', 0); if (file_exists($file)) { $filefound = 1; $classname = $modele; break; } } if ($filefound && !empty($classname)) { $result = dol_include_once($reldir."core/modules/project/".$modele.'.php'); if (class_exists($classname)) { $modProject = new $classname(); $defaultref = $modProject->getNextValue($thirdparty, $object); } } if (is_numeric($defaultref) && $defaultref <= 0) { $defaultref = ''; } if (empty($defaultref)) { $defaultref = 'PJ'.dol_print_date(dol_now(), 'dayrfc'); } if ($visibility === "1") { $proj->public = 1; } elseif ($visibility === "0") { $proj->public = 0; } elseif (empty($visibility)) { $proj->public = 1; } $proj->ref = $defaultref; $proj->statut = $proj::STATUS_DRAFT; $proj->status = $proj::STATUS_DRAFT; $proj->usage_opportunity = 1; $proj->title = $langs->trans("LeadFromPublicForm"); $proj->description = GETPOST("description", "alphanohtml"); $proj->opp_status = $defaultoppstatus; $proj->fk_opp_status = $defaultoppstatus; $proj->ip = getUserRemoteIP(); $nb_post_max = getDolGlobalInt("MAIN_SECURITY_MAX_POST_ON_PUBLIC_PAGES_BY_IP_ADDRESS", 200); $now = dol_now(); $minmonthpost = dol_time_plus_duree($now, -1, "m"); $nb_post_ip = 0; if ($nb_post_max > 0) { // Calculate only if there is a limit to check $sql = "SELECT COUNT(rowid) as nb_projets"; $sql .= " FROM ".MAIN_DB_PREFIX."projet"; $sql .= " WHERE ip = '".$db->escape($proj->ip)."'"; $sql .= " AND datec > '".$db->idate($minmonthpost)."'"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; while ($i < $num) { $i++; $obj = $db->fetch_object($resql); $nb_post_ip = $obj->nb_projets; } } } // Fill array 'array_options' with data from the form $extrafields->fetch_name_optionals_label($proj->table_element); $ret = $extrafields->setOptionalsFromPost(null, $proj); if ($ret < 0) { $error++; } if ($nb_post_max > 0 && $nb_post_ip >= $nb_post_max) { $error++; $errmsg = $langs->trans("AlreadyTooMuchPostOnThisIPAdress"); array_push($proj->errors, $langs->trans("AlreadyTooMuchPostOnThisIPAdress")); } // Create the project if (!$error) { $result = $proj->create($user); if ($result > 0) { require_once DOL_DOCUMENT_ROOT.'/core/class/CMailFile.class.php'; $object = $proj; if ($object->email) { $subject = ''; $msg = ''; // Send subscription email include_once DOL_DOCUMENT_ROOT.'/core/class/html.formmail.class.php'; $formmail = new FormMail($db); // Set output language $outputlangs = new Translate('', $conf); $outputlangs->setDefaultLang(empty($object->thirdparty->default_lang) ? $mysoc->default_lang : $object->thirdparty->default_lang); // Load traductions files required by page $outputlangs->loadLangs(array("main", "members", "projects")); // Get email content from template $arraydefaultmessage = null; $labeltouse = getDolGlobalString('PROJECT_EMAIL_TEMPLATE_AUTOLEAD'); if (!empty($labeltouse)) { $arraydefaultmessage = $formmail->getEMailTemplate($db, 'project', $user, $outputlangs, 0, 1, $labeltouse); } if (!empty($labeltouse) && is_object($arraydefaultmessage) && $arraydefaultmessage->id > 0) { $subject = $arraydefaultmessage->topic; $msg = $arraydefaultmessage->content; } if (empty($labeltosue)) { $appli = $mysoc->name; $labeltouse = '['.$appli.'] '.$langs->trans("YourMessage"); $msg = $langs->trans("YourMessageHasBeenReceived"); } $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object); complete_substitutions_array($substitutionarray, $outputlangs, $object); $subjecttosend = make_substitutions($subject, $substitutionarray, $outputlangs); $texttosend = make_substitutions($msg, $substitutionarray, $outputlangs); if ($subjecttosend && $texttosend) { $moreinheader = 'X-Dolibarr-Info: send_an_email by public/lead/new.php'."\r\n"; $result = $object->sendEmail($texttosend, $subjecttosend, array(), array(), array(), "", "", 0, -1, '', $moreinheader); } /*if ($result < 0) { $error++; setEventMessages($object->error, $object->errors, 'errors'); }*/ } if (!empty($backtopage)) { $urlback = $backtopage; } elseif (getDolGlobalString('PROJECT_URL_REDIRECT_LEAD')) { $urlback = getDolGlobalString('PROJECT_URL_REDIRECT_LEAD'); // TODO Make replacement of __AMOUNT__, etc... } else { $urlback = $_SERVER["PHP_SELF"]."?action=added&token=".newToken(); } if (!empty($entity)) { $urlback .= '&entity='.$entity; } dol_syslog("project lead ".$proj->ref." has been created, we redirect to ".$urlback); } else { $error++; $errmsg .= $proj->error.'
'.implode('
', $proj->errors); } } else { setEventMessage($errmsg, 'errors'); } } if (!$error) { $db->commit(); header("Location: ".$urlback); exit; } else { $db->rollback(); } } // Action called after a submitted was send and member created successfully // backtopage parameter with an url was set on member submit page, we never go here because a redirect was done to this url. if (empty($reshook) && $action == 'added') { llxHeaderVierge($langs->trans("NewLeadForm")); // Si on a pas ete redirige print '

'; print '
'; print $langs->trans("NewLeadbyWeb"); print '
'; llxFooterVierge(); exit; } /* * View */ $form = new Form($db); $formcompany = new FormCompany($db); $extrafields->fetch_name_optionals_label($object->table_element); // fetch optionals attributes and labels llxHeaderVierge($langs->trans("NewContact")); print load_fiche_titre($langs->trans("NewContact"), '', '', 0, 0, 'center'); print '
'; print '
'; print '
'; if (getDolGlobalString('PROJECT_NEWFORM_TEXT')) { print $langs->trans(getDolGlobalString('PROJECT_NEWFORM_TEXT'))."
\n"; } else { print $langs->trans("FormForNewLeadDesc", getDolGlobalString("MAIN_INFO_SOCIETE_MAIL"))."
\n"; } print '
'; dol_htmloutput_errors($errmsg); // Print form print '
'."\n"; print ''; print ''; print ''; print '
'; print '
'.$langs->trans("FieldsWithAreMandatory", '*').'
'; //print $langs->trans("FieldsWithIsForPublic",'**').'
'; print dol_get_fiche_head(); print ''; print ''."\n"; // Lastname print ''."\n"; // Firstname print ''."\n"; // EMail print ''."\n"; // Company print ''."\n"; // Address print ''."\n"; // Zip / Town print ''; // Country print ''; // State if (!getDolGlobalString('SOCIETE_DISABLE_STATE')) { print ''; } // Other attributes $parameters['tpl_context'] = 'public'; // define template context to public include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_add.tpl.php'; // Comments print ''; print ''; print ''; print ''."\n"; print "
'.$langs->trans("Lastname").' *
'.$langs->trans("Firstname").' *
'.$langs->trans("Email").' *
'.$langs->trans("Company").'
'.$langs->trans("Address").''."\n"; print '
'.$langs->trans('Zip').' / '.$langs->trans('Town').''; print $formcompany->select_ziptown(GETPOST('zipcode'), 'zipcode', array('town', 'selectcountry_id', 'state_id'), 6, 1); print ' / '; print $formcompany->select_ziptown(GETPOST('town'), 'town', array('zipcode', 'selectcountry_id', 'state_id'), 0, 1); print '
'.$langs->trans('Country').''; $country_id = GETPOST('country_id'); if (!$country_id && getDolGlobalString('PROJECT_NEWFORM_FORCECOUNTRYCODE')) { $country_id = getCountry($conf->global->PROJECT_NEWFORM_FORCECOUNTRYCODE, 2, $db, $langs); } if (!$country_id && !empty($conf->geoipmaxmind->enabled)) { $country_code = dol_user_country(); //print $country_code; if ($country_code) { $new_country_id = getCountry($country_code, 3, $db, $langs); //print 'xxx'.$country_code.' - '.$new_country_id; if ($new_country_id) { $country_id = $new_country_id; } } } $country_code = getCountry($country_id, 2, $db, $langs); print $form->select_country($country_id, 'country_id'); print '
'.$langs->trans('State').''; if ($country_code) { print $formcompany->select_state(GETPOSTINT("state_id"), $country_code); } else { print ''; } print '
'.$langs->trans("Message").' *
\n"; print dol_get_fiche_end(); // Save print '
'; print ''; if (!empty($backtopage)) { print '     '; } print '
'; print "
\n"; print "
"; print '
'; llxFooterVierge(); $db->close();