ecrire/action/tester.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2007                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 if (!defined("_ECRIRE_INC_VERSION")) return;
  14 include_spip('inc/meta');
  15
  16 // Tester nos capacites
  17 // http://doc.spip.org/@action_tester_dist
  18 function action_tester_dist() {
  19         global $arg;
  20
  21         // verifier les formats acceptes par GD
  22         if ($arg == "gd1") {
  23                 // Si GD est installe et php >= 4.0.2
  24                 if (function_exists('imagetypes')) {
  25
  26                         if (imagetypes() & IMG_GIF) {
  27                                 $gd_formats[] = "gif";
  28                         } else {
  29                                 # Attention GD sait lire le gif mais pas forcement l'ecrire
  30                                 if (function_exists('ImageCreateFromGIF')) {
  31                                         $srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK."test.gif");
  32                                         if ($srcImage) {
  33                                                 $gd_formats_read_gif = ",gif";
  34                                                 ImageDestroy( $srcImage );
  35                                         }
  36                                 }
  37                         }
  38
  39                         if (imagetypes() & IMG_JPG)
  40                                 $gd_formats[] = "jpg";
  41                         if (imagetypes() & IMG_PNG)
  42                                 $gd_formats[] = "png";
  43                 }
  44
  45                 else {  # ancienne methode de detection des formats, qui en plus
  46                                 # est bugguee car elle teste les formats en lecture
  47                                 # alors que la valeur deduite sert a identifier
  48                                 # les formats disponibles en ecriture... (cf. inc_logos)
  49
  50                         $gd_formats = Array();
  51                         if (function_exists('ImageCreateFromJPEG')) {
  52                                 $srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK."test.jpg");
  53                                 if ($srcImage) {
  54                                         $gd_formats[] = "jpg";
  55                                         ImageDestroy( $srcImage );
  56                                 }
  57                         }
  58                         if (function_exists('ImageCreateFromGIF')) {
  59                                 $srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK."test.gif");
  60                                 if ($srcImage) {
  61                                         $gd_formats[] = "gif";
  62                                         ImageDestroy( $srcImage );
  63                                 }
  64                         }
  65                         if (function_exists('ImageCreateFromPNG')) {
  66                                 $srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK."test.png");
  67                                 if ($srcImage) {
  68                                         $gd_formats[] = "png";
  69                                         ImageDestroy( $srcImage );
  70                                 }
  71                         }
  72                 }
  73
  74                 if ($gd_formats) $gd_formats = join(",", $gd_formats);
  75                 ecrire_meta("gd_formats_read", $gd_formats.$gd_formats_read_gif);
  76                 ecrire_meta("gd_formats", $gd_formats);
  77                 ecrire_metas();
  78         }
  79
  80         // verifier les formats netpbm
  81         else if ($arg == "netpbm") {
  82                 define('_PNMSCALE_COMMAND', 'pnmscale'); // chemin a changer dans mes_options
  83                 if (_PNMSCALE_COMMAND == '') return;
  84                 $netpbm_formats= Array();
  85
  86                 $jpegtopnm_command = str_replace("pnmscale",
  87                         "jpegtopnm", _PNMSCALE_COMMAND);
  88                 $pnmtojpeg_command = str_replace("pnmscale",
  89                         "pnmtojpeg", _PNMSCALE_COMMAND);
  90
  91                 $vignette = _ROOT_IMG_PACK."test.jpg";
  92                 $dest = _DIR_VAR . "test-jpg.jpg";
  93                 $commande = "$jpegtopnm_command $vignette | "._PNMSCALE_COMMAND." -width 10 | $pnmtojpeg_command > $dest";
  94                 spip_log($commande);
  95                 exec($commande);
  96                 if ($taille = @getimagesize($dest)) {
  97                         if ($taille[1] == 10) $netpbm_formats[] = "jpg";
  98                 }
  99                 $giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
 100                 $pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
 101                 $vignette = _ROOT_IMG_PACK."test.gif";
 102                 $dest = _DIR_VAR . "test-gif.jpg";
 103                 $commande = "$giftopnm_command $vignette | "._PNMSCALE_COMMAND." -width 10 | $pnmtojpeg_command > $dest";
 104                 spip_log($commande);
 105                 exec($commande);
 106                 if ($taille = @getimagesize($dest)) {
 107                         if ($taille[1] == 10) $netpbm_formats[] = "gif";
 108                 }
 109
 110                 $pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
 111                 $vignette = _ROOT_IMG_PACK."test.png";
 112                 $dest = _DIR_VAR . "test-gif.jpg";
 113                 $commande = "$pngtopnm_command $vignette | "._PNMSCALE_COMMAND." -width 10 | $pnmtojpeg_command > $dest";
 114                 spip_log($commande);
 115                 exec($commande);
 116                 if ($taille = @getimagesize($dest)) {
 117                         if ($taille[1] == 10) $netpbm_formats[] = "png";
 118                 }
 119
 120
 121                 if ($netpbm_formats)
 122                         $netpbm_formats = join(",", $netpbm_formats);
 123                 else
 124                         $netpbm_formats = '';
 125                 ecrire_meta("netpbm_formats", $netpbm_formats);
 126                 ecrire_metas();
 127         }
 128
 129         // et maintenant envoyer la vignette de tests
 130         if (ereg("^(gd1|gd2|imagick|convert|netpbm)$", $arg)) {
 131                 include_spip('inc/filtres');
 132                 include_spip('inc/filtres_images');
 133                 //$taille_preview = $GLOBALS['meta']["taille_preview"];
 134                 if ($taille_preview < 10) $taille_preview = 150;
 135                 $image = image_valeurs_trans(_ROOT_IMG_PACK.'test_image.jpg',"reduire-$taille_preview-$taille_preview",'jpg');
 136
 137                 $image['fichier_dest']=_DIR_VAR."test_$arg";
 138                 if ($preview = image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
 139                 AND ($preview['width'] * $preview['height'] > 0))
 140                         redirige_par_entete($preview['fichier']);
 141         }
 142
 143         # image echec
 144         redirige_par_entete(_DIR_IMG_PACK . 'puce-rouge-anim.gif');
 145 }
 146 ?>