[Perl] Image Magick

[Salman ®]

Si, eso esta todo controlado.

El script inicial que envie era solamente de pruebas.

Por si a alguien le interesa, finalmente esta escrito asi:

================================================
#!/usr/bin/perl -w
####################################################################################

($Ancho,$Alto,$Texto,$Borde,$Letra)=split(/&/,$ENV{'QUERY_STRING'});

my $Medidas ="$Ancho".'x'."$Alto";

use Image::Magick;

 my $image = Image::Magick->new;

 $image->Set(size=>$Medidas);
 $image->ReadImage('xc:white');

 $image->Border(width=>'2', height=>'2', color=>$Borde);

 $image->Annotate(font=>'/usr/share/cups/fonts/Courier-Bold', pointsize=>20, 
gravity=>'Center', fill=>$Letra, text=>$Texto);

 print "Content-type: image/png\n\n";
 binmode STDOUT;
 $image->Write('png:-');

================================================

Y lo llamo desde la pagina que corresponda como:

<img src='/exe/Crear_Imagen.cgi?170&25&[PALABRAALEATORIA]&red2&green'>

--
Saludos
Salvador Guzman
Salman PSL
Vigo, Galicia, España
+34 986.21.30.27
Correo @Salman.ES
http://Salman.EU/

----- Mensaje original ----- 
De: "Salvador Ortiz García" <sog en msg.com.mx>
Para: "Salman" <correo en salman.es>
CC: <perl en tlali.iztacala.unam.mx>
Enviado: jueves, 01 de marzo de 2007 7:06
Asunto: Re: [Perl] Image Magick


| On Wed, 2007-02-28 at 18:38 +0100, Salman ® wrote:
| > Ya di con el problema, estaba en que el ImageMagick no encontraba el 
directorio
| > con las fuentes para escribir el texto.
| >
| > El script ya funciona perfectamente :-)
| >
|
| Que bien que reparaste tu script, sin embargo quisiera comentar un
| problema potencial de concurrencia pues no me queda claro cómo lo
| resuelves y pues aprovecho que la lista esta como bien dices un poco
| parada.
|
| Por lo que leo tu script genera una imagen y después un segmento de HTML
| en que la incluye, hasta ahí todo bien y bonito.
|
| Pero resulta que el navegador recibe primero el HTML, y lanza una
| solicitud por la imagen, y supongo que posteriormente solicita al
| usuario que escriba el texto incluido para validar que puede "leerlo" y
| no es un robot, enviando el texto de regreso al servidor, ques es otra
| solicitud, para hacer la comparación, por lo que hay un lapso de tiempo,
| varios segundos en el mejor de los casos entre que la imagen es generada
| y el servidor recibe su texto para ser comparado.
|
| Qué pasa si en ese lapso el servidor recibe otras N solicitudes al mismo
| script y genera otras N imagenes?
|
| Estás consiente de que al estar usando Apache las tres solicitudes al
| servidor bien pueden aterrizar incluso en procesos distintos?
|
|
| Saludos.
| -- 
| Salvador Ortiz García <sog en msg.com.mx>
| Matías Software Group
|
|


--------------------------------------------------------------------------------


_______________________________________________
Perl mailing list
Perl en tlali.iztacala.unam.mx
http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl