OpenEuphoria

1. Eunet - eunet_get_url()

• Posted by jmduro Sep 20, 2010
• 1071 views

Hello, eunet_get_url function doesn't work with MAC addresses gibent on the URL line (GET). I fond url decoding quite complicated. Here is a proposal for a new eunet_get_url function. It has been tested with 216 URL combinations.

global function eunet_get_url(sequence url) 
 
  sequence node, hostname, protocol, port, file, inet_addr 
  sequence data 
  atom cpos 
  object addrinfo 
 
  -- protocol 
 
  cpos = match("://",url) 
  if cpos > 0 then 
    protocol = url[1..cpos-1] 
    url = url[cpos+3..$] 
  else 
    protocol = "http"  -- assumed default 
  end if 
 
  -- hostname, port 
 
  cpos = find('/',url) 
  if cpos > 0 then 
    node = url[1..cpos-1] 
    file = url[cpos+1..$] 
  else 
    cpos = find('?',url) 
    if cpos > 0 then 
      node = url[1..cpos-1] 
      file = url[cpos+1..$] 
    else 
      node = url 
      file = "" 
    end if 
  end if 
  cpos = match(":",node) 
  if cpos > 0 then 
    hostname = node[1..cpos-1] 
    port = node[cpos+1..$] 
  else 
    hostname = node 
    port = "" 
  end if 
 
  if length(file)>0 and file[1]='/' then file = file[2..length(file)] end if 
  addrinfo = eunet_getaddrinfo(node,protocol,0) 
  if atom(addrinfo) or length(addrinfo)<1 or length(addrinfo[1])<5 then 
    -- attempt to use deprecated methods 
    return {} -- failed 
  else 
    inet_addr = addrinfo[1][5] 
  end if 
  data = {} 
  if compare(lower(protocol),"http")=0 then 
    data = eunet_get_http(inet_addr,hostname,file) 
  end if 
 
  return data 
 
end function 

If needed, I have a version with an additional params variable (what follows "?").

Regards

Jean-Marc

(Edit: Added <eucode> tags for formatting. -euphoric)

3. Re: Eunet - eunet_get_url()

• Posted by jmduro Sep 20, 2010
• 1033 views

That's why I sent it of course.

I'm glad to be helpful.

regards

Jean-Marc