webmcp
annotate framework/cgi-bin/webmcp.lua @ 66:afed1ab1477f
Bugfix regarding compatibility with Lua 5.2:
#if instead of #ifdef in webmcp_accelerator.c
#if instead of #ifdef in webmcp_accelerator.c
author | jbe |
---|---|
date | Tue Apr 17 15:38:05 2012 +0200 (2012-04-17) |
parents | a54cc7dcabf1 |
children | ebdc20b7048b |
rev | line source |
---|---|
jbe/bsw@0 | 1 #!/usr/bin/env lua |
jbe/bsw@0 | 2 |
jbe@64 | 3 _WEBMCP_VERSION = "1.1.4" |
jbe@64 | 4 |
jbe@64 | 5 -- Lua 5.1 compatibility |
jbe@64 | 6 if not table.unpack then |
jbe@64 | 7 table.unpack = unpack |
jbe@64 | 8 end |
jbe@1 | 9 |
jbe/bsw@0 | 10 -- include "../lib/" in search path for libraries |
poelzi@28 | 11 if not WEBMCP_PATH then |
poelzi@28 | 12 WEBMCP_PATH = "../" |
poelzi@28 | 13 end |
poelzi@28 | 14 |
jbe/bsw@0 | 15 do |
jbe@43 | 16 package.path = WEBMCP_PATH .. 'lib/?.lua;' .. package.path |
jbe/bsw@0 | 17 -- find out which file name extension shared libraries have |
jbe/bsw@0 | 18 local slib_exts = {} |
jbe/bsw@0 | 19 for ext in string.gmatch(package.cpath, "%?%.([A-Za-z0-9_-]+)") do |
jbe/bsw@0 | 20 slib_exts[ext] = true |
jbe/bsw@0 | 21 end |
jbe/bsw@0 | 22 local paths = {} |
jbe/bsw@0 | 23 for ext in pairs(slib_exts) do |
jbe@43 | 24 paths[#paths+1] = WEBMCP_PATH .. "accelerator/?." .. ext |
jbe/bsw@0 | 25 end |
jbe/bsw@0 | 26 for ext in pairs(slib_exts) do |
jbe@43 | 27 paths[#paths+1] = WEBMCP_PATH .. "lib/?." .. ext |
jbe/bsw@0 | 28 end |
jbe/bsw@0 | 29 paths[#paths+1] = package.cpath |
jbe/bsw@0 | 30 package.cpath = table.concat(paths, ";") |
jbe/bsw@0 | 31 end |
jbe/bsw@0 | 32 |
jbe/bsw@0 | 33 -- load os extensions for lua |
jbe/bsw@0 | 34 -- (should happen as soon as possible due to run time measurement) |
jbe@64 | 35 extos = require 'extos' |
jbe/bsw@0 | 36 |
jbe/bsw@0 | 37 -- load nihil library |
jbe@64 | 38 nihil = require 'nihil' |
jbe/bsw@0 | 39 |
jbe/bsw@0 | 40 -- load random generator library |
jbe@64 | 41 multirand = require 'multirand' |
jbe/bsw@0 | 42 |
jbe/bsw@0 | 43 -- load rocketcgi library and map it to cgi |
jbe/bsw@0 | 44 do |
jbe/bsw@0 | 45 local option = os.getenv("WEBMCP_INTERACTIVE") |
jbe/bsw@0 | 46 if option and option ~= "" and option ~= "0" then |
jbe/bsw@0 | 47 cgi = nil |
jbe/bsw@0 | 48 else |
jbe@64 | 49 rocketcgi = require 'rocketcgi' |
jbe/bsw@0 | 50 cgi = rocketcgi |
jbe/bsw@0 | 51 end |
jbe/bsw@0 | 52 end |
jbe/bsw@0 | 53 |
jbe/bsw@0 | 54 -- load database access library with object relational mapper |
jbe@64 | 55 mondelefant = require 'mondelefant' |
jbe/bsw@0 | 56 mondelefant.connection_prototype.error_objects = true |
jbe/bsw@0 | 57 |
jbe/bsw@0 | 58 -- load type system "atom" |
jbe@64 | 59 atom = require 'atom' |
jbe/bsw@0 | 60 |
jbe/bsw@0 | 61 -- load mondelefant atom connector |
jbe/bsw@0 | 62 require 'mondelefant_atom_connector' |
jbe/bsw@0 | 63 |
jbe/bsw@0 | 64 --[[-- |
jbe/bsw@0 | 65 cloned_table = -- newly generated table |
jbe/bsw@0 | 66 table.new( |
jbe/bsw@0 | 67 table_or_nil -- keys of a given table will be copied to the new table |
jbe/bsw@0 | 68 ) |
jbe/bsw@0 | 69 |
jbe/bsw@0 | 70 If a table is given, then a cloned table is returned. |
jbe/bsw@0 | 71 If nil is given, then a new empty table is returned. |
jbe/bsw@0 | 72 |
jbe/bsw@0 | 73 --]]-- |
jbe/bsw@0 | 74 function table.new(tbl) |
jbe/bsw@0 | 75 new_tbl = {} |
jbe/bsw@0 | 76 if tbl then |
jbe/bsw@0 | 77 for key, value in pairs(tbl) do |
jbe/bsw@0 | 78 new_tbl[key] = value |
jbe/bsw@0 | 79 end |
jbe/bsw@0 | 80 end |
jbe/bsw@0 | 81 return new_tbl |
jbe/bsw@0 | 82 end |
jbe/bsw@0 | 83 --//-- |
jbe/bsw@0 | 84 |
jbe/bsw@0 | 85 --[[-- |
jbe/bsw@0 | 86 at_exit( |
jbe/bsw@0 | 87 func -- function to be called before the process is ending |
jbe/bsw@0 | 88 ) |
jbe/bsw@0 | 89 |
jbe/bsw@0 | 90 Registers a function to be called before the CGI process is exiting. |
jbe/bsw@0 | 91 --]]-- |
jbe/bsw@0 | 92 do |
jbe/bsw@0 | 93 local exit_handlers = {} |
jbe/bsw@0 | 94 function at_exit(func) |
jbe/bsw@0 | 95 table.insert(exit_handlers, func) |
jbe/bsw@0 | 96 end |
jbe/bsw@0 | 97 function exit(code) |
jbe/bsw@0 | 98 for i = #exit_handlers, 1, -1 do |
jbe/bsw@0 | 99 exit_handlers[i]() |
jbe/bsw@0 | 100 end |
jbe/bsw@0 | 101 os.exit(code) |
jbe/bsw@0 | 102 end |
jbe/bsw@0 | 103 end |
jbe/bsw@0 | 104 --//-- |
jbe/bsw@0 | 105 |
jbe/bsw@0 | 106 --[[-- |
jbe/bsw@0 | 107 app -- table to store an application state |
jbe/bsw@0 | 108 |
jbe/bsw@0 | 109 'app' is a global table for storing any application state data |
jbe/bsw@0 | 110 --]]-- |
jbe/bsw@0 | 111 app = {} |
jbe/bsw@0 | 112 --//-- |
jbe/bsw@0 | 113 |
jbe/bsw@0 | 114 --[[-- |
jbe/bsw@0 | 115 config -- table to store application configuration |
jbe/bsw@0 | 116 |
jbe/bsw@0 | 117 'config' is a global table, which can be modified by a config file of an application to modify the behaviour of that application. |
jbe/bsw@0 | 118 --]]-- |
jbe/bsw@0 | 119 config = {} |
jbe/bsw@0 | 120 --//-- |
jbe/bsw@0 | 121 |
jbe/bsw@0 | 122 -- autoloader system for WebMCP environment "../env/", |
jbe/bsw@0 | 123 -- application environment extensions "$WEBMCP_APP_BASE/env/" |
jbe/bsw@0 | 124 -- and models "$WEBMCP_APP_BASE/model/" |
jbe/bsw@0 | 125 do |
jbe/bsw@0 | 126 local app_base = os.getenv("WEBMCP_APP_BASEPATH") |
jbe/bsw@0 | 127 if not app_base then |
jbe/bsw@0 | 128 error( |
jbe/bsw@0 | 129 "Failed to initialize autoloader " .. |
jbe/bsw@0 | 130 "due to unset WEBMCP_APP_BASEPATH environment variable." |
jbe/bsw@0 | 131 ) |
jbe/bsw@0 | 132 end |
jbe/bsw@0 | 133 local weakkey_mt = { __mode = "k" } |
jbe/bsw@0 | 134 local autoloader_category = setmetatable({}, weakkey_mt) |
jbe/bsw@0 | 135 local autoloader_path = setmetatable({}, weakkey_mt) |
jbe/bsw@0 | 136 local autoloader_mt = {} |
jbe/bsw@0 | 137 local function install_autoloader(self, category, path) |
jbe/bsw@0 | 138 autoloader_category[self] = category |
jbe/bsw@0 | 139 autoloader_path[self] = path |
jbe/bsw@0 | 140 setmetatable(self, autoloader_mt) |
jbe/bsw@0 | 141 end |
jbe/bsw@0 | 142 local function try_exec(filename) |
jbe/bsw@0 | 143 local file = io.open(filename, "r") |
jbe/bsw@0 | 144 if file then |
jbe/bsw@0 | 145 local filedata = file:read("*a") |
jbe/bsw@0 | 146 io.close(file) |
jbe/bsw@0 | 147 local func, errmsg = loadstring(filedata, "=" .. filename) |
jbe/bsw@0 | 148 if func then |
jbe/bsw@0 | 149 func() |
jbe/bsw@0 | 150 return true |
jbe/bsw@0 | 151 else |
jbe/bsw@0 | 152 error(errmsg, 0) |
jbe/bsw@0 | 153 end |
jbe/bsw@0 | 154 else |
jbe/bsw@0 | 155 return false |
jbe/bsw@0 | 156 end |
jbe/bsw@0 | 157 end |
jbe/bsw@0 | 158 local function compose_path_string(base, path, key) |
jbe/bsw@0 | 159 return string.gsub( |
jbe/bsw@0 | 160 base .. table.concat(path, "/") .. "/" .. key, "/+", "/" |
jbe/bsw@0 | 161 ) |
jbe/bsw@0 | 162 end |
jbe/bsw@0 | 163 function autoloader_mt.__index(self, key) |
jbe/bsw@0 | 164 local category, base_path, merge_base_path, file_key |
jbe/bsw@0 | 165 local merge = false |
jbe/bsw@0 | 166 if |
jbe/bsw@0 | 167 string.find(key, "^[a-z_][A-Za-z0-9_]*$") and |
jbe/bsw@0 | 168 not string.find(key, "^__") |
jbe/bsw@0 | 169 then |
jbe/bsw@0 | 170 category = "env" |
jbe@43 | 171 base_path = WEBMCP_PATH .. "/env/" |
jbe/bsw@0 | 172 merge = true |
jbe/bsw@0 | 173 merge_base_path = app_base .. "/env/" |
jbe/bsw@0 | 174 file_key = key |
jbe/bsw@0 | 175 elseif string.find(key, "^[A-Z][A-Za-z0-9]*$") then |
jbe/bsw@0 | 176 category = "model" |
jbe/bsw@0 | 177 base_path = app_base .. "/model/" |
jbe/bsw@0 | 178 local first = true |
jbe/bsw@0 | 179 file_key = string.gsub(key, "[A-Z]", |
jbe/bsw@0 | 180 function(c) |
jbe/bsw@0 | 181 if first then |
jbe/bsw@0 | 182 first = false |
jbe/bsw@0 | 183 return string.lower(c) |
jbe/bsw@0 | 184 else |
jbe/bsw@0 | 185 return "_" .. string.lower(c) |
jbe/bsw@0 | 186 end |
jbe/bsw@0 | 187 end |
jbe/bsw@0 | 188 ) |
jbe/bsw@0 | 189 else |
jbe/bsw@0 | 190 return |
jbe/bsw@0 | 191 end |
jbe/bsw@0 | 192 local required_category = autoloader_category[self] |
jbe/bsw@0 | 193 if required_category and required_category ~= category then return end |
jbe/bsw@0 | 194 local path = autoloader_path[self] |
jbe/bsw@0 | 195 local path_string = compose_path_string(base_path, path, file_key) |
jbe/bsw@0 | 196 local merge_path_string |
jbe/bsw@0 | 197 if merge then |
jbe/bsw@0 | 198 merge_path_string = compose_path_string( |
jbe/bsw@0 | 199 merge_base_path, path, file_key |
jbe/bsw@0 | 200 ) |
jbe/bsw@0 | 201 end |
jbe/bsw@0 | 202 local function try_dir(dirname) |
jbe/bsw@0 | 203 local dir = io.open(dirname) |
jbe/bsw@0 | 204 if dir then |
jbe/bsw@0 | 205 io.close(dir) |
jbe/bsw@0 | 206 local obj = {} |
jbe/bsw@0 | 207 local sub_path = {} |
jbe/bsw@0 | 208 for i, v in ipairs(path) do sub_path[i] = v end |
jbe/bsw@0 | 209 table.insert(sub_path, file_key) |
jbe/bsw@0 | 210 install_autoloader(obj, category, sub_path) |
jbe/bsw@0 | 211 rawset(self, key, obj) |
jbe/bsw@0 | 212 try_exec(path_string .. "/__init.lua") |
jbe/bsw@0 | 213 if merge then try_exec(merge_path_string .. "/__init.lua") end |
jbe/bsw@0 | 214 return true |
jbe/bsw@0 | 215 else |
jbe/bsw@0 | 216 return false |
jbe/bsw@0 | 217 end |
jbe/bsw@0 | 218 end |
jbe/bsw@0 | 219 if merge and try_exec(merge_path_string .. ".lua") then |
jbe/bsw@0 | 220 elseif merge and try_dir(merge_path_string .. "/") then |
jbe/bsw@0 | 221 elseif try_exec(path_string .. ".lua") then |
jbe/bsw@0 | 222 elseif try_dir(path_string .. "/") then |
jbe/bsw@0 | 223 else end |
jbe/bsw@0 | 224 return rawget(self, key) |
jbe/bsw@0 | 225 end |
jbe/bsw@0 | 226 install_autoloader(_G, nil, {}) |
jbe@43 | 227 try_exec(WEBMCP_PATH .. "env/__init.lua") |
jbe/bsw@0 | 228 end |
jbe/bsw@0 | 229 |
jbe/bsw@0 | 230 -- interactive console mode |
jbe/bsw@0 | 231 if not cgi then |
jbe/bsw@0 | 232 local config_name = request.get_config_name() |
jbe/bsw@0 | 233 if config_name then |
jbe/bsw@0 | 234 execute.config(config_name) |
jbe/bsw@0 | 235 end |
jbe/bsw@0 | 236 return |
jbe/bsw@0 | 237 end |
jbe/bsw@0 | 238 |
jbe/bsw@0 | 239 local success, error_info = xpcall( |
jbe/bsw@0 | 240 function() |
jbe/bsw@0 | 241 |
jbe/bsw@0 | 242 -- execute configuration file |
jbe/bsw@0 | 243 do |
jbe/bsw@0 | 244 local config_name = request.get_config_name() |
jbe/bsw@0 | 245 if config_name then |
jbe/bsw@0 | 246 execute.config(config_name) |
jbe/bsw@0 | 247 end |
jbe/bsw@0 | 248 end |
jbe/bsw@0 | 249 |
jbe/bsw@0 | 250 -- restore slots if coming from http redirect |
jbe/bsw@0 | 251 if cgi.params.tempstore then |
jbe/bsw@0 | 252 trace.restore_slots{} |
jbe/bsw@0 | 253 local blob = tempstore.pop(cgi.params.tempstore) |
jbe/bsw@0 | 254 if blob then slot.restore_all(blob) end |
jbe/bsw@0 | 255 end |
jbe/bsw@0 | 256 |
jbe/bsw@0 | 257 local function file_exists(filename) |
jbe/bsw@0 | 258 local file = io.open(filename, "r") |
jbe/bsw@0 | 259 if file then |
jbe/bsw@0 | 260 io.close(file) |
jbe/bsw@0 | 261 return true |
jbe/bsw@0 | 262 else |
jbe/bsw@0 | 263 return false |
jbe/bsw@0 | 264 end |
jbe/bsw@0 | 265 end |
jbe/bsw@0 | 266 |
jbe/bsw@0 | 267 if cgi.params["_webmcp_404"] then |
jbe/bsw@0 | 268 request.force_absolute_baseurl() |
jbe/bsw@0 | 269 request.set_status("404 Not Found") |
jbe/bsw@0 | 270 if request.get_404_route() then |
jbe/bsw@0 | 271 request.forward(request.get_404_route()) |
jbe/bsw@0 | 272 else |
jbe/bsw@0 | 273 error("No 404 page set.") |
jbe/bsw@0 | 274 end |
jbe/bsw@0 | 275 elseif request.get_action() then |
jbe/bsw@0 | 276 trace.request{ |
jbe/bsw@0 | 277 module = request.get_module(), |
jbe/bsw@0 | 278 action = request.get_action() |
jbe/bsw@0 | 279 } |
jbe/bsw@0 | 280 if |
jbe/bsw@0 | 281 request.get_404_route() and |
jbe/bsw@0 | 282 not file_exists( |
jbe/bsw@0 | 283 encode.action_file_path{ |
jbe/bsw@0 | 284 module = request.get_module(), |
jbe/bsw@0 | 285 action = request.get_action() |
jbe/bsw@0 | 286 } |
jbe/bsw@0 | 287 ) |
jbe/bsw@0 | 288 then |
jbe/bsw@0 | 289 request.set_status("404 Not Found") |
jbe/bsw@0 | 290 request.forward(request.get_404_route()) |
jbe/bsw@0 | 291 else |
jbe/bsw@0 | 292 if cgi.method ~= "POST" then |
jbe/bsw@0 | 293 request.set_status("405 Method Not Allowed") |
jbe/bsw@0 | 294 cgi.add_header("Allow: POST") |
jbe/bsw@0 | 295 error("Tried to invoke an action with a GET request.") |
jbe/bsw@0 | 296 end |
jbe/bsw@0 | 297 local action_status = execute.filtered_action{ |
jbe/bsw@0 | 298 module = request.get_module(), |
jbe/bsw@0 | 299 action = request.get_action(), |
jbe/bsw@0 | 300 } |
jbe/bsw@0 | 301 if not request.is_rerouted() then |
jbe/bsw@0 | 302 local routing_mode, routing_module, routing_view |
jbe/bsw@0 | 303 routing_mode = cgi.params["_webmcp_routing." .. action_status .. ".mode"] |
jbe/bsw@0 | 304 routing_module = cgi.params["_webmcp_routing." .. action_status .. ".module"] |
jbe/bsw@0 | 305 routing_view = cgi.params["_webmcp_routing." .. action_status .. ".view"] |
jbe/bsw@0 | 306 if not (routing_mode or routing_module or routing_view) then |
jbe/bsw@0 | 307 action_status = "default" |
jbe/bsw@0 | 308 routing_mode = cgi.params["_webmcp_routing.default.mode"] |
jbe/bsw@0 | 309 routing_module = cgi.params["_webmcp_routing.default.module"] |
jbe/bsw@0 | 310 routing_view = cgi.params["_webmcp_routing.default.view"] |
jbe/bsw@0 | 311 end |
jbe/bsw@0 | 312 assert(routing_module, "Routing information has no module.") |
jbe/bsw@0 | 313 assert(routing_view, "Routing information has no view.") |
jbe/bsw@0 | 314 if routing_mode == "redirect" then |
jbe/bsw@0 | 315 local routing_params = {} |
jbe/bsw@0 | 316 for key, value in pairs(cgi.params) do |
jbe/bsw@0 | 317 local status, stripped_key = string.match( |
jbe/bsw@0 | 318 key, "^_webmcp_routing%.([^%.]*)%.params%.(.*)$" |
jbe/bsw@0 | 319 ) |
jbe/bsw@0 | 320 if status == action_status then |
jbe/bsw@0 | 321 routing_params[stripped_key] = value |
jbe/bsw@0 | 322 end |
jbe/bsw@0 | 323 end |
jbe/bsw@0 | 324 request.redirect{ |
jbe/bsw@0 | 325 module = routing_module, |
jbe/bsw@0 | 326 view = routing_view, |
jbe/bsw@0 | 327 id = cgi.params["_webmcp_routing." .. action_status .. ".id"], |
jbe/bsw@0 | 328 params = routing_params |
jbe/bsw@0 | 329 } |
jbe/bsw@0 | 330 elseif routing_mode == "forward" then |
jbe/bsw@0 | 331 request.forward{ module = routing_module, view = routing_view } |
jbe/bsw@0 | 332 else |
jbe/bsw@0 | 333 error("Missing or unknown routing mode in request parameters.") |
jbe/bsw@0 | 334 end |
jbe/bsw@0 | 335 end |
jbe/bsw@0 | 336 end |
jbe/bsw@0 | 337 else |
jbe/bsw@0 | 338 -- no action |
jbe/bsw@0 | 339 trace.request{ |
jbe/bsw@0 | 340 module = request.get_module(), |
jbe/bsw@0 | 341 view = request.get_view() |
jbe/bsw@0 | 342 } |
jbe/bsw@0 | 343 if |
jbe/bsw@0 | 344 request.get_404_route() and |
jbe/bsw@0 | 345 not file_exists( |
jbe/bsw@0 | 346 encode.view_file_path{ |
jbe/bsw@0 | 347 module = request.get_module(), |
jbe/bsw@0 | 348 view = request.get_view() |
jbe/bsw@0 | 349 } |
jbe/bsw@0 | 350 ) |
jbe/bsw@0 | 351 then |
jbe/bsw@0 | 352 request.set_status("404 Not Found") |
jbe/bsw@0 | 353 request.forward(request.get_404_route()) |
jbe/bsw@0 | 354 end |
jbe/bsw@0 | 355 end |
jbe/bsw@0 | 356 |
jbe/bsw@0 | 357 if not request.get_redirect_data() then |
jbe@3 | 358 request.process_forward() |
jbe/bsw@2 | 359 local view = request.get_view() |
jbe/bsw@2 | 360 if string.find(view, "^_") then |
jbe/bsw@2 | 361 error("Tried to call a private view (prefixed with underscore).") |
jbe/bsw@2 | 362 end |
jbe/bsw@0 | 363 execute.filtered_view{ |
jbe/bsw@0 | 364 module = request.get_module(), |
jbe/bsw@2 | 365 view = view, |
jbe/bsw@0 | 366 } |
jbe/bsw@0 | 367 end |
jbe/bsw@0 | 368 |
jbe/bsw@0 | 369 -- force error due to missing absolute base URL until its too late to display error message |
jbe/bsw@0 | 370 --if request.get_redirect_data() then |
jbe/bsw@0 | 371 -- request.get_absolute_baseurl() |
jbe/bsw@0 | 372 --end |
jbe/bsw@0 | 373 |
jbe/bsw@0 | 374 end, |
jbe/bsw@0 | 375 |
jbe/bsw@0 | 376 function(errobj) |
jbe/bsw@0 | 377 return { |
jbe/bsw@0 | 378 errobj = errobj, |
jbe/bsw@0 | 379 stacktrace = string.gsub( |
jbe/bsw@0 | 380 debug.traceback('', 2), |
jbe/bsw@0 | 381 "^\r?\n?stack traceback:\r?\n?", "" |
jbe/bsw@0 | 382 ) |
jbe/bsw@0 | 383 } |
jbe/bsw@0 | 384 end |
jbe/bsw@0 | 385 ) |
jbe/bsw@0 | 386 |
jbe/bsw@0 | 387 if not success then trace.error{} end |
jbe/bsw@0 | 388 |
jbe/bsw@0 | 389 -- laufzeitermittlung |
jbe@65 | 390 trace.exectime{ real = extos.monotonic_hires_time(), cpu = os.clock() } |
jbe/bsw@0 | 391 |
jbe/bsw@0 | 392 slot.select('trace', trace.render) -- render trace information |
jbe/bsw@0 | 393 |
jbe/bsw@0 | 394 local redirect_data = request.get_redirect_data() |
jbe/bsw@0 | 395 |
jbe/bsw@0 | 396 -- log error and switch to error layout, unless success |
jbe/bsw@0 | 397 if not success then |
jbe/bsw@0 | 398 local errobj = error_info.errobj |
jbe/bsw@0 | 399 local stacktrace = error_info.stacktrace |
jbe/bsw@11 | 400 if not request.get_status() and not request.get_json_request_slots() then |
jbe/bsw@0 | 401 request.set_status("500 Internal Server Error") |
jbe/bsw@0 | 402 end |
jbe/bsw@0 | 403 slot.set_layout('system_error') |
jbe/bsw@0 | 404 slot.select('system_error', function() |
jbe/bsw@0 | 405 if getmetatable(errobj) == mondelefant.errorobject_metatable then |
jbe/bsw@0 | 406 slot.put( |
jbe/bsw@0 | 407 "<p>Database error of class <b>", |
jbe/bsw@0 | 408 encode.html(errobj.code), |
jbe/bsw@0 | 409 "</b> occured:<br/><b>", |
jbe/bsw@0 | 410 encode.html(errobj.message), |
jbe/bsw@0 | 411 "</b></p>" |
jbe/bsw@0 | 412 ) |
jbe/bsw@0 | 413 else |
jbe/bsw@0 | 414 slot.put("<p><b>", encode.html(tostring(errobj)), "</b></p>") |
jbe/bsw@0 | 415 end |
jbe/bsw@0 | 416 slot.put("<p>Stack trace follows:<br/>") |
jbe/bsw@0 | 417 slot.put(encode.html_newlines(encode.html(stacktrace))) |
jbe/bsw@0 | 418 slot.put("</p>") |
jbe/bsw@0 | 419 end) |
jbe/bsw@0 | 420 elseif redirect_data then |
jbe/bsw@0 | 421 local redirect_params = {} |
jbe/bsw@0 | 422 for key, value in pairs(redirect_data.params) do |
jbe/bsw@0 | 423 redirect_params[key] = value |
jbe/bsw@0 | 424 end |
jbe/bsw@0 | 425 local slot_dump = slot.dump_all() |
jbe/bsw@0 | 426 if slot_dump ~= "" then |
jbe/bsw@0 | 427 redirect_params.tempstore = tempstore.save(slot_dump) |
jbe/bsw@0 | 428 end |
jbe/bsw@11 | 429 local json_request_slots = request.get_json_request_slots() |
jbe/bsw@11 | 430 if json_request_slots then |
jbe/bsw@11 | 431 redirect_params["_webmcp_json_slots[]"] = json_request_slots |
jbe/bsw@11 | 432 end |
jbe/bsw@0 | 433 cgi.redirect( |
jbe/bsw@0 | 434 encode.url{ |
jbe/bsw@0 | 435 base = request.get_absolute_baseurl(), |
jbe/bsw@0 | 436 module = redirect_data.module, |
jbe/bsw@0 | 437 view = redirect_data.view, |
jbe/bsw@0 | 438 id = redirect_data.id, |
jbe/bsw@0 | 439 params = redirect_params |
jbe/bsw@0 | 440 } |
jbe/bsw@0 | 441 ) |
jbe/bsw@0 | 442 cgi.send_data() |
jbe/bsw@0 | 443 end |
jbe/bsw@0 | 444 |
jbe/bsw@0 | 445 if not success or not redirect_data then |
jbe/bsw@0 | 446 |
jbe/bsw@0 | 447 local http_status = request.get_status() |
jbe/bsw@0 | 448 if http_status then |
jbe/bsw@0 | 449 cgi.set_status(http_status) |
jbe/bsw@0 | 450 end |
jbe/bsw@0 | 451 |
jbe@1 | 452 local json_request_slots = request.get_json_request_slots() |
jbe@1 | 453 if json_request_slots then |
jbe@1 | 454 cgi.set_content_type('application/json') |
jbe@1 | 455 local data = {} |
jbe@1 | 456 for idx, slot_ident in ipairs(json_request_slots) do |
jbe@1 | 457 data[slot_ident] = slot.get_content(slot_ident) |
jbe/bsw@0 | 458 end |
jbe@1 | 459 cgi.send_data(encode.json(data)) |
jbe/bsw@0 | 460 else |
jbe/bsw@0 | 461 cgi.set_content_type(slot.get_content_type()) |
jbe/bsw@0 | 462 cgi.send_data(slot.render_layout()) |
jbe/bsw@0 | 463 end |
jbe/bsw@0 | 464 end |
jbe/bsw@0 | 465 |
jbe/bsw@0 | 466 exit() |