123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351 |
- <?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/
- */
- /**
- * \file htdocs/core/lib/memory.lib.php
- * \brief Set of function for memory/cache management
- */
- /**
- * Regenerate files .class.php
- *
- * @param string $destdir Directory
- * @param string $module Module name
- * @param string $objectname Name of object
- * @param string $newmask New mask
- * @param string $readdir Directory source (use $destdir when not defined)
- * @param string $addfieldentry Array of the field entry to add array('key'=>,'type'=>,''label'=>,'visible'=>,'enabled'=>,'position'=>,'notnull'=>','index'=>,'searchall'=>,'comment'=>,'help'=>,'isameasure')
- * @param string $delfieldentry Id of field to remove
- * @return int|object <=0 if KO, Object if OK
- * @see rebuildObjectSql()
- */
- function rebuildObjectClass($destdir, $module, $objectname, $newmask, $readdir = '', $addfieldentry = array(), $delfieldentry = '')
- {
- global $db, $langs;
- if (empty($objectname)) return -1;
- 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 -1;
- }
- // Check parameters
- if (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|real|date|datetime|timestamp)$/', $addfieldentry['type']))
- {
- setEventMessages($langs->trans('BadValueForType', $objectname), 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 (add or remove entries)
- 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".' * @var array Array with all fields and their property. Do not use it as a static var. It may be modified by constructor.'."\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']."', 'label'=>'".$val['label']."',";
- $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 ($val['noteditable']) $texttoinsert .= " 'noteditable'=>'".$val['noteditable']."',";
- if ($val['default'] || $val['default'] === '0') $texttoinsert .= " 'default'=>'".$val['default']."',";
- if ($val['index']) $texttoinsert .= " 'index'=>".$val['index'].",";
- if ($val['foreignkey']) $texttoinsert .= " 'foreignkey'=>'".$val['foreignkey']."',";
- if ($val['searchall']) $texttoinsert .= " 'searchall'=>".$val['searchall'].",";
- if ($val['isameasure']) $texttoinsert .= " 'isameasure'=>'".$val['isameasure']."',";
- if ($val['css']) $texttoinsert .= " 'css'=>'".$val['css']."',";
- if ($val['help']) $texttoinsert .= " 'help'=>\"".preg_replace('/"/', '', $val['help'])."\",";
- if ($val['showoncombobox']) $texttoinsert .= " 'showoncombobox'=>'".$val['showoncombobox']."',";
- if ($val['disabled']) $texttoinsert .= " 'disabled'=>'".$val['disabled']."',";
- if ($val['autofocusoncreate']) $texttoinsert .= " 'autofocusoncreate'=>'".$val['autofocusoncreate']."',";
- if ($val['arrayofkeyval'])
- {
- $texttoinsert .= " 'arrayofkeyval'=>array(";
- $i = 0;
- foreach ($val['arrayofkeyval'] as $key2 => $val2)
- {
- if ($i) $texttoinsert .= ", ";
- $texttoinsert .= "'".$key2."'=>'".$val2."'";
- $i++;
- }
- $texttoinsert .= "),";
- }
- if ($val['comment']) $texttoinsert .= " 'comment'=>\"".preg_replace('/"/', '', $val['comment'])."\"";
- $texttoinsert .= "),\n";
- }
- }
- $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);exit;
- $contentclass = preg_replace('/\/\/ BEGIN MODULEBUILDER PROPERTIES.*END MODULEBUILDER PROPERTIES/ims', $texttoinsert, $contentclass);
- dol_mkdir(dirname($pathoffiletoedittarget));
- //file_put_contents($pathoffiletoedittmp, $contentclass);
- file_put_contents(dol_osencode($pathoffiletoedittarget), $contentclass);
- @chmod($pathoffiletoedittarget, octdec($newmask));
- return $object;
- } catch (Exception $e)
- {
- print $e->getMessage();
- return -5;
- }
- }
- /**
- * Save data into a memory area shared by all users, all sessions on server
- *
- * @param string $destdir Directory
- * @param string $module Module name
- * @param string $objectname Name of object
- * @param string $newmask New mask
- * @param string $readdir Directory source (use $destdir when not defined)
- * @param Object $object If object was already loaded/known, it is pass to avoid another include and new.
- * @param string $moduletype 'external' or 'internal'
- * @return int <=0 if KO, >0 if OK
- * @see rebuildObjectClass()
- */
- 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 = $readdir.'/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql';
- $pathoffiletoedittarget = $destdir.'/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql'.($readdir != $destdir ? '.new' : '');
- } else {
- $pathoffiletoeditsrc = $readdir.'/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql';
- $pathoffiletoedittarget = $destdir.'/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql'.($readdir != $destdir ? '.new' : '');
- }
- 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';
- if ($key == 'entity') $texttoinsert .= ' DEFAULT 1';
- else {
- if ($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 .= (($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++;
- }
- // Edit .key.sql file
- if ($moduletype == 'internal') {
- $pathoffiletoeditsrc = $readdir.'/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'.key.sql';
- $pathoffiletoedittarget = $destdir.'/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'.key.sql'.($readdir != $destdir ? '.new' : '');
- } else {
- $pathoffiletoeditsrc = $destdir.'/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'.key.sql';
- $pathoffiletoedittarget = $destdir.'/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'.key.sql'.($readdir != $destdir ? '.new' : '');
- }
- $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 ($result)
- {
- @chmod($pathoffiletoedittarget, octdec($newmask));
- } else {
- $error++;
- }
- return $error ? -1 : 1;
- }
|