#!/usr/bin/perl
use CGI;
CGI::ReadParse(*form);
print "Content-type: text/html; charset=iso-8859-2\n\n";
print "\nWpis na listę\n";
print "\n";
if ($form{'nazwisko'} && $form{'email'} =~ /[^ ]+@[^ ]+\.[^ ]+/) {
open (LISTA,">>lista.dat");
print LISTA "$form{'nazwisko'} <$form{'email'}>\n";
close (LISTA);
print "$form{'nazwisko'}
\n";
if ($form{'plec'} eq "k") {
print "Zostałaś dopisana";
} else {
print "Zostałeś dopisany";
}
print " do listy subskrybentów naszego biuletynu.\n";
print "Spodziewaj się wkrótce e-maila w swojej skrzynce!\n";
} else {
print "
Błąd !
\n";
print "Formularz nie został wypełniony prawidłowo.\n";
print "Kliknij przycisk Wstecz w przeglądarce i spróbuj ponownie.\n";
}
print "\n\n";