forj 1.0.1 → 1.0.2

data/lib/lib-forj/lib/core/definition.rb

@@ -1,441 +0,0 @@
-#!/usr/bin/env ruby
-# encoding: UTF-8
-
-# (c) Copyright 2014 Hewlett-Packard Development Company, L.P.
-#
-#    Licensed under the Apache License, Version 2.0 (the "License");
-#    you may not use this file except in compliance with the License.
-#    You may obtain a copy of the License at
-#
-#        http://www.apache.org/licenses/LICENSE-2.0
-#
-#    Unless required by applicable law or agreed to in writing, software
-#    distributed under the License is distributed on an "AS IS" BASIS,
-#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#    See the License for the specific language governing permissions and
-#    limitations under the License.
-
-
-class BaseDefinition
-
-   private
-
-   ###################################################
-   # Class management Section
-   ###################################################
-
-   # Meta Object declaration structure
-   # <Object>
-   #   :query_mapping        List of keypath mapped.
-   #     <keypath> = <keypath mapped>
-   #   :lambdas:
-   #     :create_e:          function to call at 'Create' task
-   #     :delete_e:          function to call at 'Delete' task
-   #     :update_e:          function to call at 'Update' task
-   #     :get_e:             function to call at 'Get'    task
-   #     :query_e:           function to call at 'Query'  task
-   #   :value_mapping:       Define list of Object's key values mapping.
-   #     <keypath>           key value mapping lists
-   #       <value> = <map>   Define the value mapping.
-   #   :returns
-   #     <keypath>           key value to extract from controller object.
-   #   :params:              Defines CloudData (:data) or CloudObj (:CloudObj) needs by the <Object>
-   #     :keys:              Contains keys in a tree of hash.
-   #       <keypath>:        String. One element (string with : and /) of :list defining the key
-   #         :type:          :data or :CloudObj
-   #         :for:           Array of events which requires the data or CloudObj to work.
-   #         :mapping:       To automatically create a provider hash data mapped (hdata).
-   #         :required:      True if this parameter is required.
-   #         :extract_from:  Array. Build the keypath value from another hParams value.
-   #                         Ex: This example will extract :id from :security_groups object
-   #                             :extract_from => [:security_groups, :id]
-   #
-   @@meta_obj =  {}
-
-   # meta data are defined in defaults.yaml and loaded in ForjDefault class definition
-   # Cloud provider can redefine ForjData defaults and add some extra parameters.
-   # To get Application defaults, read defaults.yaml, under :sections:
-   @@meta_data = {}
-   # <Section>:
-   #   <Data>:               Required. Symbol/String. default: nil
-   #                         => Data name. This symbol must be unique, across sections.
-   #     :desc:              Required. String. default: nil
-   #                         => Description
-   #     :readonly:          Optional. true/false. Default: false
-   #                         => oForjConfig.set() will fail if readonly is true.
-   #                            Can be set, only thanks to oForjConfig.setup()
-   #                            or using private oForjConfig._set()
-   #     :account_exclusive: Optional. true/false. Default: false
-   #                         => Only oConfig.account_get/set() can handle the value
-   #                            oConfig.set/get cannot.
-   #     :account:           Optional. default: False
-   #                         => setup will configure the account with this <Data>
-   #     :depends_on:
-   #                         => Identify :data type required to be set before the current one.
-   #     :validate:          Regular expression to validate end user input during setup.
-   #     :value_mapping:     list of values to map as defined by the controller
-   #       :controller:      mapping for get controller value from process values
-   #         <value> : <map> value map equivalence. See data_value_mapping function
-   #       :process:         mapping for get process value from controller values
-   #         <value> : <map> value map equivalence. See data_value_mapping function
-   #     :defaut:            Default value
-   #     :list_values:       Defines a list of valid values for the current data.
-   #       :query_type       :controller_call to execute a function defined in the controller object.
-   #                         :process_call to execute a function defined in the process object.
-   #                         :values to get list of values from :values.
-   #       :object           Object to load before calling the function.  Only :query_type = :*_call
-   #       :query_call       Symbol. function name to call.               Only :query_type = :*_call
-   #                         function must return an Array.
-   #       :query_params     Hash. Controler function parameters.         Only :query_type = :*_call
-   #       :validate         :list_strict. valid only if value is one of those listed.
-   #       :values:
-   #                         to retrieve from.
-   #                         otherwise define simply a list of possible values.
-
-   # The Generic Process can pre-define some data and value (function predefine_data)
-   # The Generic Process (and external framework call) only knows about Generic data.
-   # information used
-   #
-   @@meta_predefined_values = {}
-
-   # <Data>:                  Data name
-   #   :values:               List of possible values
-   #      <Value>:            Value Name attached to the data
-   #        options:          Options
-   #          :desc:          Description of that predefine value.
-
-   @@Context = {
-      :oCurrentObj      => nil, # Defines the Current Object to manipulate
-      :needs_optional   => nil, # set optional to true for any next needs declaration
-      :ClassProcess     => nil  # Current Process Class declaration
-   }
-
-   # Available functions for:
-   # - BaseDefinition class declaration
-   # - Controler (derived from BaseDefinition) class declaration
-
-   def self.current_process (cProcessClass)
-      @@Context[:ClassProcess] = cProcessClass
-   end
-
-   def self.obj_needs_optional
-      @@Context[:needs_optional] = true
-   end
-
-   def self.obj_needs_requires
-      @@Context[:needs_optional] = false
-   end
-
-   def self.process_default(hOptions)
-      aSupportedOptions = [:use_controller]
-      unless hOptions.nil?
-         hOptions.each_key { | key |
-            case key
-               when :use_controller
-                  value = rhGet(hOptions, :use_controller)
-                  next unless value.is_a?(TrueClass) or value.is_a?(FalseClass)
-                  rhSet(@@Context, hOptions[key], :options, key)
-               else
-                  raise ForjError.new, "Unknown default process options '%s'. Supported are '%s'" % [key, aSupportedOptions.join(',')]
-            end
-         }
-      end
-
-   end
-
-   # Defines Object and connect to functions events
-   def self.define_obj(sCloudObj, hParam = nil)
-      return nil if not sCloudObj
-      return nil if not [String, Symbol].include?(sCloudObj.class)
-
-      aCaller = caller
-      aCaller.pop
-
-      sCloudObj = sCloudObj.to_sym if sCloudObj.class == String
-      @@Context[:oCurrentObj] = sCloudObj
-      @@Context[:needs_optional] = false
-      @@Context[:needs_setup] = false
-      bController = rhGet(@@Context, :options, :use_controller)
-      bController = true if bController.nil?
-
-      if not [Hash].include?(hParam.class)
-         if rhExist?(@@meta_obj, sCloudObj) != 1
-            raise ForjError.new(), "New undefined object '%s' requires at least one handler. Ex: define_obj :%s, :create_e => myhandler " % [sCloudObj, sCloudObj]
-         end
-         hParam = {}
-      end
-
-      oCloudObj = rhGet(@@meta_obj, sCloudObj)
-      if not oCloudObj
-         oCloudObj = {
-            :lambdas => {:create_e => nil, :delete_e => nil, :update_e => nil, :get_e => nil, :query_e => nil, :get_attr_e => nil},
-            :params => {},
-            :options => {:controller => bController },
-            :query_mapping => { ":id" => ":id", ":name" => ":name"},
-            :returns => {":id" => ":id", ":name" => ":name"}
-         }
-         msg = nil
-      else
-         msg = ""
-      end
-
-      sObjectName = "'%s.%s'" %  [self.class, sCloudObj]
-
-      # Checking hParam data
-      if not rhGet(hParam, :nohandler)
-         hParam.each_key do | key |
-            raise ForjError.new(), "'%s' parameter is invalid. Use '%s'" % [key, oCloudObj[:lambdas].keys.join(', ')], aCaller if rhExist?(oCloudObj, :lambdas, key)!= 2
-         end
-         msg = "%-28s object declared." %  [sObjectName] if not msg
-      else
-         msg = "%-28s meta object declared." %  [sObjectName] if not msg
-      end
-      ForjLib.debug(2, msg) if msg != ""
-
-      # Setting procs
-      rhGet(oCloudObj, :lambdas).each_key { |key|
-         next if not hParam.key?(key)
-
-         if not @@Context[:ClassProcess].instance_methods.include?(hParam[key])
-            raise ForjError.new(), "'%s' parameter requires a valid instance method '%s' in the process '%s'." % [key, hParam[key], @@Context[:ClassProcess]], aCaller
-         end
-         if hParam[key] == :default
-            # By default, we use the event name as default function to call.
-            # Those function are predefined in ForjController
-            # The Provider needs to derive from ForjController and redefine those functions.
-            oCloudObj[:lambdas][key] = key
-         else
-            # If needed, ForjProviver redefined can contains some additionnal functions
-            # to call.
-            oCloudObj[:lambdas][key] = hParam[key]
-         end
-         }
-      rhSet(@@meta_obj, oCloudObj, sCloudObj)
-   end
-
-   def self.def_query_attribute(key)
-      self.query_mapping(key, key)
-   end
-
-   def self.query_mapping(key, map)
-      return nil if not [String, Symbol].include?(key.class)
-      return nil if not [NilClass, Symbol, String].include?(map.class)
-
-      aCaller = caller
-      aCaller.pop
-
-      raise ForjError.new(), "%s: No Object defined. Missing define_obj?" % [ self.class], aCaller if @@Context[:oCurrentObj].nil?
-
-      sCloudObj = @@Context[:oCurrentObj]
-      oKeyPath = KeyPath.new(key)
-      oMapPath = KeyPath.new(map)
-
-      @@Context[:oCurrentKey] = oKeyPath
-
-      rhSet(@@meta_obj, oMapPath.sFullPath, sCloudObj, :query_mapping, oKeyPath.sFullPath)
-   end
-
-   # Available functions exclusively for Controler (derived from BaseDefinition) class declaration
-
-   # Following functions are related to Object Attributes
-   # ----------------------------------------------------
-
-   # Defines Object CloudData/CloudObj dependency
-   def self.obj_needs(sType, sParam, hParams = {})
-      return nil if not [String, Symbol].include?(sType.class)
-      return nil if not [String, Symbol, Array].include?(sParam.class)
-
-      hParams = {} if not hParams
-
-      hParams[:required] = not(@@Context[:needs_optional]) if rhExist?(hParams, :required) != 1
-
-      aCaller = caller
-      aCaller.pop
-
-      raise ForjError.new(), "%s: No Object defined. Missing define_obj?" % [ self.class], aCaller if @@Context[:oCurrentObj].nil?
-
-      sCloudObj = @@Context[:oCurrentObj]
-
-      aForEvents = rhGet(@@meta_obj, sCloudObj, :lambdas).keys
-      hParams = hParams.merge({ :for => aForEvents}) if not hParams.key?(:for)
-      sType = sType.to_sym if sType.class == String
-
-
-      raise ForjError.new(), "%s: '%s' not declared. Missing define_obj(%s)?" % [ self.class, sCloudObj, sCloudObj], aCaller if rhExist?(@@meta_obj, sCloudObj) != 1
-
-      oObjTopParam = rhGet(@@meta_obj, sCloudObj, :params)
-      if not oObjTopParam.key?(:keys)
-         # Initialize top structure
-
-         oObjTopParam.merge!({ :keys => {} })
-      end
-
-      oKeyPath = KeyPath.new(sParam)
-      sKeyAccess = oKeyPath.sFullPath
-
-      @@Context[:oCurrentKey] = oKeyPath
-
-      oCloudObjParam = rhGet(oObjTopParam, :keys, sKeyAccess)
-      if oCloudObjParam.nil?
-         sMsgAction = "New"
-         oObjTopParam[:keys][sKeyAccess] = {}
-         oCloudObjParam = oObjTopParam[:keys][sKeyAccess]
-      else
-         sMsgAction = "Upd"
-      end
-      sObjectName = "'%s.%s'" %  [self.class, sCloudObj]
-      case sType
-         when :data
-            if ForjDefault.meta_exist?(sParam)
-               ForjLib.debug(2, "%-28s: %s predefined config '%s'." % [sObjectName, sMsgAction, sParam])
-            else
-               ForjLib.debug(2, "%-28s: %s runtime    config '%s'." % [sObjectName, sMsgAction, sParam])
-            end
-            oCloudObjParam.merge!( hParams.merge({:type => sType}) ) # Merge from predefined params, but ensure type is never updated.
-         when :CloudObject
-            raise ForjError.new(), "%s: '%s' not declared. Missing define_obj(%s)?" % [self.class, sParam, sParam], aCaller if not @@meta_obj.key?(sParam)
-            oCloudObjParam.merge!( hParams.merge({:type => sType}) ) # Merge from predefined params, but ensure type is never updated.
-         else
-            raise ForjError.new(), "%s: Object parameter type '%s' unknown." % [ self.class, sType ], aCaller
-      end
-   end
-
-   def self.attr_value_mapping(value, map)
-      return nil if not [String, Symbol].include?(value.class)
-      return nil if not [NilClass, Symbol, String].include?(map.class)
-
-      aCaller = caller
-      aCaller.pop
-
-      sCloudObj = @@Context[:oCurrentObj]
-      raise ForjError.new, "attr_value_mapping: mapping '%s' needs object context definition. You need to call define_obj to get the context." % value if sCloudObj.nil?
-
-      oKeypath = @@Context[:oCurrentKey]
-      raise ForjError.new, "attr_value_mapping: mapping '%s' needs object data context definition. You need to call define_obj, then obj_needs to get the context." % value if oKeypath.nil?
-
-      keypath = oKeypath.sFullPath
-      ForjLib.debug(2, "%s-%s: Value mapping definition '%s' => '%s'" % [sCloudObj, oKeypath.to_s, value, map])
-      rhSet(@@meta_obj, map, sCloudObj, :value_mapping, keypath, value)
-   end
-
-
-   def self.def_attribute(key, options = nil)
-      self.get_attr_mapping(key, options)
-      #~ self.def_query_attribute(key) unless options and options.key?(:not_queriable) and  options[:not_queriable]== true
-   end
-
-   # Function used by the controler to define mapping.
-   # By default, any attributes are queriable as well. No need to call
-   # query_mapping
-   def self.get_attr_mapping(key, map = nil, options = nil)
-      return nil if not [String, Symbol].include?(key.class)
-      return nil if not [NilClass, Symbol, String, Array].include?(map.class)
-
-      aCaller = caller
-      aCaller.pop
-
-      raise ForjError.new(), "%s: No Object defined. Missing define_obj?" % [ self.class], aCaller if @@Context[:oCurrentObj].nil?
-
-      sCloudObj = @@Context[:oCurrentObj]
-      oKeyPath = KeyPath.new(key)
-      oMapPath = oKeyPath
-      oMapPath = KeyPath.new(map) unless map.nil?
-
-      rhSet(@@meta_obj, oMapPath.sFullPath, sCloudObj, :returns, oKeyPath.sFullPath)
-      @@Context[:oCurrentKey] = oKeyPath
-      if oMapPath == oKeyPath
-         ForjLib::debug(4, "%s: Defining object attribute '%s'" % [sCloudObj, oKeyPath.sFullPath])
-      else
-         ForjLib::debug(4, "%s: Defining object attribute mapping '%s' => '%s'" % [sCloudObj, oKeyPath.sFullPath, oMapPath.sFullPath])
-      end
-
-      self.query_mapping(key, map) unless options and options.key?(:not_queriable) and  options[:not_queriable]== true
-   end
-
-   def self.undefine_attribute(key)
-      return nil if not [String, Symbol].include?(key.class)
-
-      aCaller = caller
-      aCaller.pop
-
-      raise ForjError.new(), "%s: No Object defined. Missing define_obj?" % [ self.class], aCaller if @@Context[:oCurrentObj].nil?
-
-      sCloudObj = @@Context[:oCurrentObj]
-      oKeyPath = KeyPath.new(key)
-
-      rhSet(@@meta_obj, nil, sCloudObj, :returns, oKeyPath.sFullPath)
-      @@Context[:oCurrentKey] = oKeyPath
-      ForjLib::debug(4, "%s: Undefining attribute mapping '%s'" % [sCloudObj, oKeyPath.sFullPath])
-
-      self.query_mapping(key, nil)
-   end
-
-   # Defines/update CloudData parameters
-   def self.define_data(sData, hMeta)
-      return nil if not sData or not hMeta
-      return nil if not [String, Symbol].include?(sData.class)
-      return nil if hMeta.class != Hash
-
-      aCaller = caller
-      aCaller.pop
-
-      sData = sData.to_sym if sData.class == String
-      raise ForjError.new(), "%s: Config data '%s' unknown" % [self.class, sData], aCaller if not ForjDefault.meta_exist?(sData)
-
-      @@Context[:oCurrentData] = sData
-
-      section = ForjDefault.get_meta_section(sData)
-      section = :runtime if section.nil?
-
-      if rhExist?(@@meta_data, section, sData) == 2
-         rhGet(@@meta_data, section, sData).merge!(hMeta)
-      else
-         rhSet(@@meta_data, hMeta, section, sData)
-      end
-
-   end
-
-   def self.data_value_mapping(value, map)
-      return nil if not [String, Symbol].include?(value.class)
-      return nil if not [NilClass, Symbol, String].include?(map.class)
-
-      aCaller = caller
-      aCaller.pop
-      sData = @@Context[:oCurrentData]
-      raise ForjError.new, "Config data context not set. at least, you need to call define_data before." if sData.nil?
-
-      section = ForjDefault.get_meta_section(sData)
-      section = :runtime if section.nil?
-
-      ForjLib.debug(2, "%s/%s: Define config data value mapping: '%s' => '%s'" % [section, sData, value, map])
-      rhSet(@@meta_data, map, section, sData, :value_mapping,  :controller, value)
-      rhSet(@@meta_data, value, section, sData, :value_mapping,  :process, map)
-   end
-
-   def self.provides(aObjType)
-      @aObjType = aObjType
-   end
-
-   def self.defined?(objType)
-      @aObjType.include?(objType)
-   end
-
-   # Internal BaseDefinition function
-
-   def self.predefine_data_value(data, hOptions)
-      return nil if self.class != BaseDefinition # Refuse to run if not a BaseDefinition call
-      return nil if not [String, Symbol].include?(value.class)
-      return nil if not [NilClass, Symbol, String].include?(map.class)
-
-      aCaller = caller
-      aCaller.pop
-
-      oKeyPath = @@Context[:oCurrentKey]
-
-      value = {data => {:options => hOptions} }
-
-      rhSet(@@predefine_data_value, value, oKeyPath.sFullPath, :values)
-   end
-
-
-end

data/lib/lib-forj/lib/core/definition_internal.rb

@@ -1,306 +0,0 @@
-#!/usr/bin/env ruby
-# encoding: UTF-8
-
-# (c) Copyright 2014 Hewlett-Packard Development Company, L.P.
-#
-#    Licensed under the Apache License, Version 2.0 (the "License");
-#    you may not use this file except in compliance with the License.
-#    You may obtain a copy of the License at
-#
-#        http://www.apache.org/licenses/LICENSE-2.0
-#
-#    Unless required by applicable law or agreed to in writing, software
-#    distributed under the License is distributed on an "AS IS" BASIS,
-#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-#    See the License for the specific language governing permissions and
-#    limitations under the License.
-
-
-class BaseDefinition
-
-   private
-   # ------------------------------------------------------
-   # Class Definition internal function.
-   # ------------------------------------------------------
-
-   def _ask_encrypted(sDesc, sDefault)
-      # Checking key file used to encrypt/decrypt passwords
-      key_file = File.join($FORJ_CREDS_PATH, '.key')
-      if not File.exists?(key_file)
-         # Need to create a random key.
-         entr = {
-            :key => rand(36**10).to_s(36),
-            :salt => Time.now.to_i.to_s,
-            :iv => Base64::strict_encode64(OpenSSL::Cipher::Cipher.new('aes-256-cbc').random_iv)
-         }
-
-         ForjLib.debug(2, "Writing '%s' key file" % key_file)
-         File.open(key_file, 'w') do |out|
-            out.write(Base64::encode64(entr.to_yaml))
-         end
-      else
-         ForjLib.debug(2, "Loading '%s' key file" % key_file)
-         encoded_key = IO.read(key_file)
-         entr = YAML.load(Base64::decode64(encoded_key))
-      end
-
-      enc_value = sDefault
-
-      if not enc_value.nil?
-         begin
-            value_hidden = '*' * Encryptor.decrypt(
-               :value => Base64::strict_decode64(enc_value),
-               :key   => entr[:key],
-               :iv    => Base64::strict_decode64(entr[:iv]),
-               :salt  => entr[:salt]
-            ).length
-         rescue => e
-            Logging.error("Unable to decrypt your %s. You will need to re-enter it." % sDesc)
-            enc_value = ""
-         else
-            value_hidden="[%s]" % value_hidden
-            Logging.message("%s is already set. If you want to keep it, just press Enter" %  [sDesc])
-         end
-      else
-         value_hidden = ""
-      end
-
-      value_free = ""
-      while value_free == ""
-         # ask for encrypted data.
-         value_free = ask("Enter %s: [%s]" % [sDesc, value_hidden]) do |q|
-            q.echo = '*'
-         end
-         if value_free == "" and enc_value
-            value_free = Encryptor.decrypt(
-               :value => Base64::strict_decode64(enc_value),
-               :key => entr[:key],
-               :iv => Base64::strict_decode64(entr[:iv]),
-               :salt => entr[:salt]
-            )
-         else
-            Logging.message("%s cannot be empty." % sDesc) if value_free == ""
-         end
-      end
-      enc_value = Base64::strict_encode64(
-         Encryptor.encrypt(
-            :value => value_free,
-            :key => entr[:key],
-            :iv => Base64::strict_decode64(entr[:iv]),
-            :salt => entr[:salt]
-         )
-      )
-   end
-
-   def _ask(sDesc, sDefault, rValidate, bEncrypted, bRequired)
-      if bEncrypted
-         value = _ask_encrypted(sDesc, sDefault)
-         if bRequired and value == ""
-            say "%sThis information is required!%s" % [ANSI.bold, ANSI.clear]
-            while value == ""
-               value = _ask_encrypted(sDesc, sDefault)
-            end
-         end
-      else
-         value = ask('Enter %s:' % [sDesc]) do |q|
-            q.default = sDefault unless sDefault.nil?
-            q.validate = rValidate unless rValidate.nil?
-         end
-         if bRequired and value == ""
-            say "%sThis information is required!%s" % [ANSI.bold, ANSI.clear]
-            while value == ""
-               value = ask('Enter %s:[%s]' % [sDesc, sDefault]) do |q|
-                  q.default = sDefault unless sDefault.nil?
-                  q.validate = rValidate unless rValidate.nil?
-               end
-            end
-         end
-      end
-      value.to_s
-   end
-
-   # return Object data meta data.
-   def _get_meta_data(sKey)
-
-      hMetaDefault = ForjDefault.get_meta(sKey)
-      return nil if hMetaDefault.nil?
-      hMetaDefault = hMetaDefault.clone
-
-      sSection = ForjDefault.get_meta_section(sKey)
-      return hMetaDefault if sSection.nil?
-      hMeta = rhGet(@@meta_data, sSection, sKey)
-      return hMetaDefault if hMeta.nil?
-
-      hMetaDefault.merge!(hMeta)
-   end
-
-   def _return_map(sCloudObj, oControlerObject)
-      return nil if oControlerObject.nil?
-
-      attr_value = {}
-
-      pProc = rhGet(@@meta_obj, sCloudObj, :lambdas, :get_attr_e)
-      bController = rhGet(@@meta_obj, sCloudObj, :options, :controller)
-      return nil if not pProc and not bController
-
-      hMap = rhGet(@@meta_obj, sCloudObj, :returns)
-      hMap.each { |key, map|
-         oKeyPath = KeyPath.new(key)
-         oMapPath = KeyPath.new(map)
-         next if not map
-         if pProc
-            ForjLib::debug(4, "Calling process function '%s' to retrieve/map Controller object '%s' data " % [pProc, sCloudObj])
-            controller_attr_value = @oForjProcess.method(pProc).call(sCloudObj, oControlerObject)
-         else
-            ForjLib::debug(4, "Calling controller function 'get_attr' to retrieve/map Controller object '%s' data " % [sCloudObj])
-            controller_attr_value = @oProvider.get_attr(oControlerObject, oMapPath.aTree) if bController
-         end
-
-         hValueMapping = rhGet(@@meta_obj, sCloudObj, :value_mapping, oKeyPath.sFullPath)
-         if hValueMapping and not controller_attr_value.nil?
-            hValueMapping.each { | map_key, map_value |
-               if controller_attr_value == map_value
-                  rhSet(attr_value, map_key ,oKeyPath.aTree)
-                  ForjLib::debug(5, "Object '%s' value mapped '%s': '%s' => '%s'" % [sCloudObj, oKeyPath.aTree, controller_attr_value, map_value])
-                  break
-               end
-            }
-            raise ForjError.new(), "'%s.%s': No controller value mapping for '%s'." % [sCloudObj, oKeyPath.sKey, controller_attr_value] if attr_value.nil?
-         else
-            ForjLib::debug(5, "Object '%s' value '%s' extracted: '%s'" % [sCloudObj, oKeyPath.aTree, controller_attr_value])
-            rhSet(attr_value, controller_attr_value ,oKeyPath.aTree)
-         end
-      }
-      attr_value
-   end
-
-   def _build_data(sCloudObj, oParam, oKeyPath, hParams, bController = false)
-
-      sKey = oKeyPath.sKey
-      sDefault = rhGet(hParams, :default_value)
-      if rhExist?(hParams, :extract_from) == 1
-         value = oParam[hParams[:extract_from]]
-      end
-      value = @oForjConfig.get(sKey, sDefault) if not value
-
-      if bController
-         hValueMapping = rhGet(@@meta_obj, sCloudObj, :value_mapping, oKeyPath.sFullPath)
-
-         # Mapping from Object/data definition
-         if hValueMapping
-            raise ForjError.new(), "'%s.%s': No value mapping for '%s'" % [sCloudObj, sKey, value] if rhExist?(hValueMapping, value) != 1
-            value = hValueMapping[value]
-# Will be moved to the setup section or while setting it for a controller attached account.
-         #~ else
-            #~ # Or mapping from Config/data definition
-            #~ section = ForjDefault.get_meta_section(sKey)
-            #~ section = :runtime if section.nil?
-            #~ hValueMapping = rhGet(@@meta_data, section, sKey, :value_mapping)
-            #~ if hValueMapping
-               #~ raise ForjError.new(), "'%s.%s': No Config value mapping for '%s'" % [section, sKey, value] if rhExist?(hValueMapping, value) != 1
-               #~ value = hValueMapping[value]
-            #~ end
-         end
-         if rhExist?(hParams, :mapping) == 1
-            # NOTE: if mapping is set, the definition subtree
-            # is ignored.
-            # if key map to mykey
-            # [:section1][subsect][key] = value
-            # oParam => [:hdata][mykey] = value
-            # not oParam => [:hdata][:section1][subsect][mykey] = value
-            rhSet(oParam[:hdata], value, rhGet(hParams, :mapping))
-         end
-      end
-      oParam[oKeyPath.aTree] = value
-   end
-
-   def _get_object_params(sCloudObj, sEventType, fname, bController = false)
-
-      oParams = ObjectData.new(not(bController)) # hdata is built for controller. ie, ObjectData is NOT internal.
-
-      hTopParams= rhGet(@@meta_obj,sCloudObj, :params)
-      hkeyPaths = rhGet(hTopParams, :keys)
-      raise ForjError.new(), "'%s' Object data needs not set. Forgot obj_needs?" % [sCloudObj] if hkeyPaths.nil?
-
-      hkeyPaths.each { | sKeypath, hParams|
-         next if not hParams[:for].include?(sEventType)
-         oKeyPath = KeyPath.new(sKeypath)
-         sKey = oKeyPath.sKey
-         case hParams[:type]
-            when :data
-               _build_data(sCloudObj, oParams, oKeyPath, hParams, bController)
-            when :CloudObject
-               #~ if hParams[:required] and rhExist?(@CloudData, sKey, :object) != 2
-               if hParams[:required] and @ObjectData.type?(sKey) != :DataObject
-                  raise ForjError.new(), "Object '%s/%s' is not defined. '%s' requirement failed." % [ self.class, sKey, fname]
-               end
-               if @ObjectData.exist?(sKey)
-                  oParams.add(@ObjectData[sKey, :ObjectData])
-               else
-                  ForjLib::debug(2, "The optional '%s' was not loaded" % sKey)
-               end
-            else
-               raise ForjError.new(), "Undefined ObjectData '%s'." % [ hParams[:type]]
-         end
-      }
-      oParams
-   end
-
-   def _get_controller_map_value(keypath, sProcessValue)
-      section = ForjDefault.get_meta_section(sData)
-      section = :runtime if section.nil?
-      oKeypath = KeyPath.new(keypath)
-      sKeyPath = oKeypath.sKeyPath
-      return nil if rhExist?(@@meta_data, section, sKeyPath, :controller, sProcessValue) != 4
-      rhGet(@@meta_data, section, sKeyPath, :controller, sProcessValue)
-   end
-
-   def _get_process_map_value(keypath, sControllerValue)
-      section = ForjDefault.get_meta_section(sData)
-      section = :runtime if section.nil?
-      oKeypath = KeyPath.new(keypath)
-      sKeyPath = oKeypath.sKeyPath
-      return nil if rhExist?(@@meta_data, section, sKeyPath, :process, sControllerValue) != 4
-      rhGet(@@meta_data, section, sKeyPath, :process, sControllerValue)
-   end
-
-   def _check_required(sCloudObj, sEventType, fname)
-      aCaller = caller
-      aCaller.pop
-
-      oObjMissing=[]
-
-      hTopParams= rhGet(@@meta_obj,sCloudObj, :params)
-      hkeyPaths = rhGet(hTopParams, :keys)
-      raise ForjError.new(), "'%s' Object data needs not set. Forgot obj_needs?" % [sCloudObj] if hkeyPaths.nil?
-
-      hkeyPaths.each { | sKeypath, hParams|
-         next if not hParams[:for].include?(sEventType)
-         oKeyPath = KeyPath.new(sKeypath)
-
-         sKey = oKeyPath.sKey
-         case hParams[:type]
-            when :data
-               sDefault = rhGet(hParams, :default_value)
-               if hParams[:required]
-                  if hParams.key?(:extract_from)
-                     if not @ObjectData.exist?(hParams[:extract_from])
-                        raise ForjError.new(), "key '%s' was not extracted from '%s'. '%s' requirement failed." % [ sKey, hParams[:extract_from], fname], aCaller
-                     end
-                  elsif @oForjConfig.get(sKey, sDefault).nil?
-                     sSection = ForjDefault.get_meta_section(sKey)
-                     sSection = 'runtime' if not sSection
-                     raise ForjError.new(), "key '%s/%s' is not set. '%s' requirement failed." % [ sSection, sKey, fname], aCaller
-                  end
-               end
-            when :CloudObject
-               #~ if hParams[:required] and rhExist?(@CloudData, sKey, :object) != 2
-               if hParams[:required] and @ObjectData.type?(sKey) != :DataObject
-                  oObjMissing << sKey
-               end
-         end
-      }
-      return oObjMissing
-   end
-
-end