Bifurcation pour faire mes petits pull requests
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

174 lines
5.5 KiB

<?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2018 *
* 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. *
\***************************************************************************/
/**
* Gestion de l'action testant une librairie graphique
*
* @package SPIP\Core\Configurer
*/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
/**
* Tester les capacités du serveur à utiliser une librairie graphique
*
* L'argument transmis dans la clé `arg` est le type de librairie parmi
* gd2, gd1, netpbm, imagick ou convert
*
* L'action crée une vignette en utilisant la librairie indiquée puis
* redirige sur l'image ainsi créée (sinon sur une image d'echec).
**/
function action_tester_dist() {
$arg = _request('arg');
$gd_formats = array();
$gd_formats_read_gif = "";
// verifier les formats acceptes par GD
if ($arg == "gd1") {
// Si GD est installe et php >= 4.0.2
if (function_exists('imagetypes')) {
if (imagetypes() & IMG_GIF) {
$gd_formats[] = "gif";
} else {
# Attention GD sait lire le gif mais pas forcement l'ecrire
if (function_exists('ImageCreateFromGIF')) {
$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
if ($srcImage) {
$gd_formats_read_gif = ",gif";
ImageDestroy($srcImage);
}
}
}
if (imagetypes() & IMG_JPG) {
$gd_formats[] = "jpg";
}
if (imagetypes() & IMG_PNG) {
$gd_formats[] = "png";
}
} else {
# ancienne methode de detection des formats, qui en plus
# est bugguee car elle teste les formats en lecture
# alors que la valeur deduite sert a identifier
# les formats disponibles en ecriture... (cf. inc_logos)
if (function_exists('ImageCreateFromJPEG')) {
$srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK . "test.jpg");
if ($srcImage) {
$gd_formats[] = "jpg";
ImageDestroy($srcImage);
}
}
if (function_exists('ImageCreateFromGIF')) {
$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
if ($srcImage) {
$gd_formats[] = "gif";
ImageDestroy($srcImage);
}
}
if (function_exists('ImageCreateFromPNG')) {
$srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK . "test.png");
if ($srcImage) {
$gd_formats[] = "png";
ImageDestroy($srcImage);
}
}
}
if (! empty($gd_formats)) {
$gd_formats = join(",", $gd_formats);
}
ecrire_meta("gd_formats_read", $gd_formats . $gd_formats_read_gif);
ecrire_meta("gd_formats", $gd_formats);
} // verifier les formats netpbm
else {
if ($arg == "netpbm") {
if (!defined('_PNMSCALE_COMMAND')) {
define('_PNMSCALE_COMMAND', 'pnmscale');
} // Securite : mes_options.php peut preciser le chemin absolu
if (_PNMSCALE_COMMAND == '') {
return;
}
$netpbm_formats = array();
$jpegtopnm_command = str_replace("pnmscale",
"jpegtopnm", _PNMSCALE_COMMAND);
$pnmtojpeg_command = str_replace("pnmscale",
"pnmtojpeg", _PNMSCALE_COMMAND);
$vignette = _ROOT_IMG_PACK . "test.jpg";
$dest = _DIR_VAR . "test-jpg.jpg";
$commande = "$jpegtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
spip_log($commande);
exec($commande);
if ($taille = @getimagesize($dest)) {
if ($taille[1] == 10) {
$netpbm_formats[] = "jpg";
}
}
$giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
$pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
$vignette = _ROOT_IMG_PACK . "test.gif";
$dest = _DIR_VAR . "test-gif.jpg";
$commande = "$giftopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
spip_log($commande);
exec($commande);
if ($taille = @getimagesize($dest)) {
if ($taille[1] == 10) {
$netpbm_formats[] = "gif";
}
}
$pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
$vignette = _ROOT_IMG_PACK . "test.png";
$dest = _DIR_VAR . "test-gif.jpg";
$commande = "$pngtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
spip_log($commande);
exec($commande);
if ($taille = @getimagesize($dest)) {
if ($taille[1] == 10) {
$netpbm_formats[] = "png";
}
}
if ($netpbm_formats) {
$netpbm_formats = join(",", $netpbm_formats);
} else {
$netpbm_formats = '';
}
ecrire_meta("netpbm_formats", $netpbm_formats);
}
}
// et maintenant envoyer la vignette de tests
if (in_array($arg, array("gd1", "gd2", "imagick", "convert", "netpbm"))) {
include_spip('inc/filtres');
include_spip('inc/filtres_images_mini');
$taille_preview = 150;
$image = _image_valeurs_trans(_DIR_IMG_PACK . 'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
$image['fichier_dest'] = _DIR_VAR . "test_$arg";
if ($preview = _image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
and ($preview['width'] * $preview['height'] > 0)
) {
redirige_par_entete($preview['fichier']);
}
}
# image echec
redirige_par_entete(chemin_image('puce-rouge-anim.gif'));
}