1 files changed, 26 insertions, 0 deletions
diff --git a/start-bgpstore.sh b/start-bgpstore.sh
new file mode 100755
index 0000000..599068e
--- /dev/null
+++ b/start-bgpstore.sh
@@ -0,0 +1,26 @@
+#! /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))"