Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

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