OpenEuphoria

Re: http_get that work Eu311

• Posted by useless_ Jun 24, 2013
• 1145 views

Before eunet, i did this a lot:

------------------------------------------------------------------------------------------------------------- 
 
function getw(sequence filename,sequence writefilename) 
  sequence savefile 
  object junk 
 
   filename = replace(filename,"~","%7E") 
 
   savefile = current_dir() & "\\wget\\" & writefilename 
   junk = open(savefile,"r") 
   if junk > 0 then  
     close(junk) 
     system("del " & savefile,2) 
   end if 
   junk = system_exec(current_dir() & "\\wget\\wget.exe -T30 -t1 -e --read-timeout=30 -e --dns-timeout=10 -qO "&savefile&" \""&filename&"\"",2) 
   junk = getf(savefile) 
return junk 
end function -- getw() 
--------------------------------------------------------------------------------------------------------- 
 

In fact, there's still applications running fine that i wrote back then, still running that code. I'm sure it can be updated to use excruciatingly convoluted winapi calls, or esoteric *nix calls, instead of system_exec().

useless