# Ponizszy wiersz okresla sciezke dostepu do interpretera PERLA.
# Sciezka musi byc prawidlowa, w przeciwnym razie skrypt nie zadziala.

#!/usr/local/bin/perl

# Ponizszy fragment sluzy do pobierania danych z formularza, i jest stosowany
# podczas przetwarzania

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs) {
        ($name, $value) = split(/=/. $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
    }

# Ponizszy kod sluzy do wysylania listu elektronicznego pod
# podany adres

    open (MESSAGE,"| /usr/lib/sendmail -t");
    print MESSAGE "To: $FORM{adres}\n";
    print MESSAGE "From: $FORM{nazwisko}\n";
    print MESSAGE "Reply-To: $FORM{email}\n";
    print MESSAGE "Subject: Komentarz od $FORM{nazwisko} na witrynie $ENV{'REMOTE_HOST'}\n\n";
    print MESSAGE "Uytkownik napisa:\n\n";
    print MESSAGE "$FORM{komentarz}\n";
    close (MESSAGE);
    &dziekuje;
}

# Ponizszy kod buduje strone WWW potwierdzajca wyslanie listu

sub dziekuje {
    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<HEAD>\n";
    print "<TITLE>Dzikujemy!</TITLE>\n";
    print "</HEAD>\n";
    print "<BODY BGCOLOR=#FFFFCC TEXT=#000000>\n";
    print "<H1>Dzikujemy!</H1>\n";
    print "\n";
    print "<P>\n";
    print "<H3>Twj komentarz zosta wysany.<BR>\n";
    print "<P>\n";
    print "</BODY>\n";
    print "</HTML>\n";
    exit(0);
}
