Script CGI : Afficher le résultat dans Firefox

**fredob** · 13/09/2008, 03h16

Bonjour,

Voici le code de mon script :

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
 
#!/usr/bin/perl 
use DBI;
use CGI;
 
$co = new CGI;
print $co->header;
 
$database="***";
$hostname="****";
$login = "***";
$mdp = "***";
 
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec connexion";
 
$requete = "SELECT * FROM **** ";
$sth = $dbh->prepare($requete);
 
$sth->execute();
 
while(my @row = $sth->fetchrow_array){
print $row['0'];
}
 
$sth -> finish;
$dbh -> disconnect

Le code fonctionne parfaitement en executant cette commande en shell :
"perl -w sql.cgi"

Lorsque je le test sur Firefox 3.0, Rien ne s'affiche Pourquoi ?

Merci

**Jedai** · 13/09/2008, 18h49

Envoyé par fredob

Le code fonctionne parfaitement en executant cette commande en shell :
"perl -w sql.cgi"

Lorsque je le test sur Firefox 3.0, Rien ne s'affiche Pourquoi ?

Que veux-tu dire par le "tester sous Firefox" ? Tu as bien un serveur web, n'est-ce pas ?

--
Jedaï

**fredob** · 13/09/2008, 20h47

Oui j'ai un serveur Web sous debian
=> Apache 2
=> Mysql Server 5
=> PHP 5

Je veux dire par "je test sur firefox" que j'appelle le script en tapant l'url http://192.168.2.166/cgi-bin/sql.cgi

Les scripts en php fonctionnent parfaitement bien et les connexions mysql en php fonctionnent bien également.

Les droits sur le fichier CGI sont : 777

**Jedai** · 13/09/2008, 21h28

Rien du tout ne s'affiche ? Même pas une erreur ?
Que disent les logs d'Apache ?

Quelques petites erreurs à corriger également :

Code :

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

1
2
3
4
5
6
7
print $co->start_html('Page de test');
 
while(my @row = $sth->fetchrow_array){
   print $co->p($row[0]);
}
 
print $co->end_html;

A moins que tu ne veuilles renvoyer du texte brut, mais dans ce cas il faut le dire dans le header.

--
Jedaï

**fredob** · 13/09/2008, 21h44

Comment on l'indique dans le header ?

Code :

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

print "content-type : text/html\n\n";

Aucune erreur dans les logs.

1 fois sur 3 ceci s'affiche :

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
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator,
 webmaster@localhost and inform them of the time the error occurred,
and anything you might have done that may have
caused the error.</p>
<p>More information about this error may be available
in the server error log.</p>
<hr>
<address>Apache/2.2.3 (Debian) PHP/5.2.0-8+etch11 Server at 192.168.2.166 Port 80</address>
</body></html>

Il faut indiquer quelque chose si on utilise "start_html" ?

**Jedai** · 14/09/2008, 01h18

Il serait souhaitable que tu lises un peu la documentation du module CGI...
Par ailleurs, tu ne dois pas regarder les bons logs, ou tu ne m'as pas montré exactement le script que tu utilises.

--
Jedaï

**fredob** · 14/09/2008, 14h13

Le scrit est telquel celui que j'utilise.

Je vais lire un peut et je vous dirais quoi.

**fredob** · 14/09/2008, 14h31

Voilà, j'ai enfin trouver une solution.
Tout fonctionne bien.

J'ai tout simplement remplacé :

Code :

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

1
2
3
while(my @row = $sth->fetchrow_array){
print $row['0'];
}

par :

Code :

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

1
2
3
4
5
6
7
8
9
10
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Répertoires de modules permis</title>\n";
print "</head><body>\n";
 
while(my @row = $sth->fetchrow_array){
   print $row[0]."<br>";
}
 
print "</body></html>\n";

Maintenant tout s'affiche dans Firefox, IE, ...

Merci pour l'aide

**Jedai** · 14/09/2008, 15h15

Ca m'étonnerait que ça marche si bien si tu as laissé la ligne

Code :

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

print $co->header;

Parce que ce que tu as écrit se résume à :

Code :

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

1
2
3
4
5
6
7
8
print $co->header,
   $co->start_html('Répertoires de modules permis');
 
while(my @row = $sth->fetchrow_array){
   print $row[0]."<br>";
}
 
print $co->end_html;

Je te conseille plutôt d'utiliser ce code (et n'oublie pas qu'il ne faut écrire qu'un seul header par script), il est plus court et plus facile à étendre.

--
Jedaï

Script CGI : Afficher le résultat dans Firefox

Web Perl

Discussions similaires

Partager

Partager