save(/home/jj/_ftt2003-exame1)
mail(jj@di.uminho.pt)
cginame(/home/jj/public_html/bin/_ftt2003-exame)
formtitle(Teste de Submissão do exame prático de ftt)
uploaddir(/home/jj/_ftt2003-exame1dir)
feedback(d)
inv(um)

{
 *nome; *numero:int; *chave:string 8; 
 questao1 (questão 1)   : file;
 questao2  (questão 2)  : file;
 questao3html  (HTML, questão 3)  : file;
 questao3tm (Memória de tradução, questão 3)    : file
}

##
sub um{ my $p = shift;
 if( $p->{questao3tm}||$p->{questao3html}||$p->{questao2}||$p->{questao1}){""}
 else {"Ao menos uma solução..."}
}

sub d{ my $p = shift;
 my $r =  "";

 $r .= "Submissão de $p->{nome} recebida com sucesso\n"
     . pre(Dumper($p))
     . hr;
 $r
}

##