summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rwxr-xr-xsrc/start-bgpstore.sh15
1 files changed, 12 insertions, 3 deletions
diff --git a/src/start-bgpstore.sh b/src/start-bgpstore.sh
index 62abee1..599068e 100755
--- a/src/start-bgpstore.sh
+++ b/src/start-bgpstore.sh
@@ -2,16 +2,25 @@
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
-# FIXME: The use-package postmodern should've been taken care of in
-# package.lisp.
+[ -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 "(start-bgpstore \"$HOST\" $PORT)"
+ --eval "(let ((*db-spec* '(\"$DB_DB\" \"$DB_USER\" \"$DB_PW\" \"$DB_HOST\"))) (start-bgpstore \"$HOST\" $PORT))"