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

[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=" "" "&sm_pcs_text=" "Send a PCS message" "&sm_home_link=" "" "&sm_home_text=" "home" ] send_output: read/custom reduce [ 'POST sms_post ] I hope that helps! Andrew Martin ICQ: 26227169