#!/usr/bin/perl -w

#
# A feladat, a web adatbazis tartalmanak kilistazasa abc sorrendben
#

use CGI qw(:standard);
# ez a DBI csomag kell nekunk
use DBI;

# Mivel HTML-rol van szo, rakjuk ki a kotelezo, illetve szokasos dolgokat
print header,"\n",start_html('kilistazas');

# a kapcsolat felvetele az adatbazissal
# $db_hendler=DBI->connect('dbi:mysql:adatbazis_nev:gep_nev_vagy_IP','azonosito','jelszo');
my $db=DBI->connect('dbi:mysql:web:localhost','dozer','12345');

# Ez csak az SQL kerest keri be, kesobb hajtjuk vegre
# $st_hendler=$db_hendler->prepare('SQL parancs vagy lekerdezes');
# JO kis SQL listazas> weblap neve, weblap url-je, kategoria_nev, es a lathatosag i jelzobit. ABC-be rakva.
my $sth=$db->prepare('select wb_nev,wb_url,k_nev,wb_jelzobit from weblap,kategoria where wb_k_id=k_id order by k_nev ASC, wb_nev ASC;');

# vegrehajtjuk a SQL parancsot($st_hendler-rel hivatkozunk a lekerdezesre) 
$sth->execute();
print "<H1>A lekerdezes</H1>\n";

# az eredmenyt tablazatba teszem (mert nekem igy tetszik, azert)(HTML-tag)
print "<TABLE  border=1>\n";
print "<TR><TD>Lap neve</TD><TD>URL</TD><TD>Kategoria</TD></TR>\n";    

# az eredmenyt (marha a SQL parancs lekerdezo jellegu volt) soronkent 
# (rekordonkent) megkapom. Vigyazz!! nevtelen tombben kapom meg az eredmenyt!!!!
while(my $sor=$sth->fetchrow_arrayref)
    {
     # a join parancsal a nevtelen tombot szetszedem, az elvalaszto karakter a '\t',
     # a rekord (sor) vegere meg <BR> HTML teg-et rak
#    print join("\t",@$sor,"<br>");

#    #egyszeruen kilistazom a nevtelen tombom egyes elemeit
     print "<TR><TD>$sor->[0]</TD><TD>$sor->[1]</TD><TD>$sor->[2]</TD></TR>\n";    
    }

# a tablazatot lezarom (HTML -tag)
print "</TABLE>\n";

# a kapcsolatot az adatbazis motorral lekapcsolom
$db->disconnect();




#ez meg a html vege
print end_html;