123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278 |
- <?php
- /* Copyright (C) 2000-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2003 Jean-Louis Bergamo <jlb@j1b.org>
- * Copyright (C) 2004-2012 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.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/>.
- * or see https://www.gnu.org/
- *
- * Lots of code inspired from Dan Potter's CSMSFile class
- */
- /**
- * \file htdocs/core/class/CSMSFile.class.php
- * \brief File of class to send sms
- * \author Laurent Destailleur.
- */
- /**
- * Class to send SMS
- * Usage: $smsfile = new CSMSFile($subject,$sendto,$replyto,$message,$filepath,$mimetype,$filename,$cc,$ccc,$deliveryreceipt,$msgishtml,$errors_to);
- * $smsfile->sendfile();
- */
- class CSMSFile
- {
- /**
- * @var string Error code (or message)
- */
- public $error = '';
- public $addr_from;
- public $addr_to;
- public $deferred;
- public $priority;
- public $class;
- public $message;
- public $nostop;
- public $socid;
- public $contactid;
- public $fk_project;
- /**
- * CSMSFile
- *
- * @param string $to Recipients SMS
- * @param string $from Sender SMS
- * @param string $msg Message
- * @param int $deliveryreceipt Not used
- * @param int $deferred Deferred or not
- * @param int $priority Priority
- * @param int $class Class
- */
- public function __construct($to, $from, $msg, $deliveryreceipt = 0, $deferred = 0, $priority = 3, $class = 1)
- {
- global $conf;
- // On definit fin de ligne
- $this->eol = "\n";
- if (preg_match('/^win/i', PHP_OS)) {
- $this->eol = "\r\n";
- }
- if (preg_match('/^mac/i', PHP_OS)) {
- $this->eol = "\r";
- }
- // If ending method not defined
- if (empty($conf->global->MAIN_SMS_SENDMODE)) {
- $this->error = 'No SMS Engine defined';
- return -1;
- }
- if (!empty($conf->global->MAIN_MAIL_SMS_INTL_PREFIX_DEFAULT))
- $to = $this->tel_international($to, $conf->global->MAIN_MAIL_SMS_INTL_PREFIX_DEFAULT);
- dol_syslog("CSMSFile::CSMSFile: MAIN_SMS_SENDMODE=".$conf->global->MAIN_SMS_SENDMODE." charset=".$conf->file->character_set_client." from=".$from.", to=".$to.", msg length=".strlen($msg), LOG_DEBUG);
- dol_syslog("CSMSFile::CSMSFile: deferred=".$deferred." priority=".$priority." class=".$class, LOG_DEBUG);
- // Action according to choosed sending method
- $this->addr_from = $from;
- $this->addr_to = $to;
- $this->deferred = $deferred;
- $this->priority = $priority;
- $this->class = $class;
- $this->message = $msg;
- $this->nostop = false;
- }
- /**
- * Send sms that was prepared by constructor
- *
- * @return boolean True if sms sent, false otherwise
- */
- public function sendfile()
- {
- global $conf;
- $errorlevel = error_reporting();
- error_reporting($errorlevel ^ E_WARNING); // Desactive warnings
- $res = false;
- dol_syslog("CSMSFile::sendfile addr_to=".$this->addr_to, LOG_DEBUG);
- dol_syslog("CSMSFile::sendfile message=\n".$this->message);
- $this->message = stripslashes($this->message);
- if (!empty($conf->global->MAIN_SMS_DEBUG)) {
- $this->dump_sms();
- }
- if (empty($conf->global->MAIN_DISABLE_ALL_SMS)) {
- // Action according to choosed sending method
- if ($conf->global->MAIN_SMS_SENDMODE == 'ovh') { // Backward compatibility @deprecated
- dol_include_once('/ovh/class/ovhsms.class.php');
- $sms = new OvhSms($this->db);
- $sms->expe = $this->addr_from;
- $sms->dest = $this->addr_to;
- $sms->message = $this->message;
- $sms->deferred = $this->deferred;
- $sms->priority = $this->priority;
- $sms->class = $this->class;
- $sms->nostop = $this->nostop;
- $sms->socid = $this->socid;
- $sms->contact_id = $this->contact_id;
- $sms->project = $this->fk_project;
- $res = $sms->SmsSend();
- if ($res <= 0) {
- $this->error = $sms->error;
- dol_syslog("CSMSFile::sendfile: sms send error=".$this->error, LOG_ERR);
- } else {
- dol_syslog("CSMSFile::sendfile: sms send success with id=".$res, LOG_DEBUG);
- //var_dump($res); // 1973128
- if (!empty($conf->global->MAIN_SMS_DEBUG)) {
- $this->dump_sms_result($res);
- }
- }
- } elseif (!empty($conf->global->MAIN_SMS_SENDMODE)) { // $conf->global->MAIN_SMS_SENDMODE looks like a value 'class@module'
- $tmp = explode('@', $conf->global->MAIN_SMS_SENDMODE);
- $classfile = $tmp[0];
- $module = (empty($tmp[1]) ? $tmp[0] : $tmp[1]);
- dol_include_once('/'.$module.'/class/'.$classfile.'.class.php');
- try {
- $classname = ucfirst($classfile);
- $sms = new $classname($this->db);
- $sms->expe = $this->addr_from;
- $sms->dest = $this->addr_to;
- $sms->deferred = $this->deferred;
- $sms->priority = $this->priority;
- $sms->class = $this->class;
- $sms->message = $this->message;
- $sms->nostop = $this->nostop;
- $sms->socid = $this->socid;
- $sms->contact_id = $this->contact_id;
- $sms->fk_project = $this->fk_project;
- $res = $sms->SmsSend();
- $this->error = $sms->error;
- $this->errors = $sms->errors;
- if ($res <= 0) {
- dol_syslog("CSMSFile::sendfile: sms send error=".$this->error, LOG_ERR);
- } else {
- dol_syslog("CSMSFile::sendfile: sms send success with id=".$res, LOG_DEBUG);
- //var_dump($res); // 1973128
- if (!empty($conf->global->MAIN_SMS_DEBUG)) {
- $this->dump_sms_result($res);
- }
- }
- } catch (Exception $e) {
- dol_print_error('', 'Error to get list of senders: '.$e->getMessage());
- }
- } else {
- // Send sms method not correctly defined
- // --------------------------------------
- return 'Bad value for MAIN_SMS_SENDMODE constant';
- }
- } else {
- $this->error = 'No sms sent. Feature is disabled by option MAIN_DISABLE_ALL_SMS';
- dol_syslog("CSMSFile::sendfile: ".$this->error, LOG_WARNING);
- }
- error_reporting($errorlevel); // Reactive niveau erreur origine
- return $res;
- }
- // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
- /**
- * Write content of a SendSms request into a dump file (mode = all)
- * Used for debugging.
- *
- * @return void
- */
- public function dump_sms()
- {
- // phpcs:enable
- global $conf, $dolibarr_main_data_root;
- if (@is_writeable($dolibarr_main_data_root)) { // Avoid fatal error on fopen with open_basedir
- $outputfile = $dolibarr_main_data_root."/dolibarr_sms.log";
- $fp = fopen($outputfile, "w");
- fputs($fp, "From: ".$this->addr_from."\n");
- fputs($fp, "To: ".$this->addr_to."\n");
- fputs($fp, "Priority: ".$this->priority."\n");
- fputs($fp, "Class: ".$this->class."\n");
- fputs($fp, "Deferred: ".$this->deferred."\n");
- fputs($fp, "DisableStop: ".$this->nostop."\n");
- fputs($fp, "Message:\n".$this->message);
- fclose($fp);
- if (!empty($conf->global->MAIN_UMASK)) {
- @chmod($outputfile, octdec($conf->global->MAIN_UMASK));
- }
- }
- }
- // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
- /**
- * Write content of a SendSms result into a dump file (mode = all)
- * Used for debugging.
- *
- * @param int $result Result of sms sending
- * @return void
- */
- public function dump_sms_result($result)
- {
- // phpcs:enable
- global $conf, $dolibarr_main_data_root;
- if (@is_writeable($dolibarr_main_data_root)) { // Avoid fatal error on fopen with open_basedir
- $outputfile = $dolibarr_main_data_root."/dolibarr_sms.log";
- $fp = fopen($outputfile, "a+");
- fputs($fp, "\nResult id=".$result);
- fclose($fp);
- if (!empty($conf->global->MAIN_UMASK)) {
- @chmod($outputfile, octdec($conf->global->MAIN_UMASK));
- }
- }
- }
- // Added by MMI Mathieu Moulin iProspective
- function tel_international($value, $prefix='') {
- if (empty($prefix)) {
- global $conf;
- $prefix = $conf->global->MAIN_MAIL_SMS_INTL_PREFIX_DEFAULT;
- }
- $value = str_replace([' ', '.', '-'], ['', '', ''], $value);
- if (substr($value, 0, 2)=='00')
- $value = '+'.substr($value, 2);
- if (substr($value, 0, 1)=='0')
- $value = $prefix.substr($value, 1);
- return $value;
- }
- }
|