Alguien de usted conoce editor fckeditor

[helsingius]

Alguien conoce lo que es editor fckeditor y si lo conocen y lo han instalado me podrian decir como.

o si pueden traducirme esto

Código perl:

#####
#  FCKeditor - The text editor for Internet - [url]http://www.fckeditor.net[/url]
#  Copyright (C) 2003-2008 Frederico Caldeira Knabben
#
#  == BEGIN LICENSE ==
#
#  Licensed under the terms of any of the following licenses at your
#  choice:
#
#   - GNU General Public License Version 2 or later (the "GPL")
#     [url]http://www.gnu.org/licenses/gpl.html[/url]
#
#   - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
#     [url]http://www.gnu.org/licenses/lgpl.html[/url]
#
#   - Mozilla Public License Version 1.1 or later (the "MPL")
#     [url]http://www.mozilla.org/MPL/MPL-1.1.html[/url]
#
#  == END LICENSE ==
#
#  This is the integration file for Perl.
#####
 
#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/&/&/g;     # &
    $ch =~ s/\"/"/g;   #"
    $ch =~ s/\'/'/g;    # '
    $ch =~ s/</&lt;/g;      # <
    $ch =~ s/>/&gt;/g;      # >
    return($ch);
}
 
sub CreateHtml
{
 
    $HtmlValue = &specialchar_cnv($Value);
    $Html = '' ;
    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>";
    }
    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) ;
    } elsif($sAgent =~ /Opera\//i) {
        $iVersion = substr($sAgent,index($sAgent,'Opera/') + 6,4);
        return($iVersion >= 9.5) ;
    } elsif($sAgent =~ /AppleWebKit\/(\d+)/i) {
        return($1 >= 522) ;
    } 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);
}
 
1;