cfapplication(action="update", cache={
    connections[variables.szPropertiesCachename]: null
});

CacheRegionExists()

<cffunction name="CacheRegionExists" access="public" returntype="boolean" output="false" hint="Does the cache region exist in Lucee.">
    <cfargument name="cacheName" default="" />
    <cfset var local = {} />
    <cfset local.cacheRegionExists = false />
    <cfset local.cacheNamesProperties = CacheGetProperties(arguments.cacheName) />
    <cfif IsArray(local.cacheNamesProperties) AND ArrayLen(local.cacheNamesProperties) AND IsStruct(local.cacheNamesProperties[1]) AND StructKeyExists(local.cacheNamesProperties[1], "name") AND CompareNoCase(local.cacheNamesProperties[1].name, arguments.cacheName) EQ 0>
        <cfset local.cacheRegionExists = true />
    </cfif>
    <cfreturn local.cacheRegionExists />
</cffunction>

<cfcomponent output="false" displayname="Application">

	<cfscript>

		variables.nSessionTimeout = CreateTimeSpan(0, 0, 30, 0);
		request.szSessionTimeoutSecs = DateDiff("s", 0, variables.nSessionTimeout);

		variables.nServerName = "lucee539166";

		this.name = variables.nServerName;
		this.applicationTimeout = CreateTimeSpan(30, 0, 0, 0);
		this.serverSideFormValidation = true;
		this.sessionManagement = true;
		this.setClientCookies = true;
		this.scriptProtect = "all";
		this.timeout = 60;
		this.sessionTimeout = variables.nSessionTimeout;
		this.clientManagement = true;
		this.clientStorage = "cookie";
		this.loginStorage = "session";

		variables.szCacheName = "CONFIGSETTINGS";
		variables.szApplicationName = "LA-EPORTFOLIO";
		variables.szPropertiesCachename = ucase(variables.szApplicationName) & "_" & ucase(variables.szCacheName);
		variables.stuCacheProps = {
			CLEARONFLUSH = true,
			DISKPERSISTENT = true,
			ETERNAL = true,
			MAXELEMENTSINMEMORY = 1000000,
			MAXELEMENTSONDISK = 0,
			OBJECTTYPE = "OBJECT",
			OVERFLOWTODISK = true,
			STATISTICS = true,
			TIMETOLIVESECONDS = 0,
			TIMETOIDLESECONDS = 0
		};

		variables.cacheExists = StructKeyExists(this,"cache") AND StructKeyExists(this.cache,"connections") AND StructKeyExists(this.cache.connections,variables.szPropertiesCachename) ? true : false;

		if(NOT variables.cacheExists){
			this.cache.connections[variables.szPropertiesCachename] = {
				class: 'org.lucee.extension.cache.eh.EHCache',
				custom: variables.stuCacheProps,
				default: 'object'
			};
			this.cache.object = 'default';
		}

	</cfscript>

	<cffunction name="onApplicationEnd" access="public" output="false" returnType="void">
		<cfargument name="applicationScope" type="any" required="true" />
		<cfreturn true />
	</cffunction>

	<cffunction name="onApplicationStart" access="public" output="false" returnType="boolean">
		<cfscript>
			application.szCache = variables.cache;
			return true;
		</cfscript>
	</cffunction>

	<cffunction name="onRequestEnd" access="public" output="false" returntype="boolean">
		<cfargument name="targetPage" type="string" required="true" />
		<cfreturn true />
	</cffunction>

	<cffunction name="onRequestStart" access="public" output="false" returntype="boolean">
		<cfargument name="targetPage" type="string" required="true" />
		<cfreturn true />
	</cffunction>

	<cffunction name="onRequest">
		<cfargument name="targetPage" type="String" required="true" />
		<cfscript>
			request.nServerName = variables.nServerName;
			request.szPropertiesCachename = variables.szPropertiesCachename;
			request.szCache = variables.szCache;
			if(!(StructKeyExists(application, "szCache")) OR StructKeyExists(url, "appreload")){
				application.szCache = variables.szCache;
			}
		</cfscript>
		<cfinclude template="#arguments.targetPage#">
	</cffunction>

</cfcomponent>

<cffunction name="CacheApplicationExistsLucee" access="public" returntype="boolean" output="false" hint="Does the application cache region exist in Lucee">
    <cfargument name="szPropertiesCachename" default="" />
    <cfset var local = {} />
    <cfset local.szPropertiesCachename = arguments.szPropertiesCachename />
    <cfset local.cacheApplicationExists = false />
    <cftry>
        <cfset local.applicationSettings = GetApplicationSettings() />
	    <cfif StructKeyExists(local.applicationSettings, "cache") AND StructKeyExists(local.applicationSettings.cache, "connections") AND StructKeyExists(local.applicationSettings.cache.connections, arguments.szPropertiesCachename)>
            <cfset local.cacheApplicationExists = true />
        </cfif>
        <cfcatch>
            <cfset local.cacheApplicationExists = true />
        </cfcatch>
    </cftry>
    <cfreturn local.cacheApplicationExists />
</cffunction>

<cffunction name="CacheRegionExistsLucee" access="public" returntype="boolean" output="false" hint="Does the cache region exist in Lucee">
	<cfargument name="szPropertiesCachename" default="" />
	<cfset var local = {} />
	<cfset local.szPropertiesCachename = arguments.szPropertiesCachename />
	<cfset local.cacheRegionExists = false />
	<cftry>
		<cfset local.cacheNamesProperties = CacheGetProperties(local.szPropertiesCachename) />
		<cfif IsArray(local.cacheNamesProperties) AND ArrayLen(local.cacheNamesProperties) AND IsStruct(local.cacheNamesProperties[1]) AND StructKeyExists(local.cacheNamesProperties[1], "name") AND CompareNoCase(local.cacheNamesProperties[1].name, local.szPropertiesCachename) EQ 0>
			<cfset local.cacheRegionExists = true />
		</cfif>
		<cfcatch>
			<cfset local.cacheRegionExists = true />
		</cfcatch>
	</cftry>
	<cfreturn local.cacheRegionExists />
</cffunction>

<cffunction name="CacheRegionRemoveLucee" access="public" returntype="boolean" output="false" hint="Removes the cache region in Lucee">
	<cfargument name="szPropertiesCachename" default="" />
	<cfset var local = {} />
	<cfset local.isDeleted = false />
	<cftry>
		<!--- I have also used CacheApplicationExistsLucee(), but it makes no difference --->
		<cfset local.cacheRegionExists = CacheRegionExistsLucee(arguments.szPropertiesCachename) />
		<cfif local.cacheRegionExists>
			<!--- Note: remove only the named cache connection and the cache object, if it belongs to this cache name --->
			<cfset local.applicationSettings = GetApplicationSettings() />
			<cfset local.isConnectionDeleted = false />
			<cfset local.isConnectionDeleted = StructDelete(local.applicationSettings.cache.connections, arguments.szPropertiesCachename, true) />
			<cfset local.isObjectDeleted = false />
			<cfif StructKeyExists(local.applicationSettings, "cache") AND StructKeyExists(local.applicationSettings.cache, "object") AND CompareNoCase(local.applicationSettings.cache.object, arguments.szPropertiesCachename) EQ 0>
				<cfset local.isObjectDeleted = StructDelete(local.applicationSettings.cache, "object", true) />
			</cfif>
			<cfset local.applicationSettings = GetApplicationSettings() />
			<cftry>
				<cfset local.cacheSegment = local.applicationSettings.cache />
				<cfset local.attributeCollection = {
					action: "update",
					cache: local.cacheSegment
				} />
				<cfapplication attributeCollection="#local.attributeCollection#" />
				<cfcatch>
					<!--- Note: if the section above throws an error, it means that there aren't any other cache connections, which means that the cache value can be an empty struct --->
					<cfset local.cacheEmpty = {} />
					<cfset local.attributeCollection = {
						action: "update",
						cache: local.cacheEmpty
					} />
					<cfapplication attributeCollection="#local.attributeCollection#" />
				</cfcatch>
			</cftry>
			<cftry>
				<cfset local.cacheRegionExists = CacheRegionExistsLucee(arguments.szPropertiesCachename) />
				<cfif NOT local.cacheRegionExists>
					<cfset local.isDeleted = true />
				</cfif>
				<cfcatch>
					<cfset local.isDeleted = true />
				</cfcatch>
			</cftry>
		</cfif>
		<cfcatch></cfcatch>
	</cftry>
	<cfreturn local.isDeleted />
</cffunction>

<cfscript>

	// this function prevents an error being thrown, when there is no such region, after it has been removed in ACF

	function _CacheGetProperties() {
		var local = {};
		local.obj = {};
		try{
			local.obj = CacheGetProperties(request.szPropertiesCachename);
		}
		catch(any e){
		}
		return local.obj;
	}

	variables.obj = {
		"1_cacheGetPropertiesBefore": CacheGetProperties(request.szPropertiesCachename),
		"2_cacheRegionExistsBefore": CacheRegionExistsLucee(request.szPropertiesCachename),
		"3_cacheRegionRemove": CacheRegionRemoveLucee(request.szPropertiesCachename),
		"4_cacheRegionExistsAfter": CacheRegionExistsLucee(request.szPropertiesCachename),
		"5_cacheGetPropertiesAfter": _CacheGetProperties()
	};

	WriteDump(var="#variables.obj#");

</cfscript>