<?
define('REFRESH_DELAY', 4);  // Rafraîchir le fichier s'il est plus vieux que ce nombre (en heures)

function imageJpegV2($oNewImage, $sNewPathFile) {
	imageinterlace($oNewImage);
	//echo $sNewPathFile;
	imagejpeg($oNewImage, $sNewPathFile, 95);
}

function displayError() {
	header("HTTP/1.1 404 Not Found");
	exit;
}
function replace_bad_filename_chars($filename) {
  $filtered_filename = "";

  $patterns = array(
    "/\s/", # Whitespace
    "/\&/", # Ampersand
    "/\+/"  # Plus
  );
  $replacements = array(
    "_",   # Whitespace
    "and", # Ampersand
    "plus" # Plus
  );
  
  $filename = preg_replace($patterns,$replacements,$filename);
  for ($i=0;$i<strlen($filename);$i++) {
    $current_char = substr($filename,$i,1);
    if (ctype_alnum($current_char) == TRUE || $current_char == "/" || $current_char == "_" || $current_char == "." || $current_char == "-") {
      $filtered_filename .= $current_char;
    }
  }     
        
  return $filtered_filename;
}

function displayImage($path) {
    $aFileInfo = getimagesize($path);
    header('Content-type:'.$aFileInfo['mime']);
    $image = file_get_contents($path);
    echo $image;
}

$_GET['path'] = replace_bad_filename_chars($_GET['path']);
$_GET['rwFichier'] = replace_bad_filename_chars($_GET['rwFichier']);

$sFile = trim(stripslashes($_GET['rwFichier']));
$sPath = realpath(dirname(__FILE__)."/../");
$sPathDestination = realpath(dirname(__FILE__)."/".$_GET['path']);
$sPathFile = $sPath.'/'.$sFile;

$nWidth = intval($_GET['rwLargeur']);
$nHeight = intval($_GET['rwHauteur']);

if (!$sFile) 
	displayError();

if (!file_exists($sPathFile)) displayError();

$aDimensionAllowed = array('50x0', '85x0', '90x0', '150x0', '175x0', '250x0', '350x0', '400x400');
if (!in_array($nWidth.'x'.$nHeight, $aDimensionAllowed)) displayError();
$aDonnee = array();
$aFileInfo = getimagesize($sPathFile);
if (!$aFileInfo) displayError();

$tPathFile = '/media/vignettes-auto/'.str_replace('/', '', $_GET['path']).'/'.$nWidth.'x'.$nHeight."/".$sFile;
$tRealPathFile = $sPathDestination.'/'.$nWidth.'x'.$nHeight."/".$sFile;

// Fichier existe
if (file_exists($tRealPathFile) && filectime($tRealPathFile) > (time() - (REFRESH_DELAY * 3600))) {
    displayImage($tRealPathFile);
    exit;
}

if (array_key_exists('mime', $aFileInfo)) {
	$oImageOriginal = null;

	$aFileType = array(
		'image/gif'          => array( 'imagecreatefromgif',  'palette',   'imagegif'),
		'image/jpeg'         => array( 'imagecreatefromjpeg', 'truecolor', 'imageJpegV2'),
		'image/png'          => array( 'imagecreatefrompng',  'bits',      'imagepng'),
		'image/vnd.wap.wmbp' => array( 'imagecreatefromwbmp', 'palette',   'imagewbmp'),
	);
	if (!isset($aFileType[($aFileInfo['mime'])])) {
		displayError();
	}
	
	list ($sImageLoader, $sColorStyle, $sSaveType) = $aFileType[($aFileInfo['mime'])];
	
	if ($sColorStyle == 'palette') {
		$bTrueColor = false;
	} elseif ($sColorStyle == 'truecolor') {
		$bTrueColor = true;
	} elseif ($sColorStyle == 'bits') {
		$bTrueColor = ($aFileInfo['bits'] >= 8);
	}
	
	if ($nWidth > 0 && $nHeight == 0) {
		if ($aFileInfo[0] > $nWidth) {
			$nNewWidth = $nWidth;
			$nNewHeight = round($aFileInfo[1] * $nNewWidth / $aFileInfo[0]);
		}
		else {
			$nNewWidth = $aFileInfo[0];
			$nNewHeight = $aFileInfo[1];
		}
	}
	elseif ($nWidth == 0 && $nHeight > 0) {
		if ($aFileInfo[1] > $nHeight) {
			$nNewHeight = $nHeight;
			$nNewWidth = round($aFileInfo[0] * $nNewHeight / $aFileInfo[1]);
		}
		else {
			$nNewHeight = $aFileInfo[1];
			$nNewWidth = $aFileInfo[0];
		}
	}
	elseif ($nWidth > 0 && $nHeight > 0) {
		if ($aFileInfo[0] > $aFileInfo[1]) {
			$nNewWidth = $nWidth;
			$nNewHeight = round($aFileInfo[1] * $nNewWidth / $aFileInfo[0]);
		}
		elseif ($aFileInfo[1] > $aFileInfo[0]) {
			$nNewHeight = $nHeight;
			$nNewWidth = round($aFileInfo[0] * $nNewHeight / $aFileInfo[1]);
		}
		else {
			$nNewWidth = $nNewHeight = min($nWidth, $nHeight);
		}
		if ($nNewWidth > $nWidth) {
			$nNewWidth = $nWidth;
			$nNewHeight = round($aFileInfo[1] * $nNewWidth / $aFileInfo[0]);
		}
		if ($nNewHeight > $nHeight) {
			$nNewHeight = $nHeight;
			$nNewWidth = round($aFileInfo[0] * $nNewHeight / $aFileInfo[1]);
		}
	}
	
	$oImageOriginal = call_user_func($sImageLoader, $sPathFile);
	
	if ($bTrueColor) {
		$oNewImage = imagecreatetruecolor($nNewWidth, $nNewHeight);
	} else {
		$oNewImage = imagecreate($nNewWidth, $nNewHeight);
	}
	imagecopyresampled($oNewImage, $oImageOriginal, 0, 0, 0, 0, $nNewWidth, $nNewHeight, $aFileInfo[0], $aFileInfo[1]);
	imagedestroy($oImageOriginal);
	
	if (!is_dir($sPathDestination)) {
		mkdir($sPathDestination, 0750, true);
	}
	$sFolder = $sPathDestination.'/'.$nWidth.'x'.$nHeight."/".substr($sFile, 0, strrpos($sFile, '/'));
	if (!file_exists($sFolder)) {
		mkdir($sFolder, 0750, true);
	}
	
	$sNewPathFile = $sPathDestination.'/'.$nWidth.'x'.$nHeight."/".$sFile;

	call_user_func($sSaveType, $oNewImage, $sNewPathFile);
	imagedestroy($oNewImage);
}

displayImage($tRealPathFile);
exit;
?>