5 * This applies database files from
6 * a) OLD - {MODULE}/DataObjects/XXXX.{dbtype}.sql
8 * b) NEW - {MODULE}/sql/XXX.sql (SHARED or translable)
9 * and {MODULE}/{dbtype}/XXX.sql (SHARED or translable)
14 require_once 'Pman.php';
15 class Pman_Core_UpdateDatabase extends Pman
18 static $cli_desc = "Update SQL - Beta";
26 $ff = HTML_FlexyFramework::get();
27 if (!empty($ff->cli)) {
32 parent::getAuth(); // load company!
33 $au = $this->getAuthUser();
34 if (!$au || $au->company()->comptype != 'OWNER') {
35 $this->jerr("Not authenticated", array('authFailure' => true));
37 $this->authUser = $au;
50 * imports SQL files from all DataObjects directories....
52 * except any matching /migrate/
57 $ff = HTML_Flexyframework::get();
59 $url = parse_url($ff->DB_DataObject['database']);
61 $this->{'import' . $url['scheme']}($url);
64 function importmysql($url)
67 // hide stuff for web..
69 require_once 'System.php';
70 $cat = System::which('cat');
71 $mysql = System::which('mysql');
73 $ar = $this->modulesList();
77 ' -h ' . $url['host'] .
78 ' -u' . escapeshellarg($url['user']) .
79 (!empty($url['pass']) ? ' -p' . escapeshellarg($url['pass']) : '') .
80 ' ' . basename($url['path']);
81 echo $mysql_cmd . "\n" ;
88 $fd = $this->rootDir. "/Pman/$m/DataObjects";
90 foreach(glob($fd.'/*.sql') as $fn) {
93 if (preg_match('/migrate/i', basename($fn))) { // skip migration scripts at present..
96 // .my.sql but not .pg.sql
97 if (preg_match('/#.[a-z]{2}\.sql#i', basename($bfn))
98 && !preg_match('/#\.my\.sql#i', basename($bfn))
99 ) { // skip migration scripts at present..
102 $cmd = "$mysql_cmd -f < " . escapeshellarg($fn) ;
104 echo $cmd. ($this->cli ? "\n" : "<BR>\n");
116 * postgresql import..
118 function importpgsql($url)
121 // hide stuff for web..
123 require_once 'System.php';
124 $cat = System::which('cat');
125 $psql = System::which('psql');
127 $ar = $this->modulesList();
128 if (!empty($url['pass'])) {
129 putenv("PGPASSWORD=". $url['pass']);
133 ' -h ' . $url['host'] .
134 ' -U' . escapeshellarg($url['user']) .
135 ' ' . basename($url['path']);
136 echo $psql_cmd . "\n" ;
143 $fd = $this->rootDir. "/Pman/$m/DataObjects";
145 foreach(glob($fd.'/*.sql') as $bfn) {
148 if (preg_match('/migrate/i', basename($bfn))) { // skip migration scripts at present..
151 if (preg_match('#\.[a-z]{2}\.sql#i', basename($bfn))
152 && !preg_match('#\.pg\.sql#i', basename($bfn))
153 ) { // skip migration scripts at present..
156 // files ending in .pg.sql are native postgres files..
157 $fn = preg_match('#\.pg\.sql$#', basename($bfn)) ? false : $this->convertToPG($bfn);
159 $cmd = "$psql_cmd -f " . escapeshellarg($fn ? $fn : $bfn) . ' 2>&1' ;
161 echo "$bfn: $cmd ". ($this->cli ? "\n" : "<BR>\n");
174 * simple regex based convert mysql to pgsql...
176 function convertToPG($src)
178 $fn = $this->tempName('sql');
180 $ret = array( ); // pad it a bit.
181 $extra = array("", "" );
184 foreach(file($src) as $l) {
187 if (!strlen($l) || $l[0] == '#') {
191 if (preg_match('#create\s+table\s+([a-z0-9_]+)#i', $l, $m)) {
193 // $extra[] = "drop table {$tbl};";
196 if ($tbl && preg_match('#auto_increment#i', $l, $m)) {
197 $l = preg_replace('#auto_increment#i', "default nextval('{$tbl}_seq')", $l);
198 $extra[] = "create sequence {$tbl}_seq;";
202 if (preg_match('#alter\s+table\s+([a-z0-9_]+)\s+add\s+index\s+([^(]+)(.*)$#i', $l, $m)) {
203 $l = "CREATE INDEX {$m[1]}_{$m[2]} ON {$m[1]} {$m[3]}";
205 // ALTER TABLE core_event_audit ADD INDEX looku
209 $l = preg_replace('#int\([0-9]+\)#i', 'INT', $l);
211 $l = preg_replace('# datetime #i', ' TIMESTAMP WITHOUT TIME ZONE ', $l);
212 $l = preg_replace('# blob #i', ' TEXT ', $l);
213 $l = preg_replace('# longtext #i', ' TEXT ', $l);
214 //$l = preg_match('#int\([0-9]+\)#i', 'INT', $l);
225 $ret = array_merge($extra,$ret);
227 //echo implode("\n", $ret); //exit;
228 file_put_contents($fn, implode("\n", $ret));