mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 08:15:53 +01:00
82 lines
2.2 KiB
Lua
82 lines
2.2 KiB
Lua
---------------------------------------------------------------------------
|
|
-- RollingFileAppender is a FileAppender that rolls over the logfile
|
|
-- once it has reached a certain size limit. It also mantains a
|
|
-- maximum number of log files.
|
|
--
|
|
-- @author Tiago Cesar Katcipis (tiagokatcipis@gmail.com)
|
|
--
|
|
-- @copyright 2004-2007 Kepler Project
|
|
---------------------------------------------------------------------------
|
|
|
|
require"logging"
|
|
|
|
|
|
local function openFile(self)
|
|
self.file = io.open(self.filename, "a")
|
|
if not self.file then
|
|
return nil, string.format("file `%s' could not be opened for writing", self.filename)
|
|
end
|
|
self.file:setvbuf ("line")
|
|
return self.file
|
|
end
|
|
|
|
local rollOver = function (self)
|
|
|
|
for i = self.maxIndex - 1, 1, -1 do
|
|
-- files may not exist yet, lets ignore the possible errors.
|
|
os.rename(self.filename.."."..i, self.filename.."."..i+1)
|
|
end
|
|
|
|
self.file:close()
|
|
self.file = nil
|
|
|
|
local _, msg = os.rename(self.filename, self.filename..".".."1")
|
|
|
|
if msg then
|
|
return nil, string.format("error %s on log rollover", msg)
|
|
end
|
|
|
|
return openFile(self)
|
|
end
|
|
|
|
|
|
local openRollingFileLogger = function (self)
|
|
|
|
if not self.file then
|
|
return openFile(self)
|
|
end
|
|
|
|
local filesize = self.file:seek("end", 0)
|
|
|
|
if (filesize < self.maxSize) then
|
|
return self.file
|
|
end
|
|
|
|
return rollOver(self)
|
|
end
|
|
|
|
|
|
function logging.rolling_file(filename, maxFileSize, maxBackupIndex, logPattern)
|
|
|
|
if type(filename) ~= "string" then
|
|
filename = "lualogging.log"
|
|
end
|
|
|
|
local obj = { filename = filename,
|
|
maxSize = maxFileSize,
|
|
maxIndex = maxBackupIndex or 1
|
|
}
|
|
|
|
return logging.new( function(self, level, message)
|
|
|
|
local f, msg = openRollingFileLogger(obj)
|
|
if not f then
|
|
return nil, msg
|
|
end
|
|
local s = logging.prepareLogMsg(logPattern, os.date(), level, message)
|
|
f:write(s)
|
|
return true
|
|
end
|
|
)
|
|
end
|