#!/usr/bin/env perl ##### # FCKeditor - The text editor for Internet - http://www.fckeditor.net # Copyright (C) 2003-2007 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") # http://www.gnu.org/licenses/gpl.html # # - GNU Lesser General Public License Version 2.1 or later (the "LGPL") # http://www.gnu.org/licenses/lgpl.html # # - Mozilla Public License Version 1.1 or later (the "MPL") # http://www.mozilla.org/MPL/MPL-1.1.html # # == END LICENSE == # # Sample page. ##### ## START: Hack for Windows (Not important to understand the editor code... Perl specific). if(Windows_check()) { chdir(GetScriptPath($0)); } sub Windows_check { # IIS,PWS(NT/95) $www_server_os = $^O; # Win98 & NT(SP4) if($www_server_os eq "") { $www_server_os= $ENV{'OS'}; } # AnHTTPd/Omni/IIS if($ENV{'SERVER_SOFTWARE'} =~ /AnWeb|Omni|IIS\//i) { $www_server_os= 'win'; } # Win Apache if($ENV{'WINDIR'} ne "") { $www_server_os= 'win'; } if($www_server_os=~ /win/i) { return(1); } return(0); } sub GetScriptPath { local($path) = @_; if($path =~ /[\:\/\\]/) { $path =~ s/(.*?)[\/\\][^\/\\]+$/$1/; } else { $path = '.'; } $path; } ## END: Hack for IIS require '../../fckeditor.pl'; # When $ENV{'PATH_INFO'} cannot be used by perl. # $DefRootPath = "/XXXXX/_samples/perl/sample03.cgi"; Please write in script. my $DefServerPath = ""; my $ServerPath; $ServerPath = &GetServerPath(); if($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\t//g; $value =~ s/\r\n/\n/g; $FORM{$name} .= "\0" if(defined($FORM{$name})); $FORM{$name} .= $value; } print "Content-type: text/html\n\n"; print <<"_HTML_TAG_"; FCKeditor - Sample

FCKeditor - Perl - Sample 3

This sample shows how to change the editor toolbar.
Select the toolbar to load: 

_HTML_TAG_ #// Automatically calculates the editor base path based on the _samples directory. #// This is usefull only for these samples. A real application should use something like this: #// $oFCKeditor->BasePath = '/fckeditor/' ; // '/fckeditor/' is the default value. $sBasePath = $ServerPath; $sBasePath = substr($sBasePath, 0, index( $sBasePath, "_samples" )); &FCKeditor('FCKeditor1') ; $BasePath = $sBasePath ; if($FORM{'Toolbar'} ne "") { $ToolbarSet = &specialchar_cnv( $FORM{'Toolbar'} ); } $Value = 'This is some sample text. You are using FCKeditor.' ; &Create(); print <<"_HTML_TAG_";
_HTML_TAG_ ################ #Please use this function, rewriting it depending on a server's environment. ################ sub GetServerPath { my $dir; if($DefServerPath) { $dir = $DefServerPath; } else { if($ENV{'PATH_INFO'}) { $dir = $ENV{'PATH_INFO'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; } } return($dir); }