waldheinz

/*
 * compile with C++ 11 support, e.g.:
 *
 * g++ -std=c++0x -Wall -Wextra -pedantic avg.cpp
 */

#include <iomanip>
#include <iostream>
#include <random>

waldheinz

[
        { "id" : "1ABF229E06B1488314EBC2B12902F20765CAE44D8D09B76578DAC65D097ED303",
          "addresses" : [{ "host" : "waldheinz.de", "port" : 1234 }]
        }
]

waldheinz

module Main where

import Control.Concurrent ( forkIO, threadDelay )
import Control.Monad ( forever, replicateM_ )
import qualified Control.Concurrent.ReadWriteLock as RWL
import System.Random ( randomRIO )

main :: IO ()
main = do
  lock <- RWL.new

waldheinz

#!/bin/tclsh

load tclrega.so
source [file join $env(DOCUMENT_ROOT) once.tcl]
source [file join $env(DOCUMENT_ROOT) cgi.tcl]

cgi_eval {
    cgi_input
    cgi_content_type "text/plain; charset=iso-8859-1; version=0.0.4"