translator.lua

e=textutils.urlEncode
term.clear()
term.setCursorPos(1,1)
print("Text to translate:")
txt=read()
print("From language:")
from=read()
print("To language:")
to=read()
print("processing...")
local resp=http.get("http://acos.bluefile.cz/translate.php?input="..e(txt).."&from="..e(from).."&to="..e(to))
term.setBackgroundColor(colors.white)
term.setTextColor(colors.black)
out=resp.readAll()
resp.close()
out=string.sub(out,string.find(out,"<parse>(.-)</parse>"))
local r=function(a,b)
  out=string.gsub(out,a,b)
end
local hex_to_char = function(x)
  return string.char(tonumber(x, 16))
end
local unescape = function(url)
  return url:gsub("%%(%x%x)", hex_to_char)
end
out=unescape(out)
r("+"," ")

print(out)
h=fs.open(shell.resolve(".").."/TranslatorOutput.txt","w")
h.write(out)
h.close()