Changeset 72 for branches/home/psmith/restructure/src

Timestamp:

02/06/07 01:29:41 (18 years ago)

Author:

psmith

Message:

Updates to logging server for cmd line usage

Location:

branches/home/psmith/restructure/src/nio-logger

Files:

• nio-logger.lisp (modified) (1 diff)
• run-logging-server.lisp (modified) (1 diff)
• run.sh (modified) (1 diff)

branches/home/psmith/restructure/src/nio-logger/nio-logger.lisp ¶

@@ -59 +59 @@
 (defparameter +log-file-name+ "./out")
 
-(defun run-logging-server()
+(defun run-logging-server(listen-ip out-file &optional (allowed-ips "ips.txt"))
   (setf nio-yarpc:+process-jobs-inline+ nil)
-  (nio:load-ips "ips.txt")
-  (sb-thread:make-thread #'(lambda()(nio:start-server 'identity 'identity 'nio-yarpc:yarpc-state-machine :host "127.0.0.1" :accept-connection 'nio:check-ip)) :name "nio-server")
+  (setf  +log-file-name+ out-file)
+  (nio:load-ips allowed-ips)
+  (sb-thread:make-thread #'(lambda()(nio:start-server 'identity 'identity 'nio-yarpc:yarpc-state-machine :host listen-ip :accept-connection 'nio:check-ip)) :name "nio-server")
   (loop
     ;;block waiting for jobs

branches/home/psmith/restructure/src/nio-logger/run-logging-server.lisp ¶

@@ -29 +29 @@
 (require :asdf)
 (require :nio-logger)
-(nio-logger:run-logging-server)
+
+(let ((listen-ip (second sb-ext:*posix-argv*))
+      (out-file (third sb-ext:*posix-argv*))
+      (allowed-ips-filename (fourth sb-ext:*posix-argv*)))
+  (format t "Starting logging Server with ~A ~A ~A~%" listen-ip out-file allowed-ips-filename)
+  (nio-logger:run-logging-server listen-ip out-file allowed-ips-filename))

branches/home/psmith/restructure/src/nio-logger/run.sh ¶

@@ -2 +2 @@
 #
 # run.sh <logging-client in-file dest-ip>
-# run.sh <logging-server out-file> 
+# run.sh <logging-server listen-ip out-file allowed-ips-filename> 
 #
 
 export LANG=en_US.UTF-8
-sbcl --load run-$1.lisp --end-toplevel-options $2 $3
+sbcl --load run-$1.lisp --end-toplevel-options $2 $3 $4