save(/home/jj/ftt2003-tp2)
mail(jj@di.uminho.pt)
cginame(/home/jj/public_html/bin/ftt2003-tp2)
formtitle(Submissão do 2.o trabalho prático de ftt)
uploaddir(/home/jj/ftt2003-tp2dir)
feedback(d)

{
 *grupo : 3 * line {nome;numero:int; email: string 20 };
 *tmx   : file
}

##
sub d{ my $p = shift;
 my $r =  ($p->{tmx}{name} !~ m/\.tmx/i )
          ? (red("não parece ser uma tmx, mas vou continuar").br) 
          : "";

 $r .= "Incrição de $p->{grupo}[0]{nome} recebida com sucesso\n"
     . pre(Dumper($p))
 ###    . pre(Dumper(shift))
     . hr;
 $r
}

##