Subversion Repositories Sites.tela-botanica.org

<?php

/***************************************************************************\

 *  SPIP, Systeme de publication pour l'internet                           *

 *                                                                         *

 *  Copyright (c) 2001-2005                                                *

 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *

 *                                                                         *

 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *

 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *

\***************************************************************************/

//

// Ce fichier ne sera execute qu'une fois

if (defined("_ECRIRE_INC_LOGOS")) return;

define("_ECRIRE_INC_LOGOS", "1");

function cherche_image_nommee($nom, $formats = array ('gif', 'jpg', 'png')) {

	// _DIR_IMG contient deja le ../ dans ecrire (PREFIX1

	//	if (ereg("^../",$nom))	$nom = substr($nom,3);

	if (ereg("^" . _DIR_IMG, $nom)) {

		$nom = substr($nom,strlen(_DIR_IMG));

	}

	$pos = strrpos($nom, "/");

	if ($pos > 0) {

		$chemin = substr($nom, 0, $pos+1);

		$nom = substr($nom, $pos+1);

	} else {

		$chemin = "";

	}

	reset($formats);

	while (list(, $format) = each($formats)) {

		$d = _DIR_IMG . "$chemin$nom.$format";

		if (@file_exists($d)){

			return array(_DIR_IMG."$chemin", $nom, $format);

		}

	}

}

function decrire_logo($racine) {

	global $connect_id_auteur;

	if ($img = cherche_image_nommee($racine)) {

		list($dir, $racine, $fmt) = $img;

		$fid = $dir . "$racine.".$fmt;

		if ($taille = @getimagesize($fid))

			$xy = _T('info_largeur_vignette', array('largeur_vignette' => $taille[0], 'hauteur_vignette' => $taille[1]));

		return array("$racine.$fmt", $xy);

	}

	return '';

}

function afficher_boite_logo($type, $id_objet, $id, $texteon, $texteoff) {

	global $options, $spip_display;

	$logon = $type.'on'.$id;

	$logoff = $type.'off'.$id;

	if ($spip_display != 4) {

		echo "<p>";

		debut_cadre_relief("image-24.gif");

		echo "<div class='verdana1' style='text-align: center;'>";

		$desc = decrire_logo($logon);

		afficher_logo($logon, $texteon, $desc, $id_objet, $id);

		if ($desc AND $texteoff) {

			echo "<br /><br />";

			$desc = decrire_logo($logoff);

			afficher_logo($logoff, $texteoff, $desc, $id_objet, $id);

		}

		echo "</div>";

		fin_cadre_relief();

		echo "</p>";

	}

}

function afficher_logo($racine, $titre, $logo, $id_objet, $id) {

	global $connect_id_auteur;

	global $couleur_foncee, $couleur_claire;

	global $clean_link;

	include_ecrire('inc_admin.php3');

	$redirect = $clean_link->getUrl();

	echo "<b>";

	echo bouton_block_invisible(md5($titre));

	echo $titre;

	echo "</b>";

	echo "<font size=1>";

	if ($logo) {

		list ($fichier, $taille) =  $logo;

		$hash = calculer_action_auteur("supp_logo $fichier");

		echo "<p><center><div><a href='"._DIR_IMG.$fichier."'>";

		echo reduire_image_logo(_DIR_IMG.$fichier, 170);

		echo "</a></div>";

		echo debut_block_invisible(md5($titre));

		echo $taille;

		echo "\n<br />[<a href='../spip_image.php3?";

		echo "$id_objet=$id&";

		echo "image_supp=$fichier&hash_id_auteur=$connect_id_auteur&hash=$hash&redirect=".urlencode($redirect)."'>"._T('lien_supprimer')."</A>]";

		echo fin_block();

		echo "</center></p>";

	}

	else {

		$hash = calculer_action_auteur("ajout_logo $racine");

		echo debut_block_invisible(md5($titre));

		echo "\n\n<FORM ACTION='../spip_image.php3' METHOD='POST'

			ENCTYPE='multipart/form-data'>";

		echo "\n<INPUT NAME='redirect' TYPE=Hidden VALUE='$redirect'>";

		echo "\n<INPUT NAME='$id_objet' TYPE=Hidden VALUE='$id'>";

		echo "\n<INPUT NAME='hash_id_auteur' TYPE=Hidden VALUE='$connect_id_auteur'>";

		echo "\n<INPUT NAME='hash' TYPE=Hidden VALUE='$hash'>";

		echo "\n<INPUT NAME='ajout_logo' TYPE=Hidden VALUE='oui'>";

		echo "\n<INPUT NAME='logo' TYPE=Hidden VALUE='$racine'>";

		if (tester_upload()){

			echo "\n"._T('info_telecharger_nouveau_logo')."<BR>";

			echo "\n<INPUT NAME='image' TYPE=File CLASS='forml' style='font-size:9px;' SIZE=15>";

			echo "\n <div align='right'><INPUT NAME='ok' TYPE=Submit VALUE='"._T('bouton_telecharger')."' CLASS='fondo' style='font-size:9px;'></div>";

		} else {

			$myDir = opendir(_DIR_TRANSFERT);

			while($entryName = readdir($myDir)){

				if (!ereg("^\.",$entryName) AND eregi("(gif|jpg|png)$",$entryName)){

					$entryName = addslashes($entryName);

					$afficher .= "\n<OPTION VALUE='" .

						_DIR_TRANSFERT .

						"$entryName'>$entryName";

				}

			}

			closedir($myDir);

			if (strlen($afficher) > 10){

				echo "\n"._T('info_selectionner_fichier_2');

				echo "\n<SELECT NAME='image' CLASS='forml' SIZE=1>";

				echo $afficher;

				echo "\n</SELECT>";

				echo "\n  <INPUT NAME='ok' TYPE=Submit VALUE='"._T('bouton_choisir')."' CLASS='fondo'>";

			} else {

				echo _T('info_installer_images_dossier');

			}

		}

		echo fin_block();

		echo "</FORM>\n";

	}

	echo "</font>";

}

//

// Creation automatique d'une vignette

//

// Calculer le ratio

function image_ratio ($srcWidth, $srcHeight, $maxWidth, $maxHeight) {

	$ratioWidth = $srcWidth/$maxWidth;

	$ratioHeight = $srcHeight/$maxHeight;

	if ($ratioWidth <=1 AND $ratioHeight <=1) {

		$destWidth = $srcWidth;

		$destHeight = $srcHeight;

	} else if ($ratioWidth < $ratioHeight) {

		$destWidth = $srcWidth/$ratioHeight;

		$destHeight = $maxHeight;

	}

	else {

		$destWidth = $maxWidth;

		$destHeight = $srcHeight/$ratioWidth;

	}

	return array (ceil($destWidth), ceil($destHeight),

		max($ratioWidth,$ratioHeight));

}

function creer_vignette($image, $maxWidth, $maxHeight, $format, $destdir, $destfile, $process='AUTO', $force=false, $test_cache_only = false) {

	global $convert_command, $pnmscale_command;

	// ordre de preference des formats graphiques pour creer les vignettes

	// le premier format disponible, selon la methode demandee, est utilise

	if ($format == 'png')

		$formats_sortie = array('png','jpg','gif');

	else

		$formats_sortie = array('jpg','png','gif');

	if ($process == 'AUTO')

		$process = lire_meta('image_process');

	// liste des formats qu'on sait lire

	$formats_graphiques = lire_meta('formats_graphiques');

	// si le doc n'est pas une image, refuser

	if (!$force AND !eregi(",$format,", ",$formats_graphiques,"))

		return;

	// normalement il a ete cree

	if ($destdir) {

	  $destdir = creer_repertoire(_DIR_IMG, $destdir);

	}

	$destination = _DIR_IMG . $destdir . $destfile;

#	spip_log("$dir $destination");

	// chercher un cache

	foreach (array('gif','jpg','png') as $fmt)

		if (@file_exists($destination.'.'.$fmt)) {

			$vignette = $destination.'.'.$fmt;

			if ($force) @unlink($vignette);

		}

	if ($test_cache_only AND !$vignette) return;

	// utiliser le cache ?

	if (!$test_cache_only)

	if ($force OR !$vignette OR (@filemtime($vignette) < @filemtime($image))) {

		$creation = true;

		// calculer la taille

		if ($srcsize = @getimagesize($image)) {

			$srcWidth=$srcsize[0];

			$srcHeight=$srcsize[1];

			list ($destWidth,$destHeight) = image_ratio($srcWidth, $srcHeight, $maxWidth, $maxHeight);

		} else if ($process == 'convert' OR $process == 'imagick') {

			$destWidth = $maxWidth;

			$destHeight = $maxHeight;

		} else {

			spip_log("echec $process sur $image");

			return;

		}

		// Si l'image est de la taille demandee (ou plus petite), simplement

		// la retourner

		if ($srcWidth

		AND $srcWidth <= $maxWidth AND $srcHeight <= $maxHeight) {

			$vignette = $destination.'.'.preg_replace(',^.*\.,', '', $image);

			@copy($image, $vignette);

		}

		// imagemagick en ligne de commande

		else if ($process == 'convert') {

			$format = $formats_sortie[0];

			$vignette = $destination.".".$format;

			$commande = "$convert_command -size ${destWidth}x${destHeight} ./$image -geometry ${destWidth}x${destHeight} +profile \"*\" ./".escapeshellcmd($vignette);

			spip_log($commande);

			exec($commande);

			if (!@file_exists($vignette)) {

					spip_log("echec convert sur $vignette");

					return;	// echec commande

			}

		}

		else

		// imagick (php4-imagemagick)

		if ($process == 'imagick') {

			$format = $formats_sortie[0];

			$vignette = "$destination.".$format;

			$handle = imagick_readimage($image);

			imagick_resize($handle, $destWidth, $destHeight, IMAGICK_FILTER_LANCZOS, 0.75);

			imagick_write($handle, $vignette);

			if (!@file_exists($vignette)) {

				spip_log("echec imagick sur $vignette");

				return;

			}

		}

		else if ($process == "netpbm") {

			$format_sortie = "jpg";

			$vignette = $destination.".".$format_sortie;

			$pnmtojpeg_command = ereg_replace("pnmscale", "pnmtojpeg", $pnmscale_command);

			if ($format == "jpg") {

				$jpegtopnm_command = ereg_replace("pnmscale", "jpegtopnm", $pnmscale_command);

				exec("$jpegtopnm_command $image | $pnmscale_command -width $destWidth | $pnmtojpeg_command > $vignette");

				if (!@file_exists($vignette)) {

					spip_log("echec netpbm-jpg sur $vignette");

					return;

				}

			} else if ($format == "gif") {

				$giftopnm_command = ereg_replace("pnmscale", "giftopnm", $pnmscale_command);

				exec("$giftopnm_command $image | $pnmscale_command -width $destWidth | $pnmtojpeg_command > $vignette");

				if (!@file_exists($vignette)) {

					spip_log("echec netpbm-gif sur $vignette");

					return;

				}

			} else if ($format == "png") {

				$pngtopnm_command = ereg_replace("pnmscale", "pngtopnm", $pnmscale_command);

				exec("$pngtopnm_command $image | $pnmscale_command -width $destWidth | $pnmtojpeg_command > $vignette");

				if (!@file_exists($vignette)) {

					spip_log("echec netpbm-png sur $vignette");

					return;

				}

			}

		}

		// gd ou gd2

		else if ($process == 'gd1' OR $process == 'gd2') {

			// Recuperer l'image d'origine

			if ($format == "jpg") {

				$srcImage = @ImageCreateFromJPEG($image);

			}

			else if ($format == "gif"){

				$srcImage = @ImageCreateFromGIF($image);

			}

			else if ($format == "png"){

				$srcImage = @ImageCreateFromPNG($image);

			}

			if (!$srcImage) {

				spip_log("echec gd1/gd2");

				return;

			}

			// Choisir le format destination

			// - on sauve de preference en JPEG (meilleure compression)

			// - pour le GIF : les GD recentes peuvent le lire mais pas l'ecrire

			# bug : gd_formats contient la liste des fichiers qu'on sait *lire*,

			# pas *ecrire*

			$gd_formats = lire_meta("gd_formats");

			foreach ($formats_sortie as $fmt) {

				if (ereg($fmt, $gd_formats)) {

					if ($format <> "gif" OR $GLOBALS['flag_ImageGif'])

						$destFormat = $fmt;

					break;

				}

			}

			if (!$destFormat) {

				spip_log("pas de format pour $image");

				return;

			}

			// Initialisation de l'image destination

			if ($process == 'gd2' AND $destFormat != "gif")

				$destImage = ImageCreateTrueColor($destWidth, $destHeight);

			if (!$destImage)

				$destImage = ImageCreate($destWidth, $destHeight);

			// Recopie de l'image d'origine avec adaptation de la taille

			$ok = false;

			if (($process == 'gd2') AND function_exists('ImageCopyResampled'))

				$ok = @ImageCopyResampled($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);

			if (!$ok)

				$ok = ImageCopyResized($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);

			// Sauvegarde de l'image destination

			$vignette = "$destination.$destFormat";

			$format = $destFormat;

			if ($destFormat == "jpg")

				ImageJPEG($destImage, $vignette, 70);

			else if ($destFormat == "gif")

				ImageGIF($destImage, $vignette);

			else if ($destFormat == "png")

				ImagePNG($destImage, $vignette);

			ImageDestroy($srcImage);

			ImageDestroy($destImage);

		}

	}

	$size = @getimagesize($vignette);

	$retour['width'] = $largeur = $size[0];

	$retour['height'] = $hauteur = $size[1];

	$retour['fichier'] = $vignette;

	$retour['format'] = $format;

	$retour['date'] = @filemtime($vignette);

	// renvoyer l'image

	return $retour;

}

//

// Retourner taille d'une image

// pour les filtres |largeur et |hauteur

//

function taille_image($img) {

	if (eregi("width *= *['\"]?( *[0-9]+ *)", $img, $regs))

		$srcWidth = intval(trim($regs[1]));

	if (eregi("height *= *['\"]?( *[0-9]+ *)", $img, $regs))

		$srcHeight = intval(trim($regs[1]));

	// recuperer le nom du fichier

	if (eregi("src='([^']+)'", $img, $regs)) $logo = $regs[1];

	if (!$logo) $logo = $img;

	if (!$srcWidth

	AND $srcsize = @getimagesize($logo))

		$srcWidth = $srcsize[0];

	if (!$srcHeight

	AND $srcsize = @getimagesize($logo))

		$srcHeight = $srcsize[1];

	return array($srcHeight, $srcWidth);

}

//

// Reduire la taille d'un logo

// [(#LOGO_ARTICLE||reduire_image{100,60})]

//

// Cette fonction accepte en entree un nom de fichier ou un tag <img ...>

function reduire_image_logo($img, $taille = -1, $taille_y = -1) {

	// Determiner la taille x,y maxi

	if ($taille == -1) {

		$taille = lire_meta('taille_preview');

		if (!$taille)

			$taille = 150;

	}

	if ($taille_y == -1)

		$taille_y = $taille;

	if ($taille == 0 AND $taille_y > 0)

		$taille = 100000; # {0,300} -> c'est 300 qui compte

	else

	if ($taille > 0 AND $taille_y == 0)

		$taille_y = 100000; # {300,0} -> c'est 300 qui compte

	else if ($taille == 0 AND $taille_y == 0)

		return '';

	// recuperer le nom du fichier

	if ($src = extraire_attribut($img, 'src'))

		$logo = $src;

	else

		$logo = $img;

	if (!$logo) return '';

	// Si c'est une image distante, la recuperer (si possible)

	if (!$local = copie_locale($logo)) {

		spip_log("pas de version locale de $logo");

		return $img;

	}

	$logo = $local;

	$attributs = '';

	// preserver le name='...' et le mettre en alt le cas echant

	if ($name = extraire_attribut($img, 'name')) {

		$attributs .= ' name="'.entites_html($name).'"';

		$attributs_alt = ' alt="'.entites_html($name).'"';

	}

	if ($alt = extraire_attribut($img, 'alt'))

		$attributs_alt = ' alt="'.entites_html($alt).'"';

	$attributs .= $attributs_alt;

	// attributs deprecies. Transformer en CSS

	if ($espace = extraire_attribut($img, 'hspace'))

		$attributs .= " style='margin: $espace" . "px; border-width: 0px;'";

	else

		$attributs .=  " style='border-width: 0px;' class='spip_logos'";

	// attribut deprecie mais equivalent CSS pas clair

	if ($align = extraire_attribut($img, 'align'))

		$attributs .= " align='$align'";

	if (eregi("(.*)\.(jpg|gif|png)$", $logo, $regs)) {

		if ($i = cherche_image_nommee($regs[1], array($regs[2]))) {

			list(,$nom,$format) = $i;

			if ($taille_origine = @getimagesize($logo)) {

				list ($destWidth,$destHeight, $ratio) = image_ratio(

					$taille_origine[0], $taille_origine[1], $taille, $taille_y);

				// Creer effectivement la vignette reduite

				$suffixe = '-'.$destWidth.'x'.$destHeight;

				$preview = creer_vignette($logo, $taille, $taille_y,

					$format, ('cache'.$suffixe), $nom.$suffixe);

				if ($preview) {

					$logo = $preview['fichier'];

					$destWidth = $preview['width'];

					$destHeight = $preview['height'];

				}

				if (!_DIR_RESTREINT)

					$date = '?date='.filemtime($logo);

				return "<img src='$logo$date' width='$destWidth' height='$destHeight'$attributs />";

			}

		}

	}

}

?>