Add warning for horizon timeout

Horizon timeout is impacted by keystone token timeout since when the
token gets outdated, then the user is automatically unable to use
horizon. This patch includes a check for the timeout of horizon and
keystone barclamps.

crowbar_framework/app/models/horizon_service.rb

@@ -83,6 +83,14 @@ def validate_proposal_after_save proposal
       if keystone["attributes"][ks_svc.bc_name]["api"]["version"].to_f < 3.0
         validation_error("Multi domain support requires enabling Keystone V3 API in the keystone proposal first.")
       end
+
+    horizon_timeout = proposal["attributes"]["nova_dashboard"]["session_timeout"]
+    keystone_proposal = Proposal.where(barclamp: "keystone", name: "default").first
+    keystone_timeout = keystone_proposal["attributes"]["keystone"]["token_expiration"]
+
+    # keystone_timeout is in seconds and horizon_timeout is in minutes
+    if horizon_timeout * 60 > keystone_timeout
+      validation_error("Horizon timeout is bigger than keystone token expiration and these may cause problems.")
     end
 
     super

crowbar_framework/app/models/keystone_service.rb

@@ -83,6 +83,15 @@ def validate_proposal_after_save proposal
       validation_error("API version 3 or newer is required when enabling domain specific drivers.")
     end
 
+    keystone_timeout = proposal["attributes"]["keystone"]["token_expiration"]
+    horizon_proposal = Proposal.where(barclamp: "nova_dashboard", name: "default").first
+    horizon_timeout = horizon_proposal["attributes"]["nova_dashboard"]["session_timeout"]
+
+    # keystone_timeout is in seconds and horizon_timeout is in minutes
+    if horizon_timeout * 60 > keystone_timeout
+      validation_error("Horizon timeout is bigger than keystone token expiration and these may cause problems.")
+    end
+
     super
   end