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.pl

#####
#  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/
#  
#  "Support Open Source software. What about a donation today?"
#  
#  File Name: fckeditor.pl
#  	This is the integration file for Perl.
#  
#  File Authors:
#  		Takashi Yamaguchi (jack@omakase.net)
#####

#my $InstanceName;
#my $BasePath;
#my $Width;
#my $Height;
#my $ToolbarSet;
#my $Value;
#my %Config;

sub FCKeditor
{

local($instanceName) = @_;
	$InstanceName	= $instanceName;
	$BasePath		= '/fckeditor/';
	$Width			= '100%';
	$Height			= '200';
	$ToolbarSet		= 'Default';
	$Value			= '';
}

sub Create
{
	print &CreateHtml();
}

sub specialchar_cnv
{

local($ch) = @_;

$ch =~ s/&/&amp;/g;		# &
	$ch =~ s/\"/&quot;/g;	#"
	$ch =~ s/\'/&#39;/g;	# '
	$ch =~ s/</&lt;/g;		# <
	$ch =~ s/>/&gt;/g;		# >
	return($ch);
}

sub CreateHtml
{

$HtmlValue = &specialchar_cnv($Value);
	$Html = '<div>' ;
	if(&IsCompatible()) {
		$Link = $BasePath . "editor/fckeditor.html?InstanceName=$InstanceName";
		if($ToolbarSet ne '') {
			$Link .= "&amp;Toolbar=$ToolbarSet";
		}
		#// Render the linked hidden field.
		$Html .= "<input type=\"hidden\" id=\"$InstanceName\" name=\"$InstanceName\" value=\"$HtmlValue\" style=\"display:none\" />" ;

#// Render the configurations hidden field.
		$cfgstr = &GetConfigFieldString();
		$wk = $InstanceName."___Config";
		$Html .= "<input type=\"hidden\" id=\"$wk\" value=\"$cfgstr\" style=\"display:none\" />" ;

#// Render the editor IFRAME.
		$wk = $InstanceName."___Frame";
		$Html .= "<iframe id=\"$wk\" src=\"$Link\" width=\"$Width\" height=\"$Height\" frameborder=\"0\" scrolling=\"no\"></iframe>";
	} else {
		if($Width =~ /\%/g){
			$WidthCSS = $Width;
		} else {
			$WidthCSS = $Width . 'px';
		}
		if($Height =~ /\%/g){
			$HeightCSS = $Height;
		} else {
			$HeightCSS = $Height . 'px';
		}
		$Html .= "<textarea name=\"$InstanceName\" rows=\"4\" cols=\"40\" style=\"width: $WidthCSS; height: $HeightCSS\">$HtmlValue</textarea>";
	}
	$Html .= '</div>';
	return($Html);
}

sub IsCompatible
{

$sAgent = $ENV{'HTTP_USER_AGENT'};
	if(($sAgent =~ /MSIE/i) && !($sAgent =~ /mac/i) && !($sAgent =~ /Opera/i)) {
		$iVersion = substr($sAgent,index($sAgent,'MSIE') + 5,3);
		return($iVersion >= 5.5) ;
	} elsif($sAgent =~ /Gecko\//i) {
		$iVersion = substr($sAgent,index($sAgent,'Gecko/') + 6,8);
		return($iVersion >= 20030210) ;
	} else {
		return(0);		# 2.0 PR fix
	}
}

sub GetConfigFieldString
{
	$sParams = '';
	$bFirst = 0;
	foreach $sKey (keys %Config) {
		$sValue = $Config{$sKey};
		if($bFirst == 1) {
			$sParams .= '&amp;';
		} else {
			$bFirst = 1;
		}
		$k = &specialchar_cnv($sKey);
		$v = &specialchar_cnv($sValue);
		if($sValue eq "true") {
			$sParams .= "$k=true";
		} elsif($sValue eq "false") {
			$sParams .= "$k=false";
		} else {
			$sParams .= "$k=$v";
		}
	}
	return($sParams);
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2015-05-01 08:30:57
..	dir	-	0/0	0777	2019-06-07 01:15:01
_samples	dir	-	0/0	0777	2015-05-01 08:42:15
editor	dir	-	0/0	0777	2015-05-01 08:35:10
Desktop.ini	application/x-wine-extension-ini	59 B	0/0	0666	2015-05-01 08:29:36
FolderMarker.ico	application/octet-stream	24.08 KB	0/0	0666	2015-05-01 08:29:58
_documentation.html	text/html	1.23 KB	0/0	0666	2015-05-01 08:30:02
_upgrade.html	text/html	1.27 KB	0/0	0666	2015-05-01 08:30:05
_whatsnew.html	text/html	217.4 KB	0/0	0666	2015-05-01 08:30:53
fckconfig.js	text/plain	8.66 KB	0/0	0666	2015-05-01 08:29:38
fckeditor.afp	text/plain	3.75 KB	0/0	0666	2015-05-01 08:29:38
fckeditor.asp	text/plain	4.9 KB	0/0	0666	2015-05-01 08:29:40
fckeditor.cfc	text/plain	7.45 KB	0/0	0666	2015-05-01 08:29:41
fckeditor.cfm	text/plain	6.42 KB	0/0	0666	2015-05-01 08:29:42
fckeditor.js	text/plain	6.56 KB	0/0	0666	2015-05-01 08:29:43
fckeditor.lasso	text/plain	3.31 KB	0/0	0666	2015-05-01 08:29:44
fckeditor.php	text/x-php	4.15 KB	0/0	0666	2015-05-01 08:29:45
fckeditor.pl	text/plain	3.12 KB	0/0	0666	2015-05-01 08:29:47
fckeditor.py	text/plain	3.8 KB	0/0	0666	2015-05-01 08:29:47
fckeditor_php4.php	text/x-php	4.1 KB	0/0	0666	2015-05-01 08:29:49
fckeditor_php5.php	text/x-php	4.15 KB	0/0	0666	2015-05-01 08:29:49
fckpackager.xml	text/xml	11.45 KB	0/0	0666	2015-05-01 08:29:51
fckstyles.xml	text/xml	1.63 KB	0/0	0666	2015-05-01 08:29:52
fcktemplates.xml	text/xml	2.76 KB	0/0	0666	2015-05-01 08:29:53
htaccess.txt	text/plain	1.13 KB	0/0	0666	2015-05-01 08:29:55
license.txt	text/plain	24.25 KB	0/0	0666	2015-05-01 08:30:04

Team Anon Force

https://t.me/Professor6T9x