Changeset 1139 for GuiMail/trunk/p/CWMAILD.m

Timestamp:

Apr 10, 2011, 10:44:11 PM (13 years ago)

Author:

George Lilly

Message:

version 2.3 of GuiMail

File:

• GuiMail/trunk/p/CWMAILD.m (modified) (3 diffs)

GuiMail/trunk/p/CWMAILD.m

@@ -1 @@
-CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;16-Jul-1999 11:13;PS
-        ;;2.1;CWMA GuiMail;;Jan 06, 1999
+CWMAILD ;INDPLS/PLS- DELPHI VISTA MAIL SERVER CONT'D ;22-Jul-2005 07:10;CLC
+        ;;2.3;CWMAIL;;Jul 19, 2005
         Q   ;ROUTINE CAN'T BE CALLED DIRECTLY
         ;
@@ -35 +35 @@
         . S $P(CWDATA(1),U,5)=$G(XMV("WARNING",1))="Priority Mail"  ;SET PRIORITY MAIL FLAG
         . S $P(CWDATA(1),U,6)=$P($G(XMV("NETNAME")),"@",2)  ;get domain name for mail server
+        . S $P(CWDATA(1),U,7)=$S($P($G(^VA(200,DUZ,200)),U,10)>0:$P($G(^VA(200,DUZ,200)),U,10),1:300)  ;Timed read used for GuiMail timeout. -clc
         ;$G(^XMB("NETNAME"))  ;get domain name for mail server
         E  S CWDATA(1)="0^USER NOT FOUND"
@@ -108 +109 @@
         S CWDATA(1)="1^1^"_+$$VERSION^XPDUTL("CWMA")
         Q
+%OPENATT(CWDATA,CWPARAM)        ;OPEN ATTACHMENTS
+        N X
+        S X=$$GET^XPAR("ALL","CWMA ALLOW ATTACHMENTS OPEN")
+        S CWDATA(1)="1^1^"_$S(X=0:X,1:1)
+        Q
+%TIMEROF(CWDATA,CWPARAM)        ;DISABLE TIMER
+        N X
+        S X=$$GET^XPAR("ALL","CWMA DISABLE GUIMAIL TIMEOUT")
+        S CWDATA(1)="1^1^"_$S(X=0:X,1:1)
+        Q
+TIMERVAL(CWDATA,CWPARAM)        ;TIMEOUT VALUE
+        N X
+        S X=$$GET^XPAR("ALL","CWMA GUIMAIL TIMEOUT VALUE")
+        S CWDATA(1)="1^1^"_$S(X>0:X,1:0)
+        Q