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;
44 $this->runUpdateDatabaseModules();
51 * imports SQL files from all DataObjects directories....
53 * except any matching /migrate/
58 $ff = HTML_Flexyframework::get();
60 $url = parse_url($ff->DB_DataObject['database']);
62 $this->{'import' . $url['scheme']}($url);
67 * mysql - does not support conversions.
72 function importmysql($url)
75 // hide stuff for web..
77 require_once 'System.php';
78 $cat = System::which('cat');
79 $mysql = System::which('mysql');
81 $ar = $this->modulesList();
85 ' -h ' . $url['host'] .
86 ' -u' . escapeshellarg($url['user']) .
87 (!empty($url['pass']) ? ' -p' . escapeshellarg($url['pass']) : '') .
88 ' ' . basename($url['path']);
89 echo $mysql_cmd . "\n" ;
92 // old -- DAtaObjects/*.sql
96 $fd = $this->rootDir. "/Pman/$m/DataObjects";
98 foreach(glob($fd.'/*.sql') as $fn) {
101 if (preg_match('/migrate/i', basename($fn))) { // skip migration scripts at present..
104 // .my.sql but not .pg.sql
105 if (preg_match('#\.[a-z]{2}\.sql#i', basename($fn))
106 && !preg_match('#\.my\.sql#i', basename($fn))
107 ) { // skip migration scripts at present..
110 $cmd = "$mysql_cmd -f < " . escapeshellarg($fn) ;
112 echo $cmd. ($this->cli ? "\n" : "<BR>\n");
118 // new -- sql directory..
119 // new style will not support migrate ... they have to go into mysql-migrate.... directories..
120 // new style will not support pg.sql etc.. naming - that's what the direcotries are for..
121 $fd = $this->rootDir. "/Pman/$m/sql";
123 foreach(glob($fd.'/*.sql') as $fn) {
124 $cmd = "$mysql_cmd -f < " . escapeshellarg($fn) ;
125 echo $cmd. ($this->cli ? "\n" : "<BR>\n");
128 $fd = $this->rootDir. "/Pman/$m/mysql";
130 foreach(glob($fd.'/*.sql') as $fn) {
131 $cmd = "$mysql_cmd -f < " . escapeshellarg($fn) ;
132 echo $cmd. ($this->cli ? "\n" : "<BR>\n");
147 * postgresql import..
149 function importpgsql($url)
152 // hide stuff for web..
154 require_once 'System.php';
155 $cat = System::which('cat');
156 $psql = System::which('psql');
158 $ar = $this->modulesList();
159 if (!empty($url['pass'])) {
160 putenv("PGPASSWORD=". $url['pass']);
164 ' -h ' . $url['host'] .
165 ' -U' . escapeshellarg($url['user']) .
166 ' ' . basename($url['path']);
167 echo $psql_cmd . "\n" ;
174 $fd = $this->rootDir. "/Pman/$m/DataObjects";
176 foreach(glob($fd.'/*.sql') as $bfn) {
179 if (preg_match('/migrate/i', basename($bfn))) { // skip migration scripts at present..
182 if (preg_match('#\.[a-z]{2}\.sql#i', basename($bfn))
183 && !preg_match('#\.pg\.sql#i', basename($bfn))
184 ) { // skip migration scripts at present..
187 // files ending in .pg.sql are native postgres files..
188 $fn = preg_match('#\.pg\.sql$#', basename($bfn)) ? false : $this->convertToPG($bfn);
190 $cmd = "$psql_cmd < " . escapeshellarg($fn ? $fn : $bfn) . ' 2>&1' ;
192 echo "$bfn: $cmd ". ($this->cli ? "\n" : "<BR>\n");
204 $fd = $this->rootDir. "/Pman/$m/sql";
205 // sql directory - we try to convert..
206 foreach(glob($fd.'/*.sql') as $bfn) {
207 $fn = $this->convertToPG($bfn);
208 $cmd = "$psql_cmd < " . escapeshellarg($fn) ;
209 echo $cmd. ($this->cli ? "\n" : "<BR>\n");
213 // postgres specific directory..
215 $fd = $this->rootDir. "/Pman/$m/pgsql";
217 foreach(glob($fd.'/*.sql') as $fn) {
218 $cmd = "$psql_cmd < " . escapeshellarg($fn) ;
219 echo $cmd. ($this->cli ? "\n" : "<BR>\n");
229 * simple regex based convert mysql to pgsql...
231 function convertToPG($src)
233 $fn = $this->tempName('sql');
235 $ret = array( ); // pad it a bit.
236 $extra = array("", "" );
239 foreach(file($src) as $l) {
242 if (!strlen($l) || $l[0] == '#') {
246 if (preg_match('#create\s+table\s+([a-z0-9_]+)#i', $l, $m)) {
248 // $extra[] = "drop table {$tbl};";
251 if ($tbl && preg_match('#auto_increment#i', $l, $m)) {
252 $l = preg_replace('#auto_increment#i', "default nextval('{$tbl}_seq')", $l);
253 $extra[] = "create sequence {$tbl}_seq;";
257 if (preg_match('#alter\s+table\s+([a-z0-9_]+)\s+add\s+index\s+([^(]+)(.*)$#i', $l, $m)) {
258 $l = "CREATE INDEX {$m[1]}_{$m[2]} ON {$m[1]} {$m[3]}";
260 // ALTER TABLE core_event_audit ADD INDEX looku
264 $l = preg_replace('#int\([0-9]+\)#i', 'INT', $l);
266 $l = preg_replace('# datetime #i', ' TIMESTAMP WITHOUT TIME ZONE ', $l);
267 $l = preg_replace('# blob #i', ' TEXT ', $l);
268 $l = preg_replace('# longtext #i', ' TEXT ', $l);
269 //$l = preg_match('#int\([0-9]+\)#i', 'INT', $l);
280 $ret = array_merge($extra,$ret);
282 //echo implode("\n", $ret); //exit;
283 file_put_contents($fn, implode("\n", $ret));
287 function runUpdateModulesData()
290 foreach of the modules (except core)
292 does {module}/UpdateDatabase.php exist
296 create an instance of it eg. $x = new ......
297 call $x->updateData();
307 function updateData()
309 $enum = DB_DataObject::Factory('core_enum');
313 'name' => 'COMPTYPE',
314 'display_name' => 'Company Types',
318 'display_name' => 'Owner',
319 'seqid' => 999, // last...