--[[
]]

-- 65.55.24.217 - - [06/Jan/2014:03:30:13 +0000] "GET /coffeeshop/index.php?PHPSESSID=punfcuqimm21o3ucibp91csnm6&type=rss;action=.xml HTTP/1.1" 200 1378 "-" "Mozilla/5.0 (compatible; bingbot/2.0; +http://www.bing.com/bingbot.htm)"

access = access or {}
_access = _access or {}
local meta_access = meta_access or {}

-- ------------------------------ Access stuff

montab = {Jan = 1, Feb = 2, Mar = 3, Apr = 4}

function _access.gettime(self)
        return self.time
        end

meta_access.__index = _access

function access.factory(record)
        for d,mo,y,h,m,s in string.gmatch(record,"%[(%d%d)/(%a%a%a)/(%d%d%d%d):(%d%d):(%d%d):(%d%d)") do
                attime = os.time({year=y, day=d, month=montab[mo], hour=h, min=m, sec=s})
                end

        self = {}
        self["time"] = attime

        -- following defines behaviour ...
        -- self["gettime"] = access.gettime
        setmetatable(self,meta_access)

        return self
end

-- ------------------------------ Test program stuff

source = arg[1] or "access_log"
print ("Running from file " .. source)

fh = io.open(source,"r")
if not fh then
        print ("No such file " .. source)
        os.exit()
        end

counter = 0
latest = 0

while true do
        record = fh:read()
        if not record then break end
        counter = counter + 1
        if counter > 500 then break end

        goods = access.factory(record)
        if goods then
                when = goods:gettime()
                if when < latest-2 then
                        print ("BACKWARDS " .. when)
                        end
                print (latest,when)
                latest = when
        end
end

print ("Analysed " .. counter .. " records")