anchor.diff:  
   -module(rvi_config).
   
  -%%-include_lib("lhttpc/include/lhttpc.hrl").
  -%%-include_lib("lager/include/log.hrl").
  -
  +-include_lib("lager/include/log.hrl").
  +
  +
  +-export([setup_substitution/1]).
   -export([substitute/2]).
  -
  -
  -
  +-define(BOOT_PARAMS, "/proc/cmdline").
  +
  +	
   
   %% We hit the end of the list before we saw a closing paranthesis.
   get_default(_FieldName, [], Acc) ->
  
positive.code: substitute_env(FieldAndDefaultAndRemainder) ->
      case get_field_and_default(FieldAndDefaultAndRemainder) of 
  	{ error, Reason, Rem } ->
  	    { lists:reverse("ERR:"++atom_to_list(Reason)), Rem };
  
  	{ ok, FieldName, Default, Rem } ->
  
negative.code: substitute(Other, Acc)  ->
      [ Other | Acc ].
  
  setup_substitution(App) ->
      Env = application:get_all_env(App),
      Subst = substitute(Env,[]),
      case is_list(Subst) of
  	false -> ok;
  	true ->
  	    lists:map(fun({K, V}) ->
  			      application:set_env(App, K, V)
  		      end, Subst),
  	    ok
      end,
      ok.
  
  
      
  