DB_DataObject::factory('companies')->initCompanies($this, $opts);
}
+ $this->fixLinks();
+
}
function output() {
//usort($files, $lsort);
-// foreach($files as $bfn) {
-//
-//
-// if (preg_match('/migrate/i', basename($bfn))) { // skip migration scripts at present..
-// continue;
-// }
-// if (preg_match('#\.[a-z]{2}\.sql#i', basename($bfn))
-// && !preg_match('#\.pg\.sql#i', basename($bfn))
-// ) { // skip migration scripts at present..
-// continue;
-// }
-// $fn = false;
-//
-// if (!preg_match('/pgsql/', basename($dir) )) {
-// if ( !preg_match('#\.pg\.sql$#', basename($bfn))) {
-// $fn = $this->convertToPG($bfn);
-// }
-// }
-//
-// // files ending in .pg.sql are native postgres files.. ## depricated
-//
-//
-// $cmd = "$psql_cmd < " . escapeshellarg($fn ? $fn : $bfn) . ' 2>&1' ;
-//
-// echo "$bfn: $cmd ". ($ff->cli ? "\n" : "<BR>\n");
-//
-//
-// passthru($cmd);
-//
-// if ($fn) {
-// unlink($fn);
-// }
-// }
+ foreach($files as $bfn) {
+
+
+ if (preg_match('/migrate/i', basename($bfn))) { // skip migration scripts at present..
+ continue;
+ }
+ if (preg_match('#\.[a-z]{2}\.sql#i', basename($bfn))
+ && !preg_match('#\.pg\.sql#i', basename($bfn))
+ ) { // skip migration scripts at present..
+ continue;
+ }
+ $fn = false;
+
+ if (!preg_match('/pgsql/', basename($dir) )) {
+ if ( !preg_match('#\.pg\.sql$#', basename($bfn))) {
+ $fn = $this->convertToPG($bfn);
+ }
+ }
+
+ // files ending in .pg.sql are native postgres files.. ## depricated
+
+
+ $cmd = "$psql_cmd < " . escapeshellarg($fn ? $fn : $bfn) . ' 2>&1' ;
+
+ echo "$bfn: $cmd ". ($ff->cli ? "\n" : "<BR>\n");
+
+ passthru($cmd);
+
+ if ($fn) {
+ unlink($fn);
+ }
+ }
}
+ function fixLinks()
+ {
+
+ $ff = HTML_Flexyframework::get();
+
+ $dburl = parse_url($ff->DB_DataObject['database']);
+
+ $dbtype = $dburl['scheme'];
+
+ $scls = ucfirst($dbtype). 'Links';
+ $cls = 'Pman_Core_UpdateDatabase_'. $scls;
+ $fn = implode('/',explode('_', $cls)).'.php';
+ if (!file_exists(__DIR__.'/UpdateDatabase/'. $scls .'.php')) {
+ return;
+ }
+ require_once $fn;
+ $c = new $cls();
+
+
+
+ }
}
\ No newline at end of file