Upgrade Flyway

In 9.1.4 Flyway changed to use transactional locks, but it causes
migrations to freeze. Reverted to old default.

In 9.19.0 breaks things. Audit tables create a log of added kayttaja
entries. The audit log try to use the function current_kayttaja_id(),
which relies on "application name" being set. It's set in
beforeMigration.sql, but in this version callbacks have a separate
connection. Added ApplicationName to connection url to get around the
problem.

Implements: AE-1909

etp-db/deps.edn

@@ -1,7 +1,7 @@
 {:paths ["src/main/clj" "src/main/sql" "src/main/resources"]
  :deps
  {org.clojure/clojure {:mvn/version "1.10.1"}
- org.flywaydb/flyway-core {:mvn/version "6.2.0"}
+ org.flywaydb/flyway-core {:mvn/version "9.21.1"}
  org.postgresql/postgresql {:mvn/version "42.2.9"}
  ch.qos.logback/logback-classic {:mvn/version "1.2.3"}}
  :aliases {:test {:extra-paths ["src/test/sql"]}

etp-db/src/main/clj/solita/etp/db/flywaydb.clj

@@ -15,11 +15,13 @@
  "- repair - attempt to fix migration checksum mismatches"]))
 
 (def flyway-configuration {
- ConfigUtils/SCHEMAS "etp,audit"
- ConfigUtils/SQL_MIGRATION_PREFIX "v"
- ConfigUtils/SQL_MIGRATION_SEPARATOR "-"
- ConfigUtils/REPEATABLE_SQL_MIGRATION_PREFIX "r"
- ConfigUtils/LOCATIONS "classpath:migration"})
+ ConfigUtils/SCHEMAS "etp,audit"
+ ConfigUtils/SQL_MIGRATION_PREFIX "v"
+ ConfigUtils/SQL_MIGRATION_SEPARATOR "-"
+ ConfigUtils/REPEATABLE_SQL_MIGRATION_PREFIX "r"
+ ConfigUtils/LOCATIONS "classpath:migration"
+ "flyway.postgresql.transactional.lock" "false"})
+
 
 (defn map-keys [f m] (into {} (map (fn [[k, v]] [(f k) v]) m)))
 
@@ -33,9 +35,15 @@
  (or (System/getenv name) default))
 
 (defn read-configuration []
- {:user (env "DB_USER" "etp")
- :password (env "DB_PASSWORD" "etp")
- :url (env "DB_URL" "jdbc:postgresql://localhost:5432/postgres")})
+ (let [url (env "DB_URL" "jdbc:postgresql://localhost:5432/postgres")
+ existing-query (-> url (str/split #"\?" 2) (get 1))
+ url-with-app-name (->> ["ApplicationName=0@database.etp" existing-query]
+ (remove nil?)
+ (str/join "&")
+ (str url "?"))]
+ {:user (env "DB_USER" "etp")
+ :password (env "DB_PASSWORD" "etp")
+ :url url-with-app-name}))
 
 (defn run [args]
  (let [command (str/trim (or (first args) "<empty string>"))