[REBOL] Re: HTTP-Post problem for Rogers AT&T
From: al:bri:xtra at: 4-Dec-2002 20:28
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/
