Image Loader
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 5.249 ]
Este script permite que você mostre as figuras do seu site de forma mais segura.
Sugiro a implementação do código para que outros sites não utilizem imagens.
#!perl # Autor: Carcarah do Sertão # # Email: thenazgul@terra.com.br # Web: http://www.wanadobe.biz/~carcarah # Por favor, NÃO REMOVAM O NOME DO AUTOR #### COMO USAR ESTE SCRIPT #### # Dentro do código html, insira na tag <img src="imagem.pl?img=nome_imagem"> # Requer livraria CGI use CGI; # Coloque aqui o diretório das imagens do servidor web. Se você não sabe qual sua pasta $HOME, sinto muito. use constant DD => "/home/fulano/www/imagens"; # Tamanho do Buffer. Você pode aumentar esse valor. De acordo com sua largura de banda. # Aconselho não mudar. Você pode sentar sua máquina ou tornar a conexão lenta use constant BUF => 4_096; # Biblioteca para função ReadParse do "cgi-lib.pl" or die "Erro lendo cgi-lib: $!"; # Função que lê dados do form. Você pode substituir por alguma mais familiar. &ReadParse(*dados); # Lê campo no img no form HTML $i = $dados{'img'}; # Inicio &imagem($i); exit(); # fim # Funcao sub imagem { my $h = new CGI(); my $arquivo = shift; my $aux = $arquivo; my $buffer = 0; my ($nome, $tipo) = split(/\.(\w+)$/,$aux); $tipo = "jpeg" if($tipo eq "jpg"); print $h->header(-type => "image/$tipo", -expires=>"-1d"); # muda o modo de saída de dados. binmode STDOUT; local *IMG; open IMG, DD."/$arquivo" or die "Erro abrindo $arquivo: $!"; # Lê e imprime o conteúdo do arquivo. # O primeiro parâmetro da função read() é o ponteiro para o arquivo. # O segundo parâmetro da função é a variável para armazenar os dados. # O terceiro parâmetro é o valor em bytes que será transferido print $buffer while( read(IMG,$buffer,BUF) ); # Fecha ponteiro. close IMG; # Limpa undef $buffer; }
Algoritmo de Fatoração de Fermat (FFA) em Perl
htt[p]erl, simulador de web server
Nenhum comentário foi encontrado.
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Problema para iniciar sistema (5)
Não consigo atualizar para LinuxMint 22 com o Mintupdate (1)
Meu notebook não reconhece monitor secundário (6)
Instalação da Imagem ISO do Tails (7)
erro nos dos pacotes de driver da placa de video nvidia por remoção (d... (18)