[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.