22 lines
1016 B
Mathematica
22 lines
1016 B
Mathematica
XMCSIZE ;(WASH ISC)/AML-Message Stats Tool (shareware) ;04/17/2002 08:26
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
R !,"Message number: ",XMZ:$S($D(DTIME):DTIME,1:300) Q:'$T W !,"WORKING..." S Y=0
|
|
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 !
|
|
W !,I," Lines "," ",Y," Bytes ",!
|
|
TT R !,"Transmission time in seconds: ",%:$S($D(DTIME):DTIME,1:300) Q:%=""!(%["^")!'$T
|
|
I %'?1.N!'% W $C(7),!," Enter a non-zero number of seconds, please.",! G TT
|
|
W !,$J(I-1/%,15,2)," Lines/sec ",$J(Y/%,20,2)," Bytes/sec",!
|
|
Q
|
|
COMP ;COMPARE TWO MESSAGES
|
|
R !,"First message to compare: ",XMZ1:$S($D(DTIME):DTIME,1:300) Q:XMZ1=""
|
|
R !,"Second message to compare: ",XMZ2:$S($D(DTIME):DTIME,1:300) Q:XMZ2=""
|
|
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)
|
|
F F=0:1 Q:'$D(^XMB(3.9,XMZ2,2,F+1,0)) S ^TMP($J,2,F+1,0)=^(0)
|
|
;
|
|
D ^XMPC
|
|
Q
|
|
;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
|
|
;Q
|
|
CHK ;COMPARE DIFFERENCES
|
|
W !,X,!!,Y Q
|