<:
my $msg = "";
if ( defined $get{nome} and $get{nome}
and defined $get{email} and $get{email}
and defined $get{storia} and $get{storia}
) {
if ( -f "CANDIDATURE/$get{email}" ) {
$msg = "Abbiamo già una candidatura per questo indirizzo email";
} elsif (open(OUT, ">CANDIDATURE/$get{email}")) {
print OUT qq|NOME: $get{nome}\n|;
print OUT qq|EMAIL: $get{email}\n|;
print OUT qq|STORIA: $get{storia}\n|;
close OUT;
$msg = "La tua candidatura è stata registrata!";
} else {
$msg = "Per un problema tecnico la tua candidatura NON è stata registrata. Riprova più tardi";
}
}
:>
<: include("top.plp") :>