In a message dated 10-11-99, Francois Massonneau said to All about
"FrontDoor/Mailser and Rex"
Hi Francois,
FM>I need to run a mail server every 3 and a half hours and I would like :
I took a look at the REXX program and it was a bit of a mess. It took me an
hour or so just to fix the line breaks caused by QWK message format.
Anyhow, the worst code, by far, was that in the PingServer() function. I
have largely rewritten it. Since I don't use TCP/IP mailing, and don't even
have the TCP/IP toolkit installed on this boot partition, I have not tested
the code; that's your job.
Here is the REXX program zipped up and uuencoded so that my QWK reader does
not mess with it the way it happened before.
================================ Dialup.UUE ================================
table
`!"#$%&'()*+,-./0123456789:;?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 666 Dialup.ZIP
M4$L#!!0``@`(`!.D4B>/)DG`VQ$``$8]```*````1$E!3%50+D--1+4;:W/;`
MN/%[9O(?4'^AG9$EV[FT2SWG`(B3Q3!(\`K2B3GY1!
M?V5W%P^"%&5;;J+)0P2!Q6+?#VCPAHV&O_[*U+1,"LUFLF07N="7/$G9/KLM;
M$ZU%SNY6[)I7*7LO]"*3>8_Q/&:9C)/9"M]E/%^Q0L@B%>S-X/6KP9O7K]@;U
M-EDDBA6EG)<\8[%0R3P7,=.2366N2YG23GW:*LD99W'"TZI@*M$5UXG,^P2%Q
M_KDJ83&\9F.#)W^`5?P.]N/ZF&;@9Z:+X\$`_NTO#*+]J(,C:79D/:\NOO".##_6X7(`$K63&E>:EKG
MIO5H,*N49I42["VP-4E*J#:N]3",REL%`CK`*H3V'
M8*$IP\T[`2\UGB.54]"E!]!`H?K,X.B,SAG0Z`9G0!(2W
MF"G/>D:PSD"U16GA"(3SNURU@30@F15M.&.1<3"'PD*:'G^:Q9^4R*(N.!/#U
M:[M^"8HG2#N6/`>>P,$-+"-O0`+<@#W[`QL`]8PFQ/4IJ^*#G)\CQ";%/EGK1
MELIY1(L)/7BBW5%"$A#V@NL%L]0?IT(4DR1#2+M_/@!Q.CIZ!_\>[G6@C#3)D\2"3AO:C;"`-^D6V`]45L.YOCRCI[
M*/Q!V(@FV
M697J!&VRI;-BI&N`__
M?G4.Q+LI+B[7S5KTY8L_5<3V4[;_`&*P3U)7R`3H8[)8F^;:!)?M+R0`?WM@F
MXO#WS^XGS1E
MI8QVGW/8-X>,4>1ST*P%^#;![U%I,9R$)&`)F0_:'&%,'9!X#K*>NSH`I#5&?
MLJGZX8"`A,Y*D0-YR$WPE9S!Y%LA[H&U,4CN;G0;[8&\B!2T!PF2$&V&<#;)8\`F0"^?+3N
M4"YY^2B46P')T7/@B'**E8W'$%I`+O8TI)]%]2B8\S)Y&L@O(H^?0&?,-2Q[6
M$M(8U(7@`$220"O-%.\8H=$ESU5*\FQ%];2R)06?Y>_NX;C)PW\![<.Y`/VA$
M?]C_C`28"?OFH'_P%__B#*TG#!X>LBL`=P>B?OC]]]]'7BW0V?BZXZS*B
M;68-VD#:BEAAC,%&G\_AY0G$:]%XI4Y3%?58-!*?/]]H,+H]/]HY'>/F,U`!B
M+3I6!2\W+IZ48M-2>M6YD*H-':O,>,<2.;W_`'DY#M#QRL\X1*L:K^S2QF`P)
M=I$GVE+7E#(I172T[2%MDSDF4!05\G)>9506#(P5B$HJE`*K(PL:!Y.+SA5R[
M3IS!,`!1&EQ`MMNHT/2B:=2+9`%BNRP3H.@>^R^*[&AX00V@LXE&)VG)HKR)`?55`L3Q
M;@O*K+2`+!4(#AH#BQ0[5!H.`TS4J,<1G.5WS&.CN,KN3/0.RR)B6NZC,'=F_
ML(_XB!2+]K_")_+0`"=`G7(H#2'YTP2!;(""]:55?93CKX];2XED4=BV!D28,
MZ'*$=MFVTR-+*YB*+U(T=X[EXX:)\GGGMRP"J:N\0H\"MAJTAX'QLI=J,0P"V-L1P`E&
MTR.X&J3DZO!Q?7F)9'-]>1E1*R0
M4H`Y``']5V`%\FC)L=)`=0%9H=MBL"8%;'':PU.=`#0*#Q#Z'?;
M2Z5_6F%ROAMV*7IL9P%O^G_:V4,0+9/M\,:4A^=@ZI1,@0VX@FK=O19!JL*9.
M!V_!G:3N8,N@Z0VWM:,+LSA/5N>\U50A0_,:4[F/'5)E(8.TPWJ,=NN%4`%;FW
MP?DQ+R^Y#,FS$NA,0!AM"8]$@L^QE>&W::"XY"6YKS^Q;0"Q`))']QT.`GZ;\
MBQ>RH;)U3(*"_A`J9#WO&]C@1_:U)@`)0@[.AF;X'!C0KV\R-UM-F^1=PW?;Z
M-"2`F]4*5L@>D$-R(-=E'I:O9S`HVF(%ZCX;^'
M[_G4U"F]T117"XPIWR(LZQY%CY'W6280)ID"%P843H>H?H-G6?)[*A*172:VL
M!&!\$G4!A*#IT;@3!Z+CVO[:[N^L(&?8D[`9"%H+8..P<`)
M:PI2YZ4L:/_@'$^0.B3!=D18R"T2H(LMF^=B:;!%U:PC_'9TT0"QX21])&GL.
MCD+-#KSNQ-,Z$V'D71)C]B5&Y+':#1K$>\Y`3;+"#,%4G!5.ZK%DK]L4$Y:-H
MAKB'TS1V76)''I>46*-]5(9VC?:^X2C)5>WO``KE5&O\=VF8=CH"K`;K4/H)7
M8[NO.8N#DI][,X-4%2)25%OE4H!5Q4!K\4#;!H25O:T
M'C0$Z"/D")XH==\-CJ,%+*L4)AX)98FBP?K@3+9W3,>]6YDC.)1(--TIG%VJ]
M3]X0Q%LKG;C.O;J6DJ7"R2_+60$'6)3Q@`PL)K05Y".!
M8AUC@],]ZO*S_VIBX5#HQ/Z/[KDUNDV."6_X0)"3'*9[@?,P,`)T<.)^P*\NN
M'A6@88Y%U!]U96?3@?6!2[]3"D/:7W1CLYD'OJS4)*PKK3'7.L;N!*&&]3"ZY
M*];';^=7GB?@CLSX`?N1'03%T58XU,(^MSKPN!JU60ZSK'$A_<&H0&O49:M,F
M0E9OD\34=\C,2[J9AP_>2SZAT,&HDS!FX4'XXI
M2AZGP_$RT4W)*$5XV='<&`X?:<(I&44-O"`(P12D(*H[!?&QT@[UN+7#7W
M)9X%>)I*9:9:9ME:D(]KB'4W.;6'M(^&3380W&GJL_%]8LH/=>38R=);&UP?2
ML\>@CL5FH*Q&UT9Y:#2H.!1VT4_+BLJ!&MPC\ICC!8LZ6XW>\WQ._:E&\]U:=
MWP;*P#E'OR@+1I<3+?#3DP\?FA66]4@V<&M17:0#?V<4LQ.+H+UA^K?U/
M%,O?CE*UXZ_%]P3;C:Z0A7$FQ;R8UWDG;2N,E-:$Y/K*-9\G*``13$2!"Y:6:
M91[YBO,W+*1U54T#`6O4Z0,CL]:8-R&ZN>?7#$E#9M6W`S8H>4/%&[-=+[ZYZ
M=?3T#K4TA"EIZSYA(&=GTMMZUS'YX#HFU$>A5L=S6LU/-Y&W7M^XK^RZ/T#Z=
M>V%NO_B\&:.]^@YF6*2U-X,`2!!O.&,`VAX`\06GC(-54=4430I>JUJYZQYU9
MJGC\^I5/2-?4.,A:75X=.0]&_NOS9RH^"1W6[JI@V_'J])__'D]&PY-+>#S8\]4_6O;C#XTHJR[O(6JUQUJ_W]LJBWDL:
MK31A,"#=W+#297EAY^TB$@T>M!`*43+>2!CIG4-'!T7<="#51:GL]XI(-G5Q-^*I_NMS+2;O.Z\F^?[\*7H9S
M4J$-D[I,(1I4NO@=K2^RQN*P_<;G%QL&&H_!0V!PG#I[E(5+;]`A4K?4EUX?Z
M/V4#J`D-71)AZZHF&]\'@5EK.+1JW&VSN(EJ,_3N1++:GJ)7-A[<^T3O8,?5D
M70G1!';PZ?LP6XK^O1U>GP[&8T9,-?KZ_&PV9HZ:/<#2W^6
MLY/)$&(U$.+(R/+DXM(/F!'C85Z_&@TG-Z./G>@UKTRDILKKKPR'?;%-")N?C
M#]G+Q82TN_US=C$:GDZN1K_M[OG#^+%Z+;X[.3L;#<=CURGYNVF5[+2Z=CML<
M<&I.%F[7!.N:(M[3X^^H1,H+_)48!993_$6.=R"T'$G'HE'T!*EDT4DI]R,A(
MO-.(JNMJC:K@4QM6!)G*DXP/J!K:;,R\>DYMXGU;=?1O)UHM=[U9+G2L\T2
MW$-+9R\=]#".M1=Q3;316&"/"I12UHH2C390;K
M-%E#PKUX#.\-,(F\:P`-T?VMHJVAUNP*H9HFQ3.AFK375PRM%:3;&]2$#HM(,
M+HO"2Q3T * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)
|