Routine: XUSTZIP

Information

XUSTZIP ;WRJ/DAF,ISF/RWF - Security Twilight Zone, Failed Access Attempts ;03/24/2004 11:12

Source file <XUSTZIP.m>

Name	Comments	DBIA/ICR reference
CLEAN	;CLEAN UP OLD LOCKED IP NODES, ^XUSEC(3,
X6IP	;EXAMINE AND ALLOW RESET OF LOCKED IPS
LKSET(IP)	;Set IP Lock Node
LKTL()	;Lock until
NOW()	;
IP()	;Get a device IP.
LKTME()	;Get lock-out time
LKCHECK(IP)	;Check if IP is LOCKED	ICR #4761 Status: Active Usage: Controlled Subscription
LKREC(IP)	;Get the Lock record
LKDEL(ZNUM)	;Delete LOCKED IP
LKWAIT(%)	;How long to wait
TSCHK(IP)	;Check if IP is for a TERMINAL SERVER.
IPCHECK(IP)	;Check if IP should be LOCKED. Called from XUSTZ, and others.
SLACK(TEND)	;SLACK CALCULATOR
ON()	;ON OR OFF
H3(%H)	;Make seconds
H0(%H)	;
DSPTME(%H)	;Convert seconds to display format
WATCH	;Watch the globals
WT2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no IP's to Clear" Line Location: X6IP+2
Function Call: WRITE	Prompt: !,I_". ",ZNM," lock out till: ",$$FMTE^XLFDT($P(^XUSEC(3,ZNUM,0),"^",2)) Line Location: X6IP+6
Function Call: WRITE	Prompt: !,ZNM," Cleared" Line Location: X6IP+12
Function Call: WRITE	Prompt: @IOF,"Failed access attempts count. Current time: ",TIME Line Location: WT2+1
Function Call: WRITE	Prompt: !,I,?5,"IP: ",$P(X,U,1),?25,"Count: ",$P(X,U,2),?35,"Until: ",$$HTE^XLFDT($P(X,U,3)) Line Location: WT2+3
Function Call: WRITE	Prompt: !,?10,"None" Line Location: WT2+4
Function Call: WRITE	Prompt: !,"Locked IP's. Current time: ",TIME Line Location: WT2+5
Function Call: WRITE	Prompt: !,I,?5,"IP: ",$P(X,U,1),?25,"Until: ",$$FMTE^XLFDT($P(X,U,2)) Line Location: WT2+7
Function Call: WRITE	Prompt: !,?10,"None" Line Location: WT2+8
Function Call: READ	Formatting: ! Prompt: "Refresh: Yes// " Variable: X Timeout: 30 Line Location: WT2+9
Function Call: WRITE	Prompt: !,"Enter 'Yes' or return to refresh, anyother key will exit" Line Location: WT2+10