luasec/samples/want/server.lua

44 lines
914 B
Lua
Raw Normal View History

2012-09-02 16:15:49 +02:00
--
-- Public domain
--
2013-03-30 13:21:40 +01:00
local socket = require("socket")
local ssl = require("ssl")
2012-09-02 16:15:49 +02:00
local params = {
mode = "server",
protocol = "sslv3",
key = "../certs/serverAkey.pem",
certificate = "../certs/serverA.pem",
cafile = "../certs/rootA.pem",
verify = {"peer", "fail_if_no_peer_cert"},
options = {"all", "no_sslv2"},
}
-- [[ SSL context
local ctx = assert(ssl.newcontext(params))
--]]
local server = socket.tcp()
server:setoption('reuseaddr', true)
assert( server:bind("127.0.0.1", 8888) )
server:listen()
local peer = server:accept()
-- [[ SSL wrapper
peer = assert( ssl.wrap(peer, ctx) )
socket.sleep(2) -- force the timeout in the client dohandshake()
assert( peer:dohandshake() )
--]]
for i = 1, 10 do
local v = tostring(i)
io.write(v)
io.flush()
peer:send(v)
socket.sleep(1) -- force the timeout in the client receive()
end
io.write("\n")
peer:send("\n")
peer:close()