Programming/using OS/2 REXX      (echo)

                 Saturday, 16-Oct-1999 to Friday, 22-Oct-1999

+----------------------------------------------------------------------------+

From: Jonathan de Boyne Pollard                         11-Oct-99 09:24:14
  To: John Clarke                                       17-Oct-99 22:38:03
Subj: OS2CLU02 TEE command

 JC> I would appreciate it if you would email a copy of this file to me at
 JC> the email address below or point me towards a place where I can grab
 JC> it from the 'net.

From the announcement that was posted in the OS2 echo:

-------------------------------------------------------------------------------
--
WHERE TO FIND OS2CLU
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

The OS2CLU02 distribution archive (available as both OS2CLU02.ZIP and
OS2CLU02.RAR, to cater to different tastes) can be File Requested by
anyone at any time of the day from the following Fidonet nodes:

    1:109/921.0        TSR BBS in the U.S.
    2:257/609.0        Air Applewood BBS in the U.K.

It is also available on any Fidonet site around the world that carries the
Fidonet file distribution echo that is hosted by Fernwood BBS in the U.S..

It can also be found on the Hobbes FTP site run by New Mexico State
University in the U.S., and on the LEO FTP site in Germany.
-------------------------------------------------------------------------------
--

 ¯ JdeBP ®

--- FleetStreet 1.22 NR
 * Origin: JdeBP's point, using Squish <yuk!> (2:257/609.3)
45

+----------------------------------------------------------------------------+

From: David Noon                                        14-Oct-99 18:05:00
  To: Eddy Thilleman                                    17-Oct-99 22:38:03
Subj: hstart wget?

In a message dated 10-10-99, Eddy Thilleman said to David Noon about "hstart
wget?"

Hi Eddy,

DN>      IF check == 'READY:' THEN

ET>I had tried that first, but once the ':' was present and 
ET>another try the ':' was not present (with the same 
ET>syntax?), so I was confused and didn't try more.

DN>      DO WHILE STREAM(InFile,'STATE') == 'READY'

ET>But when "READY:" is returned this returnes false? But I 
ET>don't have time to investigate this now.

The 'READY:' string is returned by the STREAM() function when the second
argument is 'COMMAND' [such as 'OPEN'], whereas the 'READY' string (without
a colon) is returned when the second argument is 'STATE'.

Simple as that.

Regards

Dave
<Team PL/I>
___
 * MR/2 2.25 #353 * Use the Force, Luke... but not Windows

--- Maximus/2 3.01
 * Origin: Air Applewood, OS/2 Gateway to Essex 44-1279-792300 (2:257/609)
45

+----------------------------------------------------------------------------+

From: Steve McCrystal                                   17-Oct-99 08:26:06
  To: All                                               18-Oct-99 16:08:14
Subj: Leap year rules

;
;
All,

I remember seeing in here recently a set of rules for determining if a given
year is a leap year.  We had a discussion about it at work yesterday, and
there was considerable disagreement (not surprising!) I came home and looked
for the text (I was SURE I had saved it) but the topic has scrolled out of my
Fido message base, and IF I saved it I surely can't find it.

If it isn't too much trouble, could someone post the info again, send it to me 
netmail, or email at stevem@execpc.com?  I'd sure appreciate it!

-[Steve]-

--- GoldED/2 3.0.1/#
 * Origin: -[Steve's Place]- New Berlin, WI (FidoNet 1:154/731.2)

+----------------------------------------------------------------------------+

From: Gord Hannah                                       18-Oct-99 07:37:06
  To: Jonathan de Boyne Pollard                         18-Oct-99 22:44:06
Subj: OS2CLU02 TEE command

Replying to a message from Jonathan de Boyne Pollard 2:257/609.3 to John
Clarke,

About OS2CLU02 TEE command, On Mon Oct 11 1999

JdBP> WHERE TO FIND OS2CLU
JdBP> --------------------

JdBP> The OS2CLU02 distribution archive (available as both OS2CLU02.ZIP
JdBP> Fidonet nodes: 

JdBP>     1:109/921.0        TSR BBS in the U.S.
JdBP>     2:257/609.0        Air Applewood BBS in the U.K.

1:17/23.0 Marsh BBS (c) in Canada

Hope this helps.  Keep us posted.

We are a fine board trying to make it better.
http://www.pris.bc.ca/ghannah
ghannah@pris.bc.ca
Gord
-=Team OS/2=-
--- timEd/2 1.10.y2k+
 * Origin: Marsh BBS (c) [Dawson Creek BC Canada] 1-250-786-7921 (1:17/23.1)

+----------------------------------------------------------------------------+

From: David Noon                                        19-Oct-99 00:00:02
  To: Francois Massonneau                               19-Oct-99 00:00:02
Subj: FrontDoor/Mailser and Re

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[FT<V[OICY;;GR-8U>2SW<SF>G`(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<P&]ON@J.X&YIAJN
M8+;J_R<I<'&-K25#+`J1QXK)G.FE9.*S%F4.N]O#J&._BC&AR[PO/@O&]O<94
M._&(S4J9.8*QGTJI%Z)4+T"5X(>(,C:79D/:\NOO".##_6X7(`$K63&E>:EKG
MIO5H,*N49I42["VP-<M0,-(D!V12/F_0:;\4/%ZYAS\J48GZ3<I7?NIO#BI/%
M%<@*+-."V#!+4J%05.!@@>QD'(;BI!13+<M5N&4NPVURV=QG`E`0)(FCR+5B6
ML81)&@""T)=]=@*BF*%,+_F*R9E!)<GGN'_&$D-:$.=2F-T)+UGIHM(X'9_@%
MA2/+,3W\&"+ET%#A^7@ID)XQXXJ(:(=);;*LRI,ITN-.Z*402`J+AY5<I+\G<
M31^5$=41Y*3[PWX2\R3/\5"`\2^\3$B28C%->4E*J#:N]3",REL%`CK`*H3V'
M8*$IP\T[`2\UGB.54]"E!]!`H?K,X.B,SAG0Z`<6S8X_@1!I8&T:L>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@<I+)?
M*C<2CBN<)((6Y8;YI*,@"!)-Z-8GU0)T#D7\N(;!LB2OM,!O"^"8LFB/1":U!
M&(OR01"/2+_[2UFF,:H`_(UJN&8RP*39U@OQJ?%Y&0F27.:IY/'V.%]:`><YW
M2PJ6\TP8N2:)EFB@%,F02.$0:'>C#3)D\2"3AO:C;"`-^D6V`]45L.YOCRCI[
M*/Q!V(@F<G&%.A!NS(F!VP,'JU7^W<#`,[*EK-(8R5*/]8UU!WL*!A=.M/4>V
M697J!&VRI;-BI&N`<BY$+.(^&P*E5NXHJ(-;[['@#X()H@B1.S8B8GF<)DKC&
M/M9N92,4.JN%@17[\B7Z9#U.Y`#7/HO&R1KT:S\$?.$I^!K%P#ZF3M.W0GW'.
M;KG39S^3"XUCXO6L2E.C\2#XB2:BF2/@`<`O=Q^`7':@0^$!X,V3!]@>?X*['
M#?;_0@YM(C^QKX/\-/X-L+<[/A__<2&E]7DMY!6^B1K@:_SI)?@MZW`Z#[$U-
M]F_ZJDB?C?GK5T,(3-?Q=N%PU`0^G(P^^ER@=M/7,(*6\2+?!R_=7M?IIJ];#
M0"Y4`1"\UT<<$@^-\4K+R)+/FKK8P$%[`<2"S*41MQ80]V0";)-ZD9_&_2!^[
M3%"$5K15#PF9,_!I4V$B1[)8"/F?29K:4[5.<`]O0H(`9)SL*0BH+7@^AVS)`
M1)FXM-\^X0L,'Q#$DV.Y2*8+ML1MIQPC_$2[?1E$%V3)M[??8/94=:<T)'E:?
M.)%",*<+,;V_F(TJ$XZ"4-@T9W]:1&TPUS4=RBHG;X[+63)#'\R+(DU0%4H+9
M#.$C24.H]]$C:+:)38M1R0@T^D^N@5#HWW!_)-?6I$`!1-C@4Q!\[5,P\D2-_
M(K$(PE`CVB;&ZU,D"E`^@K3VV%F9/)C0SAL%EX(T8\\7.42*8@F623*T3\MD'
M/C5,Y$3L5C"/Y-X4QGO@L9BAW@%AC<TJ9/$VQI7T)7H<L_9BE>F"%M.7+1>__
M?G4.Q+LI+B[7S5KTY8L_5<3V4[;_`&*P3U)7R`3H8[)8F^;:!)?M+R0`?WM@F
MXO#W<KD]\9%CLP23PL(C90HP1D$#@P7YZXOX2Y*(,0YP\LF4$3.^(>S^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!<FU1"/=G`ABH
M-*[R&`,X-.&&J#^#@8V!TZB7*#TPZ2P!>PF2$&V&<RF?`><#;)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_<^1>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^*[&AX<O;;L1%88#?8W\,C=
M`PC+-K?"(NJ"/`Q)IK!_CRD,QR-E2C!@[0AJTR`:-T"G_W#Q<7AU,V%-G,"1S
M14].,09[0.,WA:V_1ZPI]Q%0H!^U1#Z"<[75CTSO'D"-&):;\.O`[!!MA:R<J
M7ZHYL!^I`]I@.P?PQQ*(]?O]"%L'EI047)*+(X*!MJ,CV4=VR4JK)!;LKE*`J
M(2PU%:98YI%&CPJRH!<NB&P!BTUA>(D6B(`Y$\3@I?$=FP`A?R_.V2[BLQN]$
M!X'X&YB(=\<'!_`'GKZ$KWYDT=%1^,JXL)^X`DD:#/X"$[[;,T(42^O\%>R]=
M<V4/MY0E^50Z6Y^1IL$S4&G'3C=:8I60^8*@?0O"!>[=/9'AQ/]3177L04UH6
M,!>00V@LXE&<J!:5QKJ:RTFH<40I+)6T_HIN?,HIN8CJ>)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:)\GGGMR<N;8R(QQY7MNVGP2KE`%[D/\N5;
M`XL5T9R::<`CA:9MXT;?GE46P>>P"J:N\0H\"MAJTAX'QLI=J,0P"V-L1P`E&
MT<=81Y.+N=0)1B\HN5.)#3(M@NJ_J7?TG.>R.X&J3DZO!Q?7F)9'-]>1E1*R0
M4H`Y``']5V`%\FC)L=)`=0</%9<!*,@V(+P7<:`FJ%?.M#I[YA@:[,ZQO'-/F
MB>H=MBL"8%;'<"&8Z:/O;!M"F=9`@`.66W#"FW<0NAT>':PU.=`#0*#Q#Z'?;
M2Z5_6F%ROAMV*7IL9P%O^G_:V4,0+9/M\,:4A^=@ZI1,@0VX@FK=O19!JL*9.
M!V_!G:3<OAQ$W<<*<F`W@\<0A8.3C$XOS\`CCR<GHPFXYB]?F,^=;5()&%`A?
MG1JD=>N8,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<X@H$J!4P<E9.<?YD=#-DF>`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!&!<C]/4&Q7D-8`K>\$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<6<2K%>[NO.8N#DI][,X-4%2)25%OE4H!5Q4!K\4#;!H25O:T<=,..T86_?>
M'C0$Z"/D")XH==\-CJ,%+*L4)AX)98FBP?K@3+9W3,>]6YDC.)1(--TIG%VJ]
M3]X0Q%LKG;C.<,$2<V4O!9D(;*-/>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
M0<J!Q@%#'.TNOC@B-N5E`^4>E9OD\34=\C,2[J9AP_>2SZAT,&HDS!FX4'XXI
M2AZ<">GP_$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<Q6>#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^"1W<O+9Z:$SMC&=)NL*NX\GYOR\^%
M#B=1\!*S";TJQ(;7A80@_@=V],YMV5GJ.AG]8_=PK\=V["JJ<AVLY;R;SE5Y!
MP]ZN6WE_5PI=0:)S$'@>6[<S$3S1PBH9IPQ/&9ITNME3YV3MI#J&Q@&\?0/_1
M&:+N>JI@V_'J])__'D]&PY-+>#S8\]4_6O;C#XTHJR[O(6JUQUJ_W]LJBWDL:
MK31A,"#=W+#297EAY^TB$@T>M!`*43+>2!CIG4-<V4B$UU`!=ON@Q,\.4?'(W
M0#SU8#&)W$R@U>'!T7<="#51:GL]<V('Y=C4&]UCN`Q3?[10P/EDBM0MTE7K+
M.HQ%#Z<Y],0BE1&$T0=G!R?1KYW8M?%KD`V$M9"Y$FL7;UY(BJ[MNDFR$*GTW
MVS]"%W=SGTB#QAS9MA'M3B+]48$?>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?<[$.:Q#$/CN9$>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&"/"I12UH<C669(]5I4HV%DI=4E9#:%>H2C390;K
M-%E#PKUX#.\-,(F\:P`-T?VMHJVAUNP*H9HFQ3.AFK375PRM%:3;&]2$#HM(,
M+HO"2Q3T<RUL)!DK]?^KQO^1A?P/4$L!`A0`%``"``@`$Z12)X\F2<#;$0``J
M1CT```H``````````0`@`````````$1)04Q54"Y#34102P4&``````$``0`X*
)`````Q(`````Y
``
end
size 4689
============================================================================

Regards

Dave
<Team PL/I>
___
 * MR/2 2.25 #353 * Barney eaten by Jurassic Park raptor. Millions rejoice!

--- Maximus/2 2.02
 * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)


+----------------------------------------------------------------------------+

From: David Noon                                        19-Oct-99 00:00:03
  To: Murray Lesser                                     19-Oct-99 00:00:03
Subj: Rxprep

In a message dated 10-15-99, Murray Lesser said to David Noon about "Rxprep"

Hi Murray,

ML>    Do you have any comments, helpful or otherwise, about RXPREP?

I have not installed it, so I cannot give any first-hand comments about it.

ML>  languages. The pre-processor is controlled by coding directives within
ML>  the REXX source which have a syntactical resemblance to those of the
ML>  SCRIPT language."

Using SCRIPT mark-ups! Now there is a user-friendly concept.

ML>    (For those in the audience who are not familiar with IBM utilities
ML>other than those furnished with OS/2, "SCRIPT" was a mainframe internal
ML>IBM markup language for formatting documents written with any
ML>lime-by-line text editor (often SPF).  There was a vintage-1986
ML>IBM-distributed shrink-wrapped version, SCRIPT/PC, for PC-DOS.)

In fact, SCRIPT was developed at the University of Waterloo, Ontario, in the
early 1970's. It appeared on DEC PDP-11 and Honeywell/GE machines as RUNOFF,
but was called SCRIPT/370, later SCRIPT/VS, later DCF, on IBM systems.
Anybody who has prepared IPF help and documentation files under OS/2 will
have some idea, as SCRIPT uses similar mark-ups to IPFC.

ML>    A cursory reading of RXPREP.DOC leads me to the belief that the
ML>advantages of a REXX preprocessor (even though it is free!) are not
ML>great enough for me bothering to learn yet another language just to use
ML>it, so I do not intend to install RXPREP.  But I may be missing
ML>something.  Your comments would be appreciated.

It appears to be a sort of macro processor. These are usually of limited
usage in interpreted languages, as the run-time is dynamic anyway. However,
one thing that is missing from Classic REXX is the inclusion of externalized
source text. This allows one to write "canned" code that can have several
entry points, and simply include it wherever it is needed and call those
routines when required. Since the ::REQUIRES directive does this in Object
REXX already, I have no need for an alternative means of so doing.

Regards

Dave
<Team PL/I>
___
 * MR/2 2.25 #353 * "Eat FLAMING DEATH, minicomputer mongrels!" ... CPU Wars

--- Maximus/2 2.02
 * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)


+----------------------------------------------------------------------------+

From: John Clarke                                       20-Oct-99 06:57:10
  To: Jonathan de Boyne Pollard                         21-Oct-99 21:51:25
Subj: OS2CLU02 TEE command

On Oct 11, 1999 at 09:24 hrs, Jonathan de Boyne Pollard of 2:257/609.3 wrote
to John Clarke:

Hello Jonathan,

JC>> I would appreciate it if you would email a copy of this file to me at
JC>> the email address below or point me towards a place where I can grab
JC>> it from the 'net.

 JdBP> From the announcement that was posted in the OS2 echo:

 JdBP> -------------------------------------------------------------------
 JdBP> WHERE TO FIND OS2CLU
 JdBP> ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ

Thanks.  I downloaded a copy from Hobbes.


Regards ... John

Email: jclarke@zip.com.au

--- MsgedSQ/2 3.30
 * Origin: The Clearing House (3:713/730)

+----------------------------------------------------------------------------+

From: Francois Massonneau                               22-Oct-99 00:00:00
  To: David Noon                                        22-Oct-99 00:00:00
Subj: FrontDoor/Mailser and Re

Hello David!

Replying to a message of David Noon to Francois Massonneau:
First, thank you. It's a great help.
Arghh, I received your message half an hour ago, and I must leave in an
hour. I do not have time to test it. When I'm back, I will test it.

1) The first runs gave me some problems, but I guess I found the culprit.
Here you wrote :
    /* Now we check that incoming mail delivery has completed.*/
    /* by checking for the presence of *.spl in the spool directory.*/
    call LogMsg 'waiting for Incoming mail delivery to complete ...'
    do forever
      call SysFileTree SpoolDir||'\*.spl', 'files.', 'FO'
      if files.0 > 0 then
        leave
      call LogMsg 'now waiting for 30 seconds ...'
      call SysSleep 30  /* We wait a little bit for the server to send the
            mail */
    end
    say 'Incoming mail delivery complete.'
    call LogMsg 'incoming mail delivery complete ...'

But it was a forever loop, as file.0 is always equal to zero if there is
no file in the Spooldir Directory ?
I changed the "if files.0 > 0 then", to "if files.0 == 0 then"
I have now :
    call LogMsg 'waiting for Incoming mail delivery to complete ...'
    do forever
      call SysFileTree SpoolDir||'\*.spl', 'files.', 'FO'
      if files.0 == 0 then                    <----- Here I changed it
        leave
      call LogMsg 'now waiting for 30 seconds ...'
      call SysSleep 30  /* We wait a little bit for the server to send the
       mail */
    end

Is it correct ?

2) As this Rexx script must be run from an errorlevel created by Frontdoor,
then give the hand back to it, I changed the beginning and the end that way :
I added that :
SemaFile = 'inetmail'
SemaMailer = SemaforeDir||'\'SemaFile    /* Name, Drive and Directory of the
                                   semafore file you */
                                          /* want the script to create once
                                       it has run */

HwaitProgram = 'hwait /s:'  /* Program to send a semafore file to Hwait */
PathofHwait = 'e:\os2tools\hstart\'
SendHwaitSignal = PathofHwait||HwaitProgram||SemaFile

I removed the "do forever" at the beginning and the "end" at the end of
the script.

And finally I removed those lines :
  call SysSleep SleepTime
  call stream SemaMailer, 'c', 'open write'
  call lineout SemaMailer, 'inetmail semafore file'
  call stream SemaMailer, 'c', 'close'
And put the following instead :
 /* Now it's time to create the semafore file your mailer is waiting */
  SendHwaitSignal

3) At the end of the script, I saw you write two times (one before and one
after the subroutine "StopDialler"), the following lines :
  /* Reset elapsed time counter */
  CALL TIME 'R'
RETURN
I suppose one is for the subroutine StartDialler, and the second one is for
the subroutine StopDialler. Is it a code to give the time on line ? If so,
where in the log file do I find it ??
I've find the following line "Dialler, disconnected after 0 seconds", but
it's not the time online. Eg. this is part of the log file generated :
22 Oct 1999 08:25:47  Started dialup up process ...
22 Oct 1999 08:25:47  Stopping the Internet Dialer ...
22 Oct 1999 08:25:47  dialer, if running, is killed.
22 Oct 1999 08:25:47  Dialler disconnected after 0 seconds.
22 Oct 1999 08:25:47  inetmail, if running, is killed.
22 Oct 1999 08:25:47  pop3d process, if running, is killed.
22 Oct 1999 08:25:47  smtpd process, if running, is killed.
22 Oct 1999 08:25:49  Starting the Internet Dialer ...
22 Oct 1999 08:26:50  warning ! no connection yet, wait, then test again...
22 Oct 1999 08:26:55  We can resolve hostnames, connection is up...
22 Oct 1999 08:26:55  InetMail, Pop3d and Smtpd are started...
22 Oct 1999 08:26:56  Starting of the PingServer procedure ...
22 Oct 1999 08:26:59  deleting the outgoing Mail Queue Flag.
22 Oct 1999 08:26:59  . sending the ETRN signals ...
22 Oct 1999 08:27:10  sleeping for 30 seconds ...
22 Oct 1999 08:27:40  waiting for queue delivery to complete ...
22 Oct 1999 08:32:54  queue delivery complete ...
22 Oct 1999 08:32:54  waiting for Incoming mail delivery to complete ...
22 Oct 1999 08:32:54  incoming mail delivery complete ...
22 Oct 1999 08:32:54  recreating the noqueue flag file.
22 Oct 1999 08:32:54  Hanging up ...
22 Oct 1999 08:32:54  dialer, if running, is killed.
22 Oct 1999 08:32:54  Dialler disconnected after 0 seconds.
22 Oct 1999 08:32:55  inetmail, if running, is killed.
22 Oct 1999 08:32:55  pop3d process, if running, is killed.
22 Oct 1999 08:32:55  smtpd process, if running, is killed.
22 Oct 1999 08:32:57  End of the script

So the time on line is not 0 second, but about 8 minutes.

4) From time to time Injoy (the dialler), gives me problems as I said
 in my previous message and hang up while connected. Sometimes it
restarts by itself (using the Dial on Demand), but sometimes no ;-(
- Things can stay forever that way : the rexx script is waiting for
a command to complete for example, the dialler waits, and if nobody
is at the keyboard, it will stay waiting.
Is there a way to check what's going on with the dialler, and if
something goes wrong, then kill everything (the batch file that
runs the node from which that rexx script is started, the rexx
script itself, and all the related applis that are running
(Inetmail, the pop3d and smtpd processes, and the dialler), and
restart the BBS node ? Maybe the Rexx script could start another
 rexx script to check what's going on ??

Again, a huge thank you.

Bye, Francois!


Email: fmas@celtes.com
Web  : http://www.worldnet.net/~island/
___
 X OLX 2.1 TD X   (fmas@celtes.com - http://www.worldnet.fr/~island/)

--- Maximus/2 2.02
 * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)


+----------------------------------------------------------------------------+

From: Francois Massonneau                               22-Oct-99 00:00:00
  To: David Noon                                        22-Oct-99 00:00:00
Subj: FrontDoor/Mailser and Re

Hi David,

I saw another problem (a small one ;-) )
A dialuplogfile file is created in my OS2 root directory, and in it, I
have all the messages generated by the procedures defined at the end of
the script.
For example, the following lines of code of the "PingServer" procedure :
PingServer:
procedure
  call LogMsg 'PingServer starting'
Are written in this E:\DIALUPLOGFILE file instead of the log file
specified for the LogMsg procedure (F:\INETMAIL\DIALUP.LOG)
So to summarize, each "call LogMsg '.....'" line of the main code of the
rexx script are written in the right log file, and each "call LogMsg
'...'" line contained in the procedures are written in another log file.
Francois
___
 X OLX 2.1 TD X   (fmas@celtes.com - http://www.worldnet.fr/~island/)

--- Maximus/2 2.02
 * Origin: OS/2 Shareware BBS, telnet://bbs.os2bbs.com (1:109/347)


+----------------------------------------------------------------------------+

From: Jonathan de Boyne Pollard                         20-Oct-99 09:16:21
  To: Steve McCrystal                                   22-Oct-99 23:30:01
Subj: Leap year rules

 SM> I remember seeing in here recently a set of rules for determining if a
 SM> given year is a leap year.  We had a discussion about it at work
 SM> yesterday, and there was considerable disagreement (not surprising!)
 SM> I came home and looked for the text (I was SURE I had saved it) but
 SM> the topic has scrolled out of my Fido message base, and IF I saved it
 SM> I surely can't find it.

Julian Calendar 
---------------

(Created at the order of Gaius Julius Caesar and adopted around 8BCE.)

A year is a leap year if evenly divisible by 4.

All '00 years, including 1900 and 2000, are leap years under this system.

        isjulianleap: procedure
            parse arg y
            return (y // 4) == 0

Gregorian Calendar 
------------------

(Created at the order of Pope Gregory XIII and adopted by the Roman Catholic
Christian church in 1582CE, and in Protestant countries some time later --
1752CE in Britain and its Dominions, for example.)

A year is a leap year if
    (a) it is not evenly divisible by 100 but is evenly divisible by 4,
    (b) it is evenly divisible by 100 and also evenly divisible by 400.

2000, 2400, and 2800 are leap years under this system, but 1900 and 2900 are
not.

        isgregorianleap: procedure
            parse arg y
            if (y // 100) \= 0 then 
                return (y // 4) == 0
            else
                return (y // 400) == 0

Revised Julian Calendar
-----------------------

(Created at the order of the General Synod and adopted by the Eastern Orthodox 
Christian church in 1921.)

A year is a leap year if
    (a) it is not evenly divisible by 100 but is evenly divisible by 4,
    (b) it is evenly divisible by 100 and the remainder when divided
        by 900 is either 200 or 600.

2000, 2400, and 2900 are leap years under this system, but 1900 and 2800 are
not.

        isrevisedjulianleap: procedure
            parse arg y
            if (y // 100) \= 0 then 
                return (y // 4) == 0
            else
                return ((y // 900) == 200) | ((y // 900) == 600)

Of the three, the Revised Julian Calendar produces a Mean Calendar Year length 
that is closest to the current length of the Mean Solar Year.  Keeping the two 
the same length is, of course, the whole point of the intercalation of extra
days ("leap days").

 ¯ JdeBP ®

--- FleetStreet 1.22 NR
 * Origin: JdeBP's point, using Squish <yuk!> (2:257/609.3)

+----------------------------------------------------------------------------+

+============================================================================+