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: mattymattkim:ho:tmail 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] >To: <[rebol-list--rebol--com]> >Subject: [REBOL] Re: HTTP-Post problem for Rogers AT&T >Date: Wed, 4 Dec 2002 20:28:42 +1300 > >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/ >-><- > >-- >To unsubscribe from this list, please send an email to >[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