[Thyapi-cvs] thyapi/thywidgets/external/fckeditor/_samples/perl sample01.cgi,1.1,1.2 sample02.cgi,1.

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/_samples/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv563/thywidgets/external/fckeditor/_samples/perl

Modified Files:
	sample01.cgi sample02.cgi sample03.cgi sample04.cgi 
	sampleposteddata.cgi 
Log Message:
Commiting file additions and modification from SVN revision 2028 to 2029...
Changes made by frank on 2005-09-29 21:42:57 +0200 (Thu, 29 Sep 2005) corresponding to SVN revision 2029 with message:

updating fckeditor in dynapi 


Index: sample03.cgi
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/_samples/perl/sample03.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sample03.cgi	1 Sep 2005 18:15:39 -0000	1.1
--- sample03.cgi	29 Sep 2005 19:49:16 -0000	1.2
***************
*** 1,7 ****
! #!/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:
--- 1,7 ----
! #!/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:
***************
*** 14,109 ****
  #  	Sample page.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:00:59
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! 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;
! 	}
! 
! 	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" />
! 		<script type="text/javascript">
! 
! function FCKeditor_OnComplete( editorInstance )
! {
! 	var oCombo = document.getElementById( 'cmbToolbars' ) ;
! 	oCombo.value = editorInstance.ToolbarSet.Name ;
! 	oCombo.style.visibility = '' ;
! }
! 
! function ChangeToolbar( toolbarName )
! {
! 	window.location.href = window.location.pathname + "?Toolbar=" + toolbarName ;
! }
! 
! 		</script>
! 	</head>
! 	<body>
! 		<h1>FCKeditor - Perl - Sample 3</h1>
! 		This sample shows how to change the editor toolbar.
! 		<hr>
! 		<table cellpadding="0" cellspacing="0" border="0">
! 			<tr>
! 				<td>
! 					Select the toolbar to load:&nbsp;
! 				</td>
! 				<td>
! 					<select id="cmbToolbars" onchange="ChangeToolbar(this.value);" style="VISIBILITY: hidden">
! 						<option value="Default" selected>Default</option>
! 						<option value="Basic">Basic</option>
! 					</select>
! 				</td>
! 			</tr>
! 		</table>
! 		<br>
! 		<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 ;
! 
! 	if($FORM{'Toolbar'} ne "") {
! 		$ToolbarSet = $FORM{'Toolbar'};
! 	}
! 	$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_
--- 14,159 ----
  #  	Sample page.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! ## 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_";
! <!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" />
! 		<script type="text/javascript">
! 
! function FCKeditor_OnComplete( editorInstance )
! {
! 	var oCombo = document.getElementById( 'cmbToolbars' ) ;
! 	oCombo.value = editorInstance.ToolbarSet.Name ;
! 	oCombo.style.visibility = '' ;
! }
! 
! function ChangeToolbar( toolbarName )
! {
! 	window.location.href = window.location.pathname + "?Toolbar=" + toolbarName ;
! }
! 
! 		</script>
! 	</head>
! 	<body>
! 		<h1>FCKeditor - Perl - Sample 3</h1>
! 		This sample shows how to change the editor toolbar.
! 		<hr>
! 		<table cellpadding="0" cellspacing="0" border="0">
! 			<tr>
! 				<td>
! 					Select the toolbar to load:&nbsp;
! 				</td>
! 				<td>
! 					<select id="cmbToolbars" onchange="ChangeToolbar(this.value);" style="VISIBILITY: hidden">
! 						<option value="Default" selected>Default</option>
! 						<option value="Basic">Basic</option>
! 					</select>
! 				</td>
! 			</tr>
! 		</table>
! 		<br>
! 		<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 = $ServerPath;
! 	$sBasePath = substr($sBasePath, 0, index( $sBasePath, "_samples" ));
! 
! 	&FCKeditor('FCKeditor1') ;
! 	$BasePath = $sBasePath ;
! 
! 	if($FORM{'Toolbar'} ne "") {
! 		$ToolbarSet = $FORM{'Toolbar'};
! 	}
! 	$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_
! 
! ################
! #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);
! }

Index: sample01.cgi
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/_samples/perl/sample01.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sample01.cgi	1 Sep 2005 18:15:39 -0000	1.1
--- sample01.cgi	29 Sep 2005 19:49:16 -0000	1.2
***************
*** 1,7 ****
! #!/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:
--- 1,7 ----
! #!/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:
***************
*** 14,61 ****
  #  	Sample page.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:01:44
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! 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_
--- 14,109 ----
  #  	Sample page.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! ## 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/sample01.cgi"; Please write in script.
! 
! my $DefServerPath = "";
! my $ServerPath;
! 
! 	$ServerPath = &GetServerPath();
! 	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 = $ServerPath;
! 	$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_
! 
! ################
! #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);
! }

Index: sample02.cgi
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/_samples/perl/sample02.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sample02.cgi	1 Sep 2005 18:15:39 -0000	1.1
--- sample02.cgi	29 Sep 2005 19:49:16 -0000	1.2
***************
*** 1,7 ****
! #!/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:
--- 1,7 ----
! #!/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:
***************
*** 14,124 ****
  #  	Sample page.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:01:14
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! 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;
! 	}
! 
! 	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" />
! 		<script type="text/javascript">
! 
! function FCKeditor_OnComplete( editorInstance )
! {
! 	var oCombo = document.getElementById( 'cmbLanguages' ) ;
! 	for ( code in editorInstance.Language.AvailableLanguages )
! 	{
! 		AddComboOption( oCombo, editorInstance.Language.AvailableLanguages[code] + ' (' + code + ')', code ) ;
! 	}
! 	oCombo.value = editorInstance.Language.ActiveLanguage.Code ;
! }	
! 
! function AddComboOption(combo, optionText, optionValue)
! {
! 	var oOption = document.createElement("OPTION") ;
! 
! 	combo.options.add(oOption) ;
! 
! 	oOption.innerHTML = optionText ;
! 	oOption.value	  = optionValue ;
! 	
! 	return oOption ;
! }
! 
! function ChangeLanguage( languageCode )
! {
! 	window.location.href = window.location.pathname + "?Lang=" + languageCode ;
! }
! 		</script>
! 	</head>
! 	<body>
! 		<h1>FCKeditor - Perl - Sample 2</h1>
! 		This sample shows the editor in all its available languages.
! 		<hr>
! 		<table cellpadding="0" cellspacing="0" border="0">
! 			<tr>
! 				<td>
! 					Select a language:&nbsp;
! 				</td>
! 				<td>
! 					<select id="cmbLanguages" onchange="ChangeLanguage(this.value);">
! 					</select>
! 				</td>
! 			</tr>
! 		</table>
! 		<br>
! 		<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;
! 
! 	if($FORM{'Lang'} ne "") {
! 		$Config{'AutoDetectLanguage'}	= "false";
! 		$Config{'DefaultLanguage'}		= $FORM{'Lang'};
! 	} else {
! 		$Config{'AutoDetectLanguage'}	= "true";
! 		$Config{'DefaultLanguage'}		= 'en' ;
! 	}
! 	$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_
--- 14,174 ----
  #  	Sample page.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! ## 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/sample02.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_";
! <!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" />
! 		<script type="text/javascript">
! 
! function FCKeditor_OnComplete( editorInstance )
! {
! 	var oCombo = document.getElementById( 'cmbLanguages' ) ;
! 	for ( code in editorInstance.Language.AvailableLanguages )
! 	{
! 		AddComboOption( oCombo, editorInstance.Language.AvailableLanguages[code] + ' (' + code + ')', code ) ;
! 	}
! 	oCombo.value = editorInstance.Language.ActiveLanguage.Code ;
! }	
! 
! function AddComboOption(combo, optionText, optionValue)
! {
! 	var oOption = document.createElement("OPTION") ;
! 
! 	combo.options.add(oOption) ;
! 
! 	oOption.innerHTML = optionText ;
! 	oOption.value	  = optionValue ;
! 	
! 	return oOption ;
! }
! 
! function ChangeLanguage( languageCode )
! {
! 	window.location.href = window.location.pathname + "?Lang=" + languageCode ;
! }
! 		</script>
! 	</head>
! 	<body>
! 		<h1>FCKeditor - Perl - Sample 2</h1>
! 		This sample shows the editor in all its available languages.
! 		<hr>
! 		<table cellpadding="0" cellspacing="0" border="0">
! 			<tr>
! 				<td>
! 					Select a language:&nbsp;
! 				</td>
! 				<td>
! 					<select id="cmbLanguages" onchange="ChangeLanguage(this.value);">
! 					</select>
! 				</td>
! 			</tr>
! 		</table>
! 		<br>
! 		<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 = $ServerPath;
! 	$sBasePath = substr( $sBasePath, 0, index($sBasePath,"_samples"));
! 
! 	&FCKeditor('FCKeditor1');
! 	$BasePath = $sBasePath;
! 
! 	if($FORM{'Lang'} ne "") {
! 		$Config{'AutoDetectLanguage'}	= "false";
! 		$Config{'DefaultLanguage'}		= $FORM{'Lang'};
! 	} else {
! 		$Config{'AutoDetectLanguage'}	= "true";
! 		$Config{'DefaultLanguage'}		= 'en' ;
! 	}
! 	$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_
! 
! ################
! #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);
! }

Index: sampleposteddata.cgi
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/_samples/perl/sampleposteddata.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sampleposteddata.cgi	1 Sep 2005 18:15:39 -0000	1.1
--- sampleposteddata.cgi	29 Sep 2005 19:49:16 -0000	1.2
***************
*** 1,7 ****
! #!/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:
--- 1,7 ----
! #!/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:
***************
*** 14,76 ****
  #  	This page lists the data posted by a form.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:01:31
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! 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;
! 	}
! 
! 	print "Content-type: text/html\n\n";
! 	print <<"_HTML_TAG_";
! <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
! 
! <html>
! 	<head>
! 		<title>FCKeditor - Samples - Posted Data</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 - Samples - Posted Data</h1>
! 		This page lists all data posted by the form.
! 		<hr>
! 		<table width="100%" border="1" cellspacing="0" bordercolor="#999999">
! 			<tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
! 				<td nowrap>Field Name&nbsp;&nbsp;</td>
! 				<td>Value</td>
! 			</tr>
! _HTML_TAG_
! 
! 	foreach $key (keys %FORM) {
! 		$postedValue = &specialchar_cnv($FORM{$key});
! 		print <<"_HTML_TAG_";
! 			<tr>
! 				<td valign="top" nowrap><b>$key</b></td>
! 				<td width="100%">$postedValue</td>
! 			</tr>
! _HTML_TAG_
! 	}
! 		print <<"_HTML_TAG_";
! 		</table>
! 	</body>
! </html>
! _HTML_TAG_
--- 14,99 ----
  #  	This page lists the data posted by a form.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! ## 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';
! 
! 	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_";
! <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
! 
! <html>
! 	<head>
! 		<title>FCKeditor - Samples - Posted Data</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 - Samples - Posted Data</h1>
! 		This page lists all data posted by the form.
! 		<hr>
! 		<table width="100%" border="1" cellspacing="0" bordercolor="#999999">
! 			<tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
! 				<td nowrap>Field Name&nbsp;&nbsp;</td>
! 				<td>Value</td>
! 			</tr>
! _HTML_TAG_
! 
! 	foreach $key (keys %FORM) {
! 		$postedValue = &specialchar_cnv($FORM{$key});
! 		print <<"_HTML_TAG_";
! 			<tr>
! 				<td valign="top" nowrap><b>$key</b></td>
! 				<td width="100%">$postedValue</td>
! 			</tr>
! _HTML_TAG_
! 	}
! 		print <<"_HTML_TAG_";
! 		</table>
! 	</body>
! </html>
! _HTML_TAG_

Index: sample04.cgi
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/_samples/perl/sample04.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sample04.cgi	1 Sep 2005 18:15:39 -0000	1.1
--- sample04.cgi	29 Sep 2005 19:49:16 -0000	1.2
***************
*** 1,7 ****
! #!/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:
--- 1,7 ----
! #!/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:
***************
*** 14,116 ****
  #  	Sample page.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:01:08
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! 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_";
! <!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" />
! 		<script type="text/javascript">
! 
! function FCKeditor_OnComplete( editorInstance )
! {
! 	var oCombo = document.getElementById( 'cmbSkins' ) ;
! 
! 	// Get the active skin.
! 	var sSkin = editorInstance.Config['SkinPath'] ;
! 	sSkin = sSkin.match(/[^\\/]+(?=\\/\$)/g) ;
! 
! 	oCombo.value = sSkin ;
! 	oCombo.style.visibility = '' ;
! }
! 
! function ChangeSkin( skinName )
! {
! 	window.location.href = window.location.pathname + "?Skin=" + skinName ;
! }
! 
! 		</script>
! 	</head>
! 	<body>
! 		<h1>FCKeditor - Perl - Sample 4</h1>
! 		This sample shows how to change the editor skin.
! 		<hr>
! 		<table cellpadding="0" cellspacing="0" border="0">
! 			<tr>
! 				<td>
! 					Select the skin to load:&nbsp;
! 				</td>
! 				<td>
! 					<select id="cmbSkins" onchange="ChangeSkin(this.value);" style="VISIBILITY: hidden">
! 						<option value="default" selected>Default</option>
! 						<option value="office2003">Office 2003</option>
! 						<option value="silver">Silver</option>
! 					</select>
! 				</td>
! 			</tr>
! 		</table>
! 		<br>
! 		<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;
! 
! 	if($FORM{'Skin'} ne "") {
! 		$Config{'SkinPath'} = $sBasePath . 'editor/skins/' . $FORM{'Skin'} . '/' ;
! 	}
! 	$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_
--- 14,166 ----
  #  	Sample page.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
! 
! ## 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/sample04.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;
! 	}
! 
! #!!Caution javascript \ Quart
! 
! 	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" />
! 		<script type="text/javascript">
! 
! function FCKeditor_OnComplete( editorInstance )
! {
! 	var oCombo = document.getElementById( 'cmbSkins' ) ;
! 
! 	// Get the active skin.
! 	var sSkin = editorInstance.Config['SkinPath'] ;
! 	sSkin = sSkin.match(/[^\\/]+(?=\\/\$)/g) ;
! 
! 	oCombo.value = sSkin ;
! 	oCombo.style.visibility = '' ;
! }
! 
! function ChangeSkin( skinName )
! {
! 	window.location.href = window.location.pathname + "?Skin=" + skinName ;
! }
! 
! 		</script>
! 	</head>
! 	<body>
! 		<h1>FCKeditor - Perl - Sample 4</h1>
! 		This sample shows how to change the editor skin.
! 		<hr>
! 		<table cellpadding="0" cellspacing="0" border="0">
! 			<tr>
! 				<td>
! 					Select the skin to load:&nbsp;
! 				</td>
! 				<td>
! 					<select id="cmbSkins" onchange="ChangeSkin(this.value);" style="VISIBILITY: hidden">
! 						<option value="default" selected>Default</option>
! 						<option value="office2003">Office 2003</option>
! 						<option value="silver">Silver</option>
! 					</select>
! 				</td>
! 			</tr>
! 		</table>
! 		<br>
! 		<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 = $ServerPath;
! 	$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 <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_
! 
! ################
! #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);
! }

[Thyapi-cvs] thyapi/thywidgets/external/fckeditor/_samples/perl sample01.cgi,1.1,1.2 sample02.cgi,1.

[Thyapi-cvs] thyapi/thywidgets/external/fckeditor/_samples/perl sample01.cgi,1.1,1.2 sample02.cgi,1.1,1.2 sample03.cgi,1.1,1.2 sample04.cgi,1.1,1.2 sampleposteddata.cgi,1.1,1.2