;;;; syslog_helper.lisp
 
 ;; This Source Code Form is subject to the terms of the Mozilla Public
 ;; License, v. 2.0. If a copy of the MPL was not distributed with this
 ;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
 

 (in-package #:syslog-server)

 
 (defvar *zxcv* *debug-io*
   "Where to send debug output: only used during development")
 
 (defun start-syslog-server (handler &key (port 514))
   (usocket:socket-server "0.0.0.0" port
 			 (lambda (buffer)
 			   (declare (type (simple-array (unsigned-byte 8) *) buffer))
 			   (funcall handler (babel:octets-to-string buffer))
 			   (vector))
 			 nil
 			 :protocol :datagram))