CGI – kontrola emaila..?

Prosim za dodatno ‘VAROVALKO’ pri sprejemanju in pošiljanju emaila obiskovalca.
Torej – naj preveri, ali ima vpisani email pravilno sintakso.

del kode kjer se pošilja mail z vsebino obiskovalcu z podanim emailom:
(zahtevan je bil $email, poznane pa so tudi spremenljivke $yourname in $youmail)

# Send info to visitor

if ($INPUT{’email’}) {
if ($INPUT{’email’} =~ /(.*)@(.*)/) {
open (MAIL, “|-“) || exec $mailprog,$INPUT{’email’} || die “Can’t open $mailprog!\n”;
print MAIL (“From: $yourname \n”);
print MAIL (“Subject: Hvala za registracijo \n\n”);
print MAIL (“Hvala za vašo registracijo! “);
print MAIL (“\n\n”);
print MAIL (“Lep pozdrav,\n\n”);
print MAIL (“- $yourname\n\n”);
close (MAIL);
}
}

Za začetek bi zadevo zapeljal tako, da ne bi pošiljal preko programa, ampak neposredno preko SMTP povezave. Je takoj bolj varno!

ne vem če se razumeva…?

obiskovalec med vpisanimi podatki vnese tudi svoj mail, na katerega dobi potem sporočilo.

kako bi ti to izvedel? (primer?)