Discussion :

[Empty_body]

Salut,

Je suis à la recherche d'un ptit script qui me permette de zipper un fichier, de télécharger l'archive et de supprimer l'archive du serveur. L'application que je bricole est une application web qui tourne sur un serveur linux. Malheureusement, je débute en perl et ça dépasse de loin mes compétences. Quelqu'un aurait une solution?

Merci.

[Jedai]

Tu crées l'archive puis tu l'envoies au client en n'oubliant pas d'envoyer un header avec un Content-Type approprié avant. Pour créer l'archive, soit tu utilises un outil externe, soit tu utilises l'un des modules de Perl fait pour ça si tu peux l'installer. Je te conseille de ne pas passer par un fichier intermédiaire, mais de directement utiliser un pipe (si processus externe) ou une variable scalaire. Evidemment il pourrait être plus avisé de mettre en place un système de cache. A toi de voir.

--
Jedaï

[Empty_body]

Merci, Jedaï...
Créer l'archive ne pose pas le moindre problème, linux offre assez de possibilité de ce côté. Par contre

tu l'envoies au client en n'oubliant pas d'envoyer un header avec un Content-Type approprié avant

m'est assez abstrait.

[Empty_body]

en cherchant, j'ai trouvé ce bidule mais ça ne fonctionne pas, quelqu'un sait me dire pourquoi?

Code :

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

1
2
3
4
5
6
7
8
 
$nom_fichier="/usr/.../log/server.log.gz"; 
print "header('Content-disposition: attachment; filename='".$nom_fichier."'); ";
print "header('Content-Type: application/force-download'); ";
print "header('Content-Transfer-Encoding: 'application/x-gzip'\n'); ";
print "header('Pragma: no-cache'); ";
print "header('Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0'); ";
print "header('Expires: 0'); ";

Merci.

[Jedai]

Le content-type indique le type MIME du contenu envoyé après le header HTTP, ça permet au client de traiter de façon approprié ce que tu lui envoies, par exemple text/html lui dit qu'il doit le traiter comme du HTML, text/plain comme du texte brut, application/x-pdf comme un pdf (par exemple l'ouvrir avec le plugin acrobat reader).
Dans ton cas, il faut lui dire de quel type d'archive il s'agit (et déjà lui dire qu'il s'agit d'une archive, donc de données binaires, sinon il risque de le corrompre en le traitant comme du texte).

Ton script CGI devrait ressembler à ça :

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
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
54
55
56
57
58
59
60
61
62
63
#!C:/Lang/Perl/bin/perl
use strict;
use warnings;
use CGI;
use Compress::Zlib;
 
use CGI::Carp qw/fatalsToBrowser/;
 
my $q = new CGI;
 
# plutôt à récupérer depuis un fichier de config si possible
my $server_root = '/www';
 
my $filename = $q->param('filename');
 
# une vérification très prudente de ce que tu veux autoriser s'impose,
# ici je ne fais qu'une vérification bien insuffisante
# ce serait plus prudent de ne réserver cette possibilité qu'à
# un répertoire de ton serveur, choisi soigneusement
if (    $filename =~ m{[^/]$}
    and $filename !~ m{(?:\.php.?|\.cgi|\.htaccess)$}
    and $filename =~ m{^(/[-\w_/\.]*)$} )
{
    $filename = $server_root . $1;
}
else {
    signal_fatal_problem();
}
 
my ($shortname) = ( $filename =~ m{.*/([^/]+)$} );
 
open my ($file_to_zip), '<', $filename
  or signal_fatal_problem();
 
print $q->header( -type => 'application/x-gzip',
    -attachment => "$shortname.gz" );
 
binmode STDOUT;
my $gz = gzopen( \*STDOUT, "wb" )
  or die "Cannot open stdout: $gzerrno\n";
 
while (<$file_to_zip>) {
    $gz->gzwrite($_)
      or die "error writing: $gzerrno\n";
}
 
$gz->gzclose;
 
sub signal_fatal_problem {
    print $q->header(), $q->start_html('Erreur de nom de fichier'),
      $q->p(
        "Le fichier $filename que vous avez demandé n'est",
        ' pas disponible pour le téléchargement en tant ',
        ' qu\'archive, ou n\'existe pas.'
      ),
      $q->end_html();
 
    # je te conseille de loguer ce genre de tentatives
    # ça sera instructif sur les risques de ce genre d'approche
    exit(0);
}
 
__END__

--
Jedaï

[Empty_body]

C'est super, merci... Avec la bonne lib, c'est impecable...

[Jedai]

Il faut avoir Compress::Zlib, et changer le $server_root.

--
Jedaï

[Jedai]

Si tu n'as pas Compress::Zlib et que tu ne peux pas l'installer, tu peux toujours utiliser un outil externe, mais le reste de la structure sera identique.

--
Jedaï