Example #1
0
 public function validationHook(\Formal\Form $oForm, \Formal\Form\Morphology $oMorpho)
 {
     if (intval($oForm->modelInstance()->get("PROJECT_DB_MYSQL")) === 1) {
         # We have to check the MySQL connection
         $sHost = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_HOST");
         $sDbName = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_DBNAME");
         $sUsername = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_USERNAME");
         $sPassword = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_PASSWORD");
         try {
             $oDB = new \Flake\Core\Database\Mysql($sHost, $sDbName, $sUsername, $sPassword);
         } catch (\Exception $e) {
             $sMessage = "<strong>MySQL error:</strong> " . $e->getMessage();
             $sMessage .= "<br /><strong>Nothing has been saved</strong>";
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_HOST"), $sMessage);
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_DBNAME"));
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_USERNAME"));
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_PASSWORD"));
             return;
         }
         if (($aMissingTables = \Baikal\Core\Tools::isDBStructurallyComplete($oDB)) !== TRUE) {
             $sMessage = "<strong>MySQL error:</strong> These tables, required by Baïkal, are missing: <strong>" . implode(", ", $aMissingTables) . "</strong><br />";
             $sMessage .= "You may want create these tables using the file <strong>Core/Resources/Db/MySQL/db.sql</strong>";
             $sMessage .= "<br /><br /><strong>Nothing has been saved</strong>";
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL"), $sMessage);
             return;
         }
     }
 }
Example #2
0
 function validationHook(\Formal\Form $oForm, \Formal\Form\Morphology $oMorpho)
 {
     if ($oForm->refreshed()) {
         return true;
     }
     if (intval($oForm->modelInstance()->get("PROJECT_DB_MYSQL")) === 1) {
         # We have to check the MySQL connection
         $sHost = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_HOST");
         $sDbName = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_DBNAME");
         $sUsername = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_USERNAME");
         $sPassword = $oForm->modelInstance()->get("PROJECT_DB_MYSQL_PASSWORD");
         try {
             $oDB = new \Flake\Core\Database\Mysql($sHost, $sDbName, $sUsername, $sPassword);
         } catch (\Exception $e) {
             $sMessage = "<strong>MySQL error:</strong> " . $e->getMessage();
             $sMessage .= "<br /><strong>Nothing has been saved</strong>";
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_HOST"), $sMessage);
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_DBNAME"));
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_USERNAME"));
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL_PASSWORD"));
             return;
         }
         if (($aMissingTables = \Baikal\Core\Tools::isDBStructurallyComplete($oDB)) !== true) {
             $sMessage = "<strong>MySQL error:</strong> These tables, required by Baïkal, are missing: <strong>" . implode(", ", $aMissingTables) . "</strong><br />";
             $sMessage .= "You may want create these tables using the file <strong>Core/Resources/Db/MySQL/db.sql</strong>";
             $sMessage .= "<br /><br /><strong>Nothing has been saved</strong>";
             $oForm->declareError($oMorpho->element("PROJECT_DB_MYSQL"), $sMessage);
             return;
         }
     } else {
         $sFile = $oMorpho->element("PROJECT_SQLITE_FILE")->value();
         try {
             // not sure yet how to better address this
             // yup! this is mental, but even if we don't use eval, effectively these
             // config settings are eval'ed because they are written as raw php files.
             // We'll have to clean this up later.
             $sFile = eval('return ' . $sFile . ';');
             # Asserting DB file is writable
             if (file_exists($sFile) && !is_writable($sFile)) {
                 $sMessage = "DB file is not writable. Please give write permissions on file <span style='font-family: monospace'>" . $sFile . "</span>";
                 $oForm->declareError($oMorpho->element("PROJECT_SQLITE_FILE"), $sMessage);
                 return;
             }
             # Asserting DB directory is writable
             if (!is_writable(dirname($sFile))) {
                 $sMessage = "The <em>FOLDER</em> containing the DB file is not writable, and it has to.<br />Please give write permissions on folder <span style='font-family: monospace'>" . dirname($sFile) . "</span>";
                 $oForm->declareError($oMorpho->element("PROJECT_SQLITE_FILE"), $sMessage);
                 return;
             }
             $oDb = new \Flake\Core\Database\Sqlite($sFile);
             if (($aMissingTables = \Baikal\Core\Tools::isDBStructurallyComplete($oDb)) !== true) {
                 $sMessage = "<br /><p><strong>Database is not structurally complete.</strong></p>";
                 $sMessage .= "<p>Missing tables are: <strong>" . implode("</strong>, <strong>", $aMissingTables) . "</strong></p>";
                 $sMessage .= "<p>You will find the SQL definition of Baïkal tables in this file: <strong>Core/Resources/Db/SQLite/db.sql</strong></p>";
                 $sMessage .= "<br /><p>Nothing has been saved. <strong>Please, add these tables to the database before pursuing Baïkal initialization.</strong></p>";
                 $oForm->declareError($oMorpho->element("PROJECT_SQLITE_FILE"), $sMessage);
             }
             return;
         } catch (\Exception $e) {
             $oForm->declareError($oMorpho->element("PROJECT_SQLITE_FILE"), "Baïkal was not able to establish a connexion to the SQLite database as configured.<br />SQLite says: " . $e->getMessage() . (string) $e);
         }
     }
 }
Example #3
0
 public function hideMySQLFieldWhenNeeded(\Formal\Form $oForm, \Formal\Form\Morphology $oMorpho)
 {
     if ($oForm->submitted()) {
         $bMySQL = intval($oForm->postValue("PROJECT_DB_MYSQL")) === 1;
     } else {
         $bMySQL = PROJECT_DB_MYSQL;
     }
     if ($bMySQL === TRUE) {
         $oMorpho->remove("PROJECT_SQLITE_FILE");
     } else {
         $oMorpho->remove("PROJECT_DB_MYSQL_HOST");
         $oMorpho->remove("PROJECT_DB_MYSQL_DBNAME");
         $oMorpho->remove("PROJECT_DB_MYSQL_USERNAME");
         $oMorpho->remove("PROJECT_DB_MYSQL_PASSWORD");
     }
 }
Example #4
0
 public function validateSameas($sValue, \Formal\Form\Morphology $oMorpho, \Formal\Element $oElement, $sReferencePropName)
 {
     $sReferenceValue = $oMorpho->element($sReferencePropName)->value();
     if ($sValue === $sReferenceValue) {
         return TRUE;
     }
     return "<strong>" . $oElement->option("label") . "</strong> does not match " . $oMorpho->element($sReferencePropName)->option("label") . ".";
 }