#!/usr/bin/perl
use CGI;
print "Content-type: text/html; charset=iso-8859-2\n";
# jeżeli zostało wprowadzone imię z formularza
if ($ENV{'CONTENT_LENGTH'}) {
CGI::ReadParse(*form);
print "Set-Cookie: IMIE=$form{'imie'}; expires=Tue, 1-Jan-2030 00:00:00 GMT\n";
print "Set-Cookie: RAZY=1; expires=Tue, 1-Jan-2030 00:00:00 GMT\n\n";
print <<"EOF";
Witaj!
Dziękuję!
Zapraszam na nasze strony w przyszłości!
EOF
} else {
# w przeciwnym razie najpierw sprawdzamy, czy jest ciastko
if ($ENV{'HTTP_COOKIE'}) {
@cookies = split /\;\s*/, $ENV{'HTTP_COOKIE'};
# rozdziela nagłówek Cookie: na poszczególne ciastka
foreach (@cookies) {
@out = split /=/;
# rozdziela w ciastku nazwę od wartości
if ($out[0] eq "IMIE") {
$imie = $out[1];
}
if ($out[0] eq "RAZY") {
$razy = $out[1];
}
}
}
if ($razy) {
$razy = $razy + 1;
print "Set-Cookie: RAZY=$razy; expires=Tue, 1-Jan-2030 00:00:00 GMT\n";
}
print "\n";
print <<"EOF";
Witaj!
EOF
if ($imie) {
print "Witaj $imie!
\n";
print "Miło Cię widzieć znowu na naszej stronie!\n";
print "Jesteś tu już $razy raz!\n";
} else {
print <<"EOF";
Witaj!
Jesteś na tej stronie pierwszy raz.
EOF
}
}
print "\n\n";