Menu
▾
▴
[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
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/&/&/g; # & + $ch =~ s/\"/"/g; #" + $ch =~ s/\'/'/g; # ' + $ch =~ s/</</g; # < + $ch =~ s/>/>/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; |
