642
@verb #7407:"text_msg" this none this rxdo #7407
@program #7407:"text_msg" this none this
if (!(caller_perms() in this.friendlies) && !caller_perms():isa($guardian))
  raise(E_PERM)
endif
{text} = args
{area, num1, num2} = this.cell_number
postlist = {{"area", area}, {"num1", num1}, {"num2", num2}}
"All of the below are retarded hidden inputs that really probably don't even need to be there. Stupid people and their bad CGI..."
postlist = {{"msisdn", tostr(@this.cell_number)}, @postlist, {"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"}}
"text = ($su:nn(caller_perms()) + \" -> \") + text;"
if (length(text) > 500)
  raise(E_RANGE, "Message too big.")
endif
while (length(text) > 0)
  this_send = `text[1..123] ! E_RANGE => text'
  `text[1..123] = "" ! E_RANGE => text = ""'
  postlisttemp = postlist
  postlisttemp[5..4] = {{"oldtext", this_send}, {"text", this_send}, {"SIZEBOX", tostr(length(this_send))}, {"SIZEBOXW", tostr(length($string_utils:words(this_send)))}}
  request = $www:integrate_cgi(postlisttemp)[2..$]
  result = this:send_request_raw(request)
  this.text_msg_result = {request, result}
  suspend(5)
endwhile
"Last modified by Cecil (#7407) on Fri Aug 24 22:53:50 2001 MDT."
.

0