Apache Web-Server Browser [GUI] [BIG PROJECT]

function parseargs(s)
  local arg = {}
  string.gsub(s, "(%w+)=(["'])(.-)%2", function (w, _, a)
    arg[w] = a
  end)
  return arg
end
   
function collect(s)
  local stack = {}
  local top = {}
  table.insert(stack, top)
  local ni,c,label,xarg, empty
  local i, j = 1, 1
  while true do
    ni,j,c,label,xarg, empty = string.find(s, "<(%/?)([%w:]+)(.-)(%/?)>", i)
    if not ni then break end
    local text = string.sub(s, i, ni-1)
    if not string.find(text, "^%s*$") then
	  table.insert(top, text)
    end
    if empty == "/" then  -- empty element tag
	  table.insert(top, {label=label, xarg=parseargs(xarg), empty=1})
    elseif c == "" then   -- start tag
	  top = {label=label, xarg=parseargs(xarg)}
	  table.insert(stack, top)   -- new level
    else  -- end tag
	  local toclose = table.remove(stack)  -- remove top
	  top = stack[#stack]
	  if #stack < 1 then
	    error("nothing to close with "..label)
	  end
	  if toclose.label ~= label then
	    error("trying to close "..toclose.label.." with "..label)
	  end
	  table.insert(top, toclose)
    end
    i = j+1
  end
  local text = string.sub(s, i)
  if not string.find(text, "^%s*$") then
    table.insert(stack[#stack], text)
  end
  if #stack > 1 then
    error("unclosed "..stack[#stack].label)
  end
  return stack[1]
end

Jan, on 23 July 2012 - 02:58 PM said:

Hello, that looks like a nice project :)/>/>
But you do the parsing of the HTML page by yourselves?
You can also use an xml parser:

--CODE--

Source: http://lua-users.org/wiki/LuaXml
I used it to parse xml-bibles in my Bible Reader program, i am pretty sure it should work for html as well.

EDIT: Something went wrong with the code-posting, fixed it

local function process()
local f= io.open("/.tmpdata", "r")
f:read("*l")
f:read("*l")
f:read("*l")
f:read("*l")
f:read("*l")
f:read("*l")
local data = f:read("*l")
local titlestart = nil
local derp = nil
titlestart = (string.find(data, "<h1>")+4)
local titleend = (string.find(data, "</h1>")-1)
title = string.sub(data, titlestart, titleend)
items = {}
types = {}
href = {}
local line = f:read("*l")
apachev = 1
if contains(line, "<table><tr><th>") then
apachev = 2
line = f:read("*l")
end
while contains(line, "<li>") or contains(line, "</td><td>") do
rStart = (string.find(line, "<a href=")-4)
lStart = string.find(line, ""> ", rStart)
if apachev == 2 then
lStart = (string.find(line, "">", rStart) + 2)
else
lStart = (string.find(line, ""> ", rStart)+3)
end
lEnd = (string.find(line, "</a>", rStart) - 1)
lData = string.sub(line, lStart, lEnd)
table.insert(items, lData)
hStart = (string.find(line, "<a href="", rStart) + 9)
hEnd = (string.find(line, "">", rStart) - 1)
hData = string.sub(line, hStart, hEnd)
table.insert(href, hData)
if contains(lData, "Parent Directory") then
  lPStart = (string.find(line, "<a href="", rStart) + 9)
  lPEnd = (string.find(line, "">", rStart) - 1)
  lPData = string.sub(line, lPStart, lPEnd)
  table.insert(types, "back")
elseif contains(lData, "/") then
  table.insert(types, "dir")
else
  table.insert(types, "file")
end
line = f:read("*l")
end
return title, items, types
end

Noodle, on 26 July 2012 - 10:02 PM said:

Cool. Its looking good!
Will you be allowed to make custom pages for this or is it strictly Apache only (online)?

rex41043, on 27 July 2012 - 01:54 AM said:

Nice work so far :D/>/>, but this has been done just not in the way you are EG
My "Inet" (working on name) uses a webserver to: download programs, run code with out downloading it has a nice GUI AND it is simple to use :(/>/>

But yours is doing good :)/>/> and i can't wait to c it when its done :D/>/>

Noodle, on 27 July 2012 - 02:49 AM said:

This seems great because I could setup the computer files on my wamp dir (I'll find a way) and people will be able to access all the files, aswell as change them and seriously encourage hackers :)/>/>
I'll find a way to make this work 100% where you can make an anti-virus also..

djblocksaway, on 27 July 2012 - 05:56 AM said:

rex41043, on 27 July 2012 - 01:54 AM said:

Nice work so far :D/>/>, but this has been done just not in the way you are EG
My "Inet" (working on name) uses a webserver to: download programs, run code with out downloading it has a nice GUI AND it is simple to use :)/>/>

But yours is doing good :)/>/> and i can't wait to c it when its done :(/>/>

rex when i say i believe this has not been done before i am saying that as in no one has done it with a GUI.

Noodle, on 27 July 2012 - 02:49 AM said:

This seems great because I could setup the computer files on my wamp dir (I'll find a way) and people will be able to access all the files, aswell as change them and seriously encourage hackers :)/>/>
I'll find a way to make this work 100% where you can make an anti-virus also..

yea this is very useful for servers. i use xampp and it seems to work perfect but wamp should work just as good =)

rex41043, on 27 July 2012 - 07:44 AM said:

djblocksaway, on 27 July 2012 - 05:56 AM said:

rex41043, on 27 July 2012 - 01:54 AM said:

Nice work so far :(/>/>, but this has been done just not in the way you are EG
My "Inet" (working on name) uses a webserver to: download programs, run code with out downloading it has a nice GUI AND it is simple to use :)/>/>

But yours is doing good :)/>/> and i can't wait to c it when its done :)/>/>

rex when i say i believe this has not been done before i am saying that as in no one has done it with a GUI.

Noodle, on 27 July 2012 - 02:49 AM said:

This seems great because I could setup the computer files on my wamp dir (I'll find a way) and people will be able to access all the files, aswell as change them and seriously encourage hackers :)/>/>
I'll find a way to make this work 100% where you can make an anti-virus also..

yea this is very useful for servers. i use xampp and it seems to work perfect but wamp should work just as good =)

you dident read my text fully did you :D/>/> let me quote it for you "run code with out downloading it has a nice GUI AND it is simple to use :)/>/>"