[Thyapi-cvs] thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl basexml.pl,1.1,1.2 commands.pl,1.1,1.2 connector.cgi,1.1,1.2 io.pl,1.1,1.2 upload_fck.pl,1.1,1.2 util.pl,1.1,1.2

[Thyamad c. <th...@us...>]

Update of /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv563/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl

Modified Files:
	basexml.pl commands.pl connector.cgi io.pl upload_fck.pl 
	util.pl 
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: commands.pl
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl/commands.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** commands.pl	1 Sep 2005 18:15:43 -0000	1.1
--- commands.pl	29 Sep 2005 19:49:18 -0000	1.2
***************
*** 1,5 ****
! #####
  #  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,5 ----
! #####
  #  FCKeditor - The text editor for internet
! #  Copyright (C) 2003-2005 Frederico Caldeira Knabben
  #  
  #  Licensed under the terms of the GNU Lesser General Public License:
***************
*** 12,21 ****
  #  	This is the File Manager Connector for Perl.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:06:07
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub GetFolders
--- 12,18 ----
  #  	This is the File Manager Connector for Perl.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub GetFolders

Index: connector.cgi
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl/connector.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** connector.cgi	1 Sep 2005 18:15:43 -0000	1.1
--- connector.cgi	29 Sep 2005 19:49:18 -0000	1.2
***************
*** 1,92 ****
! #!/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: connector.cgi
! # * 	This is the File Manager Connector for Perl.
! # * 
! # * Version:  2.0 RC2
! # * Modified: 2005-01-7 13:20:00
! # * 
! # * File Authors:
! # * 		Frederico Caldeira Knabben (fr...@fc...)
! # * 		Takashi Yamaguchi (ja...@om...)
! # */
! 
! require 'util.pl';
! require 'io.pl';
! require 'basexml.pl';
! require 'commands.pl';
! require 'upload_fck.pl';
! 
! 	&read_input();
! 
! 	if($FORM{'ServerPath'} ne "") {
! 		$GLOBALS{'UserFilesPath'} = $FORM{'ServerPath'};
! 		if(!($GLOBALS{'UserFilesPath'} =~ /\/$/)) {
! 			$GLOBALS{'UserFilesPath'} .= '/' ;
! 		}
! 	} else {
! 		$GLOBALS{'UserFilesPath'} = '/UserFiles/';
! 	}
! 
! 	# Map the "UserFiles" path to a local directory.
! 	$rootpath = &GetRootPath();
! 	$GLOBALS{'UserFilesDirectory'} = $rootpath . $GLOBALS{'UserFilesPath'};
! 
! 	&DoResponse();
! 
! sub DoResponse
! {
! 
! 	if($FORM{'Command'} eq "" || $FORM{'Type'} eq "" || $FORM{'CurrentFolder'} eq "") {
! 		return ;
! 	}
! 	# Get the main request informaiton.
! 	$sCommand		= $FORM{'Command'};
! 	$sResourceType	= $FORM{'Type'};
! 	$sCurrentFolder	= $FORM{'CurrentFolder'};
! 
! 	# Check the current folder syntax (must begin and start with a slash).
! 	if(!($sCurrentFolder =~ /\/$/)) {
! 		$sCurrentFolder .= '/';
! 	}
! 	if(!($sCurrentFolder =~ /^\//)) {
! 		$sCurrentFolder = '/' . $sCurrentFolder;
! 	}
! 
! 	# File Upload doesn't have to Return XML, so it must be intercepted before anything.
! 	if($sCommand eq 'FileUpload') {
! 		FileUpload($sResourceType,$sCurrentFolder);
! 		return ;
! 	}
! 
! 	print << "_HTML_HEAD_";
! Content-Type:text/xml; charset=utf-8
! Pragma: no-cache
! Cache-Control: no-cache
! Expires: Thu, 01 Dec 1994 16:00:00 GMT
! 
! _HTML_HEAD_
! 
! 	&CreateXmlHeader($sCommand,$sResourceType,$sCurrentFolder);
! 	# Execute the required command.
! 	if($sCommand eq 'GetFolders') {
! 		&GetFolders($sResourceType,$sCurrentFolder);
! 	} elsif($sCommand eq 'GetFoldersAndFiles') {
! 		&GetFoldersAndFiles($sResourceType,$sCurrentFolder);
! 	} elsif($sCommand eq 'CreateFolder') {
! 		&CreateFolder($sResourceType,$sCurrentFolder);
! 	}
! 	&CreateXmlFooter();
! 	exit ;
! }
! 
--- 1,132 ----
! #!/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: connector.cgi
! #  	This is the File Manager Connector for Perl.
! #  
! #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #  		Frederico Caldeira Knabben (fr...@fc...)
! #####
! 
! ##
! # ATTENTION: To enable this connector, look for the "SECURITY" comment in this file.
! ##
! 
! ## 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 'util.pl';
! require 'io.pl';
! require 'basexml.pl';
! require 'commands.pl';
! require 'upload_fck.pl';
! 
! ##
! # SECURITY: REMOVE/COMMENT THE FOLLOWING LINE TO ENABLE THIS CONNECTOR.
! ##
! &SendError( 1, 'This connector is disabled. Please check the "editor/filemanager/browser/default/connectors/perl/connector.cgi" file' ) ;
! 
! 	&read_input();
! 
! 	if($FORM{'ServerPath'} ne "") {
! 		$GLOBALS{'UserFilesPath'} = $FORM{'ServerPath'};
! 		if(!($GLOBALS{'UserFilesPath'} =~ /\/$/)) {
! 			$GLOBALS{'UserFilesPath'} .= '/' ;
! 		}
! 	} else {
! 		$GLOBALS{'UserFilesPath'} = '/UserFiles/';
! 	}
! 
! 	# Map the "UserFiles" path to a local directory.
! 	$rootpath = &GetRootPath();
! 	$GLOBALS{'UserFilesDirectory'} = $rootpath . $GLOBALS{'UserFilesPath'};
! 
! 	&DoResponse();
! 
! sub DoResponse
! {
! 
! 	if($FORM{'Command'} eq "" || $FORM{'Type'} eq "" || $FORM{'CurrentFolder'} eq "") {
! 		return ;
! 	}
! 	# Get the main request informaiton.
! 	$sCommand		= $FORM{'Command'};
! 	$sResourceType	= $FORM{'Type'};
! 	$sCurrentFolder	= $FORM{'CurrentFolder'};
! 
! 	# Check the current folder syntax (must begin and start with a slash).
! 	if(!($sCurrentFolder =~ /\/$/)) {
! 		$sCurrentFolder .= '/';
! 	}
! 	if(!($sCurrentFolder =~ /^\//)) {
! 		$sCurrentFolder = '/' . $sCurrentFolder;
! 	}
! 	
! 	# Check for invalid folder paths (..)
! 	if ( $sCurrentFolder =~ /\.\./ ) {
! 		SendError( 102, "" ) ;
! 	}
! 
! 	# File Upload doesn't have to Return XML, so it must be intercepted before anything.
! 	if($sCommand eq 'FileUpload') {
! 		FileUpload($sResourceType,$sCurrentFolder);
! 		return ;
! 	}
! 
! 	print << "_HTML_HEAD_";
! Content-Type:text/xml; charset=utf-8
! Pragma: no-cache
! Cache-Control: no-cache
! Expires: Thu, 01 Dec 1994 16:00:00 GMT
! 
! _HTML_HEAD_
! 
! 	&CreateXmlHeader($sCommand,$sResourceType,$sCurrentFolder);
! 	
! 	# Execute the required command.
! 	if($sCommand eq 'GetFolders') {
! 		&GetFolders($sResourceType,$sCurrentFolder);
! 	} elsif($sCommand eq 'GetFoldersAndFiles') {
! 		&GetFoldersAndFiles($sResourceType,$sCurrentFolder);
! 	} elsif($sCommand eq 'CreateFolder') {
! 		&CreateFolder($sResourceType,$sCurrentFolder);
! 	}
! 	
! 	&CreateXmlFooter();
! 	
! 	exit ;
! }
! 

Index: upload_fck.pl
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl/upload_fck.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** upload_fck.pl	1 Sep 2005 18:15:43 -0000	1.1
--- upload_fck.pl	29 Sep 2005 19:49:18 -0000	1.2
***************
*** 1,5 ****
! #####
  #  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,5 ----
! #####
  #  FCKeditor - The text editor for internet
! #  Copyright (C) 2003-2005 Frederico Caldeira Knabben
  #  
[...1286 lines suppressed...]
! # Image Temporary deletion
! #
! # Parameters
! # Returns
! # Memo
! ##############################################################################
! 
! sub rm_tmp_uploaded_files
! {
! 	if($img_data_exists == 1){
! 		sleep 1;
! 		foreach $fname_list(@NEWFNAMES) {
! 			if(-e "$img_dir/$fname_list") {
! 				unlink("$img_dir/$fname_list");
! 			}
! 		}
! 	}
! 
! }
! 1;

Index: util.pl
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** util.pl	1 Sep 2005 18:15:43 -0000	1.1
--- util.pl	29 Sep 2005 19:49:18 -0000	1.2
***************
*** 1,5 ****
! #####
  #  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,5 ----
! #####
  #  FCKeditor - The text editor for internet
! #  Copyright (C) 2003-2005 Frederico Caldeira Knabben
  #  
  #  Licensed under the terms of the GNU Lesser General Public License:
***************
*** 12,21 ****
  #  	This is the File Manager Connector for Perl.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:06:13
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub RemoveFromStart
--- 12,18 ----
  #  	This is the File Manager Connector for Perl.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub RemoveFromStart
***************
*** 43,45 ****
--- 40,54 ----
  }
  
+ sub specialchar_cnv
+ {
+ 	local($ch) = @_;
+ 
+ 	$ch =~ s/&/&amp;/g;		# &
+ 	$ch =~ s/\"/&quot;/g;	#"
+ 	$ch =~ s/\'/&#39;/g;	# '
+ 	$ch =~ s/</&lt;/g;		# <
+ 	$ch =~ s/>/&gt;/g;		# >
+ 	return($ch);
+ }
+ 
  1;

Index: io.pl
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl/io.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** io.pl	1 Sep 2005 18:15:43 -0000	1.1
--- io.pl	29 Sep 2005 19:49:18 -0000	1.2
***************
*** 1,5 ****
! #####
  #  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,5 ----
! #####
  #  FCKeditor - The text editor for internet
! #  Copyright (C) 2003-2005 Frederico Caldeira Knabben
  #  
  #  Licensed under the terms of the GNU Lesser General Public License:
***************
*** 12,21 ****
  #  	This is the File Manager Connector for Perl.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:06:00
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub GetUrlFromPath
--- 12,18 ----
  #  	This is the File Manager Connector for Perl.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub GetUrlFromPath

Index: basexml.pl
===================================================================
RCS file: /cvsroot/thyapi/thyapi/thywidgets/external/fckeditor/editor/filemanager/browser/default/connectors/perl/basexml.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** basexml.pl	1 Sep 2005 18:15:43 -0000	1.1
--- basexml.pl	29 Sep 2005 19:49:18 -0000	1.2
***************
*** 1,5 ****
! #####
  #  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,5 ----
! #####
  #  FCKeditor - The text editor for internet
! #  Copyright (C) 2003-2005 Frederico Caldeira Knabben
  #  
  #  Licensed under the terms of the GNU Lesser General Public License:
***************
*** 12,25 ****
  #  	This is the File Manager Connector for Perl.
  #  
- #  Version:  2.0 RC3
- #  Modified: 2005-02-28 17:06:22
- #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub CreateXmlHeader
  {
- 
  	local($command,$resourceType,$currentFolder) = @_;
  
--- 12,21 ----
  #  	This is the File Manager Connector for Perl.
  #  
  #  File Authors:
! #  		Takashi Yamaguchi (ja...@om...)
! #####
  
  sub CreateXmlHeader
  {
  	local($command,$resourceType,$currentFolder) = @_;
  
***************
*** 39,41 ****
--- 35,57 ----
  }
  
+ sub SendError
+ {
+ 	local( $number, $text ) = @_;
+ 
+ 	print << "_HTML_HEAD_";
+ Content-Type:text/xml; charset=utf-8
+ Pragma: no-cache
+ Cache-Control: no-cache
+ Expires: Thu, 01 Dec 1994 16:00:00 GMT
+ 
+ _HTML_HEAD_
+ 
+ 	# Create the XML document header
+ 	print '<?xml version="1.0" encoding="utf-8" ?>' ;
+ 	
+ 	print '<Connector><Error number="' . $number . '" text="' . &specialchar_cnv( $text ) . '" /></Connector>' ;
+ 	
+ 	exit ;
+ }
+ 
  1;