#! /usr/bin/perl
#
# Subrotina para tratar QUERY_STRING
#
sub trata_query
{
my($aux_nome,$aux_conteudo,$aux_query,$aux_query2);
$aux_query = $ENV{'QUERY_STRING'};
chomp($aux_query);
while ($aux_query =~ /\&/)
{
($aux_query2,$aux_query) = split(/\&/,$aux_query,2);
($aux_nome,$aux_conteudo) = split(/=/,$aux_query2,2);
$var_query{$aux_nome} = $aux_conteudo;
}
($aux_nome,$aux_conteudo) = split(/=/,$aux_query,2);
$var_query{$aux_nome} = $aux_conteudo;
}
#
# Subrotina para preparar o browser para receber dados no formato HTML
#
sub prepara_browser
{
print "Content-type: text/html\n\n";
print "Sistema de questoes sobre ATM";
print "";
}
sub gera_arquivo
{
if (!open(arquivo,">>avcurso.log"))
{
print STDOUT "Nao eh possivel abrir arquivo de log.";
return 0;
}
# while (){};
print arquivo "\n";
print arquivo "Nome: $var_query{nome}\n";
print arquivo "Matricula: $var_query{matricula}\n";
print arquivo "Questao 1: $var_query{q1}\n";
print arquivo "Questao 2: $var_query{q2}\n";
print arquivo "Questao 3: $var_query{q3}\n";
print arquivo "Questao 4: $var_query{q4}\n";
print arquivo "Questao 5: $var_query{q5}\n";
print arquivo "Questao 6: $var_query{q6}\n";
print arquivo "Opiniao: $var_query{opiniao}\n";
close(arquivo);
print STDOUT "Dados registrados com sucesso
";
}
&prepara_browser();
&trata_query();
&gera_arquivo();