#!/usr/bin/perl
require "conf.cgi";

# -type=>'image/gif',-expires=>'+3d'
$kedvenc=$query->cookie('kedvenc');
@kedvencek=split(/#/,$kedvenc);
for $ertek (@kedvencek)
{
 if($ertek>0)
 {
  $felt.=" || " if length($felt)>0;
  $felt.="kepcsoport=$ertek";
 }
}
#print $query->header;
#print $felt;
#exit;
#$kedvenc=2;
print $query->header(-type=>'image/jpeg',-expires=>'now');
if(scalar(@kedvencek)<1)
{
 $sql="select count(*) as bejegyzesszam from kepek_kedvenc";
}
else
{
 $sql="select count(*) as bejegyzesszam from kepek_kedvenc where $felt";
}

$sth=$cdbh->prepare($sql);
$sth->execute;
$sor=$sth->fetchrow_hashref;
$sth->finish;

$bejegyzesszam=$sor->{bejegyzesszam};
$elemszam=rand;
$elemszam=int($elemszam*$bejegyzesszam);

if(scalar(@kedvencek)<1)
{
 $sql="select * from kepek_kedvenc,kepcsoport_kedvenc where kepek_kedvenc.kepcsoport=kepcsoport_kedvenc.id limit $elemszam,1";
}
else
{
 $sql="select * from kepek_kedvenc,kepcsoport_kedvenc where ($felt) && kepek_kedvenc.kepcsoport=kepcsoport_kedvenc.id limit $elemszam,1";
}

$sth=$cdbh->prepare($sql);
$sth->execute;
$sor=$sth->fetchrow_hashref;
$sth->finish;
$kepcsoport=$sor->{id};

$gyoker=".";
$sor->{kepnev}=~/(.*)\.(.*)/;
$kepnev=$1."_t2.".$2;
$filenev="$gyoker/$sor->{konyvtar}/$kepnev";
#$filenev="$sor->{konyvtar}/$kepnev";
#print $query->header;
#print $filenev;
#exit;
if(-r $filenev)
{
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filenev);
 open(F,"<$filenev");
 binmode(F);
 read(F,$kep,$size);
# print "Content-type: image/jpeg\n\n";
 print($kep);
# print "\n\n";
 close(F);
} 

$cdbh->disconnect;