[nio-cvs] r71 - branches/home/psmith/restructure/src/nio-logger

[psmith at common-lisp.net]

Author: psmith
Date: Mon Feb  5 11:57:21 2007
New Revision: 71

Modified:
   branches/home/psmith/restructure/src/nio-logger/run-logging-client.lisp
   branches/home/psmith/restructure/src/nio-logger/run.sh
Log:
Made startup more firendly

Modified: branches/home/psmith/restructure/src/nio-logger/run-logging-client.lisp
==============================================================================
--- branches/home/psmith/restructure/src/nio-logger/run-logging-client.lisp	(original)
+++ branches/home/psmith/restructure/src/nio-logger/run-logging-client.lisp	Mon Feb  5 11:57:21 2007
@@ -28,4 +28,9 @@
 (push :nio-debug *features*)
 (require :asdf)
 (require :nio-logger)
-(nio-logger:tail-log "./test" "127.0.0.1")
+
+;Use run.sh logging-client <file> <ip>
+(let ((log-file (second sb-ext:*posix-argv*))
+      (ip (third sb-ext:*posix-argv*)))
+  (format t "Starting logging client with ~A ~A~%" log-file ip)
+  (nio-logger:tail-log log-file ip))

Modified: branches/home/psmith/restructure/src/nio-logger/run.sh
==============================================================================
--- branches/home/psmith/restructure/src/nio-logger/run.sh	(original)
+++ branches/home/psmith/restructure/src/nio-logger/run.sh	Mon Feb  5 11:57:21 2007
@@ -1,7 +1,8 @@
 #!/bin/bash
 #
-# run.sh <http|yarpc>
+# run.sh <logging-client in-file dest-ip>
+# run.sh <logging-server out-file> 
 #
 
 export LANG=en_US.UTF-8
-sbcl --load run-$1.lisp
+sbcl --load run-$1.lisp --end-toplevel-options $2 $3