Image Loader
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 5.104 ]
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; }
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba