#!/usr/bin/perl

 
use DBI;
use POSIX;

my $Host="localhost";
my $SqlBase ="gayfrance";
my $SqlUser="visioweb";
my $SqlPwd ="m0u\$tik99";

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

# On ouvre le fichier Enigme 
$requete= qq {
	      select distinct idAdresse,urlImage from adresses} ;
$sth=$dbh->prepare($requete);
$sth->execute;
$myServeur="http://www.lovelysphere.com/gayfrance/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;
	$cmd="mkdir ".$idAdresse;
     system($cmd);
     $wget ="wget \"".$url."\" -O ".$idAdresse."/".$idAdresse.".".$extension;

     system($wget);
     $convert="convert ".$idAdresse."/".$idAdresse.".".$extension." -resize 320x240 -quality 80% ".$idAdresse."/".$idAdresse.".".$extension;
     system($convert);
   }
}