typo 5.0.3.98.1 → 5.1

data/public/javascripts/fckeditor/editor/filemanager/connectors/cfm/cf5_upload.cfm

@@ -1,296 +0,0 @@
-<cfsetting enablecfoutputonly="Yes">
-<!---
- * FCKeditor - The text editor for Internet - http://www.fckeditor.net
- * Copyright (C) 2003-2007 Frederico Caldeira Knabben
- *
- * == BEGIN LICENSE ==
- *
- * Licensed under the terms of any of the following licenses at your
- * choice:
- *
- *  - GNU General Public License Version 2 or later (the "GPL")
- *    http://www.gnu.org/licenses/gpl.html
- *
- *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- *    http://www.gnu.org/licenses/lgpl.html
- *
- *  - Mozilla Public License Version 1.1 or later (the "MPL")
- *    http://www.mozilla.org/MPL/MPL-1.1.html
- *
- * == END LICENSE ==
- *
- * This is the "File Uploader" for ColdFusion 5.
- * Based on connector.cfm by Mark Woods (mark@thickpaddy.com)
- *
- * Note:
- * FCKeditor requires that the connector responds with UTF-8 encoded XML.
- * As ColdFusion 5 does not fully support UTF-8 encoding, we force ASCII
- * file and folder names in this connector to allow CF5 send a UTF-8
- * encoded response - code points under 127 in UTF-8 are stored using a
- * single byte, using the same encoding as ASCII, which is damn handy.
- * This is all grand for the English speakers, like meself, but I dunno
- * how others are gonna take to it. Well, the previous version of this
- * connector already did this with file names and nobody seemed to mind,
- * so fingers-crossed nobody will mind their folder names being munged too.
- *
---->
-
-<cfparam name="url.command" default="QuickUpload">
-<cfparam name="url.type" default="File">
-<cfparam name="url.currentFolder" default="/">
-
-<cfif not isDefined("config_included")>
-	<cfinclude template="config.cfm">
-</cfif>
-
-<cfscript>
-	function SendUploadResults(errorNumber, fileUrl, fileName, customMsg)
-	{
-		WriteOutput('<script type="text/javascript">');
-		WriteOutput('window.parent.OnUploadCompleted(' & errorNumber & ', "' & JSStringFormat(fileUrl) & '", "' & JSStringFormat(fileName) & '", "' & JSStringFormat(customMsg) & '");' );
-		WriteOutput('</script>');
-	}
-</cfscript>
-
-<cfif NOT config.enabled>
-	<cfset SendUploadResults(1, "", "", "This file uploader is disabled. Please check the ""editor/filemanager/connectors/cfm/config.cfm"" file")>
-	<cfabort>
-</cfif>
-
-<cfif isDefined("Config.ConfigAllowedCommands") and not ListFind(Config.ConfigAllowedCommands, url.command)>
-	<cfset SendUploadResults(1, "", "", "The """ & url.command & """ command isn't allowed")>
-	<cfabort>
-</cfif>
-
-<cfif isDefined("Config.ConfigAllowedTypes") and not ListFind(Config.ConfigAllowedTypes, url.type)>
-	<cfset SendUploadResults(1, "", "", "The """ & url.type &  """ type isn't allowed")>
-	<cfabort>
-</cfif>
-
-<cfif find( "..", url.currentFolder)>
-	<cfset SendUploadResults(102)>
-	<cfabort>
-</cfif>
-
-<cfscript>
-	userFilesPath = config.userFilesPath;
-
-	if ( userFilesPath eq "" ) {
-		userFilesPath = "/userfiles/";
-	}
-
-	// make sure the user files path is correctly formatted
-	userFilesPath = replace(userFilesPath, "\", "/", "ALL");
-	userFilesPath = replace(userFilesPath, '//', '/', 'ALL');
-	if ( right(userFilesPath,1) NEQ "/" ) {
-		userFilesPath = userFilesPath & "/";
-	}
-	if ( left(userFilesPath,1) NEQ "/" ) {
-		userFilesPath = "/" & userFilesPath;
-	}
-
-	// make sure the current folder is correctly formatted
-	url.currentFolder = replace(url.currentFolder, "\", "/", "ALL");
-	url.currentFolder = replace(url.currentFolder, '//', '/', 'ALL');
-	if ( right(url.currentFolder,1) neq "/" ) {
-		url.currentFolder = url.currentFolder & "/";
-	}
-	if ( left(url.currentFolder,1) neq "/" ) {
-		url.currentFolder = "/" & url.currentFolder;
-	}
-
-	if (find("/",getBaseTemplatePath())) {
-		fs = "/";
-	} else {
-		fs = "\";
-	}
-
-	// Get the base physical path to the web root for this application. The code to determine the path automatically assumes that
-	// the "FCKeditor" directory in the http request path is directly off the web root for the application and that it's not a
-	// virtual directory or a symbolic link / junction. Use the serverPath config setting to force a physical path if necessary.
-	if ( len(config.serverPath) ) {
-		serverPath = config.serverPath;
-
-		if ( right(serverPath,1) neq fs ) {
-			serverPath = serverPath & fs;
-		}
-	} else {
-		serverPath = replaceNoCase(getBaseTemplatePath(),replace(cgi.script_name,"/",fs,"all"),"") & replace(userFilesPath,"/",fs,"all");
-	}
-
-	rootPath = left( serverPath, Len(serverPath) - Len(userFilesPath) ) ;
-</cfscript>
-<cfif url.command eq "QuickUpload">
-	<cfset resourceTypeUrl = rereplace( replace( Config.QuickUploadPath[url.type], fs, "/", "all"), "/$", "") >
-	<cfif isDefined( "Config.QuickUploadAbsolutePath" )
-			and structkeyexists( Config.QuickUploadAbsolutePath, url.type )
-			and Len( Config.QuickUploadAbsolutePath[url.type] )>
-				<cfset userFilesServerPath = Config.QuickUploadAbsolutePath[url.type] & url.currentFolder>
-	<cfelse>
-		<cftry>
-		<cfset userFilesServerPath = expandpath( resourceTypeUrl ) & url.currentFolder>
-		<!--- Catch: Parameter 1 of function ExpandPath must be a relative path --->
-		<cfcatch type="any">
-			<cfset userFilesServerPath = rootPath & Config.QuickUploadPath[url.type] & url.currentFolder>
-		</cfcatch>
-		</cftry>
-	</cfif>
-<cfelse>
-	<cfset resourceTypeUrl = rereplace( replace( Config.FileTypesPath[url.type], fs, "/", "all"), "/$", "") >
-	<cfif isDefined( "Config.FileTypesAbsolutePath" )
-			and structkeyexists( Config.FileTypesAbsolutePath, url.type )
-			and Len( Config.FileTypesAbsolutePath[url.type] )>
-				<cfset userFilesServerPath = Config.FileTypesAbsolutePath[url.type] & url.currentFolder>
-	<cfelse>
-		<cftry>
-		<cfset userFilesServerPath = expandpath( resourceTypeUrl ) & url.currentFolder>
-		<!--- Catch: Parameter 1 of function ExpandPath must be a relative path --->
-		<cfcatch type="any">
-			<cfset userFilesServerPath = rootPath & Config.FileTypesPath[url.type] & url.currentFolder>
-		</cfcatch>
-		</cftry>
-	</cfif>
-</cfif>
-
-<cfset userFilesServerPath = replace( userFilesServerPath, "/", fs, "all" ) >
-<!--- get rid of double directory separators --->
-<cfset userFilesServerPath = replace( userFilesServerPath, fs & fs, fs, "all") >
-
-<!--- create resource type directory if not exists --->
-<cfset resourceTypeDirectory = left( userFilesServerPath, Len(userFilesServerPath) - Len(url.currentFolder) )>
-
-<cfif not directoryexists( resourceTypeDirectory )>
-
-	<cfset currentPath = "">
-	<cftry>
-		<cfloop list="#resourceTypeDirectory#" index="name" delimiters="#fs#">
-			<cfif currentPath eq "" and fs eq "\">
-				<!--- Without checking this, we would have in Windows \C:\ --->
-				<cfif not directoryExists(name)>
-					<cfdirectory action="create" directory="#name#" mode="755">
-				</cfif>
-			<cfelse>
-				<cfif not directoryExists(currentPath & fs & name)>
-					<cfdirectory action="create" directory="#currentPath##fs##name#" mode="755">
-				</cfif>
-			</cfif>
-
-			<cfif fs eq "\" and currentPath eq "">
-				<cfset currentPath = name>
-			<cfelse>
-				<cfset currentPath = currentPath & fs & name>
-			</cfif>
-		</cfloop>
-
-	<cfcatch type="any">
-
-		<!--- this should only occur as a result of a permissions problem --->
-		<cfset SendUploadResults(103)>
-		<cfabort>
-
-	</cfcatch>
-
-	</cftry>
-</cfif>
-
-<cfset currentFolderPath = userFilesServerPath>
-<cfset resourceType = url.type>
-
-<cfset fileName = "">
-<cfset fileExt = "">
-
-<!--- Can be overwritten. The last value will be sent with the result --->
-<cfset customMsg = "">
-
-<cftry>
-	<!--- first upload the file with an unique filename --->
-	<cffile action="upload"
-		fileField="NewFile"
-		destination="#currentFolderPath#"
-		nameConflict="makeunique"
-		mode="644"
-		attributes="normal">
-
-	<cfif cffile.fileSize EQ 0>
-		<cfthrow>
-	</cfif>
-
-	<cfset lAllowedExtensions = config.allowedExtensions[#resourceType#]>
-	<cfset lDeniedExtensions = config.deniedExtensions[#resourceType#]>
-
-	<cfif ( len(lAllowedExtensions) and not listFindNoCase(lAllowedExtensions,cffile.ServerFileExt) )
-		or ( len(lDeniedExtensions) and listFindNoCase(lDeniedExtensions,cffile.ServerFileExt) )>
-
-		<cfset errorNumber = "202">
-		<cffile action="delete" file="#cffile.ServerDirectory##fs##cffile.ServerFile#">
-
-	<cfelse>
-
-		<cfscript>
-		errorNumber = 0;
-		fileName = cffile.ClientFileName ;
-		fileExt = cffile.ServerFileExt ;
-		fileExisted = false ;
-
-		// munge filename for html download. Only a-z, 0-9, _, - and . are allowed
-		if( reFind("[^A-Za-z0-9_\-\.]", fileName) ) {
-			fileName = reReplace(fileName, "[^A-Za-z0-9\-\.]", "_", "ALL");
-			fileName = reReplace(fileName, "_{2,}", "_", "ALL");
-			fileName = reReplace(fileName, "([^_]+)_+$", "\1", "ALL");
-			fileName = reReplace(fileName, "$_([^_]+)$", "\1", "ALL");
-		}
-
-		// remove additional dots from file name
-		if( isDefined("Config.ForceSingleExtension") and Config.ForceSingleExtension )
-			fileName = replace( fileName, '.', "_", "all" ) ;
-
-		// When the original filename already exists, add numbers (0), (1), (2), ... at the end of the filename.
-		if( compare( cffile.ServerFileName, fileName ) ) {
-			counter = 0;
-			tmpFileName = fileName;
-			while( fileExists("#currentFolderPath##fileName#.#fileExt#") ) {
-				fileExisted = true ;
-				counter = counter + 1 ;
-				fileName = tmpFileName & '(#counter#)' ;
-			}
-		}
-		</cfscript>
-
-		<!--- Rename the uploaded file, if neccessary --->
-		<cfif compare(cffile.ServerFileName,fileName)>
-
-			<cfif fileExisted>
-				<cfset errorNumber = "201">
-			</cfif>
-			<cffile
-				action="rename"
-				source="#currentFolderPath##cffile.ServerFileName#.#cffile.ServerFileExt#"
-				destination="#currentFolderPath##fileName#.#fileExt#"
-				mode="644"
-				attributes="normal">
-
-		</cfif>
-
-	</cfif>
-
-	<cfcatch type="any">
-
-		<cfset errorNumber = "1">
-		<cfset customMsg = cfcatch.message >
-
-	</cfcatch>
-</cftry>
-
-<cfif errorNumber EQ 0>
-	<!--- file was uploaded succesfully --->
-	<cfset SendUploadResults(errorNumber, '#resourceTypeUrl##url.currentFolder##fileName#.#fileExt#', "", "")>
-	<cfabort>
-<cfelseif errorNumber EQ 201>
-	<!--- file was changed (201), submit the new filename --->
-	<cfset SendUploadResults(errorNumber, '#resourceTypeUrl##url.currentFolder##fileName#.#fileExt#', replace( fileName & "." & fileExt, "'", "\'", "ALL"), customMsg)>
-	<cfabort>
-<cfelse>
-	<!--- An error occured(202). Submit only the error code and a message (if available). --->
-	<cfset SendUploadResults(errorNumber, '', '', customMsg)>
-	<cfabort>
-</cfif>

data/public/javascripts/fckeditor/editor/filemanager/connectors/cfm/cf_basexml.cfm

@@ -1,68 +0,0 @@
-<cfsetting enablecfoutputonly="Yes">
-<!---
- * FCKeditor - The text editor for Internet - http://www.fckeditor.net
- * Copyright (C) 2003-2007 Frederico Caldeira Knabben
- *
- * == BEGIN LICENSE ==
- *
- * Licensed under the terms of any of the following licenses at your
- * choice:
- *
- *  - GNU General Public License Version 2 or later (the "GPL")
- *    http://www.gnu.org/licenses/gpl.html
- *
- *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- *    http://www.gnu.org/licenses/lgpl.html
- *
- *  - Mozilla Public License Version 1.1 or later (the "MPL")
- *    http://www.mozilla.org/MPL/MPL-1.1.html
- *
- * == END LICENSE ==
- *
- * This file include the functions that create the base XML output by the ColdFusion Connector (MX 6.0 and above).
---->
-
-<cffunction name="SetXmlHeaders" returntype="void">
-	<cfheader name="Expires" value="#GetHttpTimeString(Now())#">
-	<cfheader name="Pragma" value="no-cache">
-	<cfheader name="Cache-Control" value="no-cache, no-store, must-revalidate">
-	<cfcontent reset="true" type="text/xml; charset=UTF-8">
-</cffunction>
-
-<cffunction name="CreateXmlHeader" returntype="void" output="true">
-	<cfargument name="command" required="true">
-	<cfargument name="resourceType" required="true">
-	<cfargument name="currentFolder" required="true">
-
-	<cfset SetXmlHeaders()>
-	<cfoutput><?xml version="1.0" encoding="utf-8" ?></cfoutput>
-	<cfoutput><Connector command="#ARGUMENTS.command#" resourceType="#ARGUMENTS.resourceType#"></cfoutput>
-	<cfoutput><CurrentFolder path="#HTMLEditFormat(ARGUMENTS.currentFolder)#" url="#HTMLEditFormat( GetUrlFromPath( resourceType, currentFolder, command ) )#" /></cfoutput>
-	<cfset REQUEST.HeaderSent = true>
-</cffunction>
-
-<cffunction name="CreateXmlFooter" returntype="void" output="true">
-	<cfoutput></Connector></cfoutput>
-</cffunction>
-
-<cffunction name="SendError" returntype="void" output="true">
-	<cfargument name="number" required="true" type="Numeric">
-	<cfargument name="text" required="true">
-	<cfif isDefined("REQUEST.HeaderSent") and REQUEST.HeaderSent>
-		<cfset SendErrorNode( ARGUMENTS.number, ARGUMENTS.text )>
-		<cfset CreateXmlFooter() >
-	<cfelse>
-		<cfset SetXmlHeaders()>
-		<cfoutput><?xml version="1.0" encoding="utf-8" ?></cfoutput>
-		<cfoutput><Connector></cfoutput>
-		<cfset SendErrorNode( ARGUMENTS.number, ARGUMENTS.text )>
-		<cfset CreateXmlFooter() >
-	</cfif>
-	<cfabort>
-</cffunction>
-
-<cffunction name="SendErrorNode" returntype="void" output="true">
-	<cfargument name="number" required="true" type="Numeric">
-	<cfargument name="text" required="true">
-	<cfoutput><Error number="#ARGUMENTS.number#" text="#htmleditformat(ARGUMENTS.text)#" /></cfoutput>
-</cffunction>

data/public/javascripts/fckeditor/editor/filemanager/connectors/cfm/cf_commands.cfm

@@ -1,225 +0,0 @@
-<cfsetting enablecfoutputonly="Yes">
-<!---
- * FCKeditor - The text editor for Internet - http://www.fckeditor.net
- * Copyright (C) 2003-2007 Frederico Caldeira Knabben
- *
- * == BEGIN LICENSE ==
- *
- * Licensed under the terms of any of the following licenses at your
- * choice:
- *
- *  - GNU General Public License Version 2 or later (the "GPL")
- *    http://www.gnu.org/licenses/gpl.html
- *
- *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
- *    http://www.gnu.org/licenses/lgpl.html
- *
- *  - Mozilla Public License Version 1.1 or later (the "MPL")
- *    http://www.mozilla.org/MPL/MPL-1.1.html
- *
- * == END LICENSE ==
- *
- * This file include the functions that handle the Command requests
- * in the ColdFusion Connector (MX 6.0 and above).
---->
-
-<cffunction name="FileUpload" returntype="void" output="true">
-	<cfargument name="resourceType" type="string" required="yes" default="">
-	<cfargument name="currentFolder" type="string" required="yes" default="">
-	<cfargument name="sCommand" type="string" required="yes" default="">
-
-	<cfset var sFileName = "">
-	<cfset var sFilePart = "">
-	<cfset var sFileExt = "">
-	<cfset var sFileUrl = "">
-	<cfset var sTempFilePath = "">
-	<cfset var errorNumber = 0>
-	<cfset var customMsg = 0>
-	<cfset var counter = 0>
-	<cfset var destination = "">
-
-    <cftry>
-        <cffile action="UPLOAD" filefield="NewFile" destination="#GetTempDirectory()#" nameconflict="makeunique" mode="0755" />
-		<cfset sTempFilePath = CFFILE.ServerDirectory & REQUEST.fs & CFFILE.ServerFile>
-
-		<!--- Map the virtual path to the local server path. --->
-		<cfset sServerDir = ServerMapFolder( ARGUMENTS.resourceType, ARGUMENTS.currentFolder, ARGUMENTS.sCommand) >
-		<!--- Get the uploaded file name. --->
-		<cfset sFileName = SanitizeFileName( CFFILE.ClientFile ) >
-		<cfset sOriginalFileName = sFileName >
-
-		<cfif isDefined( "REQUEST.Config.SecureImageUploads" ) and REQUEST.Config.SecureImageUploads>
-			<cfif not IsImageValid( sTempFilePath, CFFILE.ClientFileExt )>
-				<cftry>
-				<cffile action="delete" file="#sTempFilePath#">
-				<cfcatch type="any">
-				</cfcatch>
-				</cftry>
-				<cfthrow errorcode="202" type="fckeditor">
-			</cfif>
-		</cfif>
-
-		<cfif isDefined( "REQUEST.Config.HtmlExtensions" ) and not listFindNoCase( REQUEST.Config.HtmlExtensions, CFFILE.ClientFileExt )>
-			<cfif DetectHtml( sTempFilePath )>
-				<cftry>
-				<cffile action="delete" file="#sTempFilePath#">
-				<cfcatch type="any">
-				</cfcatch>
-				</cftry>
-				<cfthrow errorcode="202" type="fckeditor">
-			</cfif>
-		</cfif>
-
-		<cfif not IsAllowedExt( CFFILE.ClientFileExt, ARGUMENTS.resourceType )>
-			<cftry>
-			<cffile action="delete" file="#sTempFilePath#">
-			<cfcatch type="any">
-			</cfcatch>
-			</cftry>
-			<cfthrow errorcode="202" type="fckeditor">
-		</cfif>
-
-		<!--- When the original filename already exists, add numbers (0), (1), (2), ... at the end of the filename. --->
-		<cfscript>
-			sFileExt = GetExtension( sFileName ) ;
-			sFilePart = RemoveExtension( sFileName );
-			while( fileExists( sServerDir & sFileName ) )
-			{
-				counter = counter + 1;
-				sFileName = sFilePart & '(#counter#).' & CFFILE.ClientFileExt;
-				errorNumber = 201;
-			}
-		</cfscript>
-
- 		<cfset destination = sServerDir & sFileName>
-<!---
-		<cfdump var="#sTempFilePath#">
-		<cfoutput ><br /></cfoutput>
-		<cfdump var="#destination#">
-		<cfabort>
- --->
-		<cflock name="#destination#" timeout="30" type="Exclusive">
-		<cftry>
-			<cffile action="move" source="#sTempFilePath#" destination="#destination#" mode="755">
-			<!--- omit CF 6.1 error during moving uploaded file, just copy that file instead of moving --->
-			<cfcatch type="any">
-				<cffile action="copy" source="#sTempFilePath#" destination="#destination#" mode="755">
-			</cfcatch>
-		</cftry>
-		</cflock>
-
-		<cfset sFileUrl = CombinePaths( GetResourceTypePath( ARGUMENTS.resourceType, sCommand ) , ARGUMENTS.currentFolder ) >
-		<cfset sFileUrl = CombinePaths( sFileUrl , sFileName ) >
-
-		<cfcatch type="fckeditor">
-			<cfset errorNumber = CFCATCH.ErrorCode>
-		</cfcatch>
-
-		<cfcatch type="any">
-			<cfset errorNumber = "1">
-			<cfset customMsg = CFCATCH.Message >
-		</cfcatch>
-
-    </cftry>
-
-	<cfset SendUploadResults( errorNumber, sFileUrl, sFileName, customMsg ) >
-</cffunction>
-
-<cffunction name="GetFolders" returntype="void" output="true">
-	<cfargument name="resourceType" type="String" required="true">
-	<cfargument name="currentFolder" type="String" required="true">
-
-	<cfset var i = 1>
-	<cfset var folders = "">
-	<!--- Map the virtual path to the local server path --->
-	<cfset var sServerDir = ServerMapFolder( ARGUMENTS.resourceType, ARGUMENTS.currentFolder, "GetFolders" ) >
-
-	<!--- Sort directories first, name ascending --->
-	<cfdirectory action="list" directory="#sServerDir#" name="qDir" sort="type,name">
-	<cfscript>
-		while( i lte qDir.recordCount )
-		{
-			if( compareNoCase( qDir.type[i], "FILE" ) and not listFind( ".,..", qDir.name[i] ) )
-			{
-				folders = folders & '<Folder name="#HTMLEditFormat( qDir.name[i] )#" />' ;
-			}
-			i = i + 1;
-		}
-	</cfscript>
-	<cfoutput><Folders>#folders#</Folders></cfoutput>
-</cffunction>
-
-<cffunction name="GetFoldersAndfiles" returntype="void" output="true">
-	<cfargument name="resourceType" type="String" required="true">
-	<cfargument name="currentFolder" type="String" required="true">
-
-	<cfset var i = 1>
-	<cfset var folders = "">
-	<cfset var files = "">
-	<!--- Map the virtual path to the local server path --->
-	<cfset var sServerDir = ServerMapFolder( ARGUMENTS.resourceType, ARGUMENTS.currentFolder, "GetFolders" ) >
-
-	<!--- Sort directories first, name ascending --->
-	<cfdirectory action="list" directory="#sServerDir#" name="qDir" sort="type,name">
-	<cfscript>
-		while( i lte qDir.recordCount )
-		{
-			if( not compareNoCase( qDir.type[i], "DIR" ) and not listFind( ".,..", qDir.name[i] ) )
-			{
-				folders = folders & '<Folder name="#HTMLEditFormat(qDir.name[i])#" />' ;
-			}
-			else if( not compareNoCase( qDir.type[i], "FILE" ) )
-			{
-				fileSizeKB = round(qDir.size[i] / 1024) ;
-				files = files & '<File name="#HTMLEditFormat(qDir.name[i])#" size="#IIf( fileSizeKB GT 0, DE( fileSizeKB ), 1)#" />' ;
-			}
-			i = i + 1 ;
-		}
-	</cfscript>
-	<cfoutput><Folders>#folders#</Folders></cfoutput>
-	<cfoutput><Files>#files#</Files></cfoutput>
-</cffunction>
-
-<cffunction name="CreateFolder" returntype="void" output="true">
-	<cfargument name="resourceType" required="true" type="string">
-	<cfargument name="currentFolder" required="true" type="string">
-
-	<cfset var sNewFolderName = url.newFolderName >
-	<cfset var sServerDir = "" >
-	<cfset var errorNumber = 0>
-	<cfset var sErrorMsg = "">
-	<cfset var currentFolderPath = ServerMapFolder( ARGUMENTS.resourceType, ARGUMENTS.currentFolder, 'CreateFolder' )>
-
-	<cfparam name="url.newFolderName" default="">
-
-	<cfscript>
-		sNewFolderName = SanitizeFolderName( sNewFolderName ) ;
-	</cfscript>
-
-	<cfif not len( sNewFolderName ) or len( sNewFolderName ) gt 255>
-		<cfset errorNumber = 102>
-	<cfelseif directoryExists( currentFolderPath & sNewFolderName )>
-		<cfset errorNumber = 101>
-	<cfelseif find( "..", sNewFolderName )>
-		<cfset errorNumber = 103>
-	<cfelse>
-		<cfset errorNumber = 0>
-
-		<!--- Map the virtual path to the local server path of the current folder. --->
-		<cfset sServerDir = currentFolderPath & sNewFolderName >
-
-		<cftry>
-			<cfdirectory action="create" directory="#currentFolderPath##sNewFolderName#" mode="755">
-			<cfcatch type="any">
-			<!---
-				un-resolvable error numbers in ColdFusion:
-				* 102 : Invalid folder name.
-				* 103 : You have no permissions to create the folder.
-			--->
-			<cfset errorNumber = 110>
-			</cfcatch>
-		</cftry>
-	</cfif>
-
-	<cfoutput><Error number="#errorNumber#" originalDescription="#HTMLEditFormat(sErrorMsg)#" /></cfoutput>
-</cffunction>