# Upewnic sie, ze $PATH jest znane

#ENV{PATH} = "/bin:/usr/bin";

# upewnic sie, ze wiemy, gdzie jestesmy

chdir /usr/local/config/websvc

# wydrukuj naglowek CGI

print header;

# program glowny
wez_form();
# koniec programu glownego =)

sub wez_form
{
my $email = param('Tf_1');
my $nazwisko = param('Tf_2');
my $telefon = param('Tf_3');
my $akapit = param('Ta_1');

# sprawdz, czy dane formularza sa obecne i czy zmienne zawieraja te same dane
my $sprawdz_wyniki = sprawdz_form('strona1');

    if ($sprawdz_wyniki != 0)
    {
        # jesli nie podano danych wyswietl strone z komunikatem bledu
        error_page();
    }else{
# przygotuj polecenie, wiadomo ze wszystko jest OK skoro sa dane

        my $wyrazenie = "UPDATE demo
                          SET email = '$email',
                          nazwisko = '$nazwisko',
                          telefon = '$telefon',
                          akapit = '$akapit'";
        my $dbh = DBI->connect('DBI:mysql:demo', 'uzytkownik');

# zmienia tekst w zapytanie
        my $sth = $dbh->prepare($wyrazenie);
        # wykonaj zapytanie, w razie bledu wyjdz
            $sth->execute
                or die $sth->arrstr;
        # posprzataj za pomoca tych dwoch polecen
            $sth->finish;
            $dbh->disconnect;
        print "Dziala!"
    }
}

sub sprawdz_form
{
# pobierz nazwe formularza z przekazanych argumentow
my $jaki_form = shift;

# haszowanie z kluczem: strona1 z wartosciami wymaganych pol, zapisanymi jako anonimowa tablica.

sub strona_bledu
{
print header;
    start_html('Nie wypelniles wszystkich wymaganych pol!'),
    h1({-align=>'CENTER'},'Wroc i popraw'),
    end_html
;

}
