xinputfile.modules.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005-2012 Laurent Destailleur <eldy@users.sourceforge.net>
 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.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/
 */
 
include_once DOL_DOCUMENT_ROOT.'/core/modules/mailings/modules_mailings.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
 
 
class mailing_xinputfile extends MailingTargets
{
  public $name = 'EmailsFromFile'; // Identifiant du module mailing
  // This label is used if no translation is found for key XXX neither MailingModuleDescXXX where XXX=name is found
  public $desc = 'EMails from a file'; // Libelle utilise si aucune traduction pour MailingModuleDescXXX ou XXX=name trouv�e
  public $require_module = array(); // Module mailing actif si modules require_module actifs
  public $require_admin = 0; // Module mailing actif pour user admin ou non
 
  public $picto = 'generic';
  public $tooltip = 'UseFormatFileEmailToTarget';
 
 
  public function __construct($db)
  {
    $this->db = $db;
  }
 
 
  public function getSqlArrayForStats()
  {
    global $langs;
    $langs->load("users");
 
    $statssql = array();
    return $statssql;
  }
 
 
  public function getNbOfRecipients($sql = '')
  {
    return '';
  }
 
 
  public function url($id)
  {
    global $langs;
    return $langs->trans('LineInFile', $id);
    //' - '.$langs->trans("File").' '.dol_trunc(,12);
  }
 
 
  public function formFilter()
  {
    global $langs;
 
    $s = '';
    $maxfilesizearray = getMaxFileSizeArray();
    $maxmin = $maxfilesizearray['maxmin'];
    if ($maxmin > 0) {
      $s .= '<input type="hidden" name="MAX_FILE_SIZE" value="'.($maxmin * 1024).'">';  // MAX_FILE_SIZE must precede the field type=file
    }
    $s .= '<input type="file" name="username" class="flat">';
    return $s;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function add_to_target($mailing_id)
  {
    // phpcs:enable
    global $conf, $langs, $_FILES;
 
    require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
 
    // For compatibility with Unix, MS-Dos or Macintosh
    ini_set('auto_detect_line_endings', true);
 
    $cibles = array();
 
    $upload_dir = $conf->mailing->dir_temp;
 
    if (dol_mkdir($upload_dir) >= 0) {
      $resupload = dol_move_uploaded_file($_FILES['username']['tmp_name'], $upload_dir."/".$_FILES['username']['name'], 1, 0, $_FILES['username']['error']);
      if (is_numeric($resupload) && $resupload > 0) {
        $cpt = 0;
 
        $file = $upload_dir."/".$_FILES['username']['name'];
        $handle = @fopen($file, "r");
        if ($handle) {
          $i = 0;
          $j = 0;
 
          $old = '';
          while (!feof($handle)) {
            $cpt++;
            $buffer = trim(fgets($handle));
            $tab = explode(';', $buffer, 4);
 
            $email = dol_string_nohtmltag($tab[0]);
            $name = dol_string_nohtmltag(empty($tab[1]) ? '' : $tab[1]);
            $firstname = dol_string_nohtmltag(empty($tab[2]) ? '' : $tab[2]);
            $other = dol_string_nohtmltag(empty($tab[3]) ? '' : $tab[3]);
 
            if (!empty($buffer)) {
              //print 'xx'.dol_strlen($buffer).empty($buffer)."<br>\n";
              if (isValidEmail($email)) {
                if ($old != $email) {
                  $cibles[$j] = array(
                          'email' => $email,
                          'lastname' => $name,
                          'firstname' => $firstname,
                          'other' => $other,
                          'source_url' => '',
                          'source_id' => '',
                          'source_type' => 'file'
                  );
                  $old = $email;
                  $j++;
                }
              } else {
                $i++;
                $langs->load("errors");
                $msg = $langs->trans("ErrorFoundBadEmailInFile", $i, $cpt, $email);
                if (!empty($msg)) {
                  $this->error = $msg;
                } else {
                  $this->error = 'ErrorFoundBadEmailInFile '.$i.' '.$cpt.' '.$email; // We experience case where $langs->trans return an empty string.
                }
              }
            }
          }
          fclose($handle);
 
          if ($i > 0) {
            return -$i;
          }
        } else {
          $this->error = $langs->trans("ErrorFaildToOpenFile");
          return -1;
        }
 
        dol_syslog(get_class($this)."::add_to_target mailing ".$cpt." targets found");
      } else {
        $langs->load("errors");
        if ($resupload < 0) { // Unknown error
          $this->error = '<div class="error">'.$langs->trans("ErrorFileNotUploaded").'</div>';
        } elseif (preg_match('/ErrorFileIsInfectedWithAVirus/', $resupload)) {  // Files infected by a virus
          $this->error = '<div class="error">'.$langs->trans("ErrorFileIsInfectedWithAVirus").'</div>';
        } else { // Known error
          $this->error = '<div class="error">'.$langs->trans($resupload).'</div>';
        }
      }
    }
 
    ini_set('auto_detect_line_endings', false);
 
    return parent::addTargetsToDatabase($mailing_id, $cibles);
  }
}