Respondendo (replying) "Francisco Lopes" <[EMAIL PROTECTED]>
> Apenas aproveitando, como fazer o perl devolver uma imagem?
>
> #!/usr/bin/perl
> print "Content-type: image/jpg\n\n";
> #O que vem depois?
>
Isso a� debaixo e mais uma porrada de bytes. Vem uma imagem, uai.
Arquivo GIF, JPG, o que quiser.
Se voc� quer que o Perl PRODUZA uma imagem, no CPAN tem umas bibliotecas
pra isso, mas � trabalho de cachorro, muito esfor�o pra pouco resultado.
Esse recurso pode ser usado para evitar que roubem imagens de seu
servidor. Fa�a link para todas as imagens usando um script, tipo img
src=geraimagem.pl?arq=vendramini.jpg
No script geraimagem.pl, antes de ler o arquivo vendramini,jpg de um
diretorio escondido, checa-se se o http_referer veio de seu dominio. Se
nao veio, mande uma foto de uma jeba (pode escrever jeba?) Caso
contr�rio, abra o arquivo grafico, jogue-o em uma variavel, e imprima-o
normalmente (apos o header, claro)
� � JFIF _ C
_ C
+ N�" -
- `
!
��1RY��"AQWb�����#2aq���_$%&'
(5679x����34B�-CDEGIfghv�_- - - 3
!1AQaq"��23�-�ߧbr_�� + ? ���+Sm�|�Po
�zΫxq °Kj$+ڶ�U�iH���j2Dh�+��1T8 @y4-&0m�m�~�]�h-���M_Dne_�)B�L
P�1� {� +��g�q_�[e? �����d�ZR��|W__-��e���`MD�+$_+�++۷�k
��h-O�U<_m��8+R�-��xf�\_�+�-+Z� +ͺ� ��M%�7%�ոF��vH0-��ȬϿ�dR"r4%|__
[]'s
Carlos Cardoso - [EMAIL PROTECTED]
em breve: Redes - Curso Basico e Rapido
e FLASH4 - Para Principiantes
==================================
www.carloscardoso.com
Tech Writer, BOFH & Trekker
Linux Reg user # 92301
http://www.mrweb.com.br/perl/
�������������
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
�������������
