anchor.diff:  is_compile_opt(_) -> false.
   
   
  +%% @doc When SSL is not enabled, then remove any ssl option from all dispatch rules.
  +filter_ssl(true, Rules) ->
  +    Rules;
  +filter_ssl(_, Rules) ->
  +    filter_ssl_hosts(Rules).
  +
  +    filter_ssl_hosts(DLs) ->
  +        filter_ssl_hosts(DLs, []).
  +
  +    filter_ssl_hosts([], Acc) ->
  +        lists:reverse(Acc);
  +    filter_ssl_hosts([#wm_host_dispatch_list{dispatch_list=DispatchList} = DL|Rest], Acc) ->
  +        DispatchList1 = filter_ssl_hosts_dispatch(DispatchList, []),
  +        filter_ssl_hosts(Rest, [DL#wm_host_dispatch_list{dispatch_list=DispatchList1}|Acc]).
  +
  +    filter_ssl_hosts_dispatch([], Acc) ->
  +        lists:reverse(Acc);
  +    filter_ssl_hosts_dispatch([{DispatchName, PathSchema, Mod, Props}|Rest], Acc) ->
  +        Props1 = proplists:delete(ssl, Props),
  +        filter_ssl_hosts_dispatch(Rest, [{DispatchName, PathSchema, Mod, Props1}|Acc]).
  +
  +
   %%%%%%% Adapted version of Webmachine dispatcher %%%%%%%%
   % Main difference is that we want to know which dispatch rule was choosen.
   % We also added check functions and regular expressions to match vars.
  
positive.code:                     IsSSL = wrq:is_ssl(RDHost),
                      case wm_dispatch(IsSSL, HostAsString, Host, PathAsString, DispatchList) of
                          {redirect, ProtocolAsString, Hostname} ->
                              {handled, redirect(ProtocolAsString, Hostname, ReqData)};
                          {no_dispatch_match, UnmatchedPathTokens} ->
                              {{no_dispatch_match, Host, UnmatchedPathTokens}, RDHost};
                          {DispatchName, Mod, ModOpts, PathTokens, Bindings, AppRoot, StringPath} ->
  
negative.code: %%                                  {noreply, State, Timeout} |
  %%                                  {stop, Reason, State}
  %% @doc Load a new set of dispatch rules.
  %% @todo Do SSL filtering per host (instead of on a system wide basis).
  handle_cast({set_dispatch_rules, Rules}, State) ->
      Rules1 = filter_ssl(z_config:get(ssl), Rules),
      {noreply, State#state{rules=compile_regexps_hosts(Rules1)}};
  
  %% @doc Trap unknown casts
  handle_cast(Message, State) ->
  