XMXSEC1 ;ISC-SF/GMB - Message security and restrictions (cont.) ;05/17/2002 13:26
Source file <XMXSEC1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETRESTR(XMDUZ,XMZ,XMZREC,XMINSTR,XMRESTR) | ;
; If a message is closed, it may not be forwarded to SHARED,MAIL, even by the sender |
|
CHKLINES(XMDUZ,XMZ,XMRESTR) | ; Replaces NO^XMA21A
|
|
CHKMSG(XMDUZ,XMK,XMKZ,XMZ,XMZREC) | ; Is the message where the calling routine says it is,
; and is the user authorized to access it? |
|
PAKMAN(XMZ,XMZREC) | ; Returns 1 if this is a packman msg; 0 if not.
; Unfortunately, there isn't always an "X" in piece 7 of the zero node, ; so we must go check out the first line of text. |
|
OPTGRP(XMDUZ,XMK,XMOPT,XMOX,XMQDNUM) | ; What may the user do at the basket/message group level?
|
|
SET(XMCD,XMDN,XMOPT,XMOX) | ;
|
|
Q(XMCD,XMDN) | ;
|
|
OPTUSER1(XMDUZ,XMOPT,XMOX) | ;
|
|
OPTUSER2(XMK,XMOPT,XMOX) | ;
|
|
OPTPOST(XMOPT,XMOX) | ;
|
|
OPTSS(XMDUZ,XMOPT,XMOX) | ; Super Search
|
|
COPYAMT(XMZ,XMWHICH) | ; Checks total number of lines to be copied and total number of responses to be copied.
; Function returns 1 if OK; 0 if not OK. ; XMWHICH string of which responses to copy (0=original msg). ; Default = original msg and all responses. |
|
TOOMANY(HOWMANY,XMLIMIT,XMDIALOG,XMABORT) | ;
|
|
COPYLIMS() | ; Function returns copy limits string.
; limits: # recipients^# responses^# lines |
|
COPYRECP(XMZ) | ; Checks total number of recipients to see if it's OK to list them in the copy text and send the copy to them, too.
; Function returns 1 if OK; 0 if not OK. |
|
SSPRIV() | ; Is the user authorized to conduct a super search?
|
|
ZSSPRIV() | ; Is the user authorized to conduct a super search?
|
|
ACCESS2(XMDUZ,XMZ,XMZREC) | ; The user (XMDUZ) is not a recipient
|