From f25852d90324bd269d44cfa7dacc94aab59940e5 Mon Sep 17 00:00:00 2001
From: Benedetta <bparodi@lezzo.org>
Date: Wed, 17 Apr 2024 09:37:16 +0200
Subject: [PATCH] add log

---
 pam/bin/pamlog.ml | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 pam/bin/pamlog.ml

diff --git a/pam/bin/pamlog.ml b/pam/bin/pamlog.ml
new file mode 100644
index 0000000..6d818b2
--- /dev/null
+++ b/pam/bin/pamlog.ml
@@ -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