@verb #2599:"tell_WWW_body" this none this rxdo #9682
@program #2599:"tell_WWW_body" this none this
player:tell("<h3>Laktzatz  Tzmnarspatziur Saemnfikaes</h3><form action=\"/2599/trans\"><select name=lang><option value=paktat>Laktzatz<option value=english>English</select>")
player:tell("<textarea rows=5 cols=60 name=text wrap=virtual></textarea><br><input type=submit value=Sogwitz>")
player:tell("<hR>")
if (!$web:parse_CGI(dobjstr, "lang"))
  player:Tell("This is where output goes!")
  return
endif
lang = $web:parse_CGI(dobjstr, "lang")
text = $web:parse_CGI(dobjstr, "text")
this.owner:tell(lang, " - ", text)
y = this:("to_" + lang)(text)
y = typeof(y) == $STR ? {y} | y
for y in (y)
  player:tell(y)
endfor
"Last modified by Dax (#789) on Tue May  3 14:03:27 2005 MDT."
.