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;
 

[AlvaroG]

El código que pegaste, tal cual se indica en la parte inferior de los comentarios iniciales, es un código de integración con Perl. Es solamente un componente del programa, no el programa completo.

Fijate en la documentación del programa para saber cómo instalarlo correctamente.


Saludos

[xenon254]

BUenas

Yo lo uso en PHP y me va muy bien. Estoy bastante contento con él.