#! /bin/sh

HOST=$1
PORT=$2
DB_DB=$3
DB_USER=$4
DB_PW=$5
DB_HOST=$6

[ -z "$HOST" ] && HOST=victoria.tug.nordu.net
[ -z "$PORT" ] && PORT=50001

[ -z "$DB_DB" ] && DB_DB=linus
[ -z "$DB_USER" ] && DB_USER=linus
[ -z "$DB_PW" ] && DB_PW=
[ -z "$DB_HOST" ] && DB_HOST=localhost

# FIXME: The (use-package 'postmodern) should've been taken care of in
# package.lisp.  Why doesn't it work?

sbcl --no-userinit \
    --eval "(require 'asdf)" \
    --eval "(asdf:oos 'asdf:load-op 'postmodern)" \
    --eval "(use-package 'postmodern)" \
    --eval "(require 'bgpstore)" \
    --eval "(let ((*db-spec* '(\"$DB_DB\" \"$DB_USER\" \"$DB_PW\" \"$DB_HOST\"))) (start-bgpstore \"$HOST\" $PORT))"