#!/usr/bin/perl

 
use DBI;
use POSIX;
use DateTime;
my $Host="localhost";
my $SqlBase ="geolocpartenaire";
my $SqlUser="root";
my $SqlPwd ="v3wxvph";

my $dbh = DBI->connect("DBI:mysql:$SqlBase:$Host",$SqlUser,$SqlPwd);
die unless $dbh ;

# On ouvre le fichier CSV
open(TOTO,"depositaires.csv") ¦¦ diex("Erreur d'ouverre") ;

while (<TOTO>) {
print "la ligne $_ a ete lue\n";

}
 
$requete= qq {
	      select distinct id,urlImage from bogaybook_adresses} ;
$sth=$dbh->prepare($requete);
$sth->execute;
$myServeur="http://www.gaybook-france.fr/gaybook/admin/bogaybook/images/";
while (@line=$sth->fetchrow_array)
  {
    my $idAdresse = $line[0];
    my $url = $line[1];
    $longueur=length($url);
    if (($url =~ /lovelysphere/))
    {
     @infos= split(/\//, $url);
     my $longueurTab = @infos;
     my $id= $longueurTab -1;
     my $nomFichier = $infos[$id];
     @decoupe=split(/\./,$nomFichier);
     $longueurTab = @decoupe;
      $id= $longueurTab -1;
     my $extension=substr $decoupe[$id],0,3;
     my $dateCourante= DateTime->now();
     my $date = $dateCourante->strftime("%Y%m%d%H%M%S"); 
     $repertoire="/var/www/python/gaybookfrance/bogaybook/images/".$date;
    # print "url ".$url." id ".$idAdresse. " ".$extension."\n";
     $cmd="mkdir ".$repertoire;
     system($cmd);
     $wget ="wget \"".$url."\" -O ".$repertoire."/".$idAdresse.".".$extension;
     system($wget);
     #$convert="convert ".$idAdresse."/".$idAdresse.".".$extension." -quality 50% ".$idAdresse."/".$idAdresse.".".$extension;
     #system($convert);
     $update = ";update bogaybook_adresses set urlImage=\"".$myServeur."/".$date."/".$idAdresse.".".$extension."\" where id=".$idAdresse;
     print $update."\n";
     sleep(1);
   }
}