[CGI] problème avec bouton parcourir

**Leishmaniose** · 02/04/2007, 17h40

Salut à tous,

Y'a pas moyen je bute... Voila, je dispose d'un formulaire html qui permet de saisir comme input, du texte directement dans un textarea ou bien d'utiliser un bouton "parcourir" ou "browse" afin de sélectionner un fichier contenant l'input voulu. Un fois le formulaire "poster" mon script effectue le test suivant sur l'input :

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
if ($path eq '') {
  if ($sequence ne '') {
    open (FQ, ">$input_query") || die("Problème avec le fichier $input_query : $!");
    print FQ $sequence;
    close (FQ);
  }
  else {
    print "<html>
<head>
<title>ERROR_#bl001</title>
</head>
<body>
<p><strong><font color=\"#A800000\" size=\"3\" face=\"Verdana, Arial, Helvetica, sans-serif\">ERROR<font color=\"#666666\"> [#bl001]</font><br><br>
<font color=\"#000000\">Input sequence was not sized...</font></font></strong></p>
</body>
</html>";
  }
}
else {
  if ($sequence eq '') {
    open (FS, $path) || die("Can not open $path : $!");
    my @seq = <FS>;
    close (FS);
    open (F, ">$input_query") || die("Problème avec le fichier $input_query : $!");
    print F @seq;
    close (F);
  }
  else {
    print "<html>
<head>
<title>ERROR_#bl002</title>
</head>
<body>
<p><strong><font color=\"#A800000\" size=\"3\" face=\"Verdana, Arial, Helvetica, sans-serif\">ERROR<font color=\"#666666\"> [#bl002]</font><br><br>
<font color=\"#000000\">The text area and the browse menu can not be both used for seizure...</font></font></strong></p>
</body>
</html>";
  }
}

Mon problème est que le truc marche bien sur IE par contre sur FireFox le saisie par le biais du "parcourir" ne marche jamais !! Inutile de vous dire que ça me dépasse et que je ne réussi même pas à localiser l'erreur vu que quelque part ça marche, mais tout de même je ne vais pas me mettre à tager mon formulaire "ce formulaire marche mieux avec IE..." c'est pas le genre de la maison !!

Dispo. pour n'importe quel supplémentaire info.

Merci pour tout

**Jedai** · 02/04/2007, 18h10

Tu utilises bien le module CGI ? Que contient $path ?

--
Jedaï

**Leishmaniose** · 03/04/2007, 23h22

pour le module CGI ==> affirmatif : le début de mes scripts ressemble à ça

#!C:\perl\bin\perl.exe

use CGI;
use strict;
use warnings;

en plus la connexion formulaire html / script marche bien avec IE...

pour $path ==> elle contient un chemin d'accés à un fichier, du style

C:\mes documents\bioinfo\seq\test.fasta

voila.

**Jedai** · 04/04/2007, 18h07

Envoyé par Leishmaniose

pour $path ==> elle contient un chemin d'accés à un fichier, du style

voila.

Ce n'est pas ce que je veux dire : comment récupère tu ton "path" ? Avec param() ? De plus si le formulaire ne marche pas bien avec Firefox, c'est peut-être que le problème est dans le formulaire, pas dans le script.

--
Jedaï

**Leishmaniose** · 04/04/2007, 18h25

Bon, loin de moi l'idée de vouloir t'énerver mais c'est ce que j'ai réellement compris par que contient $path ?...

Pour plus de détails voici le début de mon script (là où je récupère mes variables) et le code html du formulaire et du bouton parcourir

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
#!C:/perl/bin/perl.exe
 
use strict;
use warnings;
use CGI;
use Fcntl;
use POSIX qw(tmpnam);
 
print "Content-type: text/html\n\n";
 
my $form = new CGI;
 
my $program = $form->param('program');
my $datalib = $form->param('datalib');
my $sequence = $form->param('sequence');
my $path = $form->param('fichierseq');
my $matrix = $form->param('matrix');
my $evalue = $form->param('evalue');
my $filter = $form->param('filter');

Code :

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

1
2
3
4
5
6
7
<form action="http://localhost/cgi-bin/blast.cgi" method="post" enctype="multipart/form-data" name="form1" target="_blank" onKeyUp="highlight(event)" onClick="highlight(event)">
.....
.....
<input name="fichierseq" type="file" id="fichierseq" size="55">
.....
.....
</form>

J'espère que ça répond à ta demande

Merci pour l'aide.

**Leishmaniose** · 06/04/2007, 10h48

voila 2 jours sans réponse...

Je sens que ce problème va encore enrichir ma boîte à mystères...

**djibril** · 06/04/2007, 10h59

je comprends pas trop ton soucis? T'arrive pas au final à uploader un fichier, c'est ça?

- Si oui, je te ferais remarquer qu'en fonction de certain navigateur. L'utilisation du param pour les fichier uploader recupere soit le nom du fichier, soit le chemin relatif du fichier. A toi donc de te faire une regex pour recupere le nom du fichier exact (ou bien le module File:

ath pour la methode basename qui recupere le nom exact du fichier).
- Si non, pas rexplique le moi, que je puisse t'aider

**Leishmaniose** · 06/04/2007, 17h19

Envoyé par djibril

je comprends pas trop ton soucis? T'arrive pas au final à uploader un fichier, c'est ça?

- Si oui, je te ferais remarquer qu'en fonction de certain navigateur. L'utilisation du param pour les fichier uploader recupere soit le nom du fichier, soit le chemin relatif du fichier. A toi donc de te faire une regex pour recupere le nom du fichier exact (ou bien le module File:

ath pour la methode basename qui recupere le nom exact du fichier).
- Si non, pas rexplique le moi, que je puisse t'aider

Je te rassure tout de suite, ce que t'as compris correspond exactement à ce que je voulais dire. En plus ton post m'a mis sur la voie...

Voila j'ai écrit ce script que j'ai nommé test.cgi :

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
#!C:/PROGRA~1/EasyPHP1-7/perl/bin/perl.exe
 
use strict;
use warnings;
use CGI;
 
print "Content-type: text/html\n\n";
 
my $form = new CGI;
 
my $file = $form->param('file');
 
print $file;
 
exit;

ainsi que ce formulaire :

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<form action="http://localhost/cgi-bin/test.cgi" method="post" enctype="multipart/form-data" name="form1" target="_blank">
  <input type="file" name="file">
  <br>
  <br>
  <input type="submit" name="Submit" value="Envoyer">
</form>
</body>
</html>

Bon quand j'utilise IE print $file ==> le chemin complet + le nom du fichier
mais quand j'utilise FireFox ==> nom du fichier seuleument

Alors je me demande comment faire pour y remédier sachant que l'utilisation d'une regex me parait pas possible dans ce cas vu que je ne connais pas à l'avance quel chemin l'utilisateur va prendre pour stocker ses fichiers sur son disque local... ou autre, d'ailleurs. Sinon, en ce qui concerne le module File:

ath je vais voir comment l'utiliser mais j'avoue que l'utilisation des modules n'est pas mon fort. Un peu d'aide sera donc la bienvenue...

Merci pour tout.

**Jedai** · 06/04/2007, 17h58

D'accord, je pensais que $path était vide dans le cas de Firefox, mais ce n'est pas ce qui se passe... Une meilleure explication de l'erreur obtenue aurait aidé !

Au lieu d'ouvrir le fichier $path, contente-toi d'utiliser la méthode upload() de CGI, elle te fournira directement un filehandle ouvert en lecture sur le fichier uploadé.

--
Jedaï

**djibril** · 06/04/2007, 23h33

J'ai refais ton code cgi dans lequel je t'ai rajouté la partie upload (que j'utilise constamment).
Tu verras que je recupere $file et apres une regex, recupere le nom exact du fichier sans les chemins. Ca me permet juste de nommer le fichier que j'upload avec le même nom. Mais le plus important est le nom du champ input de type file dans ton html qui est "file".
Donc voisi le code et n'hesite pas si tu as des questions.

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
#!c:/perl/bin/perl.exe -w
use strict;
use CGI;
 
print "Content-type: text/html\n\n";
my $form = new CGI;
my $file = $form->param('file');
print $file;
#Methode pour uploader ton fichier
$file =~ s/.*[\/\\](.*)/$1/;	# regex pour recuperer uniquememnt le nom du fichier
my $repertoire_dupload = ".";
# upload des fichiers d'analyse
my $upload_filehandle = $query->upload("file");
#upload("file"); file car c'est le nom du input dans ton html
open (UPLOAD, ">$repertoire_dupload/$file");
binmode UPLOAD;
while (my $ligne=<$upload_filehandle>) {
	chomp($ligne);
	print UPLOAD "$ligne\n";
}
close (UPLOAD);

**Leishmaniose** · 08/04/2007, 23h19

salut,

merci beaucoup pour ton aide précieuse djibril, également pour la tienne jedai.

Je vous expose donc ce que j'ai fais :

1- J'ai créer le formulaire test.html suivant :

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<form action="http://localhost/cgi-bin/test.pl" method="post" enctype="multipart/form-data" name="form1" target="_blank">
  <input type="file" name="file">
  <br>
  <br>
  <input type="submit" name="Submit" value="Envoyer">
</form>
</body>
</html>

2- J'ai ensuite utiliser le code de djibril pour créer le script test.pl suivant :

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
#!c:/EasyPHP/perl/bin/perl.exe -w
use strict;
use CGI;
 
my $query; 
print "Content-type: text/html\n\n";
my $form = new CGI;
my $file = $form->param('file');
print $file;
#Methode pour uploader ton fichier
$file =~ s/.*[\/\\](.*)/$1/;	# regex pour recuperer uniquememnt le nom du fichier
my $repertoire_dupload = ".";
# upload des fichiers d'analyse
my $upload_filehandle = $query->upload("file");
#upload("file"); file car c'est le nom du input dans ton html
open (UPLOAD, ">$repertoire_dupload/$file");
binmode UPLOAD;
while (my $ligne=<$upload_filehandle>) {
	chomp($ligne);
	print UPLOAD "$ligne\n";
}
close (UPLOAD);

Bon les seuls changements par rapport au code de djibril c'est au niveau du shebang et au niveau de la ligne 5 où je déclare $query vu que j'obtiens cette erreur lorsque $query n'est pas déclarée :

Code :

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

Global symbol "$query" requires explicit package name at C:/EasyPHP/cgi-bin/test.pl line 13., referer: http://127.0.0.1/test/test.html

A ce stade, lorsque je réalise un test (en utilisant FireFox) j'obtiens ce qui suit :

1- un nouvel onglet dans lequel apparait uniquement le nom du fichier sélectionner (sûrement le "print $file" du test.pl ligne 9)

2- lorsque je consulte erreur.log j'ai le message suivant :

Code :

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

Can't call method "upload" on an undefined value at C:/EasyPHP/cgi-bin/test.pl line 14., referer: http://127.0.0.1/test/test.html

Voila... Je crois que je dois bouquiner un peu le module CGI !!! Et wé je l'avoue, les modules ce n'est pas mon fort

Enfin... votre aide ne sera pas de refus.

Encore merci.

**djibril** · 08/04/2007, 23h53

c'est normal que tu ais ce problème car ton code n'est pas cohérent

.
voici ton code :

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
#!c:/EasyPHP/perl/bin/perl.exe -w
use strict;
use CGI;
 
my $query; 
print "Content-type: text/html\n\n";
my $form = new CGI;
my $file = $form->param('file');
print $file;
#Methode pour uploader ton fichier
$file =~ s/.*[\/\\](.*)/$1/;	# regex pour recuperer uniquememnt le nom du fichier
my $repertoire_dupload = ".";
# upload des fichiers d'analyse
my $upload_filehandle = $query->upload("file");
#upload("file"); file car c'est le nom du input dans ton html
open (UPLOAD, ">$repertoire_dupload/$file");
binmode UPLOAD;
while (my $ligne=<$upload_filehandle>) {
	chomp($ligne);
	print UPLOAD "$ligne\n";
}
close (UPLOAD);

tu cree un objet pour ton cgi :

Code :

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

my $form = new CGI;

et quand tu utilise la methode upload, tu utilise $query qui ne correspond à rien. Alors je recorrige ton code et voici celui que tu dois utiliser :

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
#!c:/EasyPHP/perl/bin/perl.exe -w
use strict;
use Carp;
use CGI;
 
my $cgi = new CGI;
print $cgi->header();
print $cgi->start_html();
my $file = $cgi->param('file');
print $file;
#Methode pour uploader ton fichier
$file =~ s/.*[\/\\](.*)/$1/;	# regex pour recuperer uniquememnt le nom du fichier
my $repertoire_dupload = ".";
# upload des fichiers d'analyse
my $upload_filehandle = $cgi->upload("file");
#upload("file"); file car c'est le nom du input dans ton html
open (UPLOAD, ">$repertoire_dupload/$file");
binmode UPLOAD;
while (my $ligne=<$upload_filehandle>) {
	chomp($ligne);
	print UPLOAD "$ligne\n";
}
close (UPLOAD);
 
print $cgi->end_html;

En ce qui concerne de la doc pour le module ccgi, en voici une : module CGI en français

**Leishmaniose** · 10/04/2007, 17h07

Bon, voila ce que j'ai écrit

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
#!/engine/perl/bin/perl.exe
 
use strict;
use warnings;
use CGI;
use Fcntl;
use POSIX qw(tmpnam);
 
print "Content-type: text/html\n\n";
 
my $form = new CGI;
 
my $path = $form->upload('fichierseq');
 
#fichier temporaire
my $filein = $ENV{"TEMP"}. tmpnam() ."fasta";
 
#enlever les espaces du chemin d'accées (e.g. "program files" remplacer par "PROGRA~1"
my @tabin = split /\\/, $filein;
my $i;
foreach $i (0..$#tabin) {
  if ($tabin[$i] =~ /\s/) {
    $tabin[$i] =~ s/\s//g;
    my @tmp_tabin = split ('', $tabin[$i]);
    $tabin[$i] = $tmp_tabin[0].$tmp_tabin[1].$tmp_tabin[2].$tmp_tabin[3].$tmp_tabin[4].$tmp_tabin[5]."\~"."1";
  }
}
my $input_query = join("\\", @tabin);
 
#contenu fichier $path dans fichier temporaire $input_query
open (FQ, ">$input_query") || die("Problème avec le fichier $input_query : $!");
binmode FQ;
while (my $line = <$path>) {
    chomp($line);
    print FQ "$line\n";
}
close (FQ);

Ce code permet d'uploader le contenu du fichier sélectionner dans un fichier temporaire. Ceci marche aussi bien sous FireFox que sous IE.

Néanmoins, un problème persiste !!!
J'essaye d'utiliser DwebPro pour distribuer mon site qui n'est autre qu'une collection d'outils bioinfo, et le bouton parcourir me pose encore un problème même avec ce nouveau code... Je crois que cette fois ça viens du DwebPro !!!

Bon de toute façon merci pour votre aide et pour la doc

[CGI] problème avec bouton parcourir

Web Perl

Discussions similaires

Partager

Partager