mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-05 02:46:10 +02:00
Code Issues Projects Releases Wiki Activity

Fix MySQL database migration where the wrong database name was used in places.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-10-21 22:44:20 +02:00
parent ffebcf3bc7
commit f977c5a503
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mysql.lisp
View File

@ -542,7 +542,7 @@ order by ordinal_position" dbname table-name)))
(create-indexes t)
(reset-sequences t)
(identifier-case :downcase) ; or :quote
(truncate t)
(truncate nil)
only-tables)
"Export MySQL data and Import it into PostgreSQL"
;; get the list of tables and have at it
@ -562,7 +562,7 @@ order by ordinal_position" dbname table-name)))
;; if asked, first drop/create the tables on the PostgreSQL side
(when create-tables
(log-message :notice "~:[~;DROP then ~]CREATE TABLES" include-drop)
(with-pgsql-transaction (dbname)
(with-pgsql-transaction (pg-dbname)
(pgsql-create-tables all-columns
:identifier-case identifier-case
:include-drop include-drop)))
@ -592,7 +592,7 @@ order by ordinal_position" dbname table-name)))
(when create-indexes
(let* ((indexes
(cdr (assoc table-name all-indexes :test #'string=))))
(create-indexes-in-kernel dbname table-name indexes
(create-indexes-in-kernel pg-dbname table-name indexes
idx-kernel idx-channel
:state idx-state
:include-drop include-drop
@ -613,7 +613,7 @@ order by ordinal_position" dbname table-name)))
(let ((lp:*kernel* copy-kernel))
;; wait until the indexes are done being built...
;; don't forget accounting for that waiting time.
(with-stats-collection (dbname "index build completion" :state *state*)
(with-stats-collection (pg-dbname "index build completion" :state *state*)
(loop for idx in all-indexes do (lp:receive-result idx-channel)))
(lp:end-kernel))