218 lines
5.2 KiB
Mathematica
218 lines
5.2 KiB
Mathematica
XMCTLK ;(WASH ISC)/CAP-TalkMan ;04/18/2002 07:29
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
; Entry points used by MailMan options (not covered by DBIA):
|
|
; TALK XMTALK
|
|
I '$D(DUZ) W !,$C(7),"You don't have a DUZ." Q
|
|
N XMABORT,XMDUZ,XMV
|
|
D INIT
|
|
S XMABORT=0
|
|
D HELP(.XMABORT) Q:XMABORT
|
|
GO K XMG0
|
|
GO1 K %ZIS
|
|
S %ZIS=""
|
|
D ^%ZIS Q:POP
|
|
I '$D(XMDUZ) Q:'$D(DUZ) D INIT
|
|
I IO=IO(0) D ^%ZISC W !,"YOU MUST CHOOSE ANOTHER DEVICE" Q
|
|
ENT ;
|
|
N XMZ,XMSUB,TN,TL,TP,TK
|
|
W @IOF,"<<<< You are now talking through device ",IO," >>>>"
|
|
X ^%ZOSF("NBRK"),^("PRIINQ") S XMP=Y,X=Y+3,XME0(0)="S R=0,XME0=$$TSTAMP^XMXUTIL1" S:X>10 X=10
|
|
X ^%ZOSF("PRIORITY")
|
|
I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP=""
|
|
S X="ABEND^XMCTLK",@^%ZOSF("TRAP")
|
|
W !,"===== Enter <control>A to stop. =====",$C(7),!
|
|
S XM="",D="",XMD0=0,A=""
|
|
S XMB0=^%ZOSF("EOFF"),XMB0("RM")="S X=0 "_^("RM"),XMC0=^("EON"),XMF0=^("TYPE-AHEAD"),XMA=^("TRMRD") F I="TRMON","TRMOFF","NBRK" S XMG0(I)=^(I)
|
|
S TN=$P($H,",",2),TL=TN,(TP,TK)=0 ; Times & Timed reads Port/Keyboard
|
|
D T
|
|
S D=""
|
|
U IO
|
|
G G
|
|
;
|
|
;MAIN LOOP / DIALOG OCCURS HERE
|
|
R ;
|
|
W:$D(XMC("TALKMODE")) *17
|
|
U IO
|
|
R A#150:$S($G(R)>20:1,1:0)
|
|
W:$D(XMC("TALKMODE")) *19
|
|
S D=D_A
|
|
X XMA
|
|
S TN=$P($H,",",2)
|
|
S:(TN-TL>5) TP=1 ;ihs Time Now TP adjustment
|
|
S R=$G(R)+1
|
|
I Y>0 D T0 U IO(0) W A,*Y S TP=0,TL=TN X XME0(0) G R
|
|
D T0
|
|
U IO(0)
|
|
W A
|
|
I $L(A) S TP=0,TL=TN X XME0(0) D T0 G R
|
|
S ;
|
|
S Y=0
|
|
U IO(0)
|
|
R A:TK S TK=0 E U IO W A S:$L(A) TP=0,TL=TN G R:$L(A),Q:$$TSTAMP^XMXUTIL1-XME0>$S($D(DTIME):DTIME,1:300),R ;ihs timer adjustment
|
|
X XMA
|
|
G Q:Y=1
|
|
S:Y=27 TK=1
|
|
S TP=0
|
|
I Y=13,$D(XMG0("EON")) S TP=0 U IO(0) W ! ;ihs timer adjustment
|
|
U IO
|
|
W A,*Y
|
|
W:$D(XMG0("EON"))&(Y=13) !
|
|
S:$L(A) TP=0
|
|
X XME0(0)
|
|
G R
|
|
Q ;
|
|
U IO(0)
|
|
W $C(7)
|
|
H 1
|
|
W $C(7)
|
|
X XMC0,XMF0,XMG0("TRMOFF"),XMG0("NBRK")
|
|
K DIR
|
|
S DIR("T")=9
|
|
S DIR(0)="S^E:END TalkMan session;C:begin CAPTURE TalkMan dialog in message;N:do NOT end TalkMan session.;K:KERMIT Transfer Files"
|
|
S DIR("B")="N"
|
|
S DIR("??")="XMTALK"
|
|
I '$D(XMDUZ) S $P(DIR(0),";",2,3)=$P(DIR(0),";",3) G D
|
|
I $D(XMSUB) S $P(DIR(0),";",2)="S:STOP capture"
|
|
D ;
|
|
S XMA0=D
|
|
D ^DIR S:$D(DTOUT) X="^" I '$D(X) W " ???? " G D
|
|
S D=XMA0
|
|
I "N"[X D T S A=" <Continue in TalkMan Mode >" D T0 W !,A,! G G
|
|
;
|
|
;Using Kermit !
|
|
I "K"=X D G G
|
|
. N X
|
|
. I $G(^DIC(15,0,"VR"))'>7.1 W !," <No Kermit use yet. The correct Kernel tools version is not installed !>",! Q
|
|
. D KERM^XTKERMIT,T
|
|
. W !," <Continue in TalkMan Mode >",!
|
|
. D U
|
|
. S D="",Y=1
|
|
I "S"=X K XMSUB W ! G G
|
|
G DQ:"^E"[$E(X)
|
|
I $D(XMZ) W ! S XMSUB=1 G G
|
|
S XMD0=0
|
|
K %I,%H
|
|
S XMSUB=XMDUN_" DIALOG CAPTURE "_$$HTE^XLFDT($H,5)
|
|
D GET^XMA2
|
|
W !
|
|
G G
|
|
;
|
|
G ;RETURN TO TALKMAN MODE
|
|
U IO
|
|
X XMB0("RM"),XMB0,XMF0,XMG0("NBRK"),XMG0("TRMON")
|
|
X:$D(XMG0("EON")) XMC0
|
|
D T
|
|
X XME0(0)
|
|
G R
|
|
;
|
|
ABEND ;Handle abnormal end
|
|
D ^%ZISC
|
|
U IO(0)
|
|
W $C(7)
|
|
H 1
|
|
W $C(7)
|
|
X XMC0,XMF0,XMG0("TRMOFF"),XMG0("NBRK")
|
|
G DQ
|
|
;
|
|
;END TALKMAN SESSION
|
|
DQ ;
|
|
W $C(7),!!,"End of Talkman session."
|
|
W !,"You are back at your starting place.",!
|
|
H 1
|
|
W $C(7)
|
|
W !!
|
|
U IO
|
|
W *17
|
|
X XMG0("TRMOFF")
|
|
D ^%ZISC,HOME^%ZIS
|
|
D N
|
|
G QQ:'$D(XMZ),QQ:'XMZ
|
|
I 'XMD0 D KILLMSG^XMXUTIL(XMZ) G QQ
|
|
I $P(XMD0,U,2,999)'="" S XMSUB=1,Y=999,D=$P(XMD0,U,2,999) D T0
|
|
S XMD0=+XMD0
|
|
I XMD0 D NOW^%DTC D K %I,%H G QQ
|
|
. S ^XMB(3.9,XMZ,2,0)="^3.92A^"_XMD0_U_XMD0_U_%
|
|
. K XMY,^TMP("XMY",$J),^TMP("XMY0",$J)
|
|
. S XMY($G(XMDUZ,DUZ))=""
|
|
. D ENT1^XMD W !,"TalkMan dialog capture being delivered now."
|
|
D KILLMSG^XMXUTIL(XMZ)
|
|
QQ ;
|
|
W !
|
|
D CHK^XM
|
|
W !
|
|
S X=XMP
|
|
X ^%ZOSF("PRIORITY")
|
|
K %,X1,X2,XMA0,XMB0,XMC0,XMD0,XME0,XMF0,XMG0,XMA,XMP,XMSUB,DIR
|
|
S XMZ=0
|
|
Q
|
|
N ;
|
|
U IO(0)
|
|
X XMC0
|
|
I $D(DUZ) S X=$G(^VA(200,DUZ,200)) Q:X#10'=1 Q:$P(^(200),U,9)="Y"
|
|
S A="NO-TYPE-AHEAD" Q:'$D(^%ZOSF(A)) X ^(A)
|
|
Q
|
|
T ;
|
|
U IO(0)
|
|
S X=0
|
|
X ^%ZOSF("RM"),XMF0,XMB0,XMG0("TRMON"),XMG0("NBRK")
|
|
I $D(XMG0("EON")) X XMC0
|
|
Q
|
|
T0 ;
|
|
I '$D(XMSUB)!(D=""&(Y'=9)) S D="" Q
|
|
I D'?.ANP F I=1:1 I $E(D,I)?1C S D=$E(D,1,I-1)_$S($A(D,I)=9:"",1:" ")_$E(D,I+1,999) Q:$E(D,I,999)?.ANP S I=I-1
|
|
T1 ;
|
|
I Y'=13&($L(D)<81)!(Y>0&(D="")) S XMD0=+XMD0_U_D Q:Y'=9 S D=$E(D_" ",1,$L(D)\9+1*9),$P(XMD0,U,2)=D Q
|
|
I D="" S D=" "
|
|
S XMD0=XMD0+1,^XMB(3.9,XMZ,2,XMD0,0)=$E(D,1,80),D=$E(D,81,999)
|
|
G T1
|
|
U ;
|
|
S XME0=$$TSTAMP^XMXUTIL1
|
|
Q
|
|
;
|
|
;GET INITIAL VALUES
|
|
ECHO ;ENTRY TO ECHO
|
|
K XMG0
|
|
S XMG0("EON")=1
|
|
G GO1
|
|
INIT ;
|
|
D INIT^XMVVITAE
|
|
K XMA0,XMB0,XMC0,XMD0,XME0,XMF0
|
|
G H^XUS:'$D(XMDUZ),H^XUS:'$D(XMDUN) K XMZ
|
|
Q
|
|
HELP(XMABORT) ;
|
|
N DIR,X,Y
|
|
S DIR(0)="Y"
|
|
S DIR("A")="Do you want help"
|
|
S DIR("B")="NO"
|
|
D ^DIR I $D(DIRUT) S XMABORT=1 Q
|
|
Q:'Y
|
|
S XQH=$S($G(DUZ(0))="@":"XMTALK",$D(^XUSEC("XMMGR",DUZ)):"XMTALK",1:"XMTALK-USER")
|
|
D EN^XQH
|
|
Q
|
|
TALK ; Talk mode entry
|
|
I '$D(DUZ) W !,$C(7),"You don't have a DUZ." Q
|
|
N XMC,XMDUZ,XMV,XMOKTYPE,XMINST,XMSITE,XMIO,XMB,XMABORT
|
|
N XMLER,XMLINE,XMCNT,DIC,XMA0,XMB0,XMC0,XMD0,XME0,XMF0,XMG0
|
|
D INIT^XMVVITAE
|
|
S XMC("TALKMODE")=1,XMABORT=0
|
|
D HELP(.XMABORT) Q:XMABORT
|
|
;Ask Domain / get defaults
|
|
;S (XMOKTYPE("SMTP"),XMOKTYPE("TELNET"))=""
|
|
S XMOKTYPE("TELNET")=""
|
|
D ASK^XMCXU(.XMINST,.XMSITE,.XMB,.XMABORT,"I $P(^(0),U,2)[""T""",.XMOKTYPE) Q:XMABORT
|
|
S XMIO=$P(XMB("SCR REC"),U,5)
|
|
S XM=""
|
|
W !,"Attempting to connect...."
|
|
S XMDUZO=XMDUZ
|
|
D ENT^XMC1
|
|
S XMDUZ=XMDUZO K XMDUZO
|
|
I ER D Q
|
|
. D ^%ZISC
|
|
. W !,$C(7),"Could not connect to ",XMSITE,"."
|
|
. W !,"You are back at ",^XMB("NETNAME"),"."
|
|
. D KILL^XMC
|
|
U IO(0)
|
|
D ENT
|
|
D KILL^XMC
|
|
Q
|