log on migration and allow setting log level on aws (#412)

Author: milt

dev-resources/template/2_lrs.yml

@@ -137,6 +137,18 @@ Parameters:
     Description: A comma-separated list of origins to allow. If not provided ALBHostName will be used if present, otherwise no origins will be allowed.
 
   # Logging Settings
+  LogLevel:
+    Description: Detail of SQL LRS Logging level.
+    Type: String
+    AllowedValues:
+      - ALL
+      - TRACE
+      - DEBUG
+      - INFO
+      - WARN
+      - ERROR
+      - OFF
+    Default: INFO
   LogRetentionInDays:
     Description: How long to retain CloudWatch Logs from the LRSQL Instance
     Type: Number
@@ -304,7 +316,7 @@ Resources:
       Runtime: 'python3.8'
       Timeout: 10
 
-  # Run the lambda init fn as a custom resource          
+  # Run the lambda init fn as a custom resource
   GenerateJWTSecretResource:
     Type: Custom::generateJWTSecretCustomResource
     DependsOn: GenerateJWTSecretFunction
@@ -574,6 +586,9 @@ Resources:
                       "httpPort": ${InstanceHttpPort},
                       "allowedOrigins": ${AllowedOrigins},
                       "jwtCommonSecret": "${GenerateJWTSecretResource.random_string}"
+                    },
+                    "logger": {
+                      "logLevel":"${LogLevel}"
                     }
                   }
                 - DBName:

src/main/lrsql/init.clj

@@ -1,6 +1,7 @@
 (ns lrsql.init
   "Initialize HugSql functions and state."
-  (:require [hugsql.core :as hugsql]
+  (:require [clojure.tools.logging :as log]
+            [hugsql.core :as hugsql]
             [hugsql.adapter.next-jdbc :as next-adapter]
             [lrsql.backend.protocol :as bp]
             [lrsql.input.admin :as admin-input]
@@ -23,8 +24,11 @@
   (bp/-set-read! backend)
   (bp/-set-write! backend)
   ;; Init DDL
+  (log/debug "Ensuring Tables...")
   (bp/-create-all! backend tx)
-  (bp/-update-all! backend tx))
+  (log/debug "Running Migrations...")
+  (bp/-update-all! backend tx)
+  (log/debug "SQL backend initialization complete!"))
 
 (defn insert-default-creds!
   "Seed the credential table with the default API key and secret, as well as