Freek Paans FreekPaans

## find-thread-by-id.clj
  (defn find-thread-by-id [thread-id]
    (let [ts (make-array Thread 1000)]
      (-> (Thread/currentThread) .getThreadGroup .getParent (.enumerate ts))
      (->> ts
        (filter (comp not nil?))
        (filter #(= thread-id (.getId %)))
        first))

## caps-to-escape.reg
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,01,00,3a,00,00,00,00,00

## tojson.sh
#!/usr/bin/env bash

# Usage: make_event my-event test "hello world" -> {"name":"my-event","test":"hello world","unixtime":123}

make_event() {
    if ! (( "$#" % 2)); then
        echo "log_event expects an uneven number of arguments"
        echo "Usage: $0 <event-name> [[<key> <val>]...]"
        exit 1
    fi

## start-it.clj
(start-server (fn []
                [(LoggingHandler. "proxy" LogLevel/INFO)
                 (proxy-handler "www.freekpaans.nl" 80)

## zfs.conf
# Adapted from https://calomel.org/zfs_health_check_script.html
UserParameter=zpool.health[*],zpool list $1 | grep ONLINE | wc -l
UserParameter=zpool.error-free[*],zpool status $1 | grep ONLINE | grep -v " state" | awk '$$3==0 && $$4==0 && $$5==0 {print}' | wc -l

## csrf.php
<?php

//double submit cookies (https://www.owasp.org/index.php/Cross-Site_Request_Forgery_(CSRF)_Prevention_Cheat_Sheet#Double_Submit_Cookies) CSRF protection

define(__CSRF_TOKEN_COOKIE_NAME,"__csrf_token");
define(__CSRF_TOKEN_INPUT_NAME, "__csrf_token");

function generate_csrf_token() {
        //from http://stackoverflow.com/a/31683058/345910
        $token=base64_encode(openssl_random_pseudo_bytes(32));

## application-service-tests.clj
 (ns layered-example.application-service-test
   (:require [layered-example.data.test-helpers :as test-helpers]
             [clojure.test :refer :all]
             [layered-example.application-service :as app-svc]
             [layered-example.domain.cargo.cargo-repository :as cargo-repository]
             [layered-example.data.mysql-cargo-repository :as mysql-cargo-repository]))

 (def db-spec (test-helpers/default-db-spec))

 (def the-cargo-repo (mysql-cargo-repository/new-cargo-repository db-spec))

## application-service.clj
(ns layered-example.application-service
  (:require [layered-example.domain.cargo.cargo :as cargo]
            [layered-example.domain.cargo.cargo-repository :as cargo-repository]))

(defn create-new-cargo! [& args ]
  (let [new-cargo (apply cargo/create-new-cargo args)]
    (cargo-repository/add! new-cargo)))

(defn book-onto-voyage! [cargo-id & args]
  (let [{:keys [version cargo] :as result} (cargo-repository/find cargo-id)

## mysql-cargo-repository.clj
 (ns layered-example.data.mysql-cargo-repository
   (:refer-clojure :exclude [find])
   (:require [layered-example.domain.cargo.cargo-repository :refer [CargoRepository -find -add! -update!]]
             [layered-example.domain.cargo.cargo :refer [map->Cargo set-cargo-id]]
             [clojure.set :refer [rename-keys]]
             [clojure.java.jdbc :as db]))

 (defn row->cargo [row]
   (-> row
       (select-keys [:id :size :voyage_id])

## cargo-repository.clj
(ns layered-example.domain.cargo.cargo-repository
  (:refer-clojure :exclude [find]))

(def find nil)
(def add! nil)
(def update! nil)

(defprotocol CargoRepository
  (-find [this cargo-id])
  (-add! [this a-cargo])