modulebuilder.lib.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2009-2010 Laurent Destailleur  <eldy@users.sourceforge.net>
 *
 * 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/
 */
 
function rebuildObjectClass($destdir, $module, $objectname, $newmask, $readdir = '', $addfieldentry = array(), $delfieldentry = '')
{
  global $db, $langs;
 
  if (empty($objectname)) {
    return -6;
  }
  if (empty($readdir)) {
    $readdir = $destdir;
  }
 
  if (!empty($addfieldentry['arrayofkeyval']) && !is_array($addfieldentry['arrayofkeyval'])) {
    dol_print_error('', 'Bad parameter addfieldentry with a property arrayofkeyval defined but that is not an array.');
    return -7;
  }
 
  $error = 0;
 
  // Check parameters
  if (is_array($addfieldentry) && count($addfieldentry) > 0) {
    if (empty($addfieldentry['name'])) {
      setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Name")), null, 'errors');
      return -2;
    }
    if (empty($addfieldentry['label'])) {
      setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv("Label")), null, 'errors');
      return -2;
    }
    if (!preg_match('/^(integer|price|sellist|varchar|double|text|html|duration)/', $addfieldentry['type'])
      && !preg_match('/^(boolean|smallint|real|date|datetime|timestamp|phone|mail|url|ip|password)$/', $addfieldentry['type'])) {
      setEventMessages($langs->trans('BadValueForType', $addfieldentry['type']), null, 'errors');
      return -2;
    }
  }
 
  $pathoffiletoeditsrc = $readdir.'/class/'.strtolower($objectname).'.class.php';
  $pathoffiletoedittarget = $destdir.'/class/'.strtolower($objectname).'.class.php'.($readdir != $destdir ? '.new' : '');
  if (!dol_is_file($pathoffiletoeditsrc)) {
    $langs->load("errors");
    setEventMessages($langs->trans("ErrorFileNotFound", $pathoffiletoeditsrc), null, 'errors');
    return -3;
  }
 
  //$pathoffiletoedittmp=$destdir.'/class/'.strtolower($objectname).'.class.php.tmp';
  //dol_delete_file($pathoffiletoedittmp, 0, 1, 1);
 
  try {
    include_once $pathoffiletoeditsrc;
    if (class_exists($objectname)) {
      $object = new $objectname($db);
    } else {
      return -4;
    }
 
    // Backup old file
    dol_copy($pathoffiletoedittarget, $pathoffiletoedittarget.'.back', $newmask, 1);
 
    // Edit class files
    $contentclass = file_get_contents(dol_osencode($pathoffiletoeditsrc), 'r');
 
    // Update ->fields (to add or remove entries defined into $addfieldentry)
    if (count($object->fields)) {
      if (is_array($addfieldentry) && count($addfieldentry)) {
        $name = $addfieldentry['name'];
        unset($addfieldentry['name']);
 
        $object->fields[$name] = $addfieldentry;
      }
      if (!empty($delfieldentry)) {
        $name = $delfieldentry;
        unset($object->fields[$name]);
      }
    }
 
    dol_sort_array($object->fields, 'position');
 
    $i = 0;
    $texttoinsert = '// BEGIN MODULEBUILDER PROPERTIES'."\n";
    $texttoinsert .= "\t".''."\n";
    $texttoinsert .= "\t".'public $fields=array('."\n";
 
    if (count($object->fields)) {
      foreach ($object->fields as $key => $val) {
        $i++;
        $texttoinsert .= "\t\t'".$key."' => array('type'=>'".$val['type']."',";
        $texttoinsert .= " 'label'=>'".$val['label']."',";
        if (!empty($val['picto'])) {
          $texttoinsert .= " 'picto'=>'".$val['picto']."',";
        }
        $texttoinsert .= " 'enabled'=>'".($val['enabled'] !== '' ? $val['enabled'] : 1)."',";
        $texttoinsert .= " 'position'=>".($val['position'] !== '' ? $val['position'] : 50).",";
        $texttoinsert .= " 'notnull'=>".(empty($val['notnull']) ? 0 : $val['notnull']).",";
        $texttoinsert .= " 'visible'=>".($val['visible'] !== '' ? $val['visible'] : -1).",";
        if (!empty($val['noteditable'])) {
          $texttoinsert .= " 'noteditable'=>'".$val['noteditable']."',";
        }
        if (!empty($val['alwayseditable'])) {
          $texttoinsert .= " 'alwayseditable'=>'".$val['alwayseditable']."',";
        }
        if (!empty($val['default']) || (isset($val['default']) && $val['default'] === '0')) {
          $texttoinsert .= " 'default'=>'".$val['default']."',";
        }
        if (!empty($val['index'])) {
          $texttoinsert .= " 'index'=>".$val['index'].",";
        }
        if (!empty($val['foreignkey'])) {
          $texttoinsert .= " 'foreignkey'=>'".$val['foreignkey']."',";
        }
        if (!empty($val['searchall'])) {
          $texttoinsert .= " 'searchall'=>".$val['searchall'].",";
        }
        if (!empty($val['isameasure'])) {
          $texttoinsert .= " 'isameasure'=>'".$val['isameasure']."',";
        }
        if (!empty($val['css'])) {
          $texttoinsert .= " 'css'=>'".$val['css']."',";
        }
        if (!empty($val['cssview'])) {
          $texttoinsert .= " 'cssview'=>'".$val['cssview']."',";
        }
        if (!empty($val['csslist'])) {
          $texttoinsert .= " 'csslist'=>'".$val['csslist']."',";
        }
        if (!empty($val['help'])) {
          $texttoinsert .= " 'help'=>\"".preg_replace('/"/', '', $val['help'])."\",";
        }
        if (!empty($val['showoncombobox'])) {
          $texttoinsert .= " 'showoncombobox'=>'".$val['showoncombobox']."',";
        }
        if (!empty($val['disabled'])) {
          $texttoinsert .= " 'disabled'=>'".$val['disabled']."',";
        }
        if (!empty($val['autofocusoncreate'])) {
          $texttoinsert .= " 'autofocusoncreate'=>'".$val['autofocusoncreate']."',";
        }
        if (!empty($val['arrayofkeyval'])) {
          $texttoinsert .= " 'arrayofkeyval'=>array(";
          $i = 0;
          foreach ($val['arrayofkeyval'] as $key2 => $val2) {
            if ($i) {
              $texttoinsert .= ", ";
            }
            $texttoinsert .= "'".$key2."'=>'".$val2."'";
            $i++;
          }
          $texttoinsert .= "),";
        }
        if (!empty($val['validate'])) {
          $texttoinsert .= " 'validate'=>'".$val['validate']."',";
        }
        if (!empty($val['comment'])) {
          $texttoinsert .= " 'comment'=>\"".preg_replace('/"/', '', $val['comment'])."\"";
        }
 
        $texttoinsert .= "),\n";
        //print $texttoinsert;
      }
    }
 
    $texttoinsert .= "\t".');'."\n";
    //print ($texttoinsert);exit;
 
    if (count($object->fields)) {
      //$typetotypephp=array('integer'=>'integer', 'duration'=>'integer', 'varchar'=>'string');
 
      foreach ($object->fields as $key => $val) {
        $i++;
        //$typephp=$typetotypephp[$val['type']];
        $texttoinsert .= "\t".'public $'.$key.";";
        //if ($key == 'rowid')  $texttoinsert.= ' AUTO_INCREMENT PRIMARY KEY';
        //if ($key == 'entity') $texttoinsert.= ' DEFAULT 1';
        //$texttoinsert.= ($val['notnull']?' NOT NULL':'');
        //if ($i < count($object->fields)) $texttoinsert.=";";
        $texttoinsert .= "\n";
      }
    }
 
    $texttoinsert .= "\t".'// END MODULEBUILDER PROPERTIES';
 
    //print($texttoinsert);
 
    $contentclass = preg_replace('/\/\/ BEGIN MODULEBUILDER PROPERTIES.*END MODULEBUILDER PROPERTIES/ims', $texttoinsert, $contentclass);
    //print $contentclass;
 
    dol_mkdir(dirname($pathoffiletoedittarget));
 
    //file_put_contents($pathoffiletoedittmp, $contentclass);
    $result = file_put_contents(dol_osencode($pathoffiletoedittarget), $contentclass);
 
    if ($result) {
      @chmod($pathoffiletoedittarget, octdec($newmask));
    } else {
      $error++;
    }
 
    return $error ? -1 : $object;
  } catch (Exception $e) {
    print $e->getMessage();
    return -5;
  }
}
 
function rebuildObjectSql($destdir, $module, $objectname, $newmask, $readdir = '', $object = null, $moduletype = 'external')
{
  global $db, $langs;
 
  $error = 0;
 
  if (empty($objectname)) {
    return -1;
  }
  if (empty($readdir)) {
    $readdir = $destdir;
  }
 
  $pathoffiletoclasssrc = $readdir.'/class/'.strtolower($objectname).'.class.php';
 
  // Edit .sql file
  if ($moduletype == 'internal') {
    $pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql';
    if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
      $pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'-'.strtolower($module).'.sql';
      if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
        $pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'-'.strtolower($module).'.sql';
        if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
          $pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'.sql';
        }
      }
    }
  } else {
    $pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql';
    if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
      $pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'-'.strtolower($module).'.sql';
      if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
        $pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'-'.strtolower($module).'.sql';
        if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
          $pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'.sql';
        }
      }
    }
  }
 
  // Complete path to be full path
  $pathoffiletoedittarget = $destdir.$pathoffiletoeditsrc.($readdir != $destdir ? '.new' : '');
  $pathoffiletoeditsrc = $readdir.$pathoffiletoeditsrc;
 
  if (!dol_is_file($pathoffiletoeditsrc)) {
    $langs->load("errors");
    setEventMessages($langs->trans("ErrorFileNotFound", $pathoffiletoeditsrc), null, 'errors');
    return -1;
  }
 
  // Load object from myobject.class.php
  try {
    if (!is_object($object)) {
      include_once $pathoffiletoclasssrc;
      if (class_exists($objectname)) {
        $object = new $objectname($db);
      } else {
        return -1;
      }
    }
  } catch (Exception $e) {
    print $e->getMessage();
  }
 
  // Backup old file
  dol_copy($pathoffiletoedittarget, $pathoffiletoedittarget.'.back', $newmask, 1);
 
  $contentsql = file_get_contents(dol_osencode($pathoffiletoeditsrc), 'r');
 
  $i = 0;
  $texttoinsert = '-- BEGIN MODULEBUILDER FIELDS'."\n";
  if (count($object->fields)) {
    foreach ($object->fields as $key => $val) {
      $i++;
 
      $type = $val['type'];
      $type = preg_replace('/:.*$/', '', $type); // For case type = 'integer:Societe:societe/class/societe.class.php'
 
      if ($type == 'html') {
        $type = 'text'; // html modulebuilder type is a text type in database
      } elseif ($type == 'price') {
        $type = 'double'; // html modulebuilder type is a text type in database
      } elseif (in_array($type, array('link', 'sellist', 'duration'))) {
        $type = 'integer';
      }
      $texttoinsert .= "\t".$key." ".$type;
      if ($key == 'rowid') {
        $texttoinsert .= ' AUTO_INCREMENT PRIMARY KEY';
      } elseif ($type == 'timestamp') {
        $texttoinsert .= ' DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP';
      }
      if ($key == 'entity') {
        $texttoinsert .= ' DEFAULT 1';
      } else {
        if (!empty($val['default'])) {
          if (preg_match('/^null$/i', $val['default'])) {
            $texttoinsert .= " DEFAULT NULL";
          } elseif (preg_match('/varchar/', $type)) {
            $texttoinsert .= " DEFAULT '".$db->escape($val['default'])."'";
          } else {
            $texttoinsert .= (($val['default'] > 0) ? ' DEFAULT '.$val['default'] : '');
          }
        }
      }
      $texttoinsert .= ((!empty($val['notnull']) && $val['notnull'] > 0) ? ' NOT NULL' : '');
      if ($i < count($object->fields)) {
        $texttoinsert .= ", ";
      }
      $texttoinsert .= "\n";
    }
  }
  $texttoinsert .= "\t".'-- END MODULEBUILDER FIELDS';
 
  $contentsql = preg_replace('/-- BEGIN MODULEBUILDER FIELDS.*END MODULEBUILDER FIELDS/ims', $texttoinsert, $contentsql);
 
  $result = file_put_contents($pathoffiletoedittarget, $contentsql);
  if ($result) {
    @chmod($pathoffiletoedittarget, octdec($newmask));
  } else {
    $error++;
    setEventMessages($langs->trans("ErrorFailToCreateFile", $pathoffiletoedittarget), null, 'errors');
  }
 
  // Edit .key.sql file
  $pathoffiletoeditsrc = preg_replace('/\.sql$/', '.key.sql', $pathoffiletoeditsrc);
  $pathoffiletoedittarget = preg_replace('/\.sql$/', '.key.sql', $pathoffiletoedittarget);
  $pathoffiletoedittarget = preg_replace('/\.sql.new$/', '.key.sql.new', $pathoffiletoedittarget);
 
  $contentsql = file_get_contents(dol_osencode($pathoffiletoeditsrc), 'r');
 
  $i = 0;
  $texttoinsert = '-- BEGIN MODULEBUILDER INDEXES'."\n";
  if (count($object->fields)) {
    foreach ($object->fields as $key => $val) {
      $i++;
      if (!empty($val['index'])) {
        $texttoinsert .= "ALTER TABLE llx_".strtolower($module).'_'.strtolower($objectname)." ADD INDEX idx_".strtolower($module).'_'.strtolower($objectname)."_".$key." (".$key.");";
        $texttoinsert .= "\n";
      }
      if (!empty($val['foreignkey'])) {
        $tmp = explode('.', $val['foreignkey']);
        if (!empty($tmp[0]) && !empty($tmp[1])) {
          $texttoinsert .= "ALTER TABLE llx_".strtolower($module).'_'.strtolower($objectname)." ADD CONSTRAINT llx_".strtolower($module).'_'.strtolower($objectname)."_".$key." FOREIGN KEY (".$key.") REFERENCES llx_".preg_replace('/^llx_/', '', $tmp[0])."(".$tmp[1].");";
          $texttoinsert .= "\n";
        }
      }
    }
  }
  $texttoinsert .= '-- END MODULEBUILDER INDEXES';
 
  $contentsql = preg_replace('/-- BEGIN MODULEBUILDER INDEXES.*END MODULEBUILDER INDEXES/ims', $texttoinsert, $contentsql);
 
  dol_mkdir(dirname($pathoffiletoedittarget));
 
  $result2 = file_put_contents($pathoffiletoedittarget, $contentsql);
  if ($result2) {
    @chmod($pathoffiletoedittarget, octdec($newmask));
  } else {
    $error++;
    setEventMessages($langs->trans("ErrorFailToCreateFile", $pathoffiletoedittarget), null, 'errors');
  }
 
  return $error ? -1 : 1;
}