# HG changeset patch
# User Jean-Francois Pieronne <jf.pieronne@laposte.net>
# Date 1587571394 -7200
#      Wed Apr 22 18:03:14 2020 +0200
# Node ID 1786d706f8ee9fd58289d322058dc8d1239a46fe
# Parent  d2155fa445bd2f0b44b4cc92b7e2b39e82bc4836
secrules/get_mail_info.py initial version

diff --git a/secrules/get_mail_info.py b/secrules/get_mail_info.py
new file mode 100644
--- /dev/null
+++ b/secrules/get_mail_info.py
@@ -0,0 +1,35 @@
+import os
+from vms import starlet
+from vms.rtl import lib
+from vms import user
+from FindFile import FindFile
+
+def getMailObjectInfo():
+    all_users = user.all_users()
+    maxsysgroup = lib.getsyi(syidef.SYI__MAXSYSGROUP)[1]
+
+    def file_exists(fn):
+        try:
+            with FindFile (fn) as ifn:
+                ifn.__next__()
+                return True
+        except VMSError, e:
+            return False
+
+    objectMailPresent = False
+    objectMailAccount = False
+    objectMailUser = ''
+
+    with os.popen('MCR NCL SHOW SESSION CONTROL APPLICATION MAIL') as p:
+        r = [x[:-1] for x in p]
+    for l in r:
+        if '= MAIL' in l:
+            objectMailPresent = True
+
+    if objectMailPresent:
+        for u in all_users.values():
+            if u.username == 'MAIL$SERVER':
+                objectMailUser = u
+                objectMailAccount = True
+
+    return objectMailPresent, objectMailAccount, objectMailUser