#!/usr/bin/perl
use DBI;

$user="root";
$password="12szorme56";
$cdata_source="DBI:mysql:pvsk";
$cdbh=DBI->connect($cdata_source,$user,$password) or die "Nem sikerult kapcsolodni a szerverhrez";

$sql="delete from kepcsoport_kedvenc";
$sth=$cdbh->do($sql);

$sql="delete from kepek_kedvenc";
$sth=$cdbh->do($sql);


$gyoker=".";
opendir(dir,$gyoker);
while($konyvtar=readdir(dir))
{
 print "Lehetoseg: $konyvtar\n";
 next if $konyvtar eq ".." || $konyvtar eq "." || $konyvtar eq "hirek" || !-d "$gyoker/$konyvtar";
 print "Megfelet:  $konyvtar\n";
 next if !-r "$gyoker/$konyvtar/info.txt";
 print "Info is :  $konyvtar\n";

 open(FILE,"<$gyoker/$konyvtar/info.txt");
 $nev=<FILE>;
 chop $nev;

 if(length($nev)<2)
 {
  next;
 }
# system "rm $gyoker/$konyvtar/info.txt";
 $sql="insert into kepcsoport_kedvenc (nev,konyvtar,datum,tiltas) values (\"$nev\",\"$konyvtar\",now(),0) ";
 print "$sql\n";
 $sth=$cdbh->do($sql);
 $sth2=$cdbh->prepare("select last_insert_id() as id");
 $sth2->execute;
 $sor=$sth2->fetchrow_hashref;
 $sth2->finish;
 $kepcsoport=$sor->{id};
 next if $kepcsoport<1;
 opendir(dir2,"$gyoker/$konyvtar");
 while($kep=readdir(dir2))
 {
  next if $kep eq ".." || $kep eq "." || -d "$gyoker/$konyvtar/$kep";
  next if $kep=~/.*_t\.(.*)/ || $kep=~/.*_t2\.(.*)/;
  next if $kep!~/.*\.jpg/ && $kep!~/.*\.gif/ && $kep!~/.*\.bmp/ ;
  $kep=~/(.*)\.(.*)/;
  $kep_kicsi="$1_t2.$2";
  if(!-r "$gyoker/$konyvtar/$kep_kicsi")
  {
   print "convert -resize 160x160 -comment \"PVSK\" $gyoker/$konyvtar/$kep $gyoker/$konyvtar/$kep_kicsi\n";
   system "convert -resize 123 -comment \"PVSK\" $gyoker/$konyvtar/$kep $gyoker/$konyvtar/$kep_kicsi";
#   system "convert -scalex 160 -comment \"PVSK\" $gyoker/$konyvtar/$kep $gyoker/$konyvtar/$kep_kicsi";
  }
  $sql="insert into kepek_kedvenc (kepcsoport,kepnev,datum,tiltas) values ($kepcsoport,\"$kep\",now(),0) ";
  print "$sql\n";
  $sth=$cdbh->do($sql);
 }
 closedir dir2;

 close FILE;
}
closedir dir;

$cdbh->disconnect;