+++ /dev/null
-<cfsetting enablecfoutputonly="Yes">\r
-<!---\r
- * FCKeditor - The text editor for Internet - http://www.fckeditor.net\r
- * Copyright (C) 2003-2008 Frederico Caldeira Knabben\r
- *\r
- * == BEGIN LICENSE ==\r
- *\r
- * Licensed under the terms of any of the following licenses at your\r
- * choice:\r
- *\r
- * - GNU General Public License Version 2 or later (the "GPL")\r
- * http://www.gnu.org/licenses/gpl.html\r
- *\r
- * - GNU Lesser General Public License Version 2.1 or later (the "LGPL")\r
- * http://www.gnu.org/licenses/lgpl.html\r
- *\r
- * - Mozilla Public License Version 1.1 or later (the "MPL")\r
- * http://www.mozilla.org/MPL/MPL-1.1.html\r
- *\r
- * == END LICENSE ==\r
- *\r
- * This file include IO specific functions used by the ColdFusion Connector (MX 6.0 and above).\r
- *\r
---->\r
-\r
-<cffunction name="CombinePaths" returntype="String" output="true">\r
- <cfargument name="sBasePath" required="true">\r
- <cfargument name="sFolder" required="true">\r
- <cfset sBasePath = RemoveFromEnd( sBasePath, "/" )>\r
- <cfset sBasePath = RemoveFromEnd( sBasePath, "\" )>\r
- <cfreturn sBasePath & "/" & RemoveFromStart( ARGUMENTS.sFolder, '/' )>\r
-</cffunction>\r
-\r
-<cffunction name="GetResourceTypePath" returntype="String" output="false">\r
- <cfargument name="resourceType" required="true">\r
- <cfargument name="sCommand" required="true">\r
-\r
- <cfif ARGUMENTS.sCommand eq "QuickUpload">\r
- <cfreturn REQUEST.Config['QuickUploadPath'][ARGUMENTS.resourceType]>\r
- <cfelse>\r
- <cfreturn REQUEST.Config['FileTypesPath'][ARGUMENTS.resourceType]>\r
- </cfif>\r
-</cffunction>\r
-\r
-<cffunction name="GetResourceTypeDirectory" returntype="String" output="false">\r
- <cfargument name="resourceType" required="true">\r
- <cfargument name="sCommand" required="true">\r
-\r
- <cfif ARGUMENTS.sCommand eq "QuickUpload">\r
- <cfif isDefined( "REQUEST.Config.QuickUploadAbsolutePath" )\r
- and structkeyexists( REQUEST.Config.QuickUploadAbsolutePath, ARGUMENTS.resourceType )\r
- and Len( REQUEST.Config.QuickUploadAbsolutePath[ARGUMENTS.resourceType] )>\r
- <cfreturn REQUEST.Config.QuickUploadAbsolutePath[ARGUMENTS.resourceType]>\r
- </cfif>\r
-\r
- <cfreturn expandpath( REQUEST.Config.QuickUploadPath[ARGUMENTS.resourceType] )>\r
- <cfelse>\r
- <cfif isDefined( "REQUEST.Config.FileTypesAbsolutePath" )\r
- and structkeyexists( REQUEST.Config.FileTypesAbsolutePath, ARGUMENTS.resourceType )\r
- and Len( REQUEST.Config.FileTypesAbsolutePath[ARGUMENTS.resourceType] )>\r
- <cfreturn REQUEST.Config.FileTypesAbsolutePath[ARGUMENTS.resourceType]>\r
- </cfif>\r
-\r
- <cfreturn expandpath( REQUEST.Config.FileTypesPath[ARGUMENTS.resourceType] )>\r
- </cfif>\r
-</cffunction>\r
-\r
-<cffunction name="GetUrlFromPath" returntype="String" output="false">\r
- <cfargument name="resourceType" required="true">\r
- <cfargument name="folderPath" required="true">\r
- <cfargument name="sCommand" required="true">\r
-\r
- <cfreturn CombinePaths( GetResourceTypePath( ARGUMENTS.resourceType, ARGUMENTS.sCommand ), ARGUMENTS.folderPath )>\r
-</cffunction>\r
-\r
-<cffunction name="RemoveExtension" output="false" returntype="String">\r
- <cfargument name="fileName" required="true">\r
- <cfset var pos = find( ".", reverse ( ARGUMENTS.fileName ) )>\r
-\r
- <cfreturn mid( ARGUMENTS.fileName, 1, Len( ARGUMENTS.fileName ) - pos ) >\r
-</cffunction>\r
-\r
-<cffunction name="GetExtension" output="false" returntype="String">\r
- <cfargument name="fileName" required="true">\r
- <cfset var pos = find( ".", reverse ( ARGUMENTS.fileName ) )>\r
-\r
- <cfif not pos>\r
- <cfreturn "">\r
- </cfif>\r
-\r
- <cfreturn mid( ARGUMENTS.fileName, pos, Len( ARGUMENTS.fileName ) - pos ) >\r
-</cffunction>\r
-\r
-<cffunction name="ServerMapFolder" returntype="String" output="false">\r
- <cfargument name="resourceType" required="true">\r
- <cfargument name="folderPath" required="true">\r
- <cfargument name="sCommand" required="true">\r
-\r
- <!--- Get the resource type directory. --->\r
- <cfset var sResourceTypePath = GetResourceTypeDirectory( ARGUMENTS.resourceType, ARGUMENTS.sCommand ) >\r
- <!--- Ensure that the directory exists. --->\r
- <cfset var sErrorMsg = CreateServerFolder( sResourceTypePath ) >\r
-\r
- <cfif sErrorMsg neq ''>\r
- <cfset SendError( 1, 'Error creating folder "' & sResourceTypePath & '" (' & sErrorMsg & ')' )>\r
- </cfif>\r
-\r
- <!--- Return the resource type directory combined with the required path. --->\r
- <cfreturn CombinePaths( sResourceTypePath , ARGUMENTS.folderPath )>\r
-</cffunction>\r
-\r
-<cffunction name="GetParentFolder" returntype="string" output="false">\r
- <cfargument name="folderPath" required="true">\r
-\r
- <cfreturn rereplace(ARGUMENTS.folderPath, "[/\\\\][^/\\\\]+[/\\\\]?$", "")>\r
-</cffunction>\r
-\r
-<cffunction name="CreateServerFolder" returntype="String" output="false">\r
- <cfargument name="folderPath">\r
-\r
- <!--- Ensure the folder path has no double-slashes, or mkdir may fail on certain platforms --->\r
- <cfset folderPath = rereplace(ARGUMENTS.folderPath, "//+", "/", "all")>\r
-\r
- <cfif directoryexists(ARGUMENTS.folderPath) or fileexists(ARGUMENTS.folderPath)>\r
- <cfreturn "">\r
- <cfelse>\r
- <cftry>\r
- <cfdirectory action="create" mode="0755" directory="#ARGUMENTS.folderPath#">\r
- <cfcatch type="any">\r
- <cfreturn CFCATCH.Message>\r
- </cfcatch>\r
- </cftry>\r
- </cfif>\r
-\r
- <cfreturn "">\r
-</cffunction>\r
-\r
-<cffunction name="IsAllowedExt" returntype="boolean" output="false">\r
- <cfargument name="sExtension" required="true">\r
- <cfargument name="resourceType" required="true">\r
-\r
- <cfif isDefined( "REQUEST.Config.AllowedExtensions." & ARGUMENTS.resourceType )\r
- and listLen( REQUEST.Config.AllowedExtensions[ARGUMENTS.resourceType] )\r
- and not listFindNoCase( REQUEST.Config.AllowedExtensions[ARGUMENTS.resourceType], ARGUMENTS.sExtension )>\r
- <cfreturn false>\r
- </cfif>\r
-\r
- <cfif isDefined( "REQUEST.Config.DeniedExtensions." & ARGUMENTS.resourceType )\r
- and listLen( REQUEST.Config.DeniedExtensions[ARGUMENTS.resourceType] )\r
- and listFindNoCase( REQUEST.Config.DeniedExtensions[ARGUMENTS.resourceType], ARGUMENTS.sExtension )>\r
- <cfreturn false>\r
- </cfif>\r
-\r
- <cfreturn true>\r
-</cffunction>\r
-\r
-<cffunction name="IsAllowedType" returntype="boolean" output="false">\r
- <cfargument name="resourceType">\r
-\r
- <cfif not listFindNoCase( REQUEST.Config.ConfigAllowedTypes, ARGUMENTS.resourceType )>\r
- <cfreturn false>\r
- </cfif>\r
-\r
- <cfreturn true>\r
-</cffunction>\r
-\r
-<cffunction name="IsAllowedCommand" returntype="boolean" output="true">\r
- <cfargument name="sCommand" required="true" type="String">\r
-\r
- <cfif not listFindNoCase( REQUEST.Config.ConfigAllowedCommands, ARGUMENTS.sCommand )>\r
- <cfreturn false>\r
- </cfif>\r
-\r
- <cfreturn true>\r
-</cffunction>\r
-\r
-<cffunction name="GetCurrentFolder" returntype="String" output="true">\r
- <cfset var sCurrentFolder = "/">\r
-\r
- <cfif isDefined( "URL.CurrentFolder" )>\r
- <cfset sCurrentFolder = URL.CurrentFolder>\r
- </cfif>\r
-\r
- <!--- Check the current folder syntax (must begin and start with a slash). --->\r
- <cfif not refind( "/$", sCurrentFolder)>\r
- <cfset sCurrentFolder = sCurrentFolder & "/">\r
- </cfif>\r
-\r
- <cfif not refind( "^/", sCurrentFolder )>\r
- <cfset sCurrentFolder = "/" & sCurrentFolder>\r
- </cfif>\r
-\r
- <!--- Ensure the folder path has no double-slashes, or mkdir may fail on certain platforms --->\r
- <cfset sCurrentFolder = rereplace( sCurrentFolder, "//+", "/", "all" )>\r
-\r
- <cfif find( "..", sCurrentFolder) or find( "\", sCurrentFolder) >\r
- <cfset SendError( 102, "" )>\r
- </cfif>\r
-\r
- <cfreturn sCurrentFolder>\r
-</cffunction>\r
-\r
-<cffunction name="SanitizeFolderName" returntype="String" output="false">\r
- <cfargument name="sNewFolderName" required="true">\r
-\r
- <!--- Do a cleanup of the folder name to avoid possible problems --->\r
- <!--- Remove . \ / | : ? * " < > and control characters --->\r
- <cfset sNewFolderName = rereplace( sNewFolderName, '\.+|\\+|\/+|\|+|\:+|\?+|\*+|"+|<+|>+|[[:cntrl:]]+', "_", "all" )>\r
-\r
- <cfreturn sNewFolderName>\r
-</cffunction>\r
-\r
-<cffunction name="BinaryFileRead" returntype="String" output="true">\r
- <cfargument name="fileName" required="true" type="string">\r
- <cfargument name="bytes" required="true" type="Numeric">\r
-\r
- <cfscript>\r
- var chunk = "";\r
- var fileReaderClass = "";\r
- var fileReader = "";\r
- var file = "";\r
- var done = false;\r
- var counter = 0;\r
- var byteArray = "";\r
-\r
- if( not fileExists( ARGUMENTS.fileName ) )\r
- {\r
- return "" ;\r
- }\r
-\r
- if (REQUEST.CFVersion gte 8)\r
- {\r
- file = FileOpen( ARGUMENTS.fileName, "readbinary" ) ;\r
- byteArray = FileRead( file, 1024 ) ;\r
- chunk = toString( toBinary( toBase64( byteArray ) ) ) ;\r
- FileClose( file ) ;\r
- }\r
- else\r
- {\r
- fileReaderClass = createObject("java", "java.io.FileInputStream");\r
- fileReader = fileReaderClass.init(fileName);\r
-\r
- while(not done)\r
- {\r
- char = fileReader.read();\r
- counter = counter + 1;\r
- if ( char eq -1 or counter eq ARGUMENTS.bytes)\r
- {\r
- done = true;\r
- }\r
- else\r
- {\r
- chunk = chunk & chr(char) ;\r
- }\r
- }\r
- }\r
- </cfscript>\r
-\r
- <cfreturn chunk>\r
-</cffunction>\r
-\r
-<cffunction name="SendUploadResults" returntype="String" output="true">\r
- <cfargument name="errorNumber" required="true" type="Numeric">\r
- <cfargument name="fileUrl" required="false" type="String" default="">\r
- <cfargument name="fileName" required="false" type="String" default="">\r
- <cfargument name="customMsg" required="false" type="String" default="">\r
-\r
- <!--- Minified version of the document.domain automatic fix script (#1919).\r
- The original script can be found at _dev/domain_fix_template.js --->\r
- <cfoutput>\r
-<script type="text/javascript">\r
-(function(){var d=document.domain;while (true){try{var A=window.parent.document.domain;break;}catch(e) {};d=d.replace(/.*?(?:\.|$)/,'');if (d.length==0) break;try{document.domain=d;}catch (e){break;}}})();\r
-window.parent.OnUploadCompleted( #errorNumber#, "#JSStringFormat(fileUrl)#", "#JSStringFormat(fileName)#", "#JSStringFormat(customMsg)#" );\r
-</script>\r
- </cfoutput>\r
- <cfabort>\r
-</cffunction>\r
-\r
-<cffunction name="SanitizeFileName" returntype="String" output="false">\r
- <cfargument name="sNewFileName" required="true">\r
-\r
- <cfif isDefined("REQUEST.Config.ForceSingleExtension") and REQUEST.Config.ForceSingleExtension>\r
- <cfset sNewFileName = rereplace( sNewFileName, '\.(?![^.]*$)', "_", "all" )>\r
- </cfif>\r
-\r
- <!--- Do a cleanup of the file name to avoid possible problems --->\r
- <!--- Remove \ / | : ? * " < > and control characters --->\r
- <cfset sNewFileName = rereplace( sNewFileName, '\\[.]+|\\+|\/+|\|+|\:+|\?+|\*+|"+|<+|>+|[[:cntrl:]]+', "_", "all" )>\r
-\r
- <cfreturn sNewFileName>\r
-</cffunction>\r