--- /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