[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
I'm sorry the code is so messy... I main inputs are:
Could someone help me out please?
Here's the website:
And here's my code: Obviously, this is not a working cell phone number.
count: func [x y /local n] [
while [found? x: find x y] [
n: n + 1
x: next x
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:
a PCS message&sm_home_link=http://www.rogers.com&sm_home_text=home"
http://18.104.22.168:8080/cgi-bin/send_sm_rogers.new reduce [
MSN 8 with e-mail virus protection service: 2 months FREE*