Discussion :

[devjcc]

Bonsoir,
Un petit soucis avec Archive::Zip car lorsque j'execute le script via le navigateur tout se passe bien.
Mais lorsque l'exécution est lancée par les taches crontab du serveur avec le script identique j'ai une erreur.
Voici la ligne de log : Can't call method "desiredCompressionLevel" on an undefined value at /usr/lib/perl5/site_perl/5.8.8/Archive/Zip/Archive.pm line 249

Voici le bout de script concerné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use DBI;
use Archive::Zip;
 
# .../ ...
 
$obj = Archive::Zip->new();   # new instance
$obj->addFile($ficAnn);   # add files
$obj->addFile($ficConfig);
$obj->addFile($ficPhoto);
if ($obj->writeToFileNamed('ficzip.zip') != AZ_OK) {  # write to disk
    print "Error in archive creation!";
} else {
    print "Archive created successfully!";
}

Je ne trouve pas de définition de l'erreur et je ne vois pas pourquoi un script fonctionne via navigateur et pas via crontab...
Merci de vos éclaircissements.

[djibril]

La première des choses à savoir en Perl est de toujours utiliser les pragma dans tous les scripts perl.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use strict;
use warnings;

Ensuite, l'erreur signifie que tu travail sur une variable non initialisée. Donc la méthode pointe sur une variable n'existant pas.

[Mr6]

Si la méthode d'appel du script change, le contexte change. A mon avis il faut voir l'environnement utilisé par le serveur web et s'assurer qu'il est identique quand lors du passage par la crontab (droits de l'utilisateur, variables d'environnement, etc...).


@+
Mr6

[djibril]

Il faut aussi penser à mettre le chemin complet pour tes fichier ZIP ou répertoires. Éviter les .., ./toto/tutu.
C'est une source d'erreur et de non portabilité.

[devjcc]

Merci Djibril. Oui en effet, c'était plutôt un problème de répertoire...

[devjcc]

Quelle est l'instruction/commande argument, pour que l'arborescence du disque ne soit pas reconstituée dans l'archive zip créée?

Ma procédure sur le serveur:
1. création des fichiers dans un répertoire
2. création de l'archive avec plusieurs fichiers
3. j'envoie par ftp

Je souhaite simplement que les fichiers soient directement visibles à l'ouverture du zip.


Merci.

[devjcc]

Pour ceux que cela peut intéresser:
identique à un rename:

$zip->addFile('chemin/monfichier.csv', 'monfichier.csv');

Plus : http://search.cpan.org/~adamk/Archiv...ip.pm#SYNOPSIS