addons/Syslog/samples/sample.io

   1 #!/usr/bin/env io
   2
   3 # Test by Jeremy Tregunna <jtregunna@blurgle.ca>
   4 # Not all of these options are needed to log. Most basic you only need to call:
   5 # open(fac, opt, ident), log(pri, msg), close
   6
   7 logger := Syslog clone do (
   8         identity("SyslogTest")
   9         facility(facilityMap at("LOG_USER"))
  10         options(List add(optionsMap at("LOG_PID"), optionsMap at("LOG_CONS")))
  11         priority(priorityMap at("LOG_INFO"))
  12         open(facility, options)
  13         mask(List add(maskMap at("LOG_PRIMASK")))
  14         log(priority, "*** Merely a test ***")
  15         close
  16 )
  17