[REBOL] HTTP-Post problem for Rogers AT&T
From: mattymattkim::hotmail::com at: 3-Dec-2002 23:11
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'm sorry the code is so messy... I main inputs are:
msisdn
area
num1
num2
oldtext
text
SIZEBOX
SIZEBOXW
submit
sm_title
sm_header_ok
sm_header_fail
sm_ym
sm_status_ok
sm_status_fail
sm_logo
sm_pcs_link
sm_pcs_text
sm_home_link
sm_home_text
Could someone help me out please?
Here's the website:
http://www.rogers.com/english/wireless/sendpcs.html
And here's my code: Obviously, this is not a working cell phone number.
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: join join join join join join join join join join join join join
join join "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
]
_________________________________________________________________
MSN 8 with e-mail virus protection service: 2 months FREE*
