#!/usr/bin/env perl ##### # FCKeditor - The text editor for internet # Copyright (C) 2003-2005 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: sample04.cgi # Sample page. # # File Authors: # Takashi Yamaguchi (jack@omakase.net) ##### require '../../fckeditor.pl'; 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; } #!!Caution javascript \ Quart print "Content-type: text/html\n\n"; print <<"_HTML_TAG_"; FCKeditor - Sample

FCKeditor - Perl - Sample 4

This sample shows how to change the editor skin.
Select the skin 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 = $ENV{'PATH_INFO'}; $sBasePath = substr( $sBasePath, 0, index( $sBasePath, "_samples" ) ) ; &FCKeditor('FCKeditor1'); $BasePath = $sBasePath; if($FORM{'Skin'} ne "") { $Config{'SkinPath'} = $sBasePath . 'editor/skins/' . $FORM{'Skin'} . '/' ; } $Value = 'This is some sample text. You are using FCKeditor.' ; &Create() ; print <<"_HTML_TAG_";
_HTML_TAG_