newLISP Fan Club

Forum => So, what can you actually DO with newLISP? => Topic started by: newdep on March 07, 2004, 01:27:12 PM

Title: 5 Cent tip for today [ Syslogger ]
Post by: newdep on March 07, 2004, 01:27:12 PM
#!/usr/bin/newlisp

;

; Simple and quick syslogger (udp listener)

; > newlisp syslog

;

; filtering syslog output (because there is officialy a standard

; for syslog information) you can sharpen the output, even to file

; per incoming mached id.

;

; Use (pretty-print xxx) to extend console width output.

(pretty-print 256)



; And this is it..."4444" could be a syslog port

(until (net-error) (println (net-receive-udp 4444 1024 )))

(exit)







Norman.