comparison wiki/htdocs/applets/FCKeditor/editor/filemanager/connectors/perl/io.pl @ 3983:45d71759f13b

add recent version of fckeditor 2.6.3b
author Byeongweon [tasyblue@gmail.com]
date Mon, 28 Jul 2008 01:34:03 +0900
parents
children 1d37117f8ca6
comparison
equal deleted inserted replaced
3982:838c028c9fd6 3983:45d71759f13b
1 #####
2 # FCKeditor - The text editor for Internet - http://www.fckeditor.net
3 # Copyright (C) 2003-2008 Frederico Caldeira Knabben
4 #
5 # == BEGIN LICENSE ==
6 #
7 # Licensed under the terms of any of the following licenses at your
8 # choice:
9 #
10 # - GNU General Public License Version 2 or later (the "GPL")
11 # http://www.gnu.org/licenses/gpl.html
12 #
13 # - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
14 # http://www.gnu.org/licenses/lgpl.html
15 #
16 # - Mozilla Public License Version 1.1 or later (the "MPL")
17 # http://www.mozilla.org/MPL/MPL-1.1.html
18 #
19 # == END LICENSE ==
20 #
21 # This is the File Manager Connector for Perl.
22 #####
23
24 sub GetUrlFromPath
25 {
26 local($resourceType, $folderPath) = @_;
27
28 if($resourceType eq '') {
29 $rmpath = &RemoveFromEnd($GLOBALS{'UserFilesPath'},'/');
30 return("$rmpath$folderPath");
31 } else {
32 return("$GLOBALS{'UserFilesPath'}$resourceType$folderPath");
33 }
34 }
35
36 sub RemoveExtension
37 {
38 local($fileName) = @_;
39 local($path, $base, $ext);
40 if($fileName !~ /\./) {
41 $fileName .= '.';
42 }
43 if($fileName =~ /([^\\\/]*)\.(.*)$/) {
44 $base = $1;
45 $ext = $2;
46 if($fileName =~ /(.*)$base\.$ext$/) {
47 $path = $1;
48 }
49 }
50 return($path,$base,$ext);
51
52 }
53
54 sub ServerMapFolder
55 {
56 local($resourceType,$folderPath) = @_;
57
58 # Get the resource type directory.
59 $sResourceTypePath = $GLOBALS{'UserFilesDirectory'} . $resourceType . '/';
60
61 # Ensure that the directory exists.
62 &CreateServerFolder($sResourceTypePath);
63
64 # Return the resource type directory combined with the required path.
65 $rmpath = &RemoveFromStart($folderPath,'/');
66 return("$sResourceTypePath$rmpath");
67 }
68
69 sub GetParentFolder
70 {
71 local($folderPath) = @_;
72
73 $folderPath =~ s/[\/][^\/]+[\/]?$//g;
74 return $folderPath;
75 }
76
77 sub CreateServerFolder
78 {
79 local($folderPath) = @_;
80
81 $sParent = &GetParentFolder($folderPath);
82 # Check if the parent exists, or create it.
83 if(!(-e $sParent)) {
84 $sErrorMsg = &CreateServerFolder($sParent);
85 if($sErrorMsg == 1) {
86 return(1);
87 }
88 }
89 if(!(-e $folderPath)) {
90 if (defined $CHMOD_ON_FOLDER_CREATE && !$CHMOD_ON_FOLDER_CREATE) {
91 mkdir("$folderPath");
92 }
93 else {
94 umask(000);
95 if (defined $CHMOD_ON_FOLDER_CREATE) {
96 mkdir("$folderPath",$CHMOD_ON_FOLDER_CREATE);
97 }
98 else {
99 mkdir("$folderPath",0777);
100 }
101 }
102
103 return(0);
104 } else {
105 return(1);
106 }
107 }
108
109 sub GetRootPath
110 {
111 #use Cwd;
112
113 # my $dir = getcwd;
114 # print $dir;
115 # $dir =~ s/$ENV{'DOCUMENT_ROOT'}//g;
116 # print $dir;
117 # return($dir);
118
119 # $wk = $0;
120 # $wk =~ s/\/connector\.cgi//g;
121 # if($wk) {
122 # $current_dir = $wk;
123 # } else {
124 # $current_dir = `pwd`;
125 # }
126 # return($current_dir);
127 use Cwd;
128
129 if($ENV{'DOCUMENT_ROOT'}) {
130 $dir = $ENV{'DOCUMENT_ROOT'};
131 } else {
132 my $dir = getcwd;
133 $workdir =~ s/\/connector\.cgi//g;
134 $dir =~ s/$workdir//g;
135 }
136 return($dir);
137
138
139
140 }
141 1;