#! /usr/local/bin/perl -w
use strict;
use DBI();


my ($ref,$mesg,$dbm,$query,$xname,$sname,$sth,$rows);

#print HTTP header
print "content-type: text/html\n\n";
	

# otwarcie bazy danych
$dbm=DBI->connect("DBI:mysql:database=people;host=localhost",'webserv')
	or die "Nie udao si nawiza poczenia z baz danych people";

$xname="Pawe";
$query=qq(select xname, sname from people where xname like "%$xname%");
$sth=$dbm->prepare($query) or die "Bd konstrukcji zapytania $query: $!";

# $! to zmienna interpretera przechowujca komunikat biecego bdu systemowego
$sth->execute;
$rows=$sth->rows;

#wydrukuj nagwek dokumentu HTML
print qq(<HTML><HEAD><TITLE>Nazwiska i imiona</TITLE></HEAD><BODY>
<table border=1 width=70%><caption><h3>Znaleziono $rows osoby o imionach '$xname'</h3></caption>
<tr><align left><th>Imi</th><th>Nazwisko</th></tr>);
while ($ref=$sth->fetchrow_hashref)
	{
	print qq(<tr align right><td>$ref->{'xname'}</td><td> $ref->{'sname'}</td></tr>);
	}
print "</table></BODY></HTML>";
$sth->finish;
# zamknij poczenie z baz danych
$dbm->disconnect;
