X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fcandle-server;h=60a847cd26b011303932e96a22f4fa5fedf1ecf3;hb=f0e0d6e5babe32e9c84f0ed224693fe0cfd83d9e;hp=5422abedb3e58ee833d97c7caa07dd1d7a307f67;hpb=307e1cc54944d45d9cc258539b98ab1b8fed5523;p=candle

diff --git a/bin/candle-server b/bin/candle-server
index 5422abe..60a847c 100755
--- a/bin/candle-server
+++ b/bin/candle-server
@@ -7,7 +7,6 @@
 (let
  ((*error-output* (make-broadcast-stream)))
  (asdf:load-system :candle))
-(asdf:load-system :opera)
 
 (defpackage #:candle-server-cli (:use #:common-lisp))
 (in-package #:candle-server-cli)
@@ -16,8 +15,10 @@
  '((:name :help :short "h" :long "help" :description "Print this usage.")
    (:name :port :short "p" :long "port" :takes-argument t :variable-name "PORT"
     :description "Port on which to listen for commands.  Defaults to 25004")
-   (:name :port :long "candle-dir" :takes-argument t :variable-name "DIR"
-    :description "Directory for candle related data.  Will be created if does not exist.  Defaults to /opt/candle/")))
+   (:name :dir :long "candle-dir" :takes-argument t :variable-name "DIR"
+    :description "Directory for candle related data.  Will be created if does not exist.  Defaults to /opt/candle/")
+   (:name :system :long "system" :takes-argument t :variable-name "SYSTEM"
+    :description "System on which to run jobs.  Currently available are local and aws.  Defaults to local.")))
 
 (defun usage ()
  (format t "~A"
@@ -40,9 +41,18 @@
                 (opera:option-present :port options)
                 (parse-integer (opera:option-argument :port options) :junk-allowed t))
             25004)))
+   (setf candle:*job-system*
+    (if (opera:option-present :system options)
+     (intern (string-upcase (opera:option-argument :system options)) :keyword)
+     :local))
+   (let
+    ((*error-output* (make-broadcast-stream)))
+    (case candle:*job-system*
+     (:aws (asdf:load-system :candle-aws))
+     (:local (asdf:load-system :candle-local))))
    (setf candle:*candle-dir*
-    (if (opera:option-present :port options)
-     (opera:option-argument :port options)
+    (if (opera:option-present :dir options)
+     (opera:option-argument :dir options)
      "/opt/candle/"))
    (format t "Starting server on port ~A~%" port)
    (candle:server port nil)))))