ykarikos

#!/usr/bin/perl -w
# Rename video files with a ISO date prefix, e.g.
# rename from P12345.MOV to 2018-01-30.P12345.MOV
# Tested with MTS, 3GP and MOV files.
#
# (c) 2018 Yrjö Kari-Koskinen <ykk@peruna.fi>
# Licensed with the MIT License 

use Image::ExifTool qw(:Public);

ykarikos

// What does each logging statement print, why?

var x = 1;
console.log(x);
if(1) {
    var x = 2;
    console.log(x);
}
console.log(x);

ykarikos

Denglisch words I hear while living and working in Germany

• gefixed
• gemerged
• gerebased
• gedownloaded
• terminieren: either to terminate (to kill) or to agree on an appointment (Termin)
• gerebranded
• reviewen, "Ich hab' einige gereviewed"
• beim merge
• gecherry-picked

ykarikos

Living in Germany

Here's some remarks I've made while living in Munich, Germany (vs. in Finland). I made a similar list in 2004 in Austria.

Here we go.

Money

• It's very customary to not be able to pay with a credit card. One needs to carry always cash. Sometimes just the local debit cards are valid, like in Ikea o_O

Traffic

ykarikos

Howto start using Letsencrypt with simp_le

What I had:

• A Debian server at "mydomain.fi"
• A self-signed certificate for Apache HTTPD, Postfix SMTPD and Dovecot IMAPD.

What I wanted:

• A Letsencrypt certificate for Apache, Postfix and Dovecot
• Simple tool for managing certificates that does need root privileges
• Automatic renewal

ykarikos

user=> (def mymap {:foo 1 :bar {:subfirst 1.2 :subsecond "foo"}})
#'user/mymap
user=> (:foo mymap)
1
user=> (mymap :bar)
{:subfirst 1.2, :subsecond "foo"}
user=> (-> mymap :bar :subsecond)
"foo"

ykarikos

MASTER=a.iana-servers.net.; DOMAIN=example.com.; dig +short -t NS $DOMAIN @$MASTER |sort >/tmp/$MASTER; for h in `cat /tmp/$MASTER`; do echo - Querying $h:; dig +short -t NS $DOMAIN @$h |sort |diff /tmp/$MASTER -; done

ykarikos

Keybase proof

I hereby claim:

• I am ykarikos on github.
• I am ykk (https://keybase.io/ykk) on keybase.
• I have a public key whose fingerprint is 2E71 56C3 7760 E735 B175 E053 0E4E A201 3B3A BE42

To claim this, I am signing this object:

ykarikos

(use '[clojure.java.shell :only [sh]])

(defn say [& args] (apply sh "say" args))

(defn say-and-print [n] 
  (let [n-str (str n)] 
    (println n-str) 
    (Thread/sleep 2000) 
    (say n-str)))

ykarikos

user=> (use 'ws-test)
nil
user=> @state
{}
user=> (connect "localhost")
true
user=> @@connection
<< stream: {:type "splice", :sink {:type "netty", :sink? true, :closed? false}, :source {:pending-puts 0, :drained? false, :buffer-size 0, :permanent? false, :type "manifold", :sink? true, :closed? false, :pending-takes 1, :buffer-capacity 16, :source? true}} >>
user=> (send-message @@connection {:msg "It works!" :count 1})
<< true >>