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

{
 ident (identificação) : 3*{nome ; numero:int} ; 
 html1 (index-en.html)   : file;
 html2 (index-1-new.html)  : file;
 tm    (memória de tradução)  : file
}

##
sub um{ my $p = shift;
 if( $p->{html1}||$p->{html2}||$p->{tm}){""}
 else {"Ao menos uma solução..."}
}

sub any2id{
 my $i=shift;
 my $r="";
 if(ref($i) eq "HASH" ) { for(keys %$i){$r .= "$_" . "-" . any2id($i->{$_}.".") } }
 elsif(ref($i) eq "ARRAY" ){ for(@$i){$r .= any2id($_)."." } }
 else{ $r = $i } 
 $r =~ s/[ \(\)\[\]\{\}]+/_/g;
 $r =~ y(áéíóúâêîôûãõç)(aeiouaeiouaoc);
 "$r"
}

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

 my $dir = "/home/jj/LEA/FTT2004/TP2/".any2id($p->{ident});
 mkdir($dir);
 print $dir;
 for("html1","html2","tm") {
   next unless $p->{$_};
   system("cp \"$p->{$_}{name}\" \"$dir\"")
 }

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

##