Just to distract you guys from your re-entrant and functional
programming discourse, here's the second iteration of my reminder
script. It's been working since yesterday paging me on my cell phone at
the right times so seems to work. It should cover instances where I
have reminders that are weekly, monthly, one off that all occur at the
same time.
There are a couple of things I had to work round as I didn't know how to
1. wait for a specific time, 2. read a line from mail/content. I would
also prefer to do without the quotes around days of the week and months.
Suggestions and fixes welcomed.
[ Section: 1/1 File: remind.r UUencoded by: Turnpike Integrated Version 4.02 U ]
begin 644 remind.r
M4F5B;VP@6PT*("`@(%1I=&QE.B`@(D-E;&QP:&]N92!R96UI;F1E<B(-"B`@
M("!&:6QE.B`@("5R96UI;F0N<@T*("`@($%U=&AO<CH@(D=R86AA;2!#:&EU
M(@T*("`@($5M86EL.B`@9V-H:75`8V]M<&MA<F]R:2YC;RYN>@T*("`@($1A
M=&4Z("`@-"U$96,M,3DY.0T*"4QE9G1S.B!'3E4-"B`@("!697)S:6]N.B`P
M+C(-"B`@("!0=7)P;W-E.B![#0H@("`@("`@(%)E861S(&$@9FEL92`G9&%T
M82YT>'0G(&-O;G1A:6YI;F<@87!P;VEN=&UE;G0@9&%T82P@86YD('-E;F1S
M(`T*"0EM>2!C96QL('!H;VYE(&$@=&5X="!M97-S86=E(#4@;6EN=71E<R!B
M969O<F4@=&AE(&%P<&]I;G1M96YT+@T*("`@('T-"@E);G-P:7)A=&EO;CH@
M>R!-:7-S:6YG('1H92!S96-O;F0@<&%R="!O9B!A('1W;R!P87)T(%-T87(@
M5')E:R!6;WEA9V5R(`T*"0EE<&ES;V1E(&)E8V%U<V4@22!T=6YE9"!I;G1O
M('1H92!W<F]N9R!C:&%N;F5L('=A<R!T:&4@;6]T:&5R(&]F#0H)"71H:7,@
M<V-R:7!T+B!]#0H)0V]M;65N=#H@>PT*"0E4:&4@9&%T82YT>'0@9FEL92!C
M86X@8F4@;6%N=6%L;'D@=7!D871E9"P@8G5T("=R96UI;F0G(&%L<V\@<&]L
M;',@80T*"0EP;W`@;6%I;"!B;W@@9&%I;'D@9F]R(&UE<W-A9V5S('=I=&@@
M)V%D9"<@:6X@=&AE('-U8FIE8W0@;&EN92X-"@D)268@<')E<V5N="P@:70@
M87!P96YD<R!T:&4@9FER<W0@;&EN92!O9B!T:&4@;65S<V%G92!B;V1Y(`T*
M"0ET;R!T:&4@9&%T82YT>'0@9FEL92X-"@T*"0ED871A(&]C8W5R<R!I;B!T
M:&4@9F]L;&]W:6YG(&9O<FUA="!P97(@;&EN90T*#0H)"7!E<FEO9"!T:6UE
M(&1E<V-R:7!T:6]N(`T*#0H)"7!E<FEO9"`H('1H97)E(&%R92!N;R!D86EL
M>2!R96UI;F1E<G,@+2!U<V4@>6]U<B!B<F%I;B$@*0T*"0DM('=E96MD87DL
M('1H96X@:7,@82!W965K;'D@<F5M:6YD97(-"@D)+2!D87DL('1H96X@:7,@
M82!M;VYT:&QY(')E;6EN9&5R#0H)"2T@;6]N=&@L('1H96X@:7,@82!Y96%R
M;'D@<F5M:6YD97(-"@D)+2!D871E+"!T:&5N(&ES(&$@;VYE(&]F9B!R96UI
M;F1E<@T*#0H)"71I;64-"@D):7,@82!T:6UE('-T<FEN9RP@;W(@:6X@=&AE
M(&-A<V4@;V8@>65A<FQY(')E;6EN9&5R<RP@82!D87D@;V8@=&AE#0H)"6UO
M;G1H+B`@5VET:"!Y96%R;'D@<F5M:6YD97)S+"!T:&4@;65S<V%G92!I<R!S
M96YT(&%T(#@@86TN#0H-"@E4:&4@9F]L;&]W:6YG(&ES('-A;7!L90ED871A
M+@T*#0H)(D9R:61A>2(@,3DZ,S`@(D9A<G-C87!E($-H,B(-"@DR,"`Y.C`P
M('M005E%(')E='5R;G-]#0H)(D1E8V5M8F5R(B`R-2![6&UA<R!I<R!C;VUI
M;F=]#0H),2\Q+S(P,#`@.3HP,"![3F5W($UI;&QE;FEU;3]]#0H),2\Q+S(P
M,#[email protected],"![06YO=&AE<B!.97<@36EL;&5N:75M/WT-"@DB5&AU<G-D87DB
M(#$X.C`P('M.97=S($-H,7T-"@DB4V%T=7)D87DB(#$X.C`P(")W965K;'D@
M=&5S="(-"@T*"30M1&5C+3DY(#$Y.C`P('MO;F4@;V9F('1E<W1]#0H)-"`Q
M.#HP-"![;6]N=&AL>2!T97-T?0T*"2)$96-E;6)E<B(@-"![86YN=6%L('1E
M<W1]#0H)(D9E8G)U87)Y(B`S,"![5VEL;"!T:&ES(&-H;VME/WT)#0H)(DIA
M;G9I97(B(#$@>U1E<W0@97)R;W(@8V]N9&ET:6]N?0T*#0H)?0T*70T*#0IS
M96-U<F4@;F]N90T*#0ID;R`E;7EC96QL<&AO;F4N<@T*#0H[('5N8V]M;65N
M="!T:&ES(&EF('EO=2!J=7-T('=A;G0@=&\@=&5S=`T*.R!C86QL+6-E;&QP
M:&]N93H@9G5N8R!;;65S<V%G95T@6PT*.PEP<FEN="!J;VEN(")#96QL<&AO
M;F4Z(&%T("(@6R!N;W<@(B`B(&UE<W-A9V4@70T*.R!=#0H-"G=E96MD87DZ
M(%LB36]N9&%Y(B`B5'5E<V1A>2(@(E=E9&YE<V1A>2(@(E1H=7)S9&%Y(B`B
M1G)I9&%Y(B`B4V%T=7)D87DB(")3=6YD87DB(%T-"FUO;G1H<SH@6R`B2F%N
M=6%R>2(@(D9E8G)U87)Y(B`B36%R8V@B(")!<')I;"(@(DUA>2(@(DIU;F4B
M(")*=6QY(B`B075G=7-T(B`-"@DB4V5P=&5M8F5R(B`B3V-T;V)E<B(@(DYO
M=F5M8F5R(B`B1&5C96UB97(B(%T-"@T*=V5E:VQY/SH@9G5N8R!;<&5R:6]D
M72!;9FEN9"!W965K9&%Y('!E<FEO9%T-"@T*;6]N=&AL>3\Z(&9U;F,@6W!E
M<FEO9%T@6PT*"65I=&AE<B!I;G1E9V5R/R!P97)I;V0@6PT*"0EI9B`H("@@
M<&5R:6]D(#X@,"`I(&%N9"`H('!E<FEO9"`\(#,R*2D@6W1R=65=(`T*"5U;
M#0H)"69A;'-E#0H)72`-"ET-"@T*>65A<FQY/SH@9G5N8R!;<&5R:6]D72!;
M9FEN9"!M;VYT:',@<&5R:6]D70T*#0IO;F5O9F8_.B!F=6YC(%MP97)I;V1=
M(%L-"@ET97-T9'0Z('!E<FEO9`T*"65I=&AE<B!E<G)O<C\@=')Y(%MT;RUD
M871E('1E<W1D=%T@6V9A;'-E75MT<G5E70T*70T*#0IW965K;'DM=&]D87D_
M.B!F=6YC(%MP97)I;V1=(%L-"@EP97)I;V0@/2!P:6-K('=E96MD87D@;F]W
M+W=E96MD87D-"ET-"@T*;6]N=&AL>2UT;V1A>3\Z(&9U;F,@6W!E<FEO9%T@
M6PT*"7!E<FEO9"`](&YO=R]D87D@#0I=#0H-"F]N96]F9BUT;V1A>3\Z(&9U
M;F,@6W!E<FEO9%T@6PT*"71E<W1D=#H@<&5R:6]D#0H);F]W+V1A=&4@/2!T
M;RUD871E('1E<W1D=`T*70T*#0IY96%R;'DM=&]D87D_.B!F=6YC(%MM;VYT
M:"!D87E=(%L-"@DH(&UO;G1H(#T@<&EC:R!M;VYT:',@;F]W+VUO;G1H("D-
M"@D)86YD#0H)*"!D87D@/2!N;W<O9&%Y("D-"ET-"@T*<&%R<V4M9&%T83H@
M6PT*"69O<F5A8V@@6W!E<FEO9"!P=&EM92!D97-C<FEP=&EO;ET@9&%T869I
M;&4@6PT*"0EE:71H97(@=V5E:VQY/R!P97)I;V0@6PT*"0D):68@=V5E:VQY
M+71O9&%Y/R!P97)I;V0@6PT*"0D)"6%P<&5N9"!D871A8FQO8VL@<F5D=6-E
M(%MP=&EM92!D97-C<FEP=&EO;ET-"@D)"5T-"@D)75L-"@D)"65I=&AE<B!M
M;VYT:&QY/R!P97)I;V0@6PT*"0D)"6EF(&UO;G1H;'DM=&]D87D_('!E<FEO
M9"!;#0H)"0D)"6%P<&5N9"!D871A8FQO8VL@<F5D=6-E(%MP=&EM92!D97-C
M<FEP=&EO;ET-"@D)"0E=#0H)"0E=6PT*"0D)"65I=&AE<B!Y96%R;'D_('!E
M<FEO9"!;#0H)"0D)"6EF('EE87)L>2UT;V1A>3\@<&5R:6]D('!T:6UE(%L-
M"@D)"0D)"6%P<&5N9"!D871A8FQO8VL@<F5D=6-E(%LX.C`P(&1E<V-R:7!T
M:6]N70T*"0D)"0E=#0H-"@D)"0E=6PT*"0D)"0EE:71H97(@;VYE;V9F/R!P
M97)I;V0@6PT*"0D)"0D):68@;VYE;V9F+71O9&%Y/R!P97)I;V0@6PT*"0D)
M"0D)"6%P<&5N9"!D871A8FQO8VL@<F5D=6-E(%MP=&EM92!D97-C<FEP=&EO
M;ET-"@D)"0D)"5T-"@D)"0D)75L-"@D)"0D)"7!R:6X@6W!E<FEO9"!P=&EM
M92!D97-C<FEP=&EO;B!=#0H)"0D)"0EP<FEN="!J;VEN("(B(%L@(B`J*F1A
M=&$@97)R;W(@+2!U;G)E8V]G;FES960@<&5R:6]D("<B('!E<FEO9"`B)R!I
M;B!T:&4@9&%T82YT>'0B(%T-"@D)"0D)70T*"0D)"5T-"@D)"5T-"@D)70T*
M"5T-"@ES;W)T+W-K:7`@9&%T86)L;V-K(#(-"ET-"@T*<V5N9"UM97-S86=E
M<SH@6PT*"69O<F5A8V@@6W-T:6UE(&UE<W-A9V5=(&1A=&%B;&]C:R!;#0H)
M"65I=&AE<B`H;F]W+W1I;64@*R`P,#HP-2D@/B!S=&EM92!;#0H)"0D[(&QE
M<W,@=&AA;B`U(&UI;G,@=&\@<V-H961U;&5D(&5V96YT(&]R#0H)"0D[(&%L
M<F5A9'D@<&%S="!T:&4@979E;G0@+2!S;R!G;R!F;W(@:70-"@D)"6-A;&PM
M8V5L;'!H;VYE(&UE<W-A9V4-"@D)75L-"@D)"7=A:70@*"!S=&EM92`M(&YO
M=R]T:6UE("T@,#`Z,#4@*0T*"0D)8V%L;"UC96QL<&AO;F4@;65S<V%G90T*
M"0E=#0H)70T*70T*#0IW86ET+71I;&PM,F%M.B!;#0H)96ET:&5R(&YO=R]T
M:6UE(#P@,CHP,"!;#0H)"7=A:70@*"`R.C`P("T@;F]W+W1I;64@*0T*"5U;
M#0H)"7=A:70@*"`R-#HP,"`M(&YO=R]T:6UE("L@,CHP,"`I#0H)70T*70D-
M"@T*9V5T+6YE=RUM97-S86=E<SH@6R`-"@ED;R!W86ET+71I;&PM,F%M#0H)
M:6YB;W@Z(&]P96X@;&]A9"`E<&]P<W!E8RYR("`[9FEL92!C;VYT86EN<R!0
M3U`@96UA:6P@8F]X(&EN9F\-"@ER96UO=F4M;6%I;#H@=')U90T*#0H)=VAI
M;&4@6VYO="!T86EL/R!I;F)O>%T@6PT*("`@(`EM86EL.B!I;7!O<G0M96UA
M:6P@;65S<V%G93H@9FER<W0@:6YB;W@-"@D)<')I;G0@;6%I;"]S=6)J96-T
M#0H@("`@"7!R:6YT(&UA:6PO8V]N=&5N=`T*#0H)"7-U8FIE8W0Z('1R:6T@
M;6%I;"]S=6)J96-T#0H)"6EF('-U8FIE8W0@/2`B861D(B!;#0H)"0EW<FET
M92`E;6%I;"YT>'0@;6%I;"]C;VYT96YT"0D[('1H97)E(&UU<W0@8F4@86X-
M"@D)"71E>'0Z(&9I<G-T(')E860O;&EN97,@)6UA:6PN='AT"3L@96%S:65R
M('=A>2!T;R!D;R!T:&ES(0T*"0D)=&5X=#H@:F]I;B!T97AT(&YE=VQI;F4-
M"@D)"7=R:71E+V%P<&5N9"`E9&%T82YT>'0@=&5X=`T*"0E=#0H@("`@96ET
M:&5R(')E;6]V92UM86EL(%MR96UO=F4@:6YB;WA=6VEN8F]X.B!N97AT(&EN
M8F]X70T*"5T-"@T*"6-L;W-E(&EN8F]X#0I=#0H-"G)E;6EN9#H@6PT*"7!R
M:6YT(")296UI;F1E<B!N;W<@86-T:79E("XN+B(-"@EF;W)E=F5R(%L-"@D)
M9&%T869I;&4Z(&QO860@)61A=&$N='AT"3L@9V5T('1H92!N97<@9&%T82!E
M86-H(&1A>0T*"0ED871A8FQO8VLZ(&UA:V4@8FQO8VLA(#$P,"`).R!R96EN
M:71I86QI<V4@=&AE(&1A=&$@8FQO8VL@96%C:"!D87D-"@D)9&\@<&%R<V4M
M9&%T82`)"0D).R!G970@=&AE(&5V96YT<R!S8VAE9'5L960@9F]R('1O9&%Y
M#0H)"61O('-E;F0M;65S<V%G97,@"0D).R!S96YD(&%L;"!T:&4@;65S<V%G
M97,-"@D)9&\@9V5T+6YE=RUM97-S86=E<PD)"3L@;&]O:R!F;W(@;F5W(&1A
K=&$L(&%N9"!C:&%N9V4@=&AE(&1A=&$N='AT(&9I;&4-"@E=#0I="0D-"@``
`
end
sum -r/size 58088/6597 section (from "begin" to "end")
sum -r/size 53552/4768 entire input file
-------
Regards, Graham Chiu
gchiu<at>compkarori.co.nz
http://www.compkarori.com/dynamo - The Homebuilt Dynamo
http://www.compkarori.com/dbase - The dBase bulletin
