1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
-- Session handling routines - written for acf
-- Copyright (C) 2007 N. Angelacos - GPL2 License
module (..., package.seeall)
require "posix"
local b64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-"
-- Return a sessionid of at least size bits length
random_hash = function (size)
local file = io.open("/dev/urandom")
local str = ""
if file == nil then return nil end
while (size > 0 ) do
local offset = (string.byte(file:read(1)) % 64) + 1
str = str .. string.sub (b64, offset, offset)
size = size - 6
end
return str
end
-- FIXME: only hashes ipv4
hash_ip_addr = function (string)
local str = ""
for i in string.gmatch(string, "%d+") do
str = str .. string.format("%02x", i )
end
return str
end
ip_addr_from_hash = function (string)
local str = ""
for i in string.gmatch(string, "..") do
str = str .. string.format("%d", "0x" .. i) .. "."
end
return string.sub(str, 1, string.len(str)-1)
end
--[[
These functions serialize a table, including nested tables.
The code based on code in PiL 2nd edition p113
]]--
local function basicSerialize (o)
if type(o) == "number" then
return tostring(o)
else
return string.format("%q", o)
end
end
function serialize (name, value, saved )
local str = str or ""
saved = saved or {}
str = str .. name .. " = "
if type(value) == "number" or type(value) == "string" then
str = str .. basicSerialize (value) .. "\n"
elseif type(value) == "table" then
if saved[value] then
str = str .. saved[value] .. "\n"
else
saved[value] = name
str = str .. "{}\n"
for k,v in pairs(value) do
local fieldname = string.format("%s[%s]", name, basicSerialize(k))
str = str .. serialize (fieldname, v, saved)
end
end
elseif type(value) == "boolean" then
str = str .. tostring(value) .. "\n"
else
str = str .. "nil\n" -- cannot save other types, so skip them
end
return str
end
save_session = function( sessionpath, session, sessiontable)
local file = io.open(sessionpath .. "/session." .. session , "w")
if file then
file:write ( "-- This is an ACF session table.\nlocal timestamp=" .. os.time() )
file:write ( "\nlocal " )
file:write ( serialize("s", sessiontable) )
file:write ( "return timestamp, s\n")
file:close()
return true
else
return false
end
end
-- Loads a session
-- Returns a timestamp (when the session data was saved) and the session table.
load_session = function ( sessionpath, session )
-- session can only have b64 characters in it
session = string.gsub ( session, "[^" .. b64 .. "]", "")
if #session == 0 then
return nil, {}
end
session = sessionpath .. "/session." .. session
if (posix.stat(session)) then
local file = io.open(session)
return dofile(session)
else
return nil, {}
end
end
-- unlinks a session
unlink_session = function (sessionpath, session)
if type(session) ~= "string" then return nil end
local s = string.gsub (session, "[^" .. b64 .. "]", "")
if s ~= session then
return nil
end
session = sessionpath .. "/session." .. s
os.remove (session)
return nil
end
|
