1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
### Si un fichier est présent on l'upload ###
if ($cpt_ph > 0)
{
print LOG "\n### Photos uploadés ###\n\n";
foreach $fich2 (@photo)
{
### Si la photo est disponible on l'upload ###
chomp $fich2;
$test_file = "S:\\IMGPROD\\".$fich2;
if (-e $test_file)
{
### Upload des fichiers ###
upload($fich2);
### Test du hash du fichier reçu ###
# $test = test($fich2);
$test=1;
### Si test OK ###
if ($test eq "1")
{
### Log #####
chomp $fich2;
print LOG " -> ".$fich2."....OK\n";
$test = 0;
}
else
{
### Sinon on log $fich2 comme érroné ###
@tab_err[$cpt_err]=$fich2;
$cpt_err++;
}
}
else
{
print LOG "\nLe fichier ".$fich2." n'est pas présent sur servphoto\n\n";
}
}
}
else
{
print LOG "\nLe fichier ECO_IMAGES.TXT est vide\n\n";
}
}
else
{
print LOG "\n Le fichier ECO_IMAGES.TXT n'est pas disponible auprès de STL\n\n"; |
Partager