Test fichier attribut archive
Bonjour,
N'y connaissant rien en perl, je fais appel à vos lumières, le script fonctionne normalement hormis que dans le cas de la présence d'un fichier ayant un attribut archive j'ai un message d'erreur.
Ci-dessous un bout du script, je pense qu'il s'agit de la fonction test_file
------------------------------------------------------------------------
Code:
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"; |
--------------------------------------------------
Merci à tous de vos aides
Rolland
