/[eiffelstudio]/trunk/Src/web/eiffel-cloud/modules/es_cloud/webapi/es_cloud_webapi_handler.e
ViewVC logotype

Diff of /trunk/Src/web/eiffel-cloud/modules/es_cloud/webapi/es_cloud_webapi_handler.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 103674 by jfiat, Fri Nov 8 18:33:05 2019 UTC revision 103675 by jfiat, Tue Nov 12 12:35:53 2019 UTC
# Line 67  feature -- Helper Line 67  feature -- Helper
67                          Result := api.webapi_path ("/cloud/" + url_encoded (a_version) + "/")                          Result := api.webapi_path ("/cloud/" + url_encoded (a_version) + "/")
68                  end                  end
69    
70            cloud_plans_link (a_version: READABLE_STRING_GENERAL): STRING
71                    do
72                            Result := cloud_link (a_version) + "plan/"
73                    end
74    
75            cloud_plan_link (a_version: READABLE_STRING_GENERAL; pid: INTEGER): STRING
76                    do
77                            Result := cloud_plans_link (a_version) + pid.out
78                    end
79    
80          cloud_user_link (a_version: READABLE_STRING_GENERAL; a_user: ES_CLOUD_USER): STRING          cloud_user_link (a_version: READABLE_STRING_GENERAL; a_user: ES_CLOUD_USER): STRING
81                  do                  do
82                          Result := cloud_link (a_version) + "account/" + a_user.id.out                          Result := cloud_link (a_version) + "account/" + a_user.id.out
# Line 92  feature -- Helper Line 102  feature -- Helper
102                          Result := cloud_user_installation_sessions_link (a_version, a_user, iid) + url_encoded (sid)                          Result := cloud_user_installation_sessions_link (a_version, a_user, iid) + url_encoded (sid)
103                  end                  end
104    
105    feature {NONE} -- Implementation
106    
107            remove_last_segment (a_location: STRING_8; a_keep_ending_slash: BOOLEAN)
108                    local
109                            i: INTEGER
110                    do
111                            if a_location.ends_with_general ("/") then
112                                    i := a_location.count - 1
113                            else
114                                    i := a_location.count
115                            end
116                            i := a_location.last_index_of ('/', i)
117                            if i > 0 then
118                                    if a_keep_ending_slash then
119                                            a_location.keep_head (i)
120                                    else
121                                            a_location.keep_head (i - 1)
122                                    end
123                            end
124                    end
125    
126            detachable_html_encoded (s: detachable READABLE_STRING_GENERAL): detachable STRING_8
127                            -- html encoded version of `s` if set, otherwise Void.
128                    do
129                            if s /= Void then
130                                    Result := api.html_encoded (s)
131                            end
132                    end
133    
134  note  note
135          copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"          copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
136          license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"          license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"

Legend:
Removed from v.103674  
changed lines
  Added in v.103675

  ViewVC Help
Powered by ViewVC 1.1.23