pnathan

#!/bin/bash -e

# code to cook a insecure raspbian apache server.

echo -e "\e[1;32m"
# Ridiculous leet script text. Probably mandatory for this kind of
# thing. I summon arbitrary memories of being a teenage geek to
# bolster and approve this message.
cat <<'EOF'

pnathan

/*
action module.

The action module is a simplification of running processes. In
particular, it takes a bash-executable string and runs it under -xe
context.
*/
use std::io::File;
use std::io::process::Command;
use std::str::from_utf8_lossy;

pnathan

#!/bin/bash

# downloads docker container.

running_id=$(docker ps  | grep "$1" | cut -f1 -d' ')

docker pull "$1" | grep 'up to date'
if [[ "$?" -eq "1" ]]; then
    docker kill $running_id
fi

pnathan

(defvar shell-count 0)
(defun supershell ()
  (interactive)
  (shell (concat "*shell" (number-to-string shell-count) "*"))
  (setq shell-count (+ shell-count 1)))

pnathan

Likely immediate culprit was a typical gentoo upgrade a week or so ago. I don't use docker on this machine much, and it's been stable for the past few versions. I've had an unpleasant time before with upgrades.

Versions:

 $ docker --version
Docker version 1.11.0, build 4dc5990

pnathan

let table_to_json table =
  let open Ezjsonm in
  let row_to_triple row =
    json_of_triple { row.(0) ;  row.(1) ;  row.(2) } in
  list (Array.to_list (Array.map row_to_triple table))

pnathan

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; pnathan.com
;;;;


(ql:quickload '(:cl-who
               :alexandria
               :cl-fad
               :cl-ppcre
               :cl-markdown

pnathan

Keybase proof

I hereby claim:

• I am pnathan on github.
• I am pnathan (https://keybase.io/pnathan) on keybase.
• I have a public key whose fingerprint is AE27 90E8 CAF3 0681 D91F 582F 4BC4 2EFF CC33 817C

To claim this, I am signing this object:

pnathan

(yason:parse
 (flexi-streams:octets-to-string
  (drakma:http-request "https://mastodon.social/oauth/token"
                       :method :post
                       :parameters
                       `(("client_id" .  ,*client-key*)
                         ("client_secret" . ,*client-secret*)
                         ("grant_type" . "authorization_code")
                         ("code" . ,*token*)
                         ("scope" . "read")

pnathan

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; flexijects. An object system for CL.
;;;;
;;;; Uses closures and lists.
;;;;
;;;; CC0 - Paul Nathan, 2015.
;;;;
;;;;

(defparameter *known-classes* nil