HTTP-Post problem for Rogers AT&T
[1/3] 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*
[2/3] 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/
[3/3] from: mattymattkim:hotma:il 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]
<<quoted lines omitted: 53>>
>[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
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted