lokori

... my first disclosure. Man, it feels weird doing this.

From the vendor that brought you a
                        vulnerable cloud storage platform comes
                        
           ___              ____  __        __     __ 
          / _ \___ ___ ____/ / / / /__  ___/ /__ _/ /____ 
         / // / -_) _ `/ _  / /_/ / _ \/ _  / _ `/ __/ -_)

//_/_,/_,/_/ ./_,/_,/_/_/

lokori

-- PostgreSQL does not have merge (insert if not exists). A pattern to easily insert multiple rows of data.

CREATE TABLE rahoitusmuoto_tmp
  (
    rahoitusmuotoid   INT NOT NULL ,
    rahoitusmuoto     VARCHAR(80) NOT NULL
  );

insert into rahoitusmuoto_tmp (rahoitusmuotoid, rahoitusmuoto) values (1, 'valtionosuus');
insert into rahoitusmuoto_tmp (rahoitusmuotoid, rahoitusmuoto) values (2, 'oppisopimus');

lokori

-- 1. Select the proper subset of data and create a new table. 
-- Data types automatically inferred by PostgreSQL. Foreign keys and some other constraints are lost.
create table k_ryhma as 
 select * from kysymysryhma where valtakunnallinen = true;

-- Select referenced data using .. in (select ..) 
create table k_kys as 
 select * from kysymys where kysymysryhmaid in (select kysymysryhmaid from k_ryhma);

lokori

(defn no-args?
  "Returns true if f is a sym/var of a function with no arguments. False otherwise."
  [f]
  (cond (and 
          (seq? f)
          (= 'fn* (first f)))
       (empty? (second f))
    (symbol? f)
      (= '([]) (:arglists (meta (resolve f))))

lokori

(ns aitu.compojure-util
  (:require [compojure.core :as c]
            [aitu.toimiala.kayttajaoikeudet :as auth-map]
            [clojure.tools.logging :as log]))

(def http-compojure {
  :get 'compojure.core/GET
  :post 'compojure.core/POST
  :delete 'compojure.core/DELETE
  :update 'compojure.core/UPDATE})

lokori

(ns aitu.infra.print-wrapper
  (:require [clojure.tools.logging :as log]))

(def ^:private requestid (atom 1))

(defn http-method->str [keyword-or-str]
  (clojure.string/upper-case (name keyword-or-str)))

(defn log-request-wrapper [ring-handler]
  "Logging wrapper. Basic info + duration and additional unique id per request to enable performance analysis"