source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMCSIZE.m@ 1141

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

initial load of WorldVistAEHR

File size: 1016 bytes
RevLine 
[613]1XMCSIZE ;(WASH ISC)/AML-Message Stats Tool (shareware) ;04/17/2002 08:26
2 ;;8.0;MailMan;;Jun 28, 2002
3 R !,"Message number: ",XMZ:$S($D(DTIME):DTIME,1:300) Q:'$T W !,"WORKING..." S Y=0
4 S I=0 F X=0:0 S X=$O(^XMB(3.9,XMZ,2,X)) Q:X="" S I=I+1,Y=Y+$L(^(X,0)) I I#100=0 W "." I $X>70 W !
5 W !,I," Lines "," ",Y," Bytes ",!
6TT R !,"Transmission time in seconds: ",%:$S($D(DTIME):DTIME,1:300) Q:%=""!(%["^")!'$T
7 I %'?1.N!'% W $C(7),!," Enter a non-zero number of seconds, please.",! G TT
8 W !,$J(I-1/%,15,2)," Lines/sec ",$J(Y/%,20,2)," Bytes/sec",!
9 Q
10COMP ;COMPARE TWO MESSAGES
11 R !,"First message to compare: ",XMZ1:$S($D(DTIME):DTIME,1:300) Q:XMZ1=""
12 R !,"Second message to compare: ",XMZ2:$S($D(DTIME):DTIME,1:300) Q:XMZ2=""
13 K ^TMP($J) F O=0:1 Q:'$D(^XMB(3.9,XMZ1,2,O+1,0)) S ^TMP($J,1,O+1,0)=^(0)
14 F F=0:1 Q:'$D(^XMB(3.9,XMZ2,2,F+1,0)) S ^TMP($J,2,F+1,0)=^(0)
15 ;
16 D ^XMPC
17 Q
18 ;F I=1:1 Q:'$D(^XMB(3.9,XMZ1,2,I,0)) S X=^(0),Y=^XMB(3.9,XMZ2,2,I,0) D:X'=Y CHK
19 ;Q
20CHK ;COMPARE DIFFERENCES
21 W !,X,!!,Y Q
Note: See TracBrowser for help on using the repository browser.