iMasters | Por uma internet mais criativa e dinâmica

Segunda-feira, 04/11/2002 - 03:00 - Por Raphael Simas
Seções relacionadas:

• CSS

• Imprimir
• Indicar
• Digg it
• Del.icio.us
• Twitter
• 0 comentários

Olá pessoal!

Em resposta à uma quantidade realmente grande de emails, escrevo esta coluna. Falaremos sobre uma rotina CGI para envio de formulários sem o Outlook. E, aproveitando o assunto de formulários, respondo à mais um "monte" de emails, falando sobre aparência de formulários (mudar fonte, cor, borda etc....). Então, vamos á matéria!!!

CGI em Formulários
Existem outras formas de enviar emails por rotinas programadas... você tem ASP, PHP etc... Eu preferi falar sobre a CGI porque é bem prática e fácil. A única coisa que não depende delá é o servidor que tem que estar configurado. Mas isso, você terá que ver com o administrador do servidor.

O código é este:

#!/usr/bin/perl
# email.pl
#
# **********************************************************
# * Comentario: Processa formulário e o envia por e-mail
# *
# *
# **************************************************************
#

# ****************** inicializacao de variáveis que serão usadas*********

$mail_prog = '/usr/sbin/sendmail';
$destination = 'AQUI O SEU EMAIL';
$subject = 'AQUI O TÍTULO DO EMAIL';
$feedback = '/home/user/public_html/resposta02.htm';
$resperro = '/home/user/public_html/resposta04.htm';
$acesso = '0';
#*******************início do programa***************************
# Verifica o método utilizado e ativa entrada padrao
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

# Utiliza um arquivo temporário para guardar informações até enviá-las por e-mail
open(TMP, ">/tmp/$$");

# Lê cada par (name e value) separando os com o caracter "="
# elimina espaços em branco e inicializa variáveis necessárias
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack("C", hex($1))/eg;
if ( $name eq 'feedback') {
$feedback = $value;
}
if ( $name eq 'nome') {
$nome = $value;
}
if ( $name eq 'email') {
$email = $value;
}
if ( $name eq 'obs') {
$obs = $value;
}

print TMP "$name = $value ";
}
close(TMP);

if ( $nome eq '' or $obs eq '' or $email eq ''){
# Eu coloquei nesta proxima linha o valor de acesso=0
$acesso = '0';
}else{
$acesso = '1';
}

if ($acesso eq '1') {

# Envia e-mail com os dados acumulados no arquivo temporário
open(pipe_mail, "|$mail_prog $destination") || &erro("Não pode enviar mail");
open(TMP, "/tmp/$$");
print pipe_mail "From: $email ";
print pipe_mail "Reply-to: $email ";
print pipe_mail "To: $destination ";
print pipe_mail "Subject: $subject ";
print pipe_mail " ";
while() {
print pipe_mail $_;
}
close(TMP);
close(pipe_mail);

# Elimina arquivo temporário
unlink("/tmp/$$");

# Envia página como resposta
if ($feedback =~ ////) {
print "Location: $feedback ";
} else {

# Mensagem padrão para o browser esperar html
print "Content-type: text/html ";

open( FEED, $feedback);
while() {
print $_;
}
close(FEED);
}
}

if ($acesso eq '0') {

print "Content-type: text/html ";
print;
open(RESP, $resperro);
while() {
print $_;
}
close(RESP);

}

}

---------------------------------------------------------------
01 - Copie este código para um txt e salve como email.pl.
02 - Os destaques em Verde no início do código são as mudanças que você deverá fazer:

$mail_prog = '/usr/sbin/sendmail'; = O Administrador do servidor te informará este endereço, que é o programa de envio, usado do servidor... sem este endereço correto, não vai funcionar...

$destination = 'AQUI O SEU EMAIL'; = Aqui você coloca seu email, oara onde serão enviadas as informações.

$subject = 'AQUI O TÍTULO DO EMAIL'; = Aqui, você indica um título para a mensagem que chegará no seu email.

$feedback = '/home/user/public_html/confirma.htm'; = URL da págima de resposta com a confirmação dos dados. Repare que não basta colocar a URL http://........ O endereço deverá ser o do servidor... por isso, você deve entrar em contato com o administrador.

$resperro = '/home/user/public_html/erro.htm'; URL da página de resposta com a informação de Erro no preenchimento, etc... vale o mesmo para o endereço acima.

if ( $name eq 'nome') {
$nome = $value;
}
if ( $name eq 'email') {
$email = $value;
}
if ( $name eq 'obs') {
$obs = $value;

= Nestas condições, estão explicitados 3 nomes de campos que, obrigatoriamente, deverão existir no seu formulário (nome, email e obs).
03 - Agora, no formulário.... na action, você deverá indicar o locar da cgi, dessa vez, pelo http.. Por exemplo: Action=http://www.meudominio.com.br/cgi-bin/email.pl
OBS: para indicar uma action para o form, basta selecionar a linha vermelha pontilhada do formulário que no painel de propriedades aparecerá o campo para isso.
---------------------------------------------------------------

Aplicando um CSS para um formulário:

Como foi dito na coluna anterior, utilizaremos o painel CSS do Dreamweaver.

Veja no exemplo vários css e suas informações:

EXEMPLO

É isso pessoal. Continuem mandando seus emails com dúvidas, sugestões, críticas etc... E até a próxima!

Dica de Áudio:
Álbum: Eric Clapton Unplugged
Artista: Eric Clapton
Comentários: Muito violão pra galera eheh... vale a pena escutar este CD...

Todos os artigos de Raphael Simas

25/10/2005 - Criando texturas de sujeira 20/09/2005 - Regulagem de cor - Parte 02 17/08/2005 - Regulagem de cor e Fireworks 8 04/08/2005 - Fatiamento, conceitos e exportação 28/07/2005 - Pen Tool avançada e vetorização de carro 19/07/2005 - Fireworks Aqua 30/09/2003 - Dreamweaver MX 2004 09/09/2003 - Personalizando o Dreamweaver em detalhes - Parte II 25/08/2003 - Personalizando o Dreamweaver em detalhes 17/06/2003 - Planejamento do site 26/05/2003 - Mais 5 dúvidas freqüentes 12/05/2003 - Do Fireworks ao Dreamweaver 24/04/2003 - Janelas pop-ups hereditárias 07/04/2003 - Behavior Change Property 24/03/2003 - Trabalhando com textos HTML e textos em imagem 18/03/2003 - Dreamweaver / Fireworks: Fatiando, exportando e montando um HTM (Parte 25/02/2003 - Fireworks / Dreamweaver: Fatiando, exportando e montando um HTM (Parte 05/02/2003 - Frames 22/01/2003 - Atualizações dinâmicas com Frames, iFrames, SSI e Templates 08/01/2003 - Desmistificando os "erros" com Camadas 15/12/2002 - F.A.Q. - As 10 dúvidas mais frequentes 13/12/2002 - Especial Dreamweaver MX 13/12/2002 - Tutorial completo para a criação de menus pop-ups, tanto na vertical q 13/12/2002 - Criando botões aqua no Fireworks 10/12/2002 - Atalhos de Teclado (padrões e customizados) 03/12/2002 - Standard View - Layout View 11/11/2002 - Casa Virtual 04/11/2002 - CGI em formulários / CSS em formulários 04/11/2002 - CGI em formulários / CSS em formulários 28/10/2002 - CSS em Backgrounds 21/10/2002 - Navegadores de Imagens - Web Photo Album 14/10/2002 - Publicidade Flutuante 07/10/2002 - Change Options - Opções na compra Online de um Carro 30/09/2002 - Camadas vs. Tabelas - Parte 3 23/09/2002 - Camadas vs. Tabelas - Parte 2 16/09/2002 - Camadas vs. Tabelas 09/09/2002 - Re-leitura - Menus Pop-up 02/09/2002 - Timer 26/08/2002 - Menu mágico 19/08/2002 - Inserindo Medias AVI, MOV e MP3 no HTML 12/08/2002 - Mr. Help para formulários 05/08/2002 - Aplicações Timeline 29/07/2002 - iFrames - CSS em links 22/07/2002 - Jogo 15/07/2002 - Navigation Bar 08/07/2002 - Portais 01/07/2002 - Quebra-Cabeça com DragLayers e TimeLine 24/06/2002 - Explorando Formulários 17/06/2002 - Adaptando um site a várias resoluções 10/06/2002 - Usando Results para corrigir erros 03/06/2002 - Camadas Relativas / Camadas em Frames 27/05/2002 - Criando, Gravando e Editando Commands 20/05/2002 - Rolagem Horizontal com Time Line 12/05/2002 - Rolagem Horizontal 06/05/2002 - Guias com Camadas 29/04/2002 - Pequenas coisas que fazem um grande site - II 22/04/2002 - Pequenas coisas que fazem um grande site 15/04/2002 - Utilizando as Server-Side Includes (SSI) 08/04/2002 - Trabalhando com Templates/Modelos 25/03/2002 - DrawLayers (Camadas) - Parte 03 11/03/2002 - Trabalhando com DrawLayers (Camadas) 04/03/2002 - Uma visão geral sobre o Dreamweaver

0 comentários publicados

Poste um comentário

(clique se não for cadastrado)

Login: Senha: Titulo: digite aqui seu comentário Site/blog: Enviar Receber notificação de novos comentários

Sobre o autor

Raphael Simas é Diretor de Arte da produtora Café Azul Mídia Digital e utiliza o Macromedia Fireworks como principal ferramenta para a criação para web.

Indique para um amigo

Escreva aqui sua mensagem! ok

Tags relacionadas

android twitter php ti celular web firefox 3g mobile brasil windows apple iphone google mercado microsoft crescimento desenvolvimento lançamento seguranca tecnologia criação youtube yahoo internet linux

TI SHOP Produtos iMasters

• Lançamento: CD-ROM Treinamento Aplicado de SQL - Lançamento! Treinamento Aplicado de SQL - Aprenda a trabalhar com SQL com bancos de dados Oracle e SQL Server. São mais de 100 tópicos explicados por Mauro Pichilliani, um articulistas mais lidos do iMasters. Aproveite! Apenas R$ 69,90 no TI SHOP.
• Lançamento: Livro iMasters "O Encontro de 2 Mundos"- Este livro conta com 56 crônicas de profissionais mais admirados e influentes do mercado brasileiro de Internet. Aproveite o preço especial para leitores do iMasters. Apenas R$ 40,00 e envio imediato!
• DVD Curso Completo de Photoshop - Do conceito à finalização Lançamento! Curso Completo de Photoshop, em DVD, com mais de 230 aulas dividas em 4 módulos: conceito, básico, avançado e finalização. Apenas R$ 69,50 no TI SHOP - Frete com 50% de desconto
• DVD Javascript Starter - Curso Completo Com mais de 9 horas de vídeo-aulas, é um curso completo sobre Javascript. Ideal para quem deseja aprender a linguagem. Apenas R$ 64,90 no TI SHOP - Frete com 50% de desconto!