<pre>
<?lsp

-- Rename this file to servercon.lsp and place in any directory
-- accessible by the server.


if page.scon then
   if request:issecure() then
      print"You are using a secure connection.</pre>"
      return
   end
   -- Close old connection, if any
   page.scon:close()
end


-- The following cert is signed with the RTL root cert. You can make
-- the browser bar green by adding a mapping for "device" to the IP
-- address of your server in your "hosts" file and by following these
-- instructions: https://realtimelogic.com/downloads/root-certificate/
-- Create your own cert(s): https://goo.gl/LOLVhS

local x509certData=[[
-----BEGIN CERTIFICATE-----
MIIEpjCCA46gAwIBAgIBFjANBgkqhkiG9w0BAQsFADCBiDELMAkGA1UEBhMCVVMx
HDAaBgNVBAoTE1JlYWwgVGltZSBMb2dpYyBMTEMxETAPBgNVBAsTCFNoYXJrU1NM
MSAwHgYDVQQDExdSZWFsIFRpbWUgTG9naWMgUm9vdCBDQTEmMCQGCSqGSIb3DQEJ
ARYXZ2luZm9AcmVhbHRpbWVsb2dpYy5jb20wHhcNMTQxMDEwMjAwODQ5WhcNMjQx
MDA3MjAwODQ5WjCBjTELMAkGA1UEBhMCVVMxEzARBgNVBAgMCkNhbGlmb3JuaWEx
FjAUBgNVBAcMDU1vbmFyY2ggQmVhY2gxGDAWBgNVBAoMD1JlYWwgVGltZSBMb2dp
YzEPMA0GA1UEAwwGZGV2aWNlMSYwJAYJKoZIhvcNAQkBFhdnaW5mb0ByZWFsdGlt
ZWxvZ2ljLmNvbTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMK21QZh
wBRBpE8Yi59ZSo0K1l1O3olZH8TjWjORE7mpi5694TTRV1g4fX3USY5ET/Q7JSGc
S/b7N3EwVnbKtLgZq2U2mwNn7Hx2L/EpWFFVmrMI9FtEH4S3v1pRUlOQfEn4I5RT
Ef7D1JuL9blMBlXdu8DxLCibdsApypg1SaJsfiu15FP2iXa+YfboelJAl8ix7CGe
RXIL8k/1SnDs4dc1JQeQMyDfeuLAUnDoFnj28+5QmhMa59R5726+uyljmI8zQKHn
2lXkuDLzy2xQMEtCXf/wkxp/Q/AFku1B5QOgD6V+Tn5+jZR8dzuzzLci3t/ccJ8L
fKqsu9wWvC+kgOcCAwEAAaOCARIwggEOMB0GA1UdDgQWBBR7YqXcErwiHcQMlOeg
oi8kb1oDujCBtQYDVR0jBIGtMIGqgBR5WJiD95qiAIijiNw8amaN5CkChqGBjqSB
izCBiDELMAkGA1UEBhMCVVMxHDAaBgNVBAoTE1JlYWwgVGltZSBMb2dpYyBMTEMx
ETAPBgNVBAsTCFNoYXJrU1NMMSAwHgYDVQQDExdSZWFsIFRpbWUgTG9naWMgUm9v
dCBDQTEmMCQGCSqGSIb3DQEJARYXZ2luZm9AcmVhbHRpbWVsb2dpYy5jb22CAQAw
CQYDVR0TBAIwADALBgNVHQ8EBAMCA6gwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsG
AQUFBwMBMA0GCSqGSIb3DQEBCwUAA4IBAQB35HujLlOHh4dL9VeASBeSytUnzcUb
KiifJGJHMHGAhGMJ8CtaqPYXjd6I9tzNnf6D7Wazgzq1tqLlHliPZ5yA6zBjEx7e
U0yzgNRxGFxA5f5utq/qQvSumPRb41cs+lwwnBw/CPZVskJjP9frc49QoDcR0oiV
2cYYELbNt2r/iR/czh9b9hjh1HDz4OSmAo2HMKSvrNl7cYM+CoMgNJP2Gd0C35xl
yesbkFUaa20Li2tJap/L+auiSqo3Hc5UdeS9SorojFF5OoFd88EtUjqJqwNUyQKM
IDWTpOpayEerPYzUIsHjy/veeMSaNYQIL6wJ99yX7UZywGWfncbut1ka
-----END CERTIFICATE-----
]]

-- The above cert's key
local x509KeyData=[[
-----BEGIN RSA PRIVATE KEY-----
MIIEpAIBAAKCAQEAwrbVBmHAFEGkTxiLn1lKjQrWXU7eiVkfxONaM5ETuamLnr3h
NNFXWDh9fdRJjkRP9DslIZxL9vs3cTBWdsq0uBmrZTabA2fsfHYv8SlYUVWaswj0
W0QfhLe/WlFSU5B8SfgjlFMR/sPUm4v1uUwGVd27wPEsKJt2wCnKmDVJomx+K7Xk
U/aJdr5h9uh6UkCXyLHsIZ5FcgvyT/VKcOzh1zUlB5AzIN964sBScOgWePbz7lCa
Exrn1Hnvbr67KWOYjzNAoefaVeS4MvPLbFAwS0Jd//CTGn9D8AWS7UHlA6APpX5O
fn6NlHx3O7PMtyLe39xwnwt8qqy73Ba8L6SA5wIDAQABAoIBAQCyaLXdyBkoNlEo
DBR6qGUPwLtT+Z0b+iaKz8ppb2fEeV4t0EuWiq3ebrxFXAsdqOgdn0fReRV9swdE
1gaTh/54pUSPU65LO6DLFbut27VJqQc7Plwvd8btYzOYvOSTHtNTL2LiWA8oASVA
dMhsxQUVDjsneZN9jZ0MS/6O4lyazfMwXEk4lkDUaeAwGHBnMZmc3MnQ0RlRxss0
vtQOsQbOjk8z6IjuwfZ/ecvZ88BaQ3rOnCBn/d+k4aKegTU/f3kQwplD6XU2uLTb
2TOXNvvTxlrFzpAuKvxzOXqsc6zS/QhTcVwUhnQ0FoSR22QS5584j5E6u4AJYwJW
P1ktad2JAoGBAP8cvOfNxIST1klMWWA7t1vG5gVgmjFdZ3HY3QxiedigIATfkJEu
IzzP9gJptiPeM67fgsFg6s9ECBl84lP315IMdK99O4gGfjsoCq2kWjBwpOX7Axfl
fAIZToWNTYbZgrAVVfgDy6eZmmyGr1ECgrss9HiUHTBz9nJzfkgM9APrAoGBAMNk
SincBRIPnsNDEUfITE9faPm9V2f0f2htVPSMY0OsejPWpBx5or9eoqabHuyOFbPQ
o3uubknyHPDXMgnrqoE60lbqHGZufxFHnA2ZvK5EIv5jz9tA5uviLL8WAyw1vs09
c/+jgg1MC/NM9SUDLz7ZrSruWgMn74ebe3Qi8wP1AoGAFBYHKZkh5+5b6NmCD/mj
ri4y3imE+m4IPwZ8IQV/4nZ5DukrUML5M0iMbhQ0qw5Ls3EVsnQXCMqqeJdEmqfg
6Tbh2Q9bKJKaTb4RWSqfj0DPOuxQigkfgmrLq+g8OmnVyFdltWlXF5MYfYL9Oruf
32zisru2sKHwvYIqZzHd5JECgYEAkgRQqBeUcnrZ2nI0Z8B3xpk2ievFdhpxXEjY
RCjlxZ0Pdc3htqXvybOfOYKTCZTlAwvYIIWqRfh5SEKJUoCbWxfqOKmbr7DDpNYu
+Lr7FgA1ZoaQvvkxmPXdGrAIjvFbNWXHWjOG7Qj3pUrNqGtI01842exluBYQGvdG
uvOjSEECgYBChV2mybBkk7pDwHFdk9E94q73D7P2al6KvJrnsirwfFa5j2GDTwg6
SwiSA8MSwhXN8aUubrRejkIR1MycD6IGoCqQ0ryhHCFIDUWLLwGLvJYgU93V/rEX
Y2XQtW8aFCBTusg33qYmNjc27xxhI8XhNEq9U+xiobHG60ANNcXjrQ==
-----END RSA PRIVATE KEY----- 
]]


-- Servers do not use a cert store unless mutual authentication is required.
local shark=ba.create.sharkssl(nil, {server=true})
local x509cert = ba.create.sharkcert(x509certData,x509KeyData)
shark:addcert(x509cert) -- Certificate required for servers.

-- Open port 8345. Attribute 'shark' is set to our shark object.
local port=8345
local scon = ba.create.servcon(port, {shark=shark})

if scon then
   page.scon=scon
   local host = request:header"host"
   if host ~= "device" then
      trace"Warning: server name is not 'device'. See LSP page for details."
   end
   local url = string.format("https://%s:%d%s",host,port,request:uri())
   response:sendredirect(url)
else
   print("Port",port,"is in use. Select another port number.")
end

?>
</pre>