Obrigado pelo seu Cadastro

#!/usr/bin/perl $mail_prog = '/usr/lib/sendmail'; # Este script foi elaborado por Francisco Panizo(tm) # Em 24 de fevereiro de 2001 # http://www.abcdicas.com.br # alterado em 26 de fevereiro de 2001 #################################################### &GetFormInput; $NOME = $field{'NOME'} ; $EMAIL = $field{'EMAIL'} ; $CPU = $field{'CPU'} ; $CLOCK = $field{'CLOCK'} ; $RAM = $field{'RAM'} ; $CDROM = $field{'CDROM'} ; $SCANNER = $field{'SCANNER'} ; $message = "" ; $found_err = "" ; # VALIDA AS ENTRADAS OBRIGATóRIAS if ($CDROM eq "") {$CDROM = "NÃO";} if ($SCANNER eq "") {$SCANNER = "NÃO";} $errmsg = "

O campo 'NOME' deve ser preenchido.

\n"; if ($NOME eq "") { $message = $message.$errmsg; $found_err = 1;} $errmsg = "

Por favor entre com um endereço de E-MAIL válido!

\n" ; if ($EMAIL !~ /.+\@.+\..+/) { $message = $message.$errmsg; $found_err = 1; } if ($found_err) { &PrintError; } # *** ENVIA EMAIL $recip = $EMAIL ; open (MAIL, "|$mail_prog -t"); print MAIL "To: $recip\n"; print MAIL "Reply-to: cgi\@abcdicas.com.br\n"; print MAIL "From: cgi\@abcdicas.com.br\n"; print MAIL "Subject: TESTE DE ENVIO DE E-MAIL POR CGI\n"; print MAIL "\n\n"; print MAIL "Prezado/a Internauta:\n" ; print MAIL "\n" ; print MAIL "Recebemos seu cadastro (vide detalhes abaixo), em nossa caixa-postal.\n" ; print MAIL "\n" ; print MAIL "Obrigado pelo seu retorno\n" ; print MAIL "\n" ; print MAIL "Os Dados Informados foram estes:\n" ; print MAIL "Nome: ".$NOME."\n" ; print MAIL "\n" ; print MAIL "Seu Hardware:\n" ; print MAIL "CPU: ".$CPU." - Clock: ".$CLOCK." - RAM: ".$RAM."\n" ; print MAIL "CD-ROM: ".$CDROM." - Scanner: ".$SCANNER."\n" ; print MAIL "\n" ; print MAIL "\n" ; print MAIL "Francisco Panizo Beceiro\n"; print MAIL "WebMaster da abcDICAS.com.br\n"; print MAIL "http://www.abcdicas.com.br\n"; print MAIL "cgi\@abcdicas.com.br\n"; print MAIL "\n\n"; close (MAIL); # ***MOSTRA NA TELA OS DADOS QUE FORAM PREENCHIDOS print "Content-type: text/html\n\n"; print ''."\n" ; print "\n" ; print "\n" ; print "\n" ; print ''."\n" ; print ''."\n" ; print ''."\n"; print "Obrigado pelo seu Cadastro\n"; print "\n"; print "\n"; print ''."\n" ; print "\n"; print '

Obrigado,'."\n"; print "".$NOME."!

\n"; print "\n"; print "

\n"; print "\n"; print '

Vc. digitou '."\n"; print "estes dados:

\n"; print "\n"; print '

E-mail: '.$EMAIL.'
'."\n"; print "Hardware: CPU ".$CPU." - Clock: ".$CLOCK." - RAM: ".$RAM."
\n"; print "Possui: CD-ROM: ".$CDROM." - Scanner: ".$SCANNER."
\n"; print "\n"; print "

\n"; print "\n"; print '

Este material é apenas um EXEMPLO de uso de CGI'."\n" ; print " / Obrigado por visitar as nossas páginas...

\n" ; print "\n" ; print "

\n" ; print '

Clique no link ao lado para retornar'."\n"; print 'à nossa Home Page

'."\n" ; print "\n" ; print "\n" ; # ***ERRO NO PREENCHIMENTO sub PrintError { print "Content-type: text/html\n\n"; print ''."\n" ; print "\n" ; print "\n" ; print "\n" ; print ''."\n" ; print ''."\n" ; print ''."\n" ; print "Tela de Erros no Prenchimento do CADASTRO\n" ; print "\n" ; print "\n" ; print ''."\n" ; print "\n" ; print '

Erro no Processamento'."\n" ; print "da Ficha de Exemplo

\n" ; print "\n" ; print '

Você esqueceu de'."\n" ; print "preencher os campos abaixo:

\n" ; print "\n" ; print '

'.$message.'

'."\n" ; print "\n" ; print '

Por favor clique no'."\n" ; print 'botão [VOLTAR] de seu browser e tente novamente.

'."\n" ; print "\n" ; print "

\n" ; print "\n" ; print '

Este CGI foi'."\n" ; print "projetado e construído por: Francisco Panizo Beceiro - WebMaster da SuperDICAS.com

'."\n" ; print "\n" ; print "\n" ; exit 0 ; return 1 ; } # ***PARSE - NÃO MEXER! sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; } } } return 1; } # ***Final do Arquivo PERL-CGI.