source: FOIAVistA/trunk/r/MAILMAN-XM/XMCD.m@ 1061

Last change on this file since 1061 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1XMCD ;(WASH ISC)/THM-Communications Diagnostics ;04/17/2002 08:27
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; Entry points used by MailMan options (not covered by DBIA):
4 ; DIALER XMDXMODEM
5 ; TRAN XMDXSCRIPT
6 ; SMTP XMDXSMTP
7 Q
8DIALER ; Test the modem autodialer
9 W !!,"This tests the modem autodialer by allowing you to enter a phone number"
10 W !,"which this program will then dial on the selected modem.",!!
11 N XMABORT,XMPHONE,XMHANG,XMSTAT,XMDIAL,DIR,X,Y
12 S (XMABORT,ER)=0
13 F D ^%ZIS Q:POP D Q:XMABORT
14 . D D1^XMC1B
15 . U IO(0)
16 . I XMC("MODEM")="" W !,$C(7),"This device has no modem defined for it." Q
17 . W !,^%ZIS(2,XMC("MODEM"),0)," is the defined modem for device ",IO
18 . I $L(XMSTAT) W !,"Checking status..." U IO X XMSTAT U IO(0) W " Status: ",Y
19 . I '$L(XMDIAL) W !,"No dialer logic specified for this modem type" Q
20 . I '$L(XMHANG) W !,"No hangup logic specified for this modem type",$C(7) Q
21 . F D Q:XMABORT!'ER
22 . . K DIR,X,Y
23 . . S DIR(0)="F^3:30"
24 . . S DIR("A")="Enter the phone number to dial"
25 . . D ^DIR I $D(DIRUT) S XMABORT=1 Q
26 . . S XMPHONE=Y
27 . . U IO X XMDIAL U IO(0)
28 . . I ER W !,$C(7),"Call failed: ",Y
29 . Q:XMABORT
30 . W !,"Successful. Now hanging up ..."
31 . U IO X XMHANG U IO(0)
32 . I ER W !,$C(7),"Hang up unsuccessful" Q
33 . W !,"Hang up successful."
34 D KILL^XMC
35 Q
36SMTP ; SMTP Tester
37 W !!,"This procedure will test the Simple Mail Transfer Protocol,"
38 W !,"allowing you to interactively enter each of the SMTP commands."
39 W !,"The messages will not actually be delivered to the named recipients."
40 W !,"That which you type will be preceded with an 'S: '."
41 W !,"The SMTP responses will be preceded with an 'R: '"
42 W !!,"Terminate the session with a QUIT command",!!
43 D TST^XMR
44 Q
45TRAN ; Test transmission error rates, speeds
46 N XMSECURE,%X,%Y
47 W !!,"This will test a link by executing the script, then sending 20 lines"
48 W !,"in echo test mode. It will report the number of recoverable and "
49 W !,"unrecoverable errors, as well as the transmission efficiency."
50 D LOADCODE^XMJMCODE
51 S %X="XMSECURE(",%Y="^TMP(""XMS"",$J,""S""," D %XY^%RCR
52 K XMSECURE
53 S XMC("TEST")=1
54 D PLAY^XMCX
55 K XMC("TEST"),^TMP("XMS",$J,"S")
56 D KILL^XMC
57 Q
Note: See TracBrowser for help on using the repository browser.