|
1
|
#####
|
|
2
|
# FCKeditor - The text editor for Internet - http://www.fckeditor.net
|
|
3
|
# Copyright (C) 2003-2009 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
|
##
|
|
25
|
# SECURITY: REMOVE/COMMENT THE FOLLOWING LINE TO ENABLE THIS CONNECTOR.
|
|
26
|
##
|
|
27
|
&SendError( 1, 'This connector is disabled. Please check the "editor/filemanager/connectors/perl/config.cgi" file' ) ;
|
|
28
|
|
|
29
|
$GLOBALS{'UserFilesPath'} = '/userfiles/';
|
|
30
|
|
|
31
|
# Map the "UserFiles" path to a local directory.
|
|
32
|
$rootpath = &GetRootPath();
|
|
33
|
$GLOBALS{'UserFilesDirectory'} = $rootpath . $GLOBALS{'UserFilesPath'};
|
|
34
|
|
|
35
|
%allowedExtensions = ("File", "7z|aiff|asf|avi|bmp|csv|doc|fla|flv|gif|gz|gzip|jpeg|jpg|mid|mov|mp3|mp4|mpc|mpeg|mpg|ods|odt|pdf|png|ppt|pxd|qt|ram|rar|rm|rmi|rmvb|rtf|sdc|sitd|swf|sxc|sxw|tar|tgz|tif|tiff|txt|vsd|wav|wma|wmv|xls|xml|zip",
|
|
36
|
"Image", "bmp|gif|jpeg|jpg|png",
|
|
37
|
"Flash", "swf|flv",
|
|
38
|
"Media", "aiff|asf|avi|bmp|fla|flv|gif|jpeg|jpg|mid|mov|mp3|mp4|mpc|mpeg|mpg|png|qt|ram|rm|rmi|rmvb|swf|tif|tiff|wav|wma|wmv"
|
|
39
|
);
|