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

Diff of /trunk/Src/web/eiffel-cloud/modules/es_cloud/webapi/es_cloud_installations_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 55  feature -- Execution Line 55  feature -- Execution
55                          sess: ES_CLOUD_SESSION                          sess: ES_CLOUD_SESSION
56                          l_include_sessions: BOOLEAN                          l_include_sessions: BOOLEAN
57                  do                  do
58                          if a_user.same_as (api.user) or else api.has_permission ("manage es acounts") then                          if a_user.same_as (api.user) or else api.has_permission ("manage es accounts") then
59                                  r := new_response (req, res)                                  r := new_response (req, res)
60                                  if attached es_cloud_api.user_installations (a_user) as lst then                                  if attached es_cloud_api.user_installations (a_user) as lst then
61                                          l_include_sessions := req.percent_encoded_path_info.ends_with_general ("/session/")                                          l_include_sessions := req.percent_encoded_path_info.ends_with_general ("/session/")
# Line 147  feature -- Execution Line 147  feature -- Execution
147                          tb: STRING_TABLE [detachable ANY]                          tb: STRING_TABLE [detachable ANY]
148                          tb_installations: STRING_TABLE [detachable ANY]                          tb_installations: STRING_TABLE [detachable ANY]
149                  do                  do
150                          if a_user.same_as (api.user) or else api.has_permission ("manage es acounts") then                          if a_user.same_as (api.user) or else api.has_permission ("manage es accounts") then
151                                  r := new_response (req, res)                                  r := new_response (req, res)
152                                  if attached es_cloud_api.user_installations (a_user) as lst then                                  if attached es_cloud_api.user_installations (a_user) as lst then
153                                          create tb_installations.make (lst.count)                                          create tb_installations.make (lst.count)
# Line 183  feature -- Execution Line 183  feature -- Execution
183                          inst: ES_CLOUD_INSTALLATION                          inst: ES_CLOUD_INSTALLATION
184                          l_inst_location: STRING                          l_inst_location: STRING
185                  do                  do
186                          if a_user.same_as (api.user) or else api.has_permission ("manage es acounts") then                          if a_user.same_as (api.user) or else api.has_permission ("manage es accounts") then
187                                  r := new_response (req, res)                                  r := new_response (req, res)
188                                  if attached {ES_CLOUD_SESSION} es_cloud_api.user_session (a_user, iid, sid) as sess then                                  if attached {ES_CLOUD_SESSION} es_cloud_api.user_session (a_user, iid, sid) as sess then
189                                          r := new_response (req, res)                                          r := new_response (req, res)
# Line 397  feature -- Execution Line 397  feature -- Execution
397                          r.execute                          r.execute
398                  end                  end
399    
 feature {NONE} -- Implementation  
   
         remove_last_segment (a_location: STRING_8; a_keep_ending_slash: BOOLEAN)  
                 local  
                         i: INTEGER  
                 do  
                         if a_location.ends_with_general ("/") then  
                                 i := a_location.count - 1  
                         else  
                                 i := a_location.count  
                         end  
                         i := a_location.last_index_of ('/', i)  
                         if i > 0 then  
                                 if a_keep_ending_slash then  
                                         a_location.keep_head (i)  
                                 else  
                                         a_location.keep_head (i - 1)  
                                 end  
                         end  
                 end  
   
         detachable_html_encoded (s: detachable READABLE_STRING_GENERAL): detachable STRING_8  
                         -- html encoded version of `s` if set, otherwise Void.  
                 do  
                         if s /= Void then  
                                 Result := api.html_encoded (s)  
                         end  
                 end  
   
400  note  note
401          copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"          copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
402          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