Perl

CGI: probleme html (firefox) et upload

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : CGI: probleme html (firefox) et upload

suomi

Bonjour à tous.
J'utilise un script perl pour recupérer les variables d'un formulaire afin ensuite d'executer des requetes via le module DBI de perl.

Cependant j'ai un petit problème avec Firefox à ce niveau:

Code :

######Création du fichier html de retour à l'execution du script perl
print "content-type : text/html\n\n";
print "<html><head><link rel='stylesheet' href='../public_html/leptostyle.css' type='text/css'></head>\n";
print "<body><h1>Verification de l'insertion</h1>\n";
print "<br><br>\n";
print "<form method='post' action='../public_html/index.php?page=inserer'>\n";
print "<input type='submit' value='Retour'></form>\n";
print "toto\n";
print "</body></html>\n";

Sous Internet Explorer, ma page html s'affiche correctement, le navigateur comprent le code html, tandis que sous firefox, il ne lie pas le code, il l'affiche juste.
Y-a t'il un probleme avec firefox et ce type d'utilisation?
Comment remédier à ce probleme?
Merci :hello:

Message édité par suomi le 16-06-2005 à 17:07:54

Publicité

pospos

il faut que tu indique le type de document que tu envoi.
en haut de ton scrip, le premier print doit etre:
print "Content-Type: text/html\n\n";

en fait IE a "deviné" qu'il s'agissait de HTML, mais normalement il aurait du faire comme firefox et l'afficher tel quel

Elmoricq

Modérateur

Tout d'abord, tu ferais mieux d'utiliser le module CGI en PERL, cela te faciliterait grandement la tache.
Voir : http://www.cpan.org

Ainsi, ton code avec le module CGI donnerait :

Code :

use CGI (qw: standard);
use strict;
my $CGI = new CGI;
print $CGI->header();
print $CGI->start_html(-title => 'titre de la page',
-style => '../public_html/leptostyle.css');
print $CGI->h1('Verification de l'insertion'), $CGI->br();
print $CGI->start_form( -name => 'nom_de_la_forme',
-method => 'post',
-action => '../public_html/index.php?page=inserer');
print $CGI->submit( -name => 'nom_du_bouton', -value => 'Retour' );
print "toto\n";
print $CGI->end_form(), $CGI->end_html();

Ensuite, ta question est un problème HTML et non PERL. Ton script HTML regorge d'erreurs, par exemple le formulaire non terminé, pas de titre à la page, pas de nom de formulaire, et l'en-tête ne me parait pas correct.
Dans n'importe quelle page HTML, je vois plutôt un en-tête du style :

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

pospos

pospos a écrit :

putain mais je vais pas bien moi en ce moment...
javais pas vu que le print text/html y etait deja...

desolé (remarque c'est peut etre un prob de majuscules? faut capitaliser Content-Type)

suomi

pospos a écrit :

il faut que tu indique le type de document que tu envoi.
en haut de ton scrip, le premier print doit etre:
print "Content-Type: text/html\n\n";

J'ai donné ce renseignement. :ange:

Citation :

module CGI en PERL

Excuse moi Elmoricq, j'ai pas mit tout mon script perl car sinon ça aurait été trop big, mais j'utilise bien le module CGI, sans pour autant l'exploité comme toi.
Mon code html est effectivement très basic, mais c'etait juste pour un test. Par le biais de CGI Firefox et internet explorer fonctionne correctement.

Merci :jap:

Badze

Aime les frites

Tu est obliger de mettre des print a gogo dans ce cas la ?
Je ne connais pas perl, mais je trouve cela exessif pour un meme résultat.

print " code html " ;

Elmoricq

Modérateur

Badze a écrit :

Tu est obliger de mettre des print a gogo dans ce cas la ?
Je ne connais pas perl, mais je trouve cela exessif pour un meme résultat.

print " code html " ;

On peut même écrire ça de façon chouette de la manière suivante :

Code :

print <<FIN_DE_BLOC
ecrire
ici
absolument tout le
html que
l'on veut, le texte jusqu'à la ligne _COMMENCANT_ par FIN_DE_BLOC
sera imprimé exactement tel quel
FIN_DE_BLOC

suomi

Merci pour ce rappel Elmoricq, c'est vrai que c'est bien utile comme ça

Autre question... peut on faire du php à la place du html?

Car en fait, j'ai une page html composé d'un formulaire et d'un champ permettant l'upload d'un fichier. Lorsque je valide mon formulaire, je lance mon script perl qui récupère les variables de mon formulaire. Après un traitement de mes variables, mon script a besoin ensuite du fichier que j'ai uploadé. Avant j'utilisé une page php pour traiter l'upload:

Code :

<?php
// En PHP < 4.1.0, $HTTP_POST_FILES doit être utilisé
// à la place de $_FILES.
$uploaddir = 'C:\Program Files\EasyPHP1-8\www\public_html\upload\\';
$uploadfile = $uploaddir . basename($_FILES['userfile']['name']);
echo '<pre>';
if (move_uploaded_file($_FILES['userfile']['tmp_name'], $uploadfile)) {
echo "Le fichier est valide, et a été téléchargé
avec succès. Voici plus d'informations :\n";
} else {
echo "Attaque potentielle par téléchargement de fichiers.
Voici plus d'informations :\n";
}
//echo 'Voici quelques informations de déboguage :';
//print_r($_FILES);
echo '</pre>';
?>

D'ou ma question, est ce que je peux mettre ce code dans mon script perl pour permettre l'upload de mon fichier lors de la validité de mon formulaire?

suomi

Oula suis fatigué, en fait je devrais plutot me tourner sur un moyen d'upload des fichier via perl... Une petit recherche s'impose....

Elmoricq

Modérateur

Pourquoi ne gères-tu pas l'upload directement dans ton script PERL ?

EDIT : alors pour gérer l'upload, il faut :

1. Déclarer le formulaire HTML en "multipart", avec la ligne suivante :

Code :

print $CGI->start_multipart_form(-method=>"POST",
-action=>"ton_script.pl",
-name=>"id_du_formulaire" );

2. Déclarer un champ pour que l'utilisateur définisse le fichier à importer :

Code :

print $CGI->filefield(-name=>'id_du_champ_fichier',-size=>50);

(il y a d'autres propriétés de disponible, je pense notament à un filtre d'extensions il me semble)

3. Récupérer le fichier si l'utilisateur a soumis le formulaire avec son fichier de défini :

Code :

if ( defined $CGI->param('id_du_champ_fichier') )
{
my $f_handler = $CGI->param('id_du_champ_fichier');
while ( <$f_handler> )
{
chomp;
# gerer les donnees lues
}
}

Toute la documentation sur le module CGI est accessible sur le site de CPAN :
http://search.cpan.org/~jhi/perl-5.8.0/lib/CGI.pm

Message édité par Elmoricq le 16-06-2005 à 14:51:50

Publicité

suomi

Merci Elmoricq pour ton aide mais se que tu me suggères ne correspond pas tout à fait à mes attentes.
Apres une petit recherche et quelques essais, voila ou j'en suis.

Mon formulaire de test:

Code :

<HTML>
<!-- Le document est composé de plusieurs parties, donc
(ENCTYPE="multipart/form-data" ) + ajout de 1 champs "file".
-->
<HEAD> <TITLE> Test CGI </TITLE> </HEAD>
<BODY>
<H1> Test CGI </H1><HR>
<FORM action="/cgi-bin/tfic.pl"
ENCTYPE="multipart/form-data" method="post">
<INPUT TYPE="file" NAME="fic1" SIZE=50> <BR>
<INPUT TYPE="submit" VALUE="OK">
<INPUT TYPE="reset" VALUE="Annuler">
</FORM> </BODY> </HTML>

Mon script .pl pour l'upload que je vais rajouter par la suite au reste de mon script perl:

Code :

#!C:\Program Files\EasyPHP1-8\perl\bin\perl5.8.7.exe
#
# Réception du fichier.
require "cgi-lib.pl";
#$client_fn,
$client_fn = {}; # $client_ct, $serveur_fn
$client_ct = {}; # sont des références sur
$serveur_fn = {}; # des hashes vides.
$cgi_lib::writefiles = "C:/Program Files/EasyPHP1-8/www/public_html/upload/";
# Répertoire dans lequel les fichiers transmis seront déposés.
CgiDie;

Le script fonction sauf qu'au lieu de garder le nom du fichier, il change son nom du style:
cgi-lib.2016.1. Comment faire pour que le nom du fichier reste intact lors de l'upload?
Merci :pt1cable:

Elmoricq

Modérateur

Code :

require "cgi-lib.pl";

[:le poney de mr pink]

Ce module est dépassé et obsolète depuis... ouh la... trooooop longtemps !

Il faut utiliser CGI, et surtout pas cgi-lib, qui aurait dû se perdre dans les limbes de l'oubli voila quelques années.

Tiens, vu que CPAN a l'air de ne pas répondre aujourd'hui, j'ai trouvé la documentation en français, elle m'a l'air complète :
http://perl.enstimac.fr/ModulesFr/CGI.html

Message édité par Elmoricq le 16-06-2005 à 17:20:03

suomi

Bon il existe un module CGI::upload:

Code :

use CGI::Upload;
my $upload = CGI::Upload->new;
my $file_name = $upload->file_name('field');
my $file_type = $upload->file_type('field');
$upload->mime_magic('/path/to/mime.types');
my $mime_type = $upload->mime_type('field');
my $file_handle = $upload->file_handle('field');

Maintenant comment l'utiliser avec un formulaire envoyé par html? ça je ne sais pas trop...

FORUM HardWare.fr

Programmation

Perl

CGI: probleme html (firefox) et upload

Sujets relatifs
Probleme option onclick internet explorer	[Resolu] Validation HTML VS operateur de comparaison PHP
Problème de compilation avec la librairie wxWidget	Problème Mysql + PhpBB
[résolu] Pb d'impression : perte de la mise en page et des couleurs	probleme de header!!!
css: firefox ajoute la taille de la scollbar à un div	Probleme super etrange de tableaux superposés [resolu]
probleme appel date du jour dans BDD	probleme de dereferencement
Plus de sujets relatifs à : CGI: probleme html (firefox) et upload

Page générée en 0.122 secondes