syslog ( message level -- )

Vocabulary

syslog

Inputs

message	an object
level	an object

Outputs

None

Definition

USING: io.backend.unix io.encodings.utf8 io.sockets
io.sockets.private io.streams.byte-array namespaces sequences
syslog.private ;

IN: syslog

: syslog ( message level -- )
    utf8 [ write-syslog ] with-byte-writer
    1024 index-or-length head syslog-server get-global T{
    datagram-port
        { handle T{ fd { fd 18 } } }
        { addr T{ inet4 { host "0.0.0.0" } { port 61626 } } }
    } send ;