Current File : /home/serb/www/fckeditor/_samples/perl/sample01.cgi
#!/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_";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>FCKeditor - Sample</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="robots" content="noindex, nofollow">
<link href="../sample.css" rel="stylesheet" type="text/css" />
</head>
<body>
<h1>FCKeditor - Perl - Sample 1</h1>
This sample displays a normal HTML form with an FCKeditor with full features
enabled.
<hr>
<form action="sampleposteddata.cgi" method="post" target="_blank">
_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 <strong>sample text</strong>. You are using <a href="http://www.fckeditor.net/">FCKeditor</a>.';
&Create();
print <<"_HTML_TAG_";
<br>
<input type="submit" value="Submit">
</form>
</body>
</html>
_HTML_TAG_
Mini Shell