anchor.diff:  %%
   %% %CopyrightBegin%
   %%
  -%% Copyright Ericsson AB 2007-2010. All Rights Reserved.
  +%% Copyright Ericsson AB 2007-2011. All Rights Reserved.
   %%
   %% The contents of this file are subject to the Erlang Public License,
   %% Version 1.1, (the "License"); you may not use this file except in
  
positive.code:     {noreply, State};
  
  handle_cast({invalidate_session, Host, Port, 
  	     #session{session_id = ID}}, 
  	    #state{session_cache = Cache,
  		   session_cache_cb = CacheCb} = State) ->
      CacheCb:delete(Cache, {{Host, Port}, ID}),
      {noreply, State};
  
  handle_cast({invalidate_session, Port, #session{session_id = ID}}, 
  	    #state{session_cache = Cache,
  		   session_cache_cb = CacheCb} = State) ->
      CacheCb:delete(Cache, {Port, ID}),
      {noreply, State};
  
  handle_cast({recache_pem, File, LastWrite, Pid, From},
  	    #state{certificate_db = [_, FileToRefDb, _]} = State0) ->
      case ssl_certificate_db:lookup(File, FileToRefDb) of
  	undefined ->
  	    {reply, Msg, State} = handle_call({{cache_pem, File, LastWrite}, Pid}, From, State0),
  	    gen_server:reply(From, Msg),
  	    {noreply, State};
  	_ -> %% Send message to self letting cleanup messages be handled
  
negative.code: -define('24H_in_sec', 8640).
  -define(SESSION_VALIDATION_INTERVAL, 60000).
  -define(CERTIFICATE_CACHE_CLEANUP, 30000).
  -define(CLEAN_SESSION_DB, 60000).
  
  %%====================================================================
  %% API
  