147 lines
4.4 KiB
Mathematica
147 lines
4.4 KiB
Mathematica
CWMAIL ;INDPLS/PLS- DELPHI VISTA MAIL SERVER ;22-Jul-2005 06:59;CLC
|
|
;;2.3;CWMAIL;;Jul 19, 2005
|
|
Q ;ROUTINE CAN'T BE CALLED DIRECTLY
|
|
ENTRY(CWDATA,CWINPUT,CWTEXT) ;CALL WITH CWINPUT=CALL;DUZ;MSG;BASKET;NEW BASKET;NEWMAIL, TEXT=TEXT ARRAY
|
|
N CWCALL,X,DUZ,CWMHDR,CWMST,U,CWSVER
|
|
;REMOVED XMDUZ FROM BEING NEW STATEMENT
|
|
I $$NEWERR^%ZTER N $ET S $ET=""
|
|
S U="^"
|
|
S $ZT="ERR^CWMAIL"
|
|
K CWDATA
|
|
S CWDATA(1)="0^^AN ERROR HAS OCCURRED"
|
|
S CWCALL="%"_$$UP^XLFSTR($P(CWINPUT,";")) ;HOLDS TAG
|
|
S DUZ=$P(CWINPUT,";",2)
|
|
D DUZ^XUP(DUZ) ;SETUP DUZ ARRAY
|
|
D INIT^XMVVITAE ;UPDATE MAILMAN STATUS
|
|
S CWINPUT=$P(CWINPUT,";",3,999)
|
|
D PURGNAM
|
|
I CWCALL?1"%"1.7A,$T(@CWCALL)'="" D @(CWCALL_"(.CWDATA,CWINPUT,.CWTEXT)")
|
|
Q
|
|
ERR D @^%ZOSF("ERRTN")
|
|
D RETGNAM
|
|
Q ;
|
|
%READ(CWDATA,CWINPUT,CWTEXT) ;
|
|
D %READ^CWMAILA(.CWDATA,CWINPUT)
|
|
Q
|
|
%LIST(CWDATA,CWINPUT,CWTEXT) ;
|
|
;CWINPUT = MAIL TYPE OR MAILBOX NUMBER;
|
|
D %LIST^CWMAILA(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%DELETE(CWDATA,CWINPUT,CWTEXT) ;
|
|
D %DELETE^CWMAILA(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%SAVE(CWDATA,CWINPUT,CWTEXT) ;
|
|
D %SAVE^CWMAILA(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%MAKNEW(CWDATA,CWINPUT,CWTEXT) ;
|
|
D %MAKNEW^CWMAILA(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%NEWBSK(CWDATA,CWINPUT,CWTEXT) ;CREATE A NEW MAIL BASKET
|
|
D %NEWBSK^CWMAILA(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%RESEQ(CWDATA,CWINPUT,CWTEXT) ;RESEQUENCE A VISTA MAIL BASKET
|
|
D %RESEQ^CWMAILA(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%REPLY(CWDATA,CWINPUT,CWTEXT) ;
|
|
D %REPLY^CWMAILB(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
%FORWARD(CWDATA,CWINPUT,CWTEXT) ;
|
|
;M ^TMP("CWMAIL","FORWARD",$H)=CWTEXT
|
|
;S ^TMP("CWMAIL","CWINPUT",$J)=CWINPUT
|
|
D %FORWARD^CWMAILB(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
%ANSWER(CWDATA,CWINPUT,CWTEXT) ;
|
|
D %ANSWER^CWMAILB(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
%TERMIN(CWDATA,CWINPUT,CWTEXT) ;TERMINATE A MESSAGE THREAD
|
|
D %TERMIN^CWMAILB(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%CREATE(CWDATA,CWINPUT,CWTEXT) ;CREATE A NEW MESSAGE
|
|
D %CREATE^CWMAIL2(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
%LATER(CWDATA,CWINPUT,CWTEXT) ;LATER A MESSAGE
|
|
D %LATER^CWMAILC(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
;
|
|
%MBOX(CWDATA,CWINPUT,CWTEXT) ;RETRIEVE MAILBOXES
|
|
D %MBOX^CWMAILC(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%PMBOX(CWDATA,CWINPUT,CWTEXT) ;PURGE ENTIRE MAIL BOX
|
|
D %PMBOX^CWMAILC(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%RNMBOX(CWDATA,CWINPUT,CWTEXT) ;RENAME EXISTING MAILBOX
|
|
D %RNMBOX^CWMAILC(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%MSGRCP(CWDATA,CWINPUT,CWTEXT) ; RETURNS A LIST OF MESSAGE RECIPIENTS
|
|
D %MSGRCP^CWMAILC(.CWDATA,CWINPUT) ;,RETGNAM
|
|
Q
|
|
%NETINFO(CWDATA,CWINPUT,CWTEXT) ; RETURNS NETWORK TRANSMISSION INFO
|
|
D %NETINFO^CWMAILC(.CWDATA,CWINPUT) ;,RETGNAM
|
|
Q
|
|
%ADRSTO(CWDATA,CWINPUT,CWTEXT) ;RETURNS ARRAY OF ADDRESSED TO
|
|
D %ADRSTO^CWMAILC(.CWDATA,CWINPUT) ;,RETGNAM
|
|
Q
|
|
%GRPINF(CWDATA,CWINPUT,CWTEXT) ;MAIL GROUP INFO
|
|
D %GRPINF^CWMAILC(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%USRINF(CWDATA,CWINPUT,CWTEXT) ; MAIL USER INFO
|
|
;CWINPUT = MAIL USER IEN
|
|
D %USRINF^CWMAILC(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%PERPREF(CWDATA,CWINPUT,CWTEXT) ;RETRIEVE PERSONAL PREFERENCES
|
|
;CWINPUT = MAIL USER IEN;SAVE NAME
|
|
D %PERPREF^CWMAILD(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%USRLOG(CWDATA,CWINPUT,CWTEXT) ;LOG USER INTO GUI MAIL LOG
|
|
;CWINPUT = DUZ
|
|
D %USRLOG^CWMAILD(.CWDATA,DUZ),RETGNAM
|
|
Q
|
|
%BMSGD(CWDATA,CWINPUT,CWTEXT) ;BUILD MSG INFO INTO GLOBAL
|
|
;
|
|
D %BMSGD^CWMAILD(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
%SUPREF(CWDATA,CWINPUT,CWTEXT) ;SET USER PREFERENCES
|
|
;
|
|
D %SUPREF^CWMAILD(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
RETGNAM ;RETURNS A $NAME FOR GLOBAL AFTER MERGING
|
|
M ^TMP($J,"CWMAIL")=CWDATA
|
|
K CWDATA S CWDATA=$NA(^TMP($J,"CWMAIL"))
|
|
Q
|
|
PURGNAM ;PURGE GLOBAL ARRAY USED FOR DATA RETURN
|
|
K ^TMP($J,"CWMAIL")
|
|
Q
|
|
%CHKMAIL(CWDATA,CWINPUT,CWTEXT) ;CHECK FOR NEW MAIL
|
|
;CWINPUT = DUZ
|
|
D %CHKMAIL^CWMAILD(.CWDATA,DUZ),RETGNAM
|
|
Q
|
|
%PRINT(CWDATA,CWINPUT,CWTEXT) ;PRINT A MESSAGE
|
|
;
|
|
D %PRTMSG^CWMAILD(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%GETSVER(CWDATA,CWINPUT,CWTEXT) ;GET SERVER VERSION
|
|
;
|
|
D %GETSVER^CWMAILD(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%MSGSRC(CWDATA,CWINPUT,CWTEXT) ;SEARCH AND RETURN SELECTED MESSAGES
|
|
;
|
|
D %MSGSRC^CWMAILA(.CWDATA,CWINPUT,.CWTEXT),RETGNAM
|
|
Q
|
|
%MSGISRC(CWDATA,CWINPUT,CWTEXT) ;SEARCH FOR A SPECIFIC MESSAGE NUMBER
|
|
;
|
|
D %MSGISRC^CWMAILF(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
;
|
|
%OPENATT(CWDATA,CWINPUT,CWTEXT) ;ALLOW OPENING OF ATTACHMENTS
|
|
;
|
|
D %OPENATT^CWMAILD(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%TIMEROF(CWDATA,CWINPUT,CWTEXT) ;TIMER OFF
|
|
;
|
|
D %TIMEROF^CWMAILD(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|
|
%TIMERVA(CWDATA,CWINPUT,CWTEXT) ;SET TIME-OUT VALUE
|
|
;
|
|
D TIMERVAL^CWMAILD(.CWDATA,CWINPUT),RETGNAM
|
|
Q
|