Mercurial > moin > 1.9
view wiki/htdocs/applets/FCKeditor/fckeditor.cfm @ 0:77665d8e2254
tag of nonpublic@localhost--archive/moin--enterprise--1.5--base-0
(automatically generated log message)
imported from: moin--main--1.5--base-0
author | Thomas Waldmann <tw-public@gmx.de> |
---|---|
date | Thu, 22 Sep 2005 15:09:50 +0000 |
parents | |
children | 00a0fa898ed5 |
line wrap: on
line source
<cfsetting enablecfoutputonly="Yes"> <!--- @Packager.Header <FileDescription> ColdFusion integration. Note this module is created for use with Coldfusion 4.52 and above. For a cfc version for coldfusion mx check the fckeditor.cfc. Syntax: <cfmodule name="path/to/cfc/fckeditor" instanceName="myEditor" toolbarSet="..." width="..." height="..:" value="..." config="..." > </FileDescription> <Author name="Hendrik Kramer" email="hk@lwd.de" /> ---> <!--- :: * Attribute validation :: ---> <cfparam name="attributes.instanceName" type="string"> <cfparam name="attributes.width" type="string" default="100%"> <cfparam name="attributes.height" type="string" default="200"> <cfparam name="attributes.toolbarSet" type="string" default="Default"> <cfparam name="attributes.value" type="string" default=""> <cfparam name="attributes.basePath" type="string" default="/fckeditor/"> <cfparam name="attributes.checkBrowser" type="boolean" default="true"> <cfparam name="attributes.config" type="struct" default="#structNew()#"> <!--- :: * check browser compatibility via HTTP_USER_AGENT, if checkBrowser is true :: ---> <cfscript> if( attributes.checkBrowser ) { sAgent = lCase( cgi.HTTP_USER_AGENT ); isCompatibleBrowser = false; // check for Internet Explorer ( >= 5.5 ) if( find( "msie", sAgent ) and not find( "mac", sAgent ) and not find( "opera", sAgent ) ) { // try to extract IE version stResult = reFind( "msie ([5-9]\.[0-9])", sAgent, 1, true ); if( arrayLen( stResult.pos ) eq 2 ) { // get IE Version sBrowserVersion = mid( sAgent, stResult.pos[2], stResult.len[2] ); if( sBrowserVersion GTE 5.5 ) isCompatibleBrowser = true; } } // check for Gecko ( >= 20030210+ ) else if( find( "gecko/", sAgent ) ) { // try to extract Gecko version date stResult = reFind( "gecko/(200[3-9][0-1][0-9][0-3][0-9])", sAgent, 1, true ); if( arrayLen( stResult.pos ) eq 2 ) { // get Gecko build (i18n date) sBrowserVersion = mid( sAgent, stResult.pos[2], stResult.len[2] ); if( sBrowserVersion GTE 20030210 ) isCompatibleBrowser = true; } } } else { // If we should not check browser compatibility, assume true isCompatibleBrowser = true; } </cfscript> <cfif isCompatibleBrowser> <!--- :: * show html editor area for compatible browser :: ---> <cfscript> // try to fix the basePath, if ending slash is missing if( len( attributes.basePath) and right( attributes.basePath, 1 ) is not "/" ) attributes.basePath = attributes.basePath & "/"; // construct the url sURL = attributes.basePath & "editor/fckeditor.html?InstanceName=" & attributes.instanceName; // append toolbarset name to the url if( len( attributes.toolbarSet ) ) sURL = sURL & "&Toolbar=" & attributes.toolbarSet; // create configuration string: Key1=Value1&Key2=Value2&... (Key/Value:HTML encoded) /** * CFML doesn't store casesensitive names for structure keys, but the configuration names must be casesensitive for js. * So we need to find out the correct case for the configuration keys. * We "fix" this by comparing the caseless configuration keys to a list of all available configuration options in the correct case. * changed 20041206 hk@lwd.de (improvements are welcome!) */ lConfigKeys = ""; lConfigKeys = lConfigKeys & "CustomConfigurationsPath,EditorAreaCSS,DocType,BaseHref,FullPage,Debug,SkinPath,PluginsPath,AutoDetectLanguage,DefaultLanguage,ContentLangDirection,EnableXHTML,EnableSourceXHTML,ProcessHTMLEntities,IncludeLatinEntities,IncludeGreekEntities"; lConfigKeys = lConfigKeys & ",FillEmptyBlocks,FormatSource,FormatOutput,FormatIndentator,GeckoUseSPAN,StartupFocus,ForcePasteAsPlainText,ForceSimpleAmpersand,TabSpaces,ShowBorders,UseBROnCarriageReturn"; lConfigKeys = lConfigKeys & ",ToolbarStartExpanded,ToolbarCanCollapse,ToolbarSets,ContextMenu,FontColors,FontNames,FontSizes,FontFormats,StylesXmlPath,SpellChecker,IeSpellDownloadUrl,MaxUndoLevels"; lConfigKeys = lConfigKeys & ",LinkBrowser,LinkBrowserURL,LinkBrowserWindowWidth,LinkBrowserWindowHeight"; lConfigKeys = lConfigKeys & ",LinkUpload,LinkUploadURL,LinkUploadWindowWidth,LinkUploadWindowHeight,LinkUploadAllowedExtensions,LinkUploadDeniedExtensions"; lConfigKeys = lConfigKeys & ",ImageBrowser,ImageBrowserURL,ImageBrowserWindowWidth,ImageBrowserWindowHeight,SmileyPath,SmileyImages,SmileyColumns,SmileyWindowWidth,SmileyWindowHeight"; sConfig = ""; for( key in attributes.config ) { iPos = listFindNoCase( lConfigKeys, key ); if( iPos GT 0 ) { if( len( sConfig ) ) sConfig = sConfig & "&"; fieldValue = attributes.config[key]; fieldName = listGetAt( lConfigKeys, iPos ); sConfig = sConfig & HTMLEditFormat( fieldName ) & '=' & HTMLEditFormat( fieldValue ); } } </cfscript> <cfoutput> <div> <input type="hidden" id="#attributes.instanceName#" name="#attributes.instanceName#" value="#HTMLEditFormat(attributes.value)#" /> <input type="hidden" id="#attributes.instanceName#___Config" value="#sConfig#" /> <iframe id="#attributes.instanceName#___Frame" src="#sURL#" width="#attributes.width#" height="#attributes.height#" frameborder="no" scrolling="no"></iframe> </div> </cfoutput> <cfelse> <!--- :: * show plain textarea for non compatible browser :: ---> <cfscript> // append unit "px" for numeric width and/or height values if( isNumeric( attributes.width ) ) attributes.width = attributes.width & "px"; if( isNumeric( attributes.height ) ) attributes.height = attributes.height & "px"; </cfscript> <!--- Fixed Bug ##1075166. hk@lwd.de 20041206 ---> <cfoutput> <div> <textarea name="#attributes.instanceName#" rows="4" cols="40" style="WIDTH: #attributes.width#; HEIGHT: #attributes.height#" wrap="virtual">#HTMLEditFormat(attributes.value)#</textarea> </div> </cfoutput> </cfif> <cfsetting enablecfoutputonly="No"><cfexit method="exittag">