Image Loader
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 5.366 ]
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; }
htt[p]erl, simulador de web server
Algoritmo de Fatoração de Fermat (FFA) em Perl
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Debian 13 Trixie para Iniciantes
Convertendo pacotes DEB que usam ZSTD (Padrão Novo) para XZ (Padrão Antigo)
Debian 13 "trixie&... lançado! (44)
Rust é o "C da nossa geração"? (3)
Gerenciador de arquivos é finalizado ao abrir pasta específica (2)