------------------------------------------
descargar("dl.dropbox.com","/s/qrcah4ob3mg3s8m/actualizar.lua",t_ruta_trabajo.."/","Actualizar.lua")
----------------------------------
 
 
function descargar(Server,File,Path,Name) 
 
	Wlan.init()
 
	local socket,error,bytesSent,header,longitud,leer,total
 
	socket,error = Socket.connect(Server,80)
 
     screen:print(50,80,"Conectando")
	 screen.flip()
 
	 while not socket:isConnected() do System.sleep(20) end
 
     screen:print(50,80,"Enviando")
	 screen.flip()
	 System.sleep(200)
 
 -------esta es la parte que se traba.
	 socket:send("GET "..File.." HTTP/1.0\r\n")
	 socket:send("host: "..Server.."\r\n\r\n")
     	 System.sleep(200)
	 file = io.open(Path..Name,"w")
	 header = ""
 
     screen:print(50,80,"Comprobando")
	 screen.flip()
 
	 while true do
	     header = header..socket:recv(1)
	     screen:print(10,10,"Recibiendo cabecera...\n"..header)
	     screen.flip()
	     if header:find("\r\n\r\n") then 
		     break 
		 end
     end	
	 longitud = tonumber(header:match("Content%-Length: (%d+)\r\n"))
	 fin = ""
	 total=0
	 while true do
	     System.sleep(200) 
	     leer=socket:recv(2000)
		 file:write(leer)
		 total=total+2000
		 if total>=longitud then
		     System.sleep(200)
		     file:flush()
			 file:close()
			 fin = "ok" 
			 break
		 end
	 end
	 socket:close()
	 return fin
 
end