Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : fckeditor.afp

<% 
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2006 Frederico Caldeira Knabben
 * 
 * Licensed under the terms of the GNU Lesser General Public License:
 * 		http://www.opensource.org/licenses/lgpl-license.php
 * 
 * For further information visit:
 * 		http://www.fckeditor.net/
 * 
 * File Name: sampleposteddata.afp
 * 	This page lists the data posted by a form.
 * 
 * Version:  1.0 
 * Modified: 2005-07-01
 * 
 * File Authors: Soenke Freitag (www.afp-hosting.de)
 *

DEFINE CLASS goFckeditor AS CONTAINER OLEPUBLIC

cInstanceName =""
	BasePath =""
	cWIDTH =""
	cHEIGHT =""
	ToolbarSet =""
	cValue=""
	DIMENSION aConfig(10,2)

&& -----------------------------------------------------------------------
	FUNCTION fckeditor( tcInstanceName )
		LOCAL lnLoop,lnLoop2
		THIS.cInstanceName	= tcInstanceName
		THIS.BasePath	= '/fckeditor/'
		THIS.cWIDTH		= '100%'
		THIS.cHEIGHT	= '200'
		THIS.ToolbarSet	= 'Default'
		THIS.cValue		= ''
		FOR lnLoop=1 TO 10
			FOR lnLoop2=1 TO 2
				THIS.aConfig(lnLoop,lnLoop2)	= ""
			NEXT
		NEXT
		RETURN
	ENDFUNC

&& -----------------------------------------------------------------------
	FUNCTION CREATE()
		? THIS.CreateHtml()
		RETURN
	ENDFUNC

&& -----------------------------------------------------------------------
	FUNCTION CreateHtml()
		LOCAL html
		LOCAL lcLink

HtmlValue = THIS.cValue		&& HTMLSPECIALCHARS()

html = [<div>]
		IF THIS.IsCompatible()
			lcLink = THIS.BasePath+[editor/fckeditor.html?InstanceName=]+THIS.cInstanceName

IF ( THIS.ToolbarSet # '' )
				lcLink = lcLink + [Toolbar=]+THIS.ToolbarSet
			ENDIF

&& Render the LINKED HIDDEN FIELD.
			html = html + [<input type="hidden" id="]+THIS.cInstanceName +[" name="]+THIS.cInstanceName +[" value="]+HtmlValue+[" style="display:none" />]

&& Render the configurations HIDDEN FIELD.
			html = html + [<input type="hidden" id="]+THIS.cInstanceName +[___Config" value="]+THIS.GetConfigFieldString() + [" style="display:none" />] +CHR(13)+CHR(10)

&& Render the EDITOR IFRAME.
			html = html + [<iframe id="]+THIS.cInstanceName +[___Frame" src="Link" width="]+THIS.cWIDTH+[" height="]+THIS.cHEIGHT+[" frameborder="0" scrolling="no"></iframe>]
		ELSE
			IF ( AT("%", THIS.cWIDTH)=0 )
				WidthCSS = THIS.cWIDTH + 'px'
			ELSE
				WidthCSS = THIS.cWIDTH
			ENDIF

IF ( AT("%",THIS.cHEIGHT)=0  )
				HeightCSS = THIS.cHEIGHT + 'px'
			ELSE
				HeightCSS = THIS.cHEIGHT
			ENDIF

html = html + [<textarea name="]+THIS.cInstanceName +[" rows="4" cols="40" style="width: ]+WidthCSS+[ height: ]+HeightCSS+[">]+HtmlValue+[</textarea>]
		ENDIF

html = html + [</div>]

RETURN (html)
	ENDFUNC

&& -----------------------------------------------------------------------
	FUNCTION IsCompatible()
		LOCAL llRetval
		LOCAL sAgent

llRetval=.F.

sAgent = LOWER(ALLTRIM(request.servervariables("HTTP_USER_AGENT")))

IF AT("msie",sAgent) >0 .AND. AT("mac",sAgent)=0 .AND. AT("opera",sAgent)=0
			iVersion=VAL(SUBSTR(sAgent,AT("msie",sAgent)+5,3))
			llRetval= iVersion > 5.5
		ELSE
			IF AT("gecko",sAgent)>0
				iVersion=VAL(SUBSTR(sAgent,AT("gecko/",sAgent)+6,8))
				llRetval =iVersion > 20030210
			ENDIF
		ENDIF
		RETURN (llRetval)
	ENDFUNC

&& -----------------------------------------------------------------------
	FUNCTION GetConfigFieldString()
		LOCAL sParams
		LOCAL bFirst
		LOCAL sKey
		sParams = ""
		bFirst = .T.
		FOR lnLoop=1 TO 10 && ALEN(this.aconfig)
			IF !EMPTY(THIS.aConfig(lnLoop,1))
				IF bFirst = .F.
					sParams = sParams + "&"
				ELSE
					bFirst = .F.
				ENDIF
				sParams = sParams +THIS.aConfig(lnLoop,1)+[=]+THIS.aConfig(lnLoop,2)
			ELSE
				EXIT
			ENDIF
		NEXT
		RETURN(sParams)
	ENDFUNC
ENDDEFINE
%>

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2018-04-29 07:17:35
..	dir	-	0/0	0777	2018-05-26 09:33:32
_samples	dir	-	0/0	0777	2018-04-29 07:18:27
_testcases	dir	-	0/0	0777	2018-04-29 07:17:36
editor	dir	-	0/0	0777	2018-04-29 07:18:10
_documentation.html	text/html	1020 B	0/0	0666	2018-04-29 07:17:32
_whatsnew.html	text/html	184.96 KB	0/0	0666	2018-04-29 07:17:33
fckconfig.js	text/plain	8.83 KB	0/0	0666	2018-04-29 07:17:30
fckeditor.afp	text/plain	3.75 KB	0/0	0666	2018-04-29 07:17:30
fckeditor.asp	text/plain	4.9 KB	0/0	0666	2018-04-29 07:17:30
fckeditor.cfc	text/plain	7.45 KB	0/0	0666	2018-04-29 07:17:30
fckeditor.cfm	text/plain	6.42 KB	0/0	0666	2018-04-29 07:17:30
fckeditor.js	text/plain	6.76 KB	0/0	0666	2018-04-29 07:17:31
fckeditor.lasso	text/plain	3.31 KB	0/0	0666	2018-04-29 07:17:31
fckeditor.php	text/x-php	4.15 KB	0/0	0666	2018-04-29 07:17:31
fckeditor.pl	text/plain	3.12 KB	0/0	0666	2018-04-29 07:17:31
fckeditor.py	text/plain	3.95 KB	0/0	0666	2018-04-29 07:17:31
fckstyles.xml	text/xml	1.63 KB	0/0	0666	2018-04-29 07:17:32
fcktemplates.xml	text/xml	2.76 KB	0/0	0666	2018-04-29 07:17:32
htaccess.txt	text/plain	1.13 KB	0/0	0666	2018-04-29 07:17:32
license.txt	text/plain	24.25 KB	0/0	0666	2018-04-29 07:17:33

Team Anon Force

https://t.me/Professor6T9x