LEZZO.ORG/lanonna
2
Fork 0
Code Issues 2 Pull requests Packages Projects Releases Wiki Activity

add log

Browse source
This commit is contained in:
Benedetta 2024-04-17 09:37:16 +02:00
parent 810044e134
commit f25852d903
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
pam/bin/pamlog.ml Normal file
View file

@ -0,0 +1,13 @@
open Syslog
let logger = openlog "PAM"
let _ = at_exit (fun () -> closelog logger)
let info msg =
print_endline [%string "INFO: %{msg}"];
syslog logger `LOG_INFO msg
let error msg =
print_endline [%string "ERROR: %{msg}"];
syslog logger `LOG_ERR msg