[REBOL] Re: HTTP-Post problem for Rogers AT&T
From: mattymattkim:hotmai:l at: 4-Dec-2002 9:22
Hehe... once again you pull through! That makes the code a lot more
readable! Thanks! And it seems to work as well!
Matt
>From: "Andrew Martin" <[Al--Bri--xtra--co--nz]>
>Reply-To: [rebol-list--rebol--com]
>To: <[rebol-list--rebol--com]>
>Subject: [REBOL] Re: HTTP-Post problem for Rogers AT&T
>Date: Wed, 4 Dec 2002 20:28:42 +1300
>
>Matthew Kim wrote:
> > This piece of code used to work to sending SMS messages over Rogers AT&T
>site, but now it seems to be broken! I just keep getting a Network Timeout
>error.
>
>I took the liberty of rewriting the code so it's more easier to read and
>getting rid of the large number of 'join words. Try this script
>(substituting your numbers of course) and see if that works better.
>
>count: func [x y /local n] [
> n: 0
> while [found? x: find x y] [
> n: n + 1
> x: next x
> ]
> n
> ]
>
>area: "416"
>number: "5551234"
>textbody: "this is a test"
>
>sms_post: rejoin [
> "msisdn=" area number
> "&area=" area
> "&num1=" area
> "&num2=" number
> "&oldtext="
> "&text=" textbody
> "&SIZEBOX=" (length? textbody)
> "&SIZEBOXW=" (to-integer (count textbody " ") + 1)
> "&submit=" "send message"
> "&sm_title=" "Rogers | Wireless"
> "&sm_header_ok=" "Thank You"
> "&sm_header_fail=" "Sorry"
> "&sm_ym=" "Your Message: "
> "&sm_status_ok=" "has been sent to:"
> "&sm_status_fail=" "cannot presently be sent to: "
> "&sm_logo=" "/att-logo.gif"
> "&sm_pcs_link=" "http://www.rogers.com/english/wireless/sendpcs.html"
> "&sm_pcs_text=" "Send a PCS message"
> "&sm_home_link=" "http://www.rogers.com"
> "&sm_home_text=" "home"
> ]
>
>send_output: read/custom
>http://216.129.53.44:8080/cgi-bin/send_sm_rogers.new reduce [
> 'POST sms_post
> ]
>
>I hope that helps!
>
>Andrew Martin
>ICQ: 26227169 http://valley.150m.com/
>-><-
>
>--
>To unsubscribe from this list, please send an email to
>[rebol-request--rebol--com] with "unsubscribe" in the
>subject, without the quotes.
Matt Kim
If everything is under control, you are going too slow
-Mario Andretti
_________________________________________________________________
STOP MORE SPAM with the new MSN 8 and get 2 months FREE*
http://join.msn.com/?page=features/junkmail
