source: trunk/expressoMail1_2/js/fckeditor/editor/filemanager/browser/default/connectors/perl/io.pl @ 389

#####
#  FCKeditor - The text editor for internet
#  Copyright (C) 2003-2006 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/
#  
#  "Support Open Source software. What about a donation today?"
#  
#  File Name: io.pl
#       This is the File Manager Connector for Perl.
#  
#  File Authors:
#               Takashi Yamaguchi (jack@omakase.net)
#####

sub GetUrlFromPath
{
        local($resourceType, $folderPath) = @_;

        if($resourceType eq '') {
                $rmpath = &RemoveFromEnd($GLOBALS{'UserFilesPath'},'/');
                return("$rmpath$folderPath");
        } else {
                return("$GLOBALS{'UserFilesPath'}$resourceType$folderPath");
        }
}

sub RemoveExtension
{
        local($fileName) = @_;
        local($path, $base, $ext);
        if($fileName !~ /\./) {
                $fileName .= '.';
        }
        if($fileName =~ /([^\\\/]*)\.(.*)$/) {
                $base = $1;
                $ext  = $2;
                if($fileName =~ /(.*)$base\.$ext$/) {
                        $path = $1;
                }
        }
        return($path,$base,$ext);

}

sub ServerMapFolder
{
        local($resourceType,$folderPath) = @_;

        # Get the resource type directory.
        $sResourceTypePath = $GLOBALS{'UserFilesDirectory'} . $resourceType . '/';

        # Ensure that the directory exists.
        &CreateServerFolder($sResourceTypePath);

        # Return the resource type directory combined with the required path.
        $rmpath = &RemoveFromStart($folderPath,'/');
        return("$sResourceTypePath$rmpath");
}

sub GetParentFolder
{
        local($folderPath) = @_;

        $folderPath =~ s/[\/][^\/]+[\/]?$//g;
        return $folderPath;
}

sub CreateServerFolder
{
        local($folderPath) = @_;

        $sParent = &GetParentFolder($folderPath);
        # Check if the parent exists, or create it.
        if(!(-e $sParent)) {
                $sErrorMsg = &CreateServerFolder($sParent);
                if($sErrorMsg == 1) {
                        return(1);
                }
        }
        if(!(-e $folderPath)) {
                umask(000);
                mkdir("$folderPath",0777);
                chmod(0777,"$folderPath");
                return(0);
        } else {
                return(1);
        }
}

sub GetRootPath
{
#use Cwd;

#       my $dir = getcwd;
#       print $dir;
#       $dir  =~ s/$ENV{'DOCUMENT_ROOT'}//g;
#       print $dir;
#       return($dir);

#       $wk = $0;
#       $wk =~ s/\/connector\.cgi//g;
#       if($wk) {
#               $current_dir = $wk;
#       } else {
#               $current_dir = `pwd`;
#       }
#       return($current_dir);
use Cwd;

        if($ENV{'DOCUMENT_ROOT'}) {
                $dir = $ENV{'DOCUMENT_ROOT'};
        } else {
                my $dir = getcwd;
                $workdir =~ s/\/connector\.cgi//g;
                $dir  =~ s/$workdir//g;
        }
        return($dir);



}
1;