Subversion Repositories Applications.papyrus

<?php

/*

 * FCKeditor - The text editor for Internet - http://www.fckeditor.net

 * Copyright (C) 2003-2009 Frederico Caldeira Knabben

 *

 * == BEGIN LICENSE ==

 *

 * Licensed under the terms of any of the following licenses at your

 * choice:

 *

 *  - GNU General Public License Version 2 or later (the "GPL")

 *    http://www.gnu.org/licenses/gpl.html

 *

 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")

 *    http://www.gnu.org/licenses/lgpl.html

 *

 *  - Mozilla Public License Version 1.1 or later (the "MPL")

 *    http://www.mozilla.org/MPL/MPL-1.1.html

 *

 * == END LICENSE ==

 *

 * This is the File Manager Connector for PHP.

 */

function CombinePaths( $sBasePath, $sFolder )

{

	return RemoveFromEnd( $sBasePath, '/' ) . '/' . RemoveFromStart( $sFolder, '/' ) ;

}

function GetResourceTypePath( $resourceType, $sCommand )

{

	global $Config ;

	if ( $sCommand == "QuickUpload")

		return $Config['QuickUploadPath'][$resourceType] ;

	else

		return $Config['FileTypesPath'][$resourceType] ;

}

function GetResourceTypeDirectory( $resourceType, $sCommand )

{

	global $Config ;

	if ( $sCommand == "QuickUpload")

	{

		if ( strlen( $Config['QuickUploadAbsolutePath'][$resourceType] ) > 0 )

			return $Config['QuickUploadAbsolutePath'][$resourceType] ;

		// Map the "UserFiles" path to a local directory.

		return Server_MapPath( $Config['QuickUploadPath'][$resourceType] ) ;

	}

	else

	{

		if ( strlen( $Config['FileTypesAbsolutePath'][$resourceType] ) > 0 )

			return $Config['FileTypesAbsolutePath'][$resourceType] ;

		// Map the "UserFiles" path to a local directory.

		return Server_MapPath( $Config['FileTypesPath'][$resourceType] ) ;

	}

}

function GetUrlFromPath( $resourceType, $folderPath, $sCommand )

{

	return CombinePaths( GetResourceTypePath( $resourceType, $sCommand ), $folderPath ) ;

}

function RemoveExtension( $fileName )

{

	return substr( $fileName, 0, strrpos( $fileName, '.' ) ) ;

}

function ServerMapFolder( $resourceType, $folderPath, $sCommand )

{

	// Get the resource type directory.

	$sResourceTypePath = GetResourceTypeDirectory( $resourceType, $sCommand ) ;

	// Ensure that the directory exists.

	$sErrorMsg = CreateServerFolder( $sResourceTypePath ) ;

	if ( $sErrorMsg != '' )

		SendError( 1, "Error creating folder \"{$sResourceTypePath}\" ({$sErrorMsg})" ) ;

	// Return the resource type directory combined with the required path.

	return CombinePaths( $sResourceTypePath , $folderPath ) ;

}

function GetParentFolder( $folderPath )

{

	$sPattern = "-[/\\\\][^/\\\\]+[/\\\\]?$-" ;

	return preg_replace( $sPattern, '', $folderPath ) ;

}

function CreateServerFolder( $folderPath, $lastFolder = null )

{

	global $Config ;

	$sParent = GetParentFolder( $folderPath ) ;

	// Ensure the folder path has no double-slashes, or mkdir may fail on certain platforms

	while ( strpos($folderPath, '//') !== false )

	{

		$folderPath = str_replace( '//', '/', $folderPath ) ;

	}

	// Check if the parent exists, or create it.

	if ( !file_exists( $sParent ) )

	{

		//prevents agains infinite loop when we can't create root folder

		if ( !is_null( $lastFolder ) && $lastFolder === $sParent) {

			return "Can't create $folderPath directory" ;

		}

		$sErrorMsg = CreateServerFolder( $sParent, $folderPath ) ;

		if ( $sErrorMsg != '' )

			return $sErrorMsg ;

	}

	if ( !file_exists( $folderPath ) )

	{

		// Turn off all error reporting.

		error_reporting( 0 ) ;

		$php_errormsg = '' ;

		// Enable error tracking to catch the error.

		ini_set( 'track_errors', '1' ) ;

		if ( isset( $Config['ChmodOnFolderCreate'] ) && !$Config['ChmodOnFolderCreate'] )

		{

			mkdir( $folderPath ) ;

		}

		else

		{

			$permissions = 0777 ;

			if ( isset( $Config['ChmodOnFolderCreate'] ) )

			{

				$permissions = $Config['ChmodOnFolderCreate'] ;

			}

			// To create the folder with 0777 permissions, we need to set umask to zero.

			$oldumask = umask(0) ;

			mkdir( $folderPath, $permissions ) ;

			umask( $oldumask ) ;

		}

		$sErrorMsg = $php_errormsg ;

		// Restore the configurations.

		ini_restore( 'track_errors' ) ;

		ini_restore( 'error_reporting' ) ;

		return $sErrorMsg ;

	}

	else

		return '' ;

}

function GetRootPath()

{

	if (!isset($_SERVER)) {

		global $_SERVER;

	}

	$sRealPath = realpath( './' ) ;

	// #2124 ensure that no slash is at the end

	$sRealPath = rtrim($sRealPath,"\\/");

	$sSelfPath = $_SERVER['PHP_SELF'] ;

	$sSelfPath = substr( $sSelfPath, 0, strrpos( $sSelfPath, '/' ) ) ;

	$sSelfPath = str_replace( '/', DIRECTORY_SEPARATOR, $sSelfPath ) ;

	$position = strpos( $sRealPath, $sSelfPath ) ;

	// This can check only that this script isn't run from a virtual dir

	// But it avoids the problems that arise if it isn't checked

	if ( $position === false || $position <> strlen( $sRealPath ) - strlen( $sSelfPath ) )

		SendError( 1, 'Sorry, can\'t map "UserFilesPath" to a physical path. You must set the "UserFilesAbsolutePath" value in "editor/filemanager/connectors/php/config.php".' ) ;

	return substr( $sRealPath, 0, $position ) ;

}

// Emulate the asp Server.mapPath function.

// given an url path return the physical directory that it corresponds to

function Server_MapPath( $path )

{

	// This function is available only for Apache

	if ( function_exists( 'apache_lookup_uri' ) )

	{

		$info = apache_lookup_uri( $path ) ;

		return $info->filename . $info->path_info ;

	}

	// This isn't correct but for the moment there's no other solution

	// If this script is under a virtual directory or symlink it will detect the problem and stop

	return GetRootPath() . $path ;

}

function IsAllowedExt( $sExtension, $resourceType )

{

	global $Config ;

	// Get the allowed and denied extensions arrays.

	$arAllowed	= $Config['AllowedExtensions'][$resourceType] ;

	$arDenied	= $Config['DeniedExtensions'][$resourceType] ;

	if ( count($arAllowed) > 0 && !in_array( $sExtension, $arAllowed ) )

		return false ;

	if ( count($arDenied) > 0 && in_array( $sExtension, $arDenied ) )

		return false ;

	return true ;

}

function IsAllowedType( $resourceType )

{

	global $Config ;

	if ( !in_array( $resourceType, $Config['ConfigAllowedTypes'] ) )

		return false ;

	return true ;

}

function IsAllowedCommand( $sCommand )

{

	global $Config ;

	if ( !in_array( $sCommand, $Config['ConfigAllowedCommands'] ) )

		return false ;

	return true ;

}

function GetCurrentFolder()

{

	if (!isset($_GET)) {

		global $_GET;

	}

	$sCurrentFolder	= isset( $_GET['CurrentFolder'] ) ? $_GET['CurrentFolder'] : '/' ;

	// Check the current folder syntax (must begin and start with a slash).

	if ( !preg_match( '|/$|', $sCurrentFolder ) )

		$sCurrentFolder .= '/' ;

	if ( strpos( $sCurrentFolder, '/' ) !== 0 )

		$sCurrentFolder = '/' . $sCurrentFolder ;

	// Ensure the folder path has no double-slashes

	while ( strpos ($sCurrentFolder, '//') !== false ) {

		$sCurrentFolder = str_replace ('//', '/', $sCurrentFolder) ;

	}

	// Check for invalid folder paths (..)

	if ( strpos( $sCurrentFolder, '..' ) || strpos( $sCurrentFolder, "\\" ))

		SendError( 102, '' ) ;

	return $sCurrentFolder ;

}

// Do a cleanup of the folder name to avoid possible problems

function SanitizeFolderName( $sNewFolderName )

{

	$sNewFolderName = stripslashes( $sNewFolderName ) ;

	// Remove . \ / | : ? * " < >

	$sNewFolderName = preg_replace( '/\\.|\\\\|\\/|\\||\\:|\\?|\\*|"|<|>|[[:cntrl:]]/', '_', $sNewFolderName ) ;

	return $sNewFolderName ;

}

// Do a cleanup of the file name to avoid possible problems

function SanitizeFileName( $sNewFileName )

{

	global $Config ;

	$sNewFileName = stripslashes( $sNewFileName ) ;

	// Replace dots in the name with underscores (only one dot can be there... security issue).

	if ( $Config['ForceSingleExtension'] )

		$sNewFileName = preg_replace( '/\\.(?![^.]*$)/', '_', $sNewFileName ) ;

	// Remove \ / | : ? * " < >

	$sNewFileName = preg_replace( '/\\\\|\\/|\\||\\:|\\?|\\*|"|<|>|[[:cntrl:]]/', '_', $sNewFileName ) ;

	return $sNewFileName ;

}

// This is the function that sends the results of the uploading process.

function SendUploadResults( $errorNumber, $fileUrl = '', $fileName = '', $customMsg = '' )

{

	// Minified version of the document.domain automatic fix script (#1919).

	// The original script can be found at _dev/domain_fix_template.js

	echo <<<EOF

<script type="text/javascript">

(function(){var d=document.domain;while (true){try{var A=window.parent.document.domain;break;}catch(e) {};d=d.replace(/.*?(?:\.|$)/,'');if (d.length==0) break;try{document.domain=d;}catch (e){break;}}})();

EOF;

	$rpl = array( '\\' => '\\\\', '"' => '\\"' ) ;

	echo 'window.parent.OnUploadCompleted(' . $errorNumber . ',"' . strtr( $fileUrl, $rpl ) . '","' . strtr( $fileName, $rpl ) . '", "' . strtr( $customMsg, $rpl ) . '") ;' ;

	echo '</script>' ;

	exit ;

}

?>