#!/usr/bin/perl
use CGI;
CGI::ReadParse(*form);
$adres = "raj\@wsp.krakow.pl"; # tu musimy wpisac adres
open (MAIL,"| /usr/lib/sendmail -t");
print MAIL <<"KONIEC";
To: $adres
Subject: formularz
MIME-Version: 1.0
Content-type: text/plain; charset=iso-8859-2
Content-transfer-encoding: 8bit
Adres komputera: $ENV{'REMOTE_HOST'} ($ENV{'REMOTE_ADDR'})
Dane z formularza:
KONIEC
foreach $pole (keys(%form)) {
print MAIL "$pole: $form{$pole}\n";
}
close (MAIL);
print <<"KONIEC";
Content-type: text/html; charset=iso-8859-2
Potwierdzenie
Dziękujemy !
Wiadomość została przesłana. Oczekuj odpowiedzi wkrótce.
KONIEC