PossieOS Server

rednet.open("top")
if fs.isDir("Websites") == false then
        fs.makeDir("Websites/www/mine")
        fs.makeDir("Websites/www/pos")
        fs.makeDir("Websites/www/tv")
        fs.makeDir("Websites/www/mol")
end
if fs.isDir("WebTags") == false then
        fs.makeDir("WebTags")
        makeTags = fs.open("WebTags/Tags", "w")
        makeTags.close()
end

function split(str, pat)
        local t = { }
        local fpat = "(.-)"..pat
        local last_end = 1
        local s, e, cap = str:find(fpat, 1)
                while s do
                        if s ~= 1 or cap ~= "" then
                                table.insert(t,cap)
                        end
                        last_end = e+1
                        s, e, cap = str:find(fpat, last_end)
                end
                if last_end <= #str then
                        cap = str:sub(last_end)
                        table.insert(t, cap)
        end
        return t
end



function runServer()
        id, msg, d = rednet.receive()
        p = split(msg, "!SP!")
        cmd = p[1]
        if cmd == "search" then
                websites = { }
                search = p[2]
                readTest = fs.open("WebTags/Tags", "r")
                contents = readTest.readAll()
                readTest.close()
                tags = split(contents, "!TAG!")
                for i,v in pairs(tags) do
                        if string.sub(v, 1, #search) == search then
                                urlSite = split(tags[i], "!SD!")
                                table.insert(websites, urlSite[2])
                        end
                end
                searchResult = textutils.serialize(websites)
                rednet.send(id, searchResult)
                print("SENT")
                print(id.." "..searchResult)
                print(search)
                print("-----------------------")
        elseif cmd == "openWebSite" then
                website = p[2]
                print(website)
                webParts = split(website, "/")
                readTest = fs.open("Websites/www/"..webParts[3].."/"..webParts[2], "r")
                contents = readTest.readAll()
                readTest.close()
                rednet.send(id, contents)
        elseif cmd == "makeSite" then
                name = p[2]
                naTags = p[3]
                extension = p[4]
                site = p[5]
                if fs.exists("Websites/www/"..extension.."/"..name) == false then
                        newSite = fs.open("Websites/www/"..extension.."/"..name, "w")
                        newSite.write(site)
                        newSite.close()
                        aTags = split(naTags, "/")
                        tags = ""
                        for n, tag in ipairs(aTags) do
                                tags = tags.."!TAG!"..tag.."!SD!www/"..name.."/"..extension
                        end
                        editTag = fs.open("WebTags/Tags", "a")
                        editTag.write(tags)
                        editTag.close()
                        print(tags)
                        print("-----------------------")
                        tags = ""
                end
        end
        runServer()
end

runServer()