* initial code will auto generate triggers
* -- how to add User defined modifications to triggers?
* -- we can CALL a stored procedure..?
- * -- {tablename}_trigger_before_delete_{column_name}(NEW.column)
- * -- {tablename}_trigger_before_update_{column_name}(OLD.column, NEW.column}
- * -- {tablename}_trigger_before_insert_{column_name}(OLD.column}
+ * -- {tablename}_trigger_{optional_string}_before_delete_{column_name}(NEW.column)
+ * -- {tablename}_trigger_{optional_string}_before_update_{column_name}(OLD.column, NEW.column}
+ * -- {tablename}_trigger_{optional_string}_before_insert_{column_name}(OLD.column}
*
- *
*
+ * ------- Importing with triggers disabled.
+ *
+ * SET @DISABLE_TRIGGER=1; (or anything you like except NULL)
+ * do imports
+ * SET @DISABLE_TRIGGER=NULL;
+ *
+ * ------ Call a method disabling a particular set of triggers
+ * SET @DISABLE_TRIGGER_the_table_name=1; (or anything you like except NULL)
+ * do action
+ * SET @DISABLE_TRIGGER_the_table_name=NULL;*
*/
class Pman_Core_UpdateDatabase_MysqlLinks {
var $dburl;
var $schema;
- var $links;
+ var $links = array();
function __construct()
{
$this->loadIniFiles();
$this->updateTableComments();
+
$ff = HTML_FlexyFramework::get();
- if (!empty($ff->Pman['enable_trigger_tests'])) {
+ if (empty($ff->Pman['enable_trigger_tests'])) {
+ return;
+ }
+ if (!empty($ff->page->opts['disable-create-triggers'])) {
+ return;
+ }
// note we may want to override some of these... - to do special triggers..
// as you can only have one trigger per table for each action.
- $this->createDeleteTriggers();
- $this->createInsertTriggers();
- $this->createUpdateTriggers();
- }
+ $this->createDeleteTriggers();
+ $this->createInsertTriggers();
+ $this->createUpdateTriggers();
+
}
$dbini = 'ini_'. basename($this->dburl['path']);
- $iniCache = $ff->DB_DataObject[$dbini];
+ $iniCache = isset( $ff->PDO_DataObject) ? $ff->PDO_DataObject['schema_location'] : $ff->DB_DataObject[$dbini];
+ if (strpos($iniCache, PATH_SEPARATOR) !== false) {
+ echo "SKIP links code - cached ini file has not been created\n";
+ return;
+ }
$this->schema = parse_ini_file($iniCache, true);
$this->links = parse_ini_file(preg_replace('/\.ini$/', '.links.ini', $iniCache), true);
-
+ $lcfg = &$this->links;
+ $cfg = empty($ff->DB_DataObject) ? array() : $ff->DB_DataObject;
+
+ if (!empty($cfg['table_alias'])) {
+ $ta = $cfg['table_alias'];
+ foreach($lcfg as $k=>$v) {
+ $kk = $k;
+ if (isset($ta[$k])) {
+ $kk = $ta[$k];
+ if (!isset($lcfg[$kk])) {
+ $lcfg[$kk] = array();
+ }
+ }
+ foreach($v as $l => $t_c) {
+ $bits = explode(':',$t_c);
+ $tt = isset($ta[$bits[0]]) ? $ta[$bits[0]] : $bits[0];
+ if ($tt == $bits[0] && $kk == $k) {
+ continue;
+ }
+
+ $lcfg[$kk][$l] = $tt .':'. $bits[1];
+
+
+ }
+
+ }
+ }
+
}
function updateTableComments()
if (!isset($this->schema[$tbl])) {
- echo "Skip $tbl\n";
+ echo "Skip $tbl = table does not exist in schema\n";
return;
}
FROM
information_schema.TABLES
WHERE
- TABLE_SCHEMA = '{$q->escape($q->database())}'
+ TABLE_SCHEMA = DATABASE()
AND
TABLE_NAME = '{$q->escape($tbl)}'
");
}
$q = DB_DAtaObject::factory('core_enum');
- $q->query("ALTER TABLE $tbl COMMENT = '{$q->escape($fkstr)}'");
+ $q->query("ALTER TABLE `$tbl` COMMENT = '{$q->escape($fkstr)}'");
// create a list of source/targets from $this->links
+
$revmap = array();
foreach($this->links as $tbl => $map) {
if (!isset($this->schema[$tbl])) {
}
+
+
foreach($revmap as $target_table => $sources) {
// throw example.. UPDATE `Error: invalid_id_test` SET x=1;
+ if (!isset($this->schema[$target_table])) {
+ echo "Skip $target_table = table does not exist in schema\n";
+ continue;
+ }
+
+
+
$q = DB_DataObject::factory('core_enum');
$q->query("
DROP TRIGGER IF EXISTS `{$target_table}_before_delete` ;
BEFORE DELETE ON `{$target_table}`
FOR EACH ROW
BEGIN
- DECLARE mid INT(11);
-
+ DECLARE mid INT(11);
+ IF (@DISABLE_TRIGGER IS NULL AND @DISABLE_TRIGGER_{$target_table} IS NULL ) THEN
";
foreach($sources as $source=>$target) {
$err = substr("Failed Delete {$target_table} refs {$source_table}:{$source_col}", 0, 64);
$trigger .="
SET mid = 0;
- SELECT count(*) into mid FROM {$source_table} WHERE {$source_col} = OLD.{$target_col};
- IF mid > 0 THEN
-
- UPDATE `$err` SET x = 1;
-
+ IF OLD.{$target_col} > 0 THEN
+ SELECT count(*) into mid FROM {$source_table} WHERE {$source_col} = OLD.{$target_col} LIMIT 1;
+ IF mid > 0 THEN
+ UPDATE `$err` SET x = 1;
+ END IF;
END IF;
";
}
+
+ $ar = $this->listTriggerFunctions($tbl, 'delete');
+ foreach($ar as $fn=>$col) {
+ $trigger .= "
+ CALL $fn( OLD.{$col});
+ ";
+ }
+
$trigger .= "
+ END IF;
END
";
//DB_DAtaObject::debugLevel(1);
$q = DB_DataObject::factory('core_enum');
$q->query($trigger);
-
+ echo "CREATED TRIGGER {$target_table}_before_delete\n";
}
FOR EACH ROW
BEGIN
DECLARE mid INT(11);
-
+ IF (@DISABLE_TRIGGER IS NULL AND @DISABLE_TRIGGER_{$tbl} IS NULL ) THEN
";
+ $has_checks= false;
+ $errs = array();
foreach($map as $source_col=>$target) {
// check that source_col exists in schema.
if (!isset($this->schema[$tbl][$source_col])) {
+ $errs[] = "SOURCE MISSING: $source_col => $target";
continue;
}
$source_tbl = $tbl;
list($target_table , $target_col) = explode(':', $target);
+
+ if (!isset($this->schema[$target_table])) {
+ // skip... target table does not exist
+ $errs[] = "TARGET MISSING: $source_col => $target";
+ continue;
+ }
+
+
$err = substr("Fail: INSERT referenced {$tbl}:{$source_col}", 0, 64);
$trigger .="
SET mid = 0;
if NEW.{$source_col} > 0 THEN
- SELECT {$target_col} into mid FROM {$target_table} WHERE {$target_col} = NEW.{$source_col};
+ SELECT {$target_col} into mid FROM {$target_table} WHERE {$target_col} = NEW.{$source_col} LIMIT 1;
IF mid < 1 THEN
UPDATE `$err` SET x = 1;
END IF;
END IF;
";
+ $has_checks= true;
+
+
+ }
+
+ $ar = $this->listTriggerFunctions($tbl, 'insert');
+ foreach($ar as $fn=>$col) {
+ $trigger .= "
+ CALL $fn( NEW.{$col});
+ ";
+ $has_checks= true;
}
+
$trigger .= "
+ END IF;
END
";
+
+ if (!$has_checks) {
+ echo "SKIP TRIGGER {$tbl}_before_insert (missing " . implode(", ", $errs) . ")\n";
+ continue;
+ }
//echo $trigger; exit;
//DB_DAtaObject::debugLevel(1);
$q = DB_DataObject::factory('core_enum');
$q->query($trigger);
-
+ echo "CREATED TRIGGER {$tbl}_before_insert\n";
FOR EACH ROW
BEGIN
DECLARE mid INT(11);
-
+ IF (@DISABLE_TRIGGER IS NULL AND @DISABLE_TRIGGER_{$tbl} IS NULL ) THEN
";
+ $has_checks= false;
+ $errs = array();
foreach($map as $source_col=>$target) {
// check that source_col exists in schema.
if (!isset($this->schema[$tbl][$source_col])) {
+ $errs[] = "SOURCE MISSING: $source_col => $target";
continue;
}
$source_tbl = $tbl;
list($target_table , $target_col) = explode(':', $target);
+
+ if (!isset($this->schema[$target_table])) {
+ // skip... target table does not exist
+ $errs[] = "TARGET MISSING: $source_col => $target";
+ continue;
+ }
+
$err = substr("Fail: UPDATE referenced {$tbl}:$source_col", 0, 64);
$trigger .="
SET mid = 0;
if NEW.{$source_col} > 0 THEN
- SELECT {$target_col} into mid FROM {$target_table} WHERE {$target_col} = NEW.{$source_col};
+ SELECT {$target_col} into mid FROM {$target_table} WHERE {$target_col} = NEW.{$source_col} LIMIT 1;
IF mid < 1 THEN
UPDATE `$err` SET x = 1;
END IF;
END IF;
";
+ $has_checks= true;
}
+ $ar = $this->listTriggerFunctions($tbl, 'update');
+ foreach($ar as $fn=>$col) {
+ $trigger .= "
+ CALL $fn(OLD.{$col}, NEW.{$col});
+ ";
+ $has_checks= true;
+ }
+
$trigger .= "
+ END IF;
END
";
+ if (!$has_checks) {
+ echo "SKIP TRIGGER {$tbl}_before_update (missing " . implode(", ", $errs) . ")\n";
+ continue;
+ }
+
//echo $trigger; exit;
//DB_DAtaObject::debugLevel(1);
$q = DB_DataObject::factory('core_enum');
$q->query($trigger);
-
-
-
-
-
-
+ echo "CREATED TRIGGER {$tbl}_before_update\n";
}
}
+ /**
+ * check the information schema for any methods that match the trigger criteria.
+ * -- {tablename}_trigger_{optional_string}_before_delete_{column_name}(NEW.column)
+ * -- {tablename}_trigger_{optional_string}_before_update_{column_name}(OLD.column, NEW.column}
+ * -- {tablename}_trigger_{optional_string}_before_insert_{column_name}(OLD.column}
+ *
+ *
+ */
+ // type = update/insert/delete
+
+ function listTriggerFunctions($table, $type)
+ {
+ static $cache = array();
+ if (!isset($cache[$table])) {
+ $cache[$table] = array();
+ $q = DB_DAtaObject::factory('core_enum');
+ $q->query("SELECT
+ SPECIFIC_NAME
+ FROM
+ information_schema.ROUTINES
+ WHERE
+ ROUTINE_SCHEMA = '{$q->escape($q->database())}'
+ AND
+ ROUTINE_NAME LIKE '" . $q->escape("{$table}_trigger_") . "%'
+ AND
+ ROUTINE_TYPE = 'PROCEDURE'
+
+ ");
+ while ($q->fetch()) {
+ $cache[$table][] = $q->SPECIFIC_NAME;
+ }
+
+ }
+ // now see which of the procedures match the specification..
+ $ret = array();
+ foreach($cache[$table] as $cname) {
+ $bits = explode("_before_{$type}_", $cname);
+ if (count($bits) < 2) {
+ continue;
+ }
+ $ret[$cname] = $bits[1];
+ }
+ return $ret;
+ }
+
}