| 1 | #| |
|---|
| 2 | Copyright (c) 2007 |
|---|
| 3 | All rights reserved. |
|---|
| 4 | |
|---|
| 5 | Redistribution and use in source and binary forms, with or without |
|---|
| 6 | modification, are permitted provided that the following conditions |
|---|
| 7 | are met: |
|---|
| 8 | 1. Redistributions of source code must retain the above copyright |
|---|
| 9 | notice, this list of conditions and the following disclaimer. |
|---|
| 10 | 2. Redistributions in binary form must reproduce the above copyright |
|---|
| 11 | notice, this list of conditions and the following disclaimer in the |
|---|
| 12 | documentation and/or other materials provided with the distribution. |
|---|
| 13 | 3. The name of the author may not be used to endorse or promote products |
|---|
| 14 | derived from this software without specific prior written permission. |
|---|
| 15 | |
|---|
| 16 | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
|---|
| 17 | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
|---|
| 18 | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
|---|
| 19 | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
|---|
| 20 | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
|---|
| 21 | NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|---|
| 22 | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|---|
| 23 | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|---|
| 24 | INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
|---|
| 25 | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|---|
| 26 | |# |
|---|
| 27 | |
|---|
| 28 | (push :nio-debug *features*) |
|---|
| 29 | (require :asdf) |
|---|
| 30 | (require :nio-logger) |
|---|
| 31 | |
|---|
| 32 | (let ((listen-ip (second sb-ext:*posix-argv*)) |
|---|
| 33 | (out-file (third sb-ext:*posix-argv*)) |
|---|
| 34 | (allowed-ips-filename (fourth sb-ext:*posix-argv*))) |
|---|
| 35 | (format t "Starting logging Server with ~A ~A ~A~%" listen-ip out-file allowed-ips-filename) |
|---|
| 36 | |
|---|
| 37 | (setf sb-ext:*invoke-debugger-hook* |
|---|
| 38 | (lambda (condition hook) |
|---|
| 39 | (declare (ignore hook)) |
|---|
| 40 | (with-open-file (out (format nil "server-error-from-pid~A-thread-~A" (sb-posix:getpid) (sb-thread:thread-name sb-thread:*current-thread*)) |
|---|
| 41 | :direction :output :external-format :utf-8 :if-exists :append :if-does-not-exist :create) |
|---|
| 42 | (format out "Toplevel catch (~A):~%" (nio-utils:get-readable-time)) |
|---|
| 43 | (format out "~A - ~A~%" (type-of condition) condition) |
|---|
| 44 | (sb-debug:backtrace 20 out)) |
|---|
| 45 | (quit))) |
|---|
| 46 | |
|---|
| 47 | |
|---|
| 48 | |
|---|
| 49 | (nio-logger:run-logging-server listen-ip out-file allowed-ips-filename)) |
|---|
