#!/usr/bin/perl
$mail_prog = '/usr/lib/sendmail';

getforminput;

$nome = $field{'nome'} ;
$sexo = $field{'sexo'} ;
$rg = $field{'rg'} ;
$nacionalidade = $field{'nacionalidade'} ;
$naturalidade = $field{'naturalidade'} ;
$estado civil = $field{'estado civil'} ;
$condição visual = $field{'condição visual'} ;
$endereço residencial= $field{'endereço residencial'} ;
$cidade residencial = $field{'cidade residencial'} ;
$uf residencial = $field{'uf residencial'} ;
$cep residencial = $field{'cep residencial'} ;
$ddd e telefone residencial = $field{'ddd e telefone residencial'} ;
$ddd e celular = $field{'ddd e celular'} ;
$email pessoal = $field{'email pessoal'} ;
$endereço comercial = $field{'endereço comercial'} ;
$cidade comercial = $field{'cidade comercial'} ;
$uf comercial = $field{'uf comercial'} ;
$cep comercial = $field{'cep comercial'} ;
$ddd e telefone comercial = $field{'ddd e telefone comercial'} ;
$ddd e fax comercial = $field{'ddd e fax comercial'} ;
$email comercial = $field{'email comercial'} ;
$profissão = $field{'profissão'} ;
$função = $field{'função'} ;
$cargo = $field{'cargo'} ;
$tempo de atividade = $field{'tempo de atividade'} ;
$área de atuação = $field{'área de atuação'} ;
$nível médio = $field{'nível médio'} ;
$estabelecimento médio = $field{'estabelecimento médio'} ;
$concluído médio = $field{'concluído médio'} ;
$graduação = $field{'graduação'} ;
$estabelecimento graduação = $field{'estabelecimento graduação'} ;
$concluído graduação = $field{'concluído graduação'} ;
$especialização = $field{'especialização'} ;
$estabelecimento especialização = $field{'estabelecimento especialização'} ;
$concluído especialização = $field{'concluído especialização'} ;
$mestrado = $field{'mestrado'} ;
$estabelecimento mestrado = $field{'estabelecimento mestrado'} ;
$concluído mestrado = $field{'concluído mestrado'} ;
$doutorado = $field{'doutorado'} ;
$estabelecimento doutorado = $field{'estabelecimento doutorado'} ;
$concluído doutorado = $field{'concluído doutorado'} ;
$estágio = $field{'estágio'} ;
$estabelecimento estágio = $field{'estabelecimento estágio'} ;
$concluído estágio = $field{'concluído estágio'} ;
$informações e boletos = $field{'informações e boletos'} ;

$message = "" ;
$found_err = "" ;

# VALIDA AS ENTRADAS OBRIGATÓRIAS

if ($CDROM eq "") {$CDROM = "NÃO";}
if ($SCANNER eq "") {$SCANNER = "NÃO";}

$errmsg = "<p>O campo 'NOME' deve ser preenchido.</p>\n";
if ($nome eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>É necessário selecionar uma das opções do campo 'CONDIÇÃO VISUAL'.</p>\n";
if ($nome eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'ENDEREÇO RESIDENCIAL' deve ser preenchido.</p>\n";
if ($endereço residencial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'CIDADE' do endereço residencial deve ser preenchido.</p>\n";
if ($cidade residencial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'UNIDADE FEDERADA' do endereço residencial deve ser preenchido.</p>\n";
if ($uf residencial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'CEP' do endereço residencial deve ser preenchido.</p>\n";
if ($cep residencial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>Por favor entre com um endereço de E-MAIL válido!</p>\n" ;
if ($email pessoal !~ /.+\@.+\..+/) {
        $message = $message.$errmsg;
        $found_err = 1; }

$errmsg = "<p>O campo 'ENDEREÇO COMERCIAL' deve ser preenchido.</p>\n";
if ($endereço comercial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'CIDADE' do endereço comercial deve ser preenchido.</p>\n";
if ($cidade comercial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'UNIDADE FEDERADA' do endereço comercial deve ser preenchido.</p>\n";
if ($uf comercial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'CEP' do endereço comercial deve ser preenchido.</p>\n";
if ($cep comercial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'DDD E TELEFONE' do endereço comercial deve ser preenchido.</p>\n";
if ($ddd e telefone comercial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'CEP' do endereço comercial deve ser preenchido.</p>\n";
if ($cep comercial eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'TEMPO DE ATIVIDADE NA EDUCAÇÃO ESPECIAL / ÁREA DA
DEFICIÊNCIA VISUAL' deve ser preenchido.</p>\n";
if ($tempo de atividade eq "") {
        $message = $message.$errmsg;
        $found_err = 1;}

$errmsg = "<p>O campo 'ÁREA EM QUE ATUA NO ATENDIMENTO DE PESSOAS COM
DEFICIÊNCIA VISUAL' deve ser preenchido.</p>\n";
if ($área de atuação eq "") {
        $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 "From: abedev@intervox.nce.ufrj.br\n";
print MAIL "Reply-to: abedev@intervox.nce.ufrj.br\n";
print MAIL "Subject: RECADASTRAMENTO DE ASSOCIADO\n";
print MAIL "\n\n";
print MAIL "Prezado(a) Associado(a),\n" ;
print MAIL "\n" ;
print MAIL "Recebemos em nossa caixa-postal seu recadastramento. Vide detalhes abaixo.\n" ;
print MAIL "\n" ;
print MAIL "Obrigado pela sua participação!\n" ;
print MAIL "\n" ;
print MAIL "Os Dados Informados foram estes:\n" ;
print MAIL "\n" ;
print MAIL "\n" ;
print MAIL "Nome: ".$nome."\n" ;
print MAIL "\n" ;
print MAIL "Sexo: ".$sexo."\n" ;
print MAIL "\n" ;
print MAIL "RG: ".$rg."\n" ;
print MAIL "\n" ;
print MAIL "Nacionalidade: ".$nacionalidade."\n" ;
print MAIL "\n" ;
print MAIL "Naturalidade: ".$naturalidade."\n" ;
print MAIL "\n" ;
print MAIL "Estado civil: ".$estado civil."\n" ;
print MAIL "\n" ;
print MAIL "Condição visual: ".$condição visual."\n" ;
print MAIL "\n" ;
print MAIL "Endereço residencial: ".$endereço residencial."\n" ;
print MAIL "\n" ;
print MAIL "Cidade residencial: ".$cidade residencial."\n" ;
print MAIL "\n" ;
print MAIL "UF residencial: ".$uf residencial."\n" ;
print MAIL "\n" ;
print MAIL "CEP residencial: ".$cep residencial."\n" ;
print MAIL "\n" ;
print MAIL "DDD e Telefone residencial: ".$ddd e telefone residencial."\n" ;
print MAIL "\n" ;
print MAIL "DDD e celular: ".$ddd e celular."\n" ;
print MAIL "\n" ;
print MAIL "E-mail pessoal: ".$email pessoal."\n" ;
print MAIL "\n" ;
print MAIL "Endereço comercial: ".$endereço comercial."\n" ;
print MAIL "\n" ;
print MAIL "Cidade comercial: ".$cidade comercial."\n" ;
print MAIL "\n" ;
print MAIL "UF comercial: ".$uf comercial."\n" ;
print MAIL "\n" ;
print MAIL "CEP comercial: ".$cep comercial."\n" ;
print MAIL "\n" ;
print MAIL "DDD e telefone comercial: ".$ddd e telefone comercial."\n" ;
print MAIL "\n" ;
print MAIL "DDD e fax comercial: ".$ddd e fax comercial."\n" ;
print MAIL "\n" ;
print MAIL "E-mail comercial: ".$email comercial."\n" ;
print MAIL "\n" ;
print MAIL "Profissão: ".$profissão."\n" ;
print MAIL "\n" ;
print MAIL "Função: ".$função."\n" ;
print MAIL "\n" ;
print MAIL "Cargo: ".$cargo."\n" ;
print MAIL "\n" ;
print MAIL "Tempo de atividade: ".$tempo de atividade."\n" ;
print MAIL "\n" ;
print MAIL "Área de atuação: ".$área de atuação."\n" ;
print MAIL "\n" ;
print MAIL "Nível médio em: ".$nível médio."\n" ;
print MAIL "\n" ;
print MAIL "Estabelecimento nível médio: ".$estabelecimento médio."\n" ;
print MAIL "\n" ;
print MAIL "Concluído nível médio em: ".$concluído médio."\n" ;
print MAIL "\n" ;
print MAIL "Graduação em: ".$graduação."\n" ;
print MAIL "\n" ;
print MAIL "Estabelecimento graduação: ".$estabelecimento graduação."\n" ;
print MAIL "\n" ;
print MAIL "Concluído graduação em: ".$concluído graduação."\n" ;
print MAIL "\n" ;
print MAIL "Especialização em: ".$especialização ."\n" ;
print MAIL "\n" ;
print MAIL "Estabelecimento especialização: ".$estabelecimento especialização."\n" ;
print MAIL "\n" ;
print MAIL "Concluído especialização em: ".$concluído especialização."\n" ;
print MAIL "\n" ;
print MAIL "Mestrado em: ".$mestrado."\n" ;
print MAIL "\n" ;
print MAIL "Estabelecimento mestrado: ".$estabelecimento mestrado."\n" ;
print MAIL "\n" ;
print MAIL "Concluído mestrado em: ".$concluído mestrado."\n" ;
print MAIL "\n" ;
print MAIL "Doutorado em: ".$doutorado."\n" ;
print MAIL "\n" ;
print MAIL "Estabelecimento doutorado: ".$estabelecimento doutorado."\n" ;
print MAIL "\n" ;
print MAIL "Concluído doutorado em: ".$concluído doutorado."\n" ;
print MAIL "\n" ;
print MAIL "Estágio em: ".$estágio."\n" ;
print MAIL "\n" ;
print MAIL "Estabelecimento estágio: ".$estabelecimento estágio."\n" ;
print MAIL "\n" ;
print MAIL "Concluído estágio em: ".$concluído estágio."\n" ;
print MAIL "\n" ;
print MAIL "Informações e boletos: ".$informações e boletos."\n" ;
print MAIL "\n" ;
print MAIL "\n" ;
print MAIL "\n" ;
print MAIL "Atenciosamente,\n";
print MAIL " Diretoria da ABEDEV\n";
print MAIL "http://www.intervox.nce.ufrj.br/abedev\n";
print MAIL "abedev@abedev.org.br\n";
print MAIL "\n\n";
close (MAIL);

# ***MOSTRA NA TELA OS DADOS QUE FORAM PREENCHIDOS
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">'."\n" ;
print "<html>\n" ;
print "\n" ;
print "<head>\n" ;
print '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'."\n" ;
print '<meta name="Author" content">'."\n" ;
print '<meta name="GENERATOR" content="Microsoft FrontPage 4.0">'."\n";
print "<title>Obrigado pelo seu Recadastramento</title>\n";
print "</head>\n";
print "\n";
print '<body bgcolor="#8080C0" text="#000000" link="#800000" vlink="#000080" alink="#800000">'."\n" ;
print "\n";
print '<p align="center"><font color="#FFFFFF" face="Verdana" size="3"><strong>Obrigado,'."\n";
print "".$NOME."!</strong></font></p>\n";
print "\n";
print "<hr>\n";
print "\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2"><strong>Você digitou '."\n";
print "estes dados:</strong></font></p>\n";
print "\n";
print '<p align="left"><font color="#000080" face="Verdana" size="2">Sexo: <b>'.$sexo.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana" size="2">RG: <b>'.$rg.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana" size="2">Nacionalidade: <b>'.$nacionalidade.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana" size="2">Naturalidade: <b>'.$naturalidade.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estado civil: <b>'.$estado civil.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Condição visual: <b>'.$condição visual.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Endereço residencial: <b>'.$endereço residencial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Cidade residencial: <b>'.$cidade residencial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana" size="2">UF
residencial: <b>'.$uf residencial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">CEP residencial: <b>'.$cep residencial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">DDD e telefone residencial: <b>'.$ddd e telefone residencial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">DDD e celular: <b>'.$ddd e celular.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">E-mail pessoal: <b>'.$email pessoal.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Endereço comercial: <b>'.$endereço comercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Cidade comercial: <b>'.$cidade comercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana" size="2">UF
comercial: <b>'.$uf comercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">CEP comercial: <b>'.$cep comercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">DDD e telefone comercial: <b>'.$ddd e telefone comercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">DDD e fax comercial: <b>'.$ddd e fax comercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">E-mail comercial: <b>'.$emailcomercial.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Profissão: <b>'.$profissão.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Função: <b>'.$função.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Cargo: <b>'.$cargo.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Tempo de atividade: <b>'.$tempo de atividade.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Área de atuação: <b>'.$área de atuação.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Nível médio em: <b>'.$nível médio.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estabelecimento nível médio: <b>'.$estabelecimento médio.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Concluído em: <b>'.$concluído médio.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Graduação em: <b>'.$graduação.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estabelecimento graduação: <b>'.$estabelecimento graduação.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Concluído graduação: <b>'.$concluído graduação.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Especialização em: <b>'.$especialização.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estabelecimento especialização: <b>'.$estabelecimento
especialização.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Concluído especialização: <b>'.$concluído especialização.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Doutorado em: <b>'.$doutorado.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estabelecimento doutorado: <b>'.$estabelecimento doutorado.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Concluído doutorado: <b>'.$concluído doutorado.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estágio em: <b>'.$estágio.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Estabelecimento estágio: <b>'.$estabelecimento estágio.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Concluído estágio: <b>'.$concluído estágio.'</b><br>'."\n";
print '<p align="left"><font color="#000080" face="Verdana"
size="2">Informações e boletos: <b>'.$informações e boletos.'</b><br>'."\n";


# ***ERRO NO PREENCHIMENTO
sub PrintError {

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">'."\n" ;
print "<html>\n" ;
print "\n" ;
print "<head>\n" ;
print '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">'."\n" ;
print '<meta name="Author" content="">'."\n" ;
print '<meta name="GENERATOR" content="Microsoft FrontPage 4.0">'."\n" ;
print "<title>Tela de Erros no Prenchimento do RECADASTRAMENTO</title>\n" ;
print "</head>\n" ;
print "\n" ;
print '<body bgcolor="#8080C0" text="#000000" link="#800000" vlink="#000080" alink="#800000">'."\n" ;
print "\n" ;
print '<p align="center"><font color="#FFFFFF" face="Arial"><u><big><strong>Erro no Processamento'."\n" ;
print "do Formulário de Recadastramento</strong></big></u></font></p>\n" ;
print "\n" ;
print '<p align="left"><font face="Verdana" size="2" color="#000080"><strong>Você esqueceu de'."\n" ;
print "preencher os campos abaixo:</strong></font></p>\n" ;
print "\n" ;
print '<p align="left"><font color="#FFFFFF" face="Arial"><strong>'.$message.'</strong></font></p>'."\n" ;
print "\n" ;
print '<p align="left"><strong><font face="Verdana" size="2" color="#000080">Por favor clique no'."\n" ;
print 'botão [</font><font face="Verdana" size="2" color="#FFFF00">VOLTAR</font><font'."\n" ;
print 'face="Verdana" size="2" color="#000080">] de seu browser e tente novamente.</font></strong></p>'."\n" ;
print "\n" ;
print "<hr>\n" ;
print "\n" ;
print "</body>\n" ;
print "</html>\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.