anchor.diff:  %% Descrip.: Parse and store an PIDF XML associated with a presentity.
   %% Returns : ok | {error, Reason}
   %%--------------------------------------------------------------------
  +set_pidf_for_user(_User, _ETag, Expires, _ContentType, _XML, _Ctx) when is_integer(Expires) andalso
  +								          (Expires < ?EXPIRES_LOWER_LIMIT orelse
  +								           Expires > ?EXPIRES_UPPER_LIMIT) ->
  +    {error, expires_out_of_bounds};
   set_pidf_for_user(User, ETag, Expires, ContentType, XML, Ctx) when is_list(User), is_list(XML),
   								   is_record(Ctx, event_ctx) ->
       case parse_pidf_xml(ContentType, XML) of
  
positive.code: 
  
      autotest:mark(?LINE, "refresh_pidf_user_etag/4 - 3"),
      %% verify that we can't refresh non-existing entrys
      RPUE_ETag3 = "test-" ++ "-" ++ integer_to_list(Now) ++ "::" ++ integer_to_list(?LINE),
      nomatch = refresh_pidf_user_etag(SPFU_User1, RPUE_ETag3, 10, RPUE_ETag3),
  
      autotest:mark(?LINE, "refresh_pidf_user_etag/4 - 4"),
      %% clean up
      ok = delete_pidf_for_user(SPFU_User1),
  
  
negative.code: 
      DE_User1 = "__test_expired_user1__",
      DE_ETag1 = "test-" ++ "-" ++ integer_to_list(ExpiredNow) ++ "::" ++ integer_to_list(?LINE),
      %% not-expired entry
      ok = set_pidf_for_user(DE_User1, DE_ETag1, 5, "application/pidf+xml", PIDF_XML2, #event_ctx{}),
  
      DE_ETag2 = "test-" ++ "-" ++ integer_to_list(ExpiredNow) ++ "::" ++ integer_to_list(?LINE),
      %% expired entry
      ok = set_pidf_for_user(DE_User1, DE_ETag2, -1, "application/pidf+xml", PIDF_XML2, #event_ctx{}),
  
      autotest:mark(?LINE, "delete_expired/0 - 1"),
  