Perl

Titre d'un script CGI Perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Titre d'un script CGI Perl

Predicator

Bonsoir,

J'ai écris un petit script Perl qui permet de télécharger un fichier existant sur le serveur.

Tout fonctionne bien si ce n'est que le fichier télécharger a systématiquement le nom du fichier perl (filedl.pl)

Quelqu'un sait comment faire en sorte que le nom de fichier proposé à l'enregistrement soit bien celui du fichier original, et non celui du script perl ?
J'ai essayé d'ajouter la balise head avec title, mais comme on peut s'en douter, le type mime passe alors automatiquement en texte, et le contenu du fichier binaire est affiché dans le navigateur, au lieu d'être proposé à l'enregistrement.

Voici un extrait du code du script :

Code :

# Création du CGI
my $cgi = new CGI;
my $file = $cgi->param("file" );
# Type MIME
my $mimetype = &get_mime_type($file);
# Entêtes HTML
print $cgi->header('Content-type: $mimetype; charset=utf-8');
open(FILE, "<$file" ) or die "Cannot open $file";
my @filedata = <FILE>;
close (FILE) or die "Cannot close $file";
print @filedata

Publicité

tpierron

Pour faire ça, en général j'envoie l'entête http suivant :

Content-Disposition: inline; filename="%s"; size=%d
Content-Length: %d
Content-Type: application/binary

<contenu du fichier>

Où tu remplaceras %d par la taille en octet du fichier et %s le nom du fichier.

Mais ça coince en général avec les caractères unicode > 127. Si tu as ce genre de caractères, va falloir sans doute passer par des RewriteRule.

couak

dans l'en-tête, il faut ajouter ca :

Code :

print $cgi->header("Content-Disposition: attachment; filename=nomdetonfichier" );

Predicator

Merci des réponses. J'ai jonglé avec vos deux solutions pour voir, mais toujours rien. Dernière version en date :

Code :

# Nom du fichier
my $fname = $file;
$fname =~ s/^.*\///;
print $cgi->header('Content-Disposition: inline; filename="$fname"');

J'ai essayé le inline et le attachement, avec des guillemets autour du nom et sans.

Pour info, les noms de fichier sont en UNICODE.

Message édité par Predicator le 26-02-2009 à 09:33:15

Predicator

Bon, j'ai un peu tout essayé, cherché des choses sur le net, mais rien trouvé de fonctionnel. J'ai constaté qu'on ne pouvait pas appeler plusieurs fois "print cgi->header" sous peine d'avoir des problèmes. J'ai donc essayé de tout mettre en une fois, mais toujours sans résultat :

Code :

my $fname = $file;
$fname =~ s/^.*\///;
my $mimetype = &get_mime_type($file);
print $cgi->header('Content-type: $mimetype; charset=utf-8; Content-Disposition: inline; filename="$fname";');

Predicator

Je remonte le sujet, en espérant que quelqu'un connaisse la solution

couak

faut pas mettre le nom du fichier entre "

Predicator

J'avais du essayé, mais depuis le temps, j'ai réessayé au cas où, mais le résultat est toujours négatif. Le fichier qu'il tente de télécharger est toujours "monscript.pl"

Code :

# Création du CGI
my $cgi = new CGI;
my $file = $cgi->param("file" );
my $fname = $file;
$fname =~ s/^.*\///;
my $mimetype = &get_mime_type($file);
print $cgi->header("Content-type: $mimetype; charset=utf-8; Content-Disposition: attachment; filename=$fname;" );

Le nom de fichier est bien correct, mais toujours rien

tpierron

Bah, chais pas ce que tu fais, mais avec un programme de ce type, ça_marche_chez_moi™ (IE, FF, Safari). Bref, va falloir débugguer les headers qui ta lib envoie, il y a des chances pour qu'ils soient pas bon.

Code :

#!c:/Perl/bin/perl.exe
 
print "Content-type: hello/world\n";
print "Content-Disposition: inline; filename=\"hello world !\"; size=11\n";
print "Content-Length: 11\n\n";
 
print "Hello world";

Predicator

OK, j'ai pas mal galéré, mais ton code m'a permis de trouver la solution.
J'ai juste déplacé du code, enlevé l'usage de "cgi->header", et ça fonctionne.
À vrai dire, je ne comprends pas pourquoi ça ne marchait pas avant, et ça, j'aime pas.

En tout cas, il semblerait que ça génère une erreur quand on ne met pas la taille, ou quand la taille indiquée diffère de la taille réelle.

Merci pour votre aide.

Publicité

fabrice91

Déjà tu avais une erreur dans cette ligne :

Code :

print $cgi->header("Content-type: $mimetype; charset=utf-8; Content-Disposition: attachment; filename=$fname;" );

Sur la doc de CGI au cpan, on peut lire qu'il faut qu'au moins le premier argument commence par un tiret, de plus il s'agit d'un HASH passé en paramètre.
De plus il faut enlever le "Content" pour la clé donc elles s'appelleront respectivement -type et -disposition :
Donc la bonne écriture était :

Code :

print $cgi->header( -type => "$mimetype; charset=utf-8", -disposition => "attachment; filename=$fname" );

Mais bon je dois avouer que j'ai aussi pris la solution du print "Content-Type" etc car la solution ci dessus ne fonctionne tout de même pas :??:
J'ai du me tromper quelque part en plus...

Predicator

Merci pour les précisions
J'avoue que j'ai eu pas mal de soucis avec la méthode $cgi->header...

FORUM HardWare.fr

Programmation

Perl

Titre d'un script CGI Perl

Sujets relatifs
script de configuration reseau linux	script pour modifier un xsl:for-each
.htaccess : empêcher l'exécution sauvage d'un script	ping en boucle dans script shell
Script avec Telnet	Recherche script decoupe image a partir d'une interface
aide pour coder un petit script	Script pour Rotation Bannière Adsense
[VBS] Script permettant de tester une connexion réseau	Script DOS SMTP
Plus de sujets relatifs à : Titre d'un script CGI Perl

Page générée en 0.055 secondes