Image Loader
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 5.105 ]
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; }
Introdução a Persistência de Estrutura de Dados em Perl
htt[p]erl, simulador de web server
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
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (20)
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (1)
[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