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 anchor = anchor -- anchor in URL

13 }

14

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

16

17 --]]--

18

19 function encode.url(args)

20 local external = args.external

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

22 local static = args.static

23 local module = args.module

24 local view = args.view

25 local action = args.action

26 local id = args.id

27 local params = args.params or {}

28 local anchor = args.anchor

29 local result = {}

30 local id_as_param = false

31 local function add(...)

32 for i = 1, math.huge do

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

34 if v == nil then break end

35 result[#result+1] = v

36 end

37 end

38 if external then

39 add(external)

40 else

41 add(base)

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

43 add("/")

44 end

45 if static then

46 add("static/")

47 add(static)

48 elseif module or view or action or id then

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

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

51 if view and not action then

52 local view_base, view_suffix = string.match(

53 view,

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

55 )

56 add(encode.url_part(view_base))

57 if args.id then

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

59 end

60 if view_suffix == "" then

61 add(".html")

62 else

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

64 end

65 elseif action and not view then

66 add(encode.url_part(action))

67 id_as_param = true

68 elseif view and action then

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

70 end

71 end

72 do

73 local new_params = request.get_perm_params()

74 for key, value in pairs(params) do

75 new_params[key] = value

76 end

77 params = new_params

78 end

79 end

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

81 add("?")

82 if id and id_as_param then

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

84 end

85 for key, value in pairs(params) do

86 -- TODO: better way to detect arrays?

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

88 for idx, entry in ipairs(value) do

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

90 end

91 else

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

93 end

94 end

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

96 end

97 local string_result = table.concat(result)

98 if anchor ~= nil then

99 string_result = string.match(string_result, "^[^#]*")

100 if anchor then

101 string_result = string_result .. "#" .. encode.url_part(anchor)

102 end

103 end

104 return string_result

105 end