dolibarr 19.0.4
agenda_reminder.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2017 Laurent Destailleur <eldy@users.sourceforge.net>
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 3 of the License, or
7 * (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program. If not, see <https://www.gnu.org/licenses/>.
16 */
17
24// Load Dolibarr environment
25require '../main.inc.php';
26require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
27require_once DOL_DOCUMENT_ROOT.'/core/lib/agenda.lib.php';
28require_once DOL_DOCUMENT_ROOT.'/core/class/html.formactions.class.php';
29require_once DOL_DOCUMENT_ROOT.'/cron/class/cronjob.class.php';
30
31if (!$user->admin) {
33}
34
35// Load translation files required by the page
36$langs->loadLangs(array("admin", "other", "agenda"));
37
38$action = GETPOST('action', 'aZ09');
39$value = GETPOST('value', 'alpha');
40$modulepart = GETPOST('modulepart', 'aZ09'); // Used by actions_setmoduleoptions.inc.php
41
42$param = GETPOST('param', 'alpha');
43$cancel = GETPOST('cancel', 'alpha');
44$scandir = GETPOST('scandir', 'alpha');
45$type = 'action';
46
47
48/*
49 * Actions
50 */
51
52include DOL_DOCUMENT_ROOT.'/core/actions_setmoduleoptions.inc.php';
53
54if (preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) {
55 $code = $reg[1];
56 $value = (GETPOST($code, 'alpha') ? GETPOST($code, 'alpha') : 1);
57 if (dolibarr_set_const($db, $code, $value, 'chaine', 0, '', $conf->entity) > 0) {
58 Header("Location: ".$_SERVER["PHP_SELF"]);
59 exit;
60 } else {
61 dol_print_error($db);
62 }
63}
64
65if (preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) {
66 $code = $reg[1];
67 if (dolibarr_del_const($db, $code, $conf->entity) > 0) {
68 Header("Location: ".$_SERVER["PHP_SELF"]);
69 exit;
70 } else {
71 dol_print_error($db);
72 }
73}
74if ($action == 'set') {
75 dolibarr_set_const($db, 'AGENDA_USE_EVENT_TYPE_DEFAULT', GETPOST('AGENDA_USE_EVENT_TYPE_DEFAULT'), 'chaine', 0, '', $conf->entity);
76 dolibarr_set_const($db, 'AGENDA_DEFAULT_FILTER_TYPE', GETPOST('AGENDA_DEFAULT_FILTER_TYPE'), 'chaine', 0, '', $conf->entity);
77 dolibarr_set_const($db, 'AGENDA_DEFAULT_FILTER_STATUS', GETPOST('AGENDA_DEFAULT_FILTER_STATUS'), 'chaine', 0, '', $conf->entity);
78 dolibarr_set_const($db, 'AGENDA_DEFAULT_VIEW', GETPOST('AGENDA_DEFAULT_VIEW'), 'chaine', 0, '', $conf->entity);
79} elseif ($action == 'specimen') { // For orders
80 $modele = GETPOST('module', 'alpha');
81
82 $commande = new CommandeFournisseur($db);
83 $commande->initAsSpecimen();
84 $commande->thirdparty = $specimenthirdparty;
85
86 // Search template files
87 $file = '';
88 $classname = '';
89 $filefound = 0;
90 $dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']);
91 foreach ($dirmodels as $reldir) {
92 $file = dol_buildpath($reldir."core/modules/action/doc/pdf_".$modele.".modules.php", 0);
93 if (file_exists($file)) {
94 $filefound = 1;
95 $classname = "pdf_".$modele;
96 break;
97 }
98 }
99
100 if ($filefound) {
101 require_once $file;
102
103 $module = new $classname($db, $commande);
104
105 if ($module->write_file($commande, $langs) > 0) {
106 header("Location: ".DOL_URL_ROOT."/document.php?modulepart=action&file=SPECIMEN.pdf");
107 return;
108 } else {
109 setEventMessages($module->error, $module->errors, 'errors');
110 dol_syslog($module->error, LOG_ERR);
111 }
112 } else {
113 setEventMessages($langs->trans("ErrorModuleNotFound"), null, 'errors');
114 dol_syslog($langs->trans("ErrorModuleNotFound"), LOG_ERR);
115 }
116} elseif ($action == 'setmodel') {
117 // Activate a model
118 //print "sssd".$value;
119 $ret = addDocumentModel($value, $type, $label, $scandir);
120} elseif ($action == 'del') {
121 $ret = delDocumentModel($value, $type);
122 if ($ret > 0) {
123 if ($conf->global->ACTION_EVENT_ADDON_PDF == "$value") {
124 dolibarr_del_const($db, 'ACTION_EVENT_ADDON_PDF', $conf->entity);
125 }
126 }
127} elseif ($action == 'setdoc') {
128 // Set default model
129 if (dolibarr_set_const($db, "ACTION_EVENT_ADDON_PDF", $value, 'chaine', 0, '', $conf->entity)) {
130 // The constant that has been read in front of the new set
131 // is therefore passed through a variable to have a coherent display
132 $conf->global->ACTION_EVENT_ADDON_PDF = $value;
133 }
134
135 // On active le modele
136 $ret = delDocumentModel($value, $type);
137 if ($ret > 0) {
138 $ret = addDocumentModel($value, $type, $label, $scandir);
139 }
140}
141
142
148$dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']);
149llxHeader();
150
151$linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
152print load_fiche_titre($langs->trans("AgendaSetup"), $linkback, 'title_setup');
153
154
155$head = agenda_prepare_head();
156
157print dol_get_fiche_head($head, 'reminders', $langs->trans("Agenda"), -1, 'action');
158
159print '<form action="'.$_SERVER["PHP_SELF"].'" name="agenda">';
160print '<input type="hidden" name="token" value="'.newToken().'">';
161print '<input type="hidden" name="action" value="set">';
162
163print '<table class="noborder allwidth">'."\n";
164print '<tr class="liste_titre">'."\n";
165print '<td>'.$langs->trans("Parameters").'</td>'."\n";
166print '<td class="center">&nbsp;</td>'."\n";
167print '<td class="right">'.$langs->trans("Value").'</td>'."\n";
168print '</tr>'."\n";
169
170// AGENDA REMINDER BROWSER
171print '<tr class="oddeven">'."\n";
172print '<td>'.$langs->trans('AGENDA_REMINDER_BROWSER').'</td>'."\n";
173print '<td class="center">&nbsp;</td>'."\n";
174print '<td class="right nowraponall">'."\n";
175
176if (!getDolGlobalString('AGENDA_REMINDER_BROWSER')) {
177 if (!isHTTPS()) {
178 $langs->load("errors");
179 print img_warning($langs->trans("WarningAvailableOnlyForHTTPSServers"), '', 'valignmiddle size15x').' ';
180 }
181 print '<a class="valignmiddle" href="'.$_SERVER['PHP_SELF'].'?action=set_AGENDA_REMINDER_BROWSER&token='.newToken().'">'.img_picto($langs->trans('Disabled'), 'switch_off').'</a>';
182 print '</td></tr>'."\n";
183} else {
184 if (!isHTTPS()) {
185 $langs->load("errors");
186 print img_warning($langs->trans("WarningAvailableOnlyForHTTPSServers"), '', 'valignmiddle size15x').' ';
187 }
188 print '<a class="valignmiddle" href="'.$_SERVER['PHP_SELF'].'?action=del_AGENDA_REMINDER_BROWSER&token='.newToken().'">'.img_picto($langs->trans('Enabled'), 'switch_on').'</a>';
189 print '</td></tr>'."\n";
190
191 print '<tr class="oddeven">'."\n";
192 print '<td>'.$langs->trans('AGENDA_REMINDER_BROWSER_SOUND').'</td>'."\n";
193 print '<td class="center">&nbsp;</td>'."\n";
194 print '<td class="right">'."\n";
195
196 if (!getDolGlobalString('AGENDA_REMINDER_BROWSER_SOUND')) {
197 print '<a href="'.$_SERVER['PHP_SELF'].'?action=set_AGENDA_REMINDER_BROWSER_SOUND&token='.newToken().'">'.img_picto($langs->trans('Disabled'), 'switch_off').'</a>';
198 } else {
199 print '<a href="'.$_SERVER['PHP_SELF'].'?action=del_AGENDA_REMINDER_BROWSER_SOUND&token='.newToken().'">'.img_picto($langs->trans('Enabled'), 'switch_on').'</a>';
200 }
201
202 print '</td></tr>'."\n";
203}
204
205$job = new Cronjob($db);
206$job->fetch(0, 'ActionComm', 'sendEmailsReminder');
207
208// AGENDA REMINDER EMAIL
209print '<tr class="oddeven">'."\n";
210print '<td>'.$langs->trans('AGENDA_REMINDER_EMAIL', $langs->transnoentities("Module2300Name"));
211if (isModEnabled('cron')) {
212 if (getDolGlobalString('AGENDA_REMINDER_EMAIL')) {
213 if ($job->id > 0) {
214 if ($job->status == $job::STATUS_ENABLED) {
215 print '<br><span class="opacitymedium">'.$langs->trans("AGENDA_REMINDER_EMAIL_NOTE", $langs->transnoentitiesnoconv("sendEmailsReminder")).'</span>';
216 }
217 }
218 }
219}
220print '</td>'."\n";
221print '<td class="center">&nbsp;</td>'."\n";
222print '<td class="right nowraponall">'."\n";
223
224if (!isModEnabled('cron')) {
225 print '<span class="opacitymedium">'.$langs->trans("WarningModuleNotActive", $langs->transnoentitiesnoconv("Module2300Name")).'</span>';
226} else {
227 if (!getDolGlobalString('AGENDA_REMINDER_EMAIL')) {
228 print '<a href="'.$_SERVER['PHP_SELF'].'?action=set_AGENDA_REMINDER_EMAIL&token='.newToken().'">'.img_picto($langs->trans('Disabled'), 'switch_off').'</a>';
229 } else {
230 // Get the max frequency of reminder
231 if ($job->id > 0) {
232 if ($job->status != $job::STATUS_ENABLED) {
233 $langs->load("cron");
234 print '<span class="opacitymedium warning">'.$langs->trans("JobXMustBeEnabled", $langs->transnoentitiesnoconv("sendEmailsReminder")).'</span>';
235 } else {
236 print '<a href="'.$_SERVER['PHP_SELF'].'?action=del_AGENDA_REMINDER_EMAIL&token='.newToken().'">'.img_picto($langs->trans('Enabled'), 'switch_on').'</a>';
237 }
238 } else {
239 $langs->load("cron");
240 print '<span class="opacitymedium warning">'.$langs->trans("JobNotFound", $langs->transnoentitiesnoconv("sendEmailsReminder")).'</span>';
241 }
242 }
243}
244print '</td></tr>'."\n";
245
246print '</table>';
247
248print dol_get_fiche_end();
249
250//print '<div class="center"><input class="button button-save" type="submit" name="save" value="'.dol_escape_htmltag($langs->trans("Save")).'"></div>';
251
252print '</form>';
253
254print "<br>";
255
256// End of page
257llxFooter();
258$db->close();
addDocumentModel($name, $type, $label='', $description='')
Add document model used by doc generator.
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
dolibarr_del_const($db, $name, $entity=1)
Delete a constant.
delDocumentModel($name, $type)
Delete document model used by doc generator.
agenda_prepare_head()
Prepare array with list of tabs.
if(preg_match('/set_([a-z0-9_\-]+)/i', $action, $reg)) if(preg_match('/del_([a-z0-9_\-]+)/i', $action, $reg)) if($action=='set') elseif( $action=='specimen') elseif($action=='setmodel') elseif( $action=='del') elseif($action=='setdoc') $formactions
View.
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage predefined suppliers products.
Cron Job class.
Class to manage building of HTML components.
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
isHTTPS()
Return if we are using a HTTPS connexion Check HTTPS (no way to be modified by user but may be empty ...
dol_get_fiche_end($notab=0)
Return tab footer of a card.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.