In article <19991129005924.QBMP1752249.mta2-rme@andrew>,
[EMAIL PROTECTED] writes
>Can you post your script to the list (if it's really ugly), or to
>REBOL.org (if it's not too ugly), please?
>
>Andrew Martin
I'll post here as it really needs redoing. In Andrew Grossman's
cookies-client.r script on Rebol.org, his main word http-cookie took a
block of name value pairs and sent them to a url as url-encoded cookies.
I copied the word definition so that there are three words with slightly
different functions.
tmp: http-get url [ name1 cookie1 name2 cookie2 .. ] - which fetches the
page specified by url as well as sending the cookies in the header.
This word is untested.
tmp: http-post url [ name1 value1 name2 value2 .. ] - which posts the
name/value pairs to the form at url. No cookies are sent, but up to 2
cookies sent back are saved in a global variable cookie-data, and the
other one in tmp/set-cookie
tmp: http-post-cookie url [ name1 value1 name2 value2 .. ] - which posts
the name/value pairs to the form at url. Cookies saved in cookie-data,
and in cookie-data2 in url-encoded format are sent as part of the
header. Cookies returned are saved.
It would be nice if one of the experts here could fold these words back
into a single word - they share 99% of the same code!
MTNSMS' webserver gave a 500 error when I sent them an empty cookie:
header hence the workround making two words.
[ Section: 1/1 File: cookies-client.r UUencoded by: Turnpike Integrated Version 4.02 U
]
begin 644 cookies-client.r
M4D5"3TP@6PH@("`@5&ET;&4Z("`B0V]O:VEE($-L:65N="(*("`@($9I;&4Z
M("`@)6-O;VMI97,M8VQI96YT+G(*("`@($%U=&AO<CH@6R)-87)T:6X@2F]H
M86YN97-S;VXB(")!;F1R97<@1W)O<W-M86XB(")'<F%H86T@0VAI=2(@70H@
M("`@16UA:6PZ("!;(&=R;W-S9&]G0&1A<G1M;W5T:"YE9'4@9V-H:75`8V]M
M<&MA<F]R:2YC;RYN>B!="B`@("!$871E.B`@(%L@,#4M075G+3$Y.3D@,C8M
M3F]V+3$Y.3D@70H@("`@"B`@("!0=7)P;W-E.B!["B`@("`@("`@5&\@9W)A
M8B!C;V]K:65S(&9R;VT@=&AE('-E<G9E<B!A;F0@<&]S="!F;W)M(&1A=&$N
M"B`@("!]"B`@("!.;W1E<SH@("!["B`@("`@("`@36]D:69I8V%T:6]N(&]F
M($%N9')E=R!'<F]S<VUA;B=S(&-O;VMI97,M8VQI96YT('-C<FEP="!B>2!'
M<F%H86T@0VAI=2X@"B`@("`@("`@36]D:69I8V%T:6]N(&]F($UA<G1I;B!*
M;VAA;FYE<W-O;B=S(%!/4U0@<V-R:7!T(&)Y($%N9')E=R!'<F]S<VUA;BX*
M("`@("`@("!/<FEG+B!A=F%I;&%B;&4@870@=W=W+G)E8F]L+F-O;2!I;B!U
M<V5R<R<@;&EB<F%R>2X*("`@('T*("`@(%5S86=E.B`@('L*"51H97)E(&%R
M92!T:')E92!W;W)D<R!H97)E('=H:6-H(&%R92!V97)Y('-I;6EL87(@:6X@
M9G5N8W1I;VX*"4A45%`M1T54"B`@("`@("`@5&\@9F5T8V@@82!W96(@<&%G
M92!T:&%T(')E<75I<F5S(&$@8V]O:VEE(&]F(&YA;64@(F9O;R(@86YD('9A
M;'5E(")B87(B.@H*("`@("`@(`ET;7`Z(&AT='`M9V5T(&AT='`Z+R]S97)V
M97(N8V]M+W!A9V4N:'1M;"!;(F9O;R(@(F)A<B)="@H@("`@("`@(%1O('9I
M97<@=&AE(')E<W5L=&EN9R!P86=E.@H@("`@("`@("`@("!P<FEN="!T;7`O
M8V]N=&5N=`H)268@;F\@8V]O:VEE(&ES(')E<75I<F5D+"!U<V4@86X@96UP
M='D@;&ES="!A<R!T:&4@<&%R86UE=&5R"B`@("`@("`@=&UP.B!H='1P+6=E
M="!H='1P.B\O<V5R=F5R+F-O;2]P86=E+FAT;6P@6UT*"@E(5%10+5!/4U0*
M"51O('!O<W0@=F%L=65S('1O(&$@=V5B(&9O<FT@=&AA="!D;V5S(&YO="!R
M97%U:7)E(&-O;VMI97,@<V5T"@H@("`@("`@('1M<#H@:'1T<"UP;W-T(&AT
M='`Z+R]S97)V97(N8V]M+W!A9V4N:'1M;"!;(FYA;64Q(B`B=F%L=64Q(B`B
M;F%M93(B(")V86QU93(B("XN+B!="@H)3F]T92!T:&%T('1H92!N86UE(&%N
M9"!V86QU97,@<&%I<G,@=VEL;"!B92!U<FP@96YC;V1E9"!B>2!H='1P+7!O
M<W0*"4EF(&-O;VMI97,@87)E(')E='5R;F5D+"!T:&5N(&]N92!I<R!P;&%C
M960@:6YT;R!C;V]K:64M9&%T82P@86YD('1H92!O=&AE<B!I<PH)86-C97-S
M:6)L92!A<R!T;7`O<V5T+6-O;VMI90H*"4A45%`M4$]35$,*"51O('!O<W0@
M=F%L=65S('1O(&$@=V5B(&9O<FT@=&AA="!R97%U:7)E<R!C;V]K:65S('-E
M=`H*"5!R97-E="!T:&4@8V]O:VEE<R!V86QU97,@:6X@9VQO8F%L('9A<FEA
M8FQE<R!C;V]K:64M9&%T82P@8V]O:VEE+61A=&$R"@H@("`@("`@('1M<#H@
M:'1T<"UP;W-T8R!H='1P.B\O<V5R=F5R+F-O;2]P86=E+FAT;6P@6R)N86UE
M,2(@(G9A;'5E,2(@(FYA;64R(B`B=F%L=64R(B`N+BX@70H*"4YO=&4@=&AA
M="!T:&4@;F%M92!A;F0@=F%L=65S('!A:7)S('=I;&P@8F4@=7)L(&5N8V]D
M960@8GD@:'1T<"UP;W-T+"!A;F0@=&AE(`H)8V]O:VEE<R!M=7-T(&)E('!R
M92UU<FQE;F-O9&5D+@H)268@8V]O:VEE<R!A<F4@<F5T=7)N960L('1H96X@
M;VYE(&ES('!L86-E9"!I;G1O(&-O;VMI92UD871A+"!A;F0@=&AE(&]T:&5R
M(&ES"@EA8V-E<W-I8FQE(&%S('1M<"]S970M8V]O:VEE"B`@("!]"B`@("!#
M871E9V]R>3H@6W=E8B!U=&EL:71Y70I=(`H*8V]O:VEE+61A=&$Z("(B"F-O
M;VMI92UD871A,CH@(B(*"G5R;"UE;F-O9&4Z(&9U;F,@6PH@("`@>U523"UE
M;F-O9&4@82!S=')I;F=]"B`@("!D871A(")3=')I;F<@=&\@96YC;V1E(@H@
M("`@+VQO8V%L(&YE=RUD871A"EU;"B`@("!N97<M9&%T83H@;6%K92!S=')I
M;F<A("(B"B`@("!N;W)M86PM8VAA<CH@8VAA<G-E="!;"B`@("`@("`@(R)!
M(B`M(",B6B(@(R)A(B`M(",B>B(*("`@("`@("`C(D`B(",B+B(@(R(J(B`C
M(BTB(",B7R(*("`@("`@("`C(C`B("T@(R(Y(@H@("`@70H@("`@:68@;F]T
M('-T<FEN9S\@9&%T82!;<F5T=7)N(&YE=RUD871A70H@("`@9F]R86QL(&1A
M=&$@6PH@("`@("`@(&%P<&5N9"!N97<M9&%T82!E:71H97(@9FEN9"!N;W)M
M86PM8VAA<B!F:7)S="!D871A(%L*("`@("`@("`@("`@9FER<W0@9&%T80H@
M("`@("`@(%U;"B`@("`@("`@("`@(')E:F]I;B!;(B4B('1O+7-T<FEN9R!S
M:VEP('1A:6P@*'1O+6AE>"!T;RUI;G1E9V5R(&9I<G-T(&1A=&$I("TR70H@
M("`@("`@(%T*("`@(%T*("`@(&YE=RUD871A"ET*"FAT='`M<&]S=#H@9G5N
M8R!;"B`@("![4&]S="!A(&9O<FT@=&\@82!W96(@<V5R=F5R('=I=&AO=70@
M:6YC;'5D:6YG(&-O;VMI92!I;B!T:&4@:&5A9&5R(&9O<B!I9&5N=&EF:6-A
M=&EO;GT*("`@('5R;"`B5&AE(%523"(*("`@(&1A=&$@6V)L;V-K(5T@(D$@
M8FQO8VL@;V8@;F%M92]V86QU92!P86ER<R!T;R!R97!R97-E;G0@=&AE(&9O
M<FT@9&%T82(*("`@("]L;V-A;"`*("`@(&5N8V]D960M9&%T80H@("`@<&]R
M="US<&5C"B`@("!(5%10+5!O<W0M2&5A9&5R"B`@("!H='1P+7)E<75E<W0*
M("`@(&)U9F9E<@H@("`@=&UP+6)U9F9E<@I=6PH@("`@<&]R="US<&5C.B!M
M86ME('!O<G0A(%L*("`@("`@("!S8VAE;64Z("=T8W`*("`@("`@("!P;W)T
M+6ED.B`X,`H@("`@("`@('1I;65O=70Z(#`Z,3`*("`@(%T*("`@(&YE="UU
M=&EL<R]U<FPM<&%R<V5R+W!A<G-E+75R;"!P;W)T+7-P96,@=7)L"@H@("`@
M96YC;V1E9"UD871A.B!M86ME('-T<FEN9R$@(B(*("`@(&9O<F5A8V@@6VYA
M;64@=F%L=65=(&1A=&$@6PH@("`@("`@(&%P<&5N9"!E;F-O9&5D+61A=&$@
M<F5J;VEN(%L*("`@("`@("`@("`@("`@('5R;"UE;F-O9&4@;F%M92`B/2(@
M=7)L+65N8V]D92!V86QU92`B)B(*("`@("`@("!="B`@("!="B`@("!R96UO
M=F4@8F%C:R!T86EL(&5N8V]D960M9&%T80H@("`@<F5M;W9E(&)A8VL@=&%I
M;"!E;F-O9&5D+61A=&$*"B`@("!(5%10+5!O<W0M2&5A9&5R.B!M86ME(&]B
M:F5C="$@6PH)06-C97!T.B`B=&5X="]H=&UL(@H@("`@("`@(%5S97(M06=E
M;G0Z(')E9F]R;2!;(E)%0D],(B!S>7-T96TO=F5R<VEO;ET*(#L@("`@("`@
M4F5F97)E<CH@(FAT='`Z+R]W=W<N;71N<VUS+F-O;2]D969A=6QT+F%S<#]A
M8W1I;VX];&]G:6XB"B`@("`@("`@0V]N=&5N="U4>7!E.B`B87!P;&EC871I
M;VXO>"UW=W<M9F]R;2UU<FQE;F-O9&5D(B`*"4-O;G1E;G0M3&5N9W1H.B!L
M96YG=&@_(&5N8V]D960M9&%T80H@("`@70H*("`@(&AT='`M<F5Q=65S=#H@
M<F5J;VEN(%L*("`@("`@("`B4$]35"`O(@H@("`@("`@(&5I=&AE<B!F;W5N
M9#\@<&]R="US<&5C+W!A=&@@6W!O<G0M<W!E8R]P871H75LB(ET@"B`@("`@
M("`@96ET:&5R(&9O=6YD/R!P;W)T+7-P96,O=&%R9V5T(%MP;W)T+7-P96,O
M=&%R9V5T75LB(ET*("`@("`@("`B($A45%`O,2XP(@H@("`@70H*("`@(&AT
M='`M<&]R=#H@;W!E;B]L:6YE<R!;"B`@("`@("`@<V-H96UE.B`G=&-P"B`@
M("`@("`@<&]R="UI9#H@<&]R="US<&5C+W!O<G0M:60*("`@("`@("!T:6UE
M;W5T.B!P;W)T+7-P96,O=&EM96]U=`H@("`@("`@(&AO<W0Z('!O<G0M<W!E
M8R]H;W-T"B`@("`@("`@=7-E<CH@<&]R="US<&5C+W5S97(*("`@("`@("!P
M87-S.B!P;W)T+7-P96,O<&%S<PH@("`@70H*"6EN<V5R="!H='1P+7!O<G0@
M:'1T<"UR97%U97-T(`H@("`@("`@(&EN<V5R="!H='1P+7!O<G0@;F5T+75T
M:6QS+V5X<&]R="!(5%10+5!O<W0M2&5A9&5R(")>+R(@"B`@("`@("`@:6YS
M97)T(&AT='`M<&]R="!E;F-O9&5D+61A=&$*"F-O;6UE;G0@>PH@('!R:6YT
M(&AT='`M<F5Q=65S=`H@('!R:6YT(&YE="UU=&EL<R]E>'!O<G0@2%144"U0
M;W-T+4AE861E<B`*("!P<FEN="!E;F-O9&5D+61A=&$@"GT*"B`@("!B=69F
M97(Z(&UA:V4@<W1R:6YG(2`Q,#`P,`H@("`@=&UP+6)U9F9E<CH@<F5F;W)M
M(%LB2%144"U297-P;VYS93HB('!I8VL@:'1T<"UP;W)T(#%="B`@("!W:&EL
M92!;;F]T(&YO;F4_('1M<"UB=69F97)=(%L*("`@("`@("!A<'!E;F0@8G5F
M9F5R(')E:F]I;B!;=&UP+6)U9F9E<B`B7B\B70H@("`@("`@('1M<"UB=69F
M97(Z('!I8VL@:'1T<"UP;W)T(#$*("`@(%T*"@H@("`@8VQO<V4@:'1T<"UP
M;W)T"@H@("`@<&%R<V4@8G5F9F5R(%L@=&AR=2`B4V5T+4-O;VMI93HB(&-O
M<'D@8V]O:VEE+61A=&$@=&\@(CLB(%T*"B`@("!(5%10+4AE861E<CH@;6%K
M92!O8FIE8W0A(%L*("`@("`@("!(5%10+5)E<W!O;G-E.B!$871E.B!397)V
M97(Z($QA<W0M36]D:69I960Z(&YO;F4*("`@("`@("!!8V-E<'0M4F%N9V5S
M.B!#;VYT96YT+45N8V]D:6YG.B!#;VYT96YT+51Y<&4Z(&YO;F4@"B`@("`@
M("`@0V]N=&5N="U,96YG=&@Z($QO8V%T:6]N.B!%>'!I<F5S.B!2969E<F5R
M.B!#;VYN96-T:6]N.B!N;VYE(`H@("`@72`*"B`@("!P87)S92UH96%D97(@
M2%144"U(96%D97(@8G5F9F5R"ET*"FAT='`M<&]S="UC;V]K:64Z(&9U;F,@
M6PH@("`@>U!O<W0@82!F;W)M('1O(&$@=V5B('-E<G9E<B!A;F0@:6YC;'5D
M92!C;V]K:64@:6X@=&AE(&AE861E<B!F;W(@:61E;G1I9FEC871I;VY]"B`@
M("!U<FP@(E1H92!54DPB"B`@("!D871A(%MB;&]C:R%=(")!(&)L;V-K(&]F
M(&YA;64O=F%L=64@<&%I<G,@=&\@<F5P<F5S96YT('1H92!F;W)M(&1A=&$B
M"B`@("`O;&]C86P@"B`@("!E;F-O9&5D+61A=&$*("`@('!O<G0M<W!E8PH@
M("`@2%144"U0;W-T+4AE861E<@H@("`@:'1T<"UR97%U97-T"B`@("!B=69F
M97(*("`@('1M<"UB=69F97(*75L*("`@('!O<G0M<W!E8SH@;6%K92!P;W)T
M(2!;"B`@("`@("`@<V-H96UE.B`G=&-P"B`@("`@("`@<&]R="UI9#H@.#`*
M("`@("`@("!T:6UE;W5T.B`P.C$P"B`@("!="B`@("!N970M=71I;',O=7)L
M+7!A<G-E<B]P87)S92UU<FP@<&]R="US<&5C('5R;`H*("`@(&5N8V]D960M
M9&%T83H@;6%K92!S=')I;F<A("(B"B`@("!F;W)E86-H(%MN86UE('9A;'5E
M72!D871A(%L*("`@("`@("!A<'!E;F0@96YC;V1E9"UD871A(')E:F]I;B!;
M"B`@("`@("`@("`@("`@("!U<FPM96YC;V1E(&YA;64@(CTB('5R;"UE;F-O
M9&4@=F%L=64@(B8B"B`@("`@("`@70H@("`@70H@("`@<F5M;W9E(&)A8VL@
M=&%I;"!E;F-O9&5D+61A=&$*("`@(')E;6]V92!B86-K('1A:6P@96YC;V1E
M9"UD871A"@H@("`@2%144"U0;W-T+4AE861E<BU#;V]K:64Z(&UA:V4@;V)J
M96-T(2!;"@E!8V-E<'0Z(")T97AT+VAT;6PB"B`@("`@("`@57-E<BU!9V5N
M=#H@<F5F;W)M(%LB4D5"3TPB('-Y<W1E;2]V97)S:6]N70H[("`@("`@("!2
M969E<F5R.B`B:'1T<#HO+W=W=RYM=&YS;7,N8V]M+W-M<R\B"B`@("`@("`@
M0V]O:VEE.B!J;VEN(&-O;VMI92UD871A(%L@(CL@(B!C;V]K:64M9&%T83(@
M70H@("`@("`@($-O;G1E;G0M5'EP93H@(F%P<&QI8V%T:6]N+W@M=W=W+69O
M<FTM=7)L96YC;V1E9"(@"@E#;VYT96YT+4QE;F=T:#H@;&5N9W1H/R!E;F-O
M9&5D+61A=&$*("`@(%T*"B`@("!H='1P+7)E<75E<W0Z(')E:F]I;B!;"B`@
M("`@("`@(E!/4U0@+R(*("`@("`@("!E:71H97(@9F]U;F0_('!O<G0M<W!E
M8R]P871H(%MP;W)T+7-P96,O<&%T:%U;(B)=(`H@("`@("`@(&5I=&AE<B!F
M;W5N9#\@<&]R="US<&5C+W1A<F=E="!;<&]R="US<&5C+W1A<F=E=%U;(B)=
M"B`@("`@("`@(B!(5%10+S$N,"(*("`@(%T*"B`@("!H='1P+7!O<G0Z(&]P
M96XO;&EN97,@6PH@("`@("`@('-C:&5M93H@)W1C<`H@("`@("`@('!O<G0M
M:60Z('!O<G0M<W!E8R]P;W)T+6ED"B`@("`@("`@=&EM96]U=#H@<&]R="US
M<&5C+W1I;65O=70*("`@("`@("!H;W-T.B!P;W)T+7-P96,O:&]S=`H@("`@
M("`@('5S97(Z('!O<G0M<W!E8R]U<V5R"B`@("`@("`@<&%S<SH@<&]R="US
M<&5C+W!A<W,*("`@(%T*"@EI;G-E<G0@:'1T<"UP;W)T(&AT='`M<F5Q=65S
M="`*("`@("`@("!I;G-E<G0@:'1T<"UP;W)T(&YE="UU=&EL<R]E>'!O<G0@
M2%144"U0;W-T+4AE861E<BU#;V]K:64@(EXO(B`*("`@("`@("!I;G-E<G0@
M:'1T<"UP;W)T(&5N8V]D960M9&%T80IC;VUM96YT('L*("!P<FEN="!H='1P
M+7)E<75E<W0*("!P<FEN="!N970M=71I;',O97AP;W)T($A45%`M4&]S="U(
M96%D97(M0V]O:VEE"B`@<')I;G0@96YC;V1E9"UD871A"GT*"B`@("!B=69F
M97(Z(&UA:V4@<W1R:6YG(2`Q,#`P,`H@("`@=&UP+6)U9F9E<CH@<F5F;W)M
M(%LB2%144"U297-P;VYS93HB('!I8VL@:'1T<"UP;W)T(#%="B`@("!W:&EL
M92!;;F]T(&YO;F4_('1M<"UB=69F97)=(%L*("`@("`@("!A<'!E;F0@8G5F
M9F5R(')E:F]I;B!;=&UP+6)U9F9E<B`B7B\B70H@("`@("`@('1M<"UB=69F
M97(Z('!I8VL@:'1T<"UP;W)T(#$*("`@(%T*"@H@("`@8VQO<V4@:'1T<"UP
M;W)T"@H@("`@2%144"U(96%D97(Z(&UA:V4@;V)J96-T(2!;"B`@("`@("`@
M2%144"U297-P;VYS93H@1&%T93H@4V5R=F5R.B!,87-T+4UO9&EF:65D.B!N
M;VYE"B`@("`@("`@06-C97!T+5)A;F=E<SH@0V]N=&5N="U%;F-O9&EN9SH@
M0V]N=&5N="U4>7!E.B!N;VYE(`H@("`@("`@($-O;G1E;G0M3&5N9W1H.B!,
M;V-A=&EO;CH@17AP:7)E<SH@4F5F97)E<CH@0V]N;F5C=&EO;CH@;F]N92`*
M("`@(%T@"B`@("!P87)S92UH96%D97(@2%144"U(96%D97(@8G5F9F5R"ET*
M"@H*:'1T<"UG970Z(&9U;F,@6PH@("`@>U)E=')I979E(&$@<&%G92!F<F]M
M('=E8B!S97)V97)]"B`@("!U<FP@(E1H92!54DPB"B`@("!D871A(%MB;&]C
M:R%=(")!(&)L;V-K(&]F(&YA;64O=F%L=64@<&%I<G,@=&\@<F5P<F5S96YT
M('1H92!C;V]K:65S(@H@("`@+VQO8V%L(`H@("`@96YC;V1E9"UD871A"B`@
M("!P;W)T+7-P96,*("`@($A45%`M4&]S="U(96%D97(*("`@(&AT='`M<F5Q
M=65S=`H@("`@8G5F9F5R"B`@("!T;7`M8G5F9F5R"EU;"B`@("!P;W)T+7-P
M96,Z(&UA:V4@<&]R="$@6PH@("`@("`@('-C:&5M93H@)W1C<`H@("`@("`@
M('!O<G0M:60Z(#@P"B`@("`@("`@=&EM96]U=#H@,#HQ,`H@("`@70H@("`@
M;F5T+75T:6QS+W5R;"UP87)S97(O<&%R<V4M=7)L('!O<G0M<W!E8R!U<FP*
M"B`@("!E;F-O9&5D+61A=&$Z(&UA:V4@<W1R:6YG(2`B(@H@("`@9F]R96%C
M:"!;;F%M92!V86QU95T@9&%T82!;"B`@("`@("`@87!P96YD(&5N8V]D960M
M9&%T82!R96IO:6X@6PH@("`@("`@("`@("`@("`@=7)L+65N8V]D92!N86UE
M("(](B!U<FPM96YC;V1E('9A;'5E("([("(*("`@("`@("!="B`@("!="B`@
M("!R96UO=F4@8F%C:R!T86EL(&5N8V]D960M9&%T80H@("`@<F5M;W9E(&)A
M8VL@=&%I;"!E;F-O9&5D+61A=&$*"B`@("!(5%10+5!O<W0M2&5A9&5R.B!M
M86ME(&]B:F5C="$@6PH@("`@("`@($%C8V5P=#H@(BHO*B(*("`@("`@("!5
M<V5R+4%G96YT.B!R969O<FT@6R)214)/3"(@<WES=&5M+W9E<G-I;VY="B`@
M("`@("`@2&]S=#H@<&]R="US<&5C+VAO<W0*("`@(%T*"B`@("!(5%10+5!O
M<W0M2&5A9&5R+4-O;VMI93H@;6%K92!O8FIE8W0A(%L*("`@("`@("!!8V-E
M<'0Z("(J+RHB"B`@("`@("`@57-E<BU!9V5N=#H@<F5F;W)M(%LB4D5"3TPB
M('-Y<W1E;2]V97)S:6]N70H@("`@("`@($AO<W0Z('!O<G0M<W!E8R]H;W-T
M"B`@("`@("`@0V]O:VEE.B!E;F-O9&5D+61A=&$*("`@(%T*"B`@("!H='1P
M+7)E<75E<W0Z(')E:F]I;B!;"B`@("`@("`@(D=%5"`O(@H@("`@("`@(&5I
M=&AE<B!F;W5N9#\@<&]R="US<&5C+W!A=&@@6W!O<G0M<W!E8R]P871H75LB
M(ET@"B`@("`@("`@96ET:&5R(&9O=6YD/R!P;W)T+7-P96,O=&%R9V5T(%MP
M;W)T+7-P96,O=&%R9V5T75LB(ET*("`@("`@("`B($A45%`O,2XP7B\B"B`@
M("!="@H@("`@:'1T<"UP;W)T.B!O<&5N+VQI;F5S(%L*("`@("`@("!S8VAE
M;64Z("=T8W`*("`@("`@("!P;W)T+6ED.B!P;W)T+7-P96,O<&]R="UI9`H@
M("`@("`@('1I;65O=70Z('!O<G0M<W!E8R]T:6UE;W5T"B`@("`@("`@:&]S
M=#H@<&]R="US<&5C+VAO<W0*("`@("`@("!U<V5R.B!P;W)T+7-P96,O=7-E
M<@H@("`@("`@('!A<W,Z('!O<G0M<W!E8R]P87-S"B`@("!="@H@("`@:6YS
M97)T(&AT='`M<&]R="!H='1P+7)E<75E<W0*("`@(&EF(&5N8V]D960M9&%T
M82`^("(B(%L*("`@("`@("`@("`@:6YS97)T(&AT='`M<&]R="!N970M=71I
M;',O97AP;W)T($A45%`M4&]S="U(96%D97(M0V]O:VEE("`B7B\B"B`@("!=
M6PH@("`@("`@("`@("!I;G-E<G0@:'1T<"UP;W)T(&YE="UU=&EL<R]E>'!O
M<G0@2%144"U0;W-T+4AE861E<B`@(EXO(@D*("`@(%T*"B`@("!B=69F97(Z
M(&UA:V4@<W1R:6YG(2`Q,#`P,`H@("`@=&UP+6)U9F9E<CH@<F5F;W)M(%LB
M2%144"U297-P;VYS93HB('!I8VL@:'1T<"UP;W)T(#%="B`@("!W:&EL92!;
M;F]T(&YO;F4_('1M<"UB=69F97)=(%L*("`@("`@("!A<'!E;F0@8G5F9F5R
M(')E:F]I;B!;=&UP+6)U9F9E<B`B7B\B70H@("`@("`@('1M<"UB=69F97(Z
M('!I8VL@:'1T<"UP;W)T(#$*("`@(%T*"@H@("`@8VQO<V4@:'1T<"UP;W)T
M"@H@("`@2%144"U(96%D97(Z(&UA:V4@;V)J96-T(2!;"B`@("`@("`@2%14
M4"U297-P;VYS93H@1&%T93H@4V5R=F5R.B!,87-T+4UO9&EF:65D.B!N;VYE
M"B`@("`@("`@06-C97!T+5)A;F=E<SH@0V]N=&5N="U%;F-O9&EN9SH@0V]N
M=&5N="U4>7!E.B!N;VYE(`H@("`@("`@($-O;G1E;G0M3&5N9W1H.B!,;V-A
M=&EO;CH@17AP:7)E<SH@4F5F97)E<CH@0V]N;F5C=&EO;CH@;F]N92`*"5-E
M="U#;V]K:64Z(&YO;F4@4V5T+4-O;VMI93H@;F]N90H@("`@72`*"B`@("!P
A87)S92UH96%D97(@2%144"U(96%D97(@8G5F9F5R"ET*
`
end
sum -r/size 40531/12293 section (from "begin" to "end")
sum -r/size 64206/8898 entire input file
[ Section: 1/1 File: yourcellphone.r UUencoded by: Turnpike Integrated Version 4.02 U ]
begin 644 yourcellphone.r
M4D5"3TP@6PT*("`@(%1I=&QE.B`@(E-E;F0@365S<V%G92!T;R!#96QL<&AO
M;F4B#0H@("`@1FEL93H@("`E8V5L;'!H;VYE+G(-"B`@("!!=71H;W(Z(")'
M<F%H86T@0VAI=2(-"B`@("!%;6%I;#H@(&=C:&EU0&-O;7!K87)O<FDN8V\N
M;GH-"B`@("!$871E.B`@(%L@,C8M3F]V+3$Y.3D@70T*("`@(`T*("`@(%!U
M<G!O<V4Z('L-"B`@("`@("`@5&\@<&]S="!A(&UE<W-A9V4@=FEA($U43B=S
M(%--4R!G871E=V%Y('1O(&$@1U--('!H;VYE#0H@("`@?0T*("`@($YO=&5S
M.B`@('L-"@E';W1T82!W<FET92!S;VUE=&AI;F<@:&5R92X-"B`@("!]#0H@
M("`@57-A9V4Z("`@>PT*"6IU<W0@<G5N('1H:7,@<V-R:7!T(&%F=&5R(&-H
M86YG:6YG('1H92!P;&%C96AO;&1E<G,@8F5L;W<-"@E9;W4@:&%V92!T;R!R
M96=I<W1E<B!A="!W=W<N;71N<VUS+F-O;2!T;R!U<V4@=&AE:7(@<V5R=FEC
M92!W:&EC:"!I<R!F<F5E+@T*#0H)5&AE;B!C:&%N9V4@=&AE(&1E=&%I;',@
M;V8@#0H)"6UY=7-E<FYA;64@*"!S:&]U;&0@8F4@>6]U<B!E;6%I;"!A9&1R
M97-S("D-"@D);7EP87-S=V]R9"`H('1H92!O;F4@>6]U(&=A=F4@351.("D-
M"@D);7EF879S("@@96<N(")";&]G9W,L($IO92(@+2!W:&5R92!T:&ES('!E
M<G-O;B!A<'!E87)S(&EN('1H92!D<F]P#0H)"0ED;W=N(&UE;G4@=VAE;B!Y
M;W4@=7-E(&$@8G)O=W-E<B!T;R!A8V-E<W,@=W=W+FUT;7-M<RYC;VTO<VUS
M("D-"@D);7EN=6UB97(@*"!T96QE<&AO;F4@;G5M8F5R(&5G+B`K-C0R,3$R
M,S0U-C<X("D-"@D);7EM<V<@*"!4:&4@<VAO<G0@=&5X="!M97-S86=E(&]F
M(&QE<W,@=&AA;B!A8F]U="`Q-#`@8VAA<G,@*0T*#0H@("`@("`@(%EO=2=L
M;"!A;'-O(&AA=F4@=&\@8VAA;F=E('1H92!H:61D96X@=F%R:6%B;&4@=F%L
M=65S(&]F($QE;EA3:6<@=&\@=VAA=&5V97(@>6]U<G,-"@ET=7)N(&]U="!T
M;R!B92X@($IU<W0@;&]O:R!A="!T:&4@<V]U<F-E(&]F('1H92!W96(@<&%G
M92!A="!T:&5I<B!S96YD(&UE<W-A9V4@<&%G92X-"B`@("!]#0H@("`@0V%T
M96=O<GDZ(%MW96(@=71I;&ET>5T-"ET@#0H-"@T*9&\@)6-O;VMI97,M8VQI
M96YT+G(-"@T*=&UP.B!H='1P+7!O<W0@:'1T<#HO+W=W=RYM=&YS;7,N8V]M
M+W-E<W-I;VXN87-P(%L@(G)E='5R;"(@(B\B(")U<V5R;F%M92(@(FUY=7-E
M<FYA;64B(")P87-S=V]R9"(@(FUY<&%S<W=O<F0B(")L;V=O;B(@(B`@;&]G
M:6X@("`B("`B86ME>2(@(GEE<R(@70T*#0H[('1H92!S97-S:6]N(&-O;VMI
M92!I<R!N;W<@<VET=&EN9R!I;B!C;V]K:64M9&%T82P@86YD('!E<G-I<W1E
M;G0@8V]O:VEE(&EN('1M<"]S970M8V]O:VEE#0H-"G!A<G-E('1M<"]S970M
M8V]O:VEE(%L@8V]P>2!C;V]K:64M9&%T83(@=&\@(B`B("!=(#L@8V]P:65S
M('1M<"]S970M8V]O:VEE('1O(&-O;VMI92UD871A,B!A<R!R97$N(&)Y(&AT
M='`M<&]S=&,-"@T*=&UP.B!H='1P+7!O<W0M8V]O:VEE(&AT='`Z+R]W=W<N
M;71N<VUS+F-O;2]S;7,O<VUS+F%S<"!;("`B9F%V<R(@(FUY9F%V<R(@(FUS
M9U1O(B`B;7EN=6UB97(B(")M<V=497AT(B`B;7EM<V<B(")M<V=#3"(@(C`B
M(")M<V=3:6<B("(P(B`B<V5N9"(@(B`@<V5N9"`@("(@(FQE;E-3:6<B("(W
H(B`B;&5N3%-I9R(@(C$R(B`B;&5N4WES4VEG(B`B,3$B("!=#0H-"@``
`
end
sum -r/size 46033/2322 section (from "begin" to "end")
sum -r/size 36739/1660 entire input file
I originally wanted this script to phone me when my web server died.
But I can now see lots of other applications. I am going to set up a
database of appointments, and my server can phone me at the right time.
Seems a bit odd to have to use an overseas website to call me in New
Zealand just to remind me not to miss Star Trek Voyager though!
I would like the script to pop up and ask me what the message/phone
number is going to be, but can't see how to do this yet.
-------
Regards, Graham Chiu
gchiu<at>compkarori.co.nz
http://www.compkarori.com/dynamo - The Homebuilt Dynamo
http://www.compkarori.com/dbase - The dBase bulletin
