1 --[[--

2 url_string = -- a string containing an URL

3 encode.url{

4 external = external, -- external URL (instead of specifying base, module, etc. below)

5 base = base, -- optional string containing a base URL of a WebMCP application

6 static = static, -- an URL relative to the static file directory

7 module = module, -- a module name of the WebMCP application

8 view = view, -- a view name of the WebMCP application

9 action = action, -- an action name of the WebMCP application

10 id = id, -- optional id to be passed to the view or action to select a particular data record

11 params = params -- optional parameters to be passed to the view or action

12 }

13

14 This function creates URLs to external locations, to static files within the WebMCP application or to a certain view or action inside a module.

15

16 --]]--

17

18 function encode.url(args)

19 local external = args.external

20 local base = args.base or request.get_relative_baseurl()

21 local static = args.static

22 local module = args.module

23 local view = args.view

24 local action = args.action

25 local id = args.id

26 local params = args.params or {}

27 local result = {}

28 local id_as_param = false

29 local function add(...)

30 for i = 1, math.huge do

31 local v = select(i, ...)

32 if v == nil then break end

33 result[#result+1] = v

34 end

35 end

36 if external then

37 add(external)

38 else

39 add(base)

40 if not string.find(base, "/$") then

41 add("/")

42 end

43 if static then

44 add("static/")

45 add(static)

46 elseif module or view or action or id then

47 assert(module, "Module not specified.")

48 add(encode.url_part(module), "/")

49 if view and not action then

50 local view_base, view_suffix = string.match(

51 view,

52 "^([^.]*)(.*)$"

53 )

54 add(encode.url_part(view_base))

55 if args.id then

56 add("/", encode.url_part(id))

57 end

58 if view_suffix == "" then

59 add(".html")

60 else

61 add(view_suffix) -- view_suffix includes dot as first character

62 end

63 elseif action and not view then

64 add(encode.url_part(action))

65 id_as_param = true

66 elseif view and action then

67 error("Both a view and an action was specified.")

68 end

69 end

70 do

71 local new_params = request.get_perm_params()

72 for key, value in pairs(params) do

73 new_params[key] = value

74 end

75 params = new_params

76 end

77 end

78 if next(params) ~= nil or (id and id_as_param) then

79 add("?")

80 if id and id_as_param then

81 add("_webmcp_id=", encode.url_part(id), "&")

82 end

83 for key, value in pairs(params) do

84 -- TODO: better way to detect arrays?

85 if string.match(key, "%[%]$") then

86 for idx, entry in ipairs(value) do

87 add(encode.url_part(key), "=", encode.url_part(entry), "&")

88 end

89 else

90 add(encode.url_part(key), "=", encode.url_part(value), "&")

91 end

92 end

93 result[#result] = nil -- remove last '&' or '?'

94 end

95 return table.concat(result)

96 end