mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-09 15:56:58 +02:00
Code Issues Projects Releases Wiki Activity

Improve error management in MySQL copy-database preparatory code.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-11-13 22:46:17 +01:00
parent c16a56690a
commit 6fb3de7043
1 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/sources/mysql.lisp
View File

@ -208,23 +208,34 @@
(with-stats-collection (pg-dbname "create, drop"
:use-result-as-rows t
:state state-before)
(with-pgsql-transaction (pg-dbname)
;; we need to first drop the Foreign Key Constraints, so that we
;; can DROP TABLE when asked
(when (and foreign-keys include-drop)
(drop-fkeys all-fkeys
:dbname pg-dbname
:identifier-case identifier-case))
(handler-case
(with-pgsql-transaction (pg-dbname)
;; we need to first drop the Foreign Key Constraints, so that we
;; can DROP TABLE when asked
(when (and foreign-keys include-drop)
(drop-fkeys all-fkeys
:dbname pg-dbname
:identifier-case identifier-case))
;; now drop then create tables and types, etc
(create-tables all-columns
:identifier-case identifier-case
:include-drop include-drop)
;; now drop then create tables and types, etc
(create-tables all-columns
:identifier-case identifier-case
:include-drop include-drop)
;; MySQL allows the same index name being used against several
;; tables, so we add the PostgreSQL table OID in the index name,
;; to differenciate. Set the table oids now.
(set-table-oids all-indexes))))
;; MySQL allows the same index name being used against several
;; tables, so we add the PostgreSQL table OID in the index name,
;; to differenciate. Set the table oids now.
(set-table-oids all-indexes))
;;
;; In case some error happens in the preparatory transaction, we
;; need to stop now and refrain to try loading the data into an
;; incomplete schema.
;;
(cl-postgres:database-error (e)
(declare (ignore e)) ; a log has already been printed
(log-message :critical "Failed to create the schema, see above.")
(return-from copy-database)))))
(loop
for (table-name . columns) in all-columns