#!/usr/bin/env perl ##### # FCKeditor - The text editor for internet # Copyright (C) 2003-2004 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: sample01.cgi # Sample page. # # Version: 2.0 RC3 # Modified: 2005-02-28 17:01:44 # # File Authors: # Takashi Yamaguchi (jack@omakase.net) ##### require '../../fckeditor.pl'; print "Content-type: text/html\n\n"; print <<"_HTML_TAG_"; FCKeditor - Sample

FCKeditor - Perl - Sample 1

This sample displays a normal HTML form with an FCKeditor with full features enabled.
_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; $Value = 'This is some sample text. You are using FCKeditor.'; &Create(); print <<"_HTML_TAG_";
_HTML_TAG_