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