Discussion :

[Temporer]

Hello,

Je ne suis pas un grand expert du perl, mais je tombe sur un pb que je n'avais jamais eu: j'ai fait un script perl qui marche sans pb en ligne de commande, mais il me renvoi systématiquement une erreur 500 lorsque je passe sous un navigateur... J'ai bien vérifié les droits (chmod 0755) avec l'utilisateur correspondant pour mon apache...

De même j'ai rajouté:
use CGI::Carp qw(fatalsToBrowser);
Mais ça ne change en rien le détail donné par le navigateur.

Enin, dans l'erreur log je vois apparaitre ceci:
Premature end of script headers
Mais bon, vu que j'ai fais gaffe aux droits et que le fichier passe en ligne de comande, je suis perdu...



Je ne comprends pas...Une p'tite aide siou plait ;-)

Merci par avance.

[iblis]

Difficile de répondre sans voir ton code, au moins la partie CGI.

Es-tu sûr de bien imprimer le content-type (par exemple, comme ça : print "Content-type: text/html\n\n" ?

PS : N'oublie d'enlever use CGI::Carp qw(fatalsToBrowser); quand tu as fini de débugguer.

[Temporer]

Difficile de répondre sans voir ton code, au moins la partie CGI.

Es-tu sûr de bien imprimer le content-type (par exemple, comme ça : print "Content-type: text/html\n\n" ?

PS : N'oublie d'enlever use CGI::Carp qw(fatalsToBrowser); quand tu as fini de débugguer.

Voici mon 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
 
#!/usr/bin/perl
 
#use CGI::Carp qw(fatalsToBrowser);
use CGI;
$q = new CGI;
 
print "Content-type: text/html\n\n";
 
 
print $q->header( -type => "text/html",
    ),$q->start_html("test"),$q->end_html;
 
exit;

Et ça, ça ne marche pas, dans le navugateur j'ai une belle erreur 500 classique (donc j'ai l'impression que "use CGI::Carp qw(fatalsToBrowser);" ne sert à rien...) et dans les erreurs logs, j'ai toujours "Premature end of script headers: test.cgi"

Ici j'ai volontairement fait un fichier de test, et visiblement, même la chose la plus simple ne passe pas/plus...j'ai du faire une mauvaise manip :-p

Merci pour vos lumières ;-)

[Temporer]

Bon, en écrivant la réponse, je me suis dit que j'allais essayer, à tout hasard avec "#!/usr/bin/perl -w", et devinez quoi? ça marche maintenant !

Bizarre Bizarre, le même script la veille marchait sans...

Donc il s'agissait bien d'un pb avec SUEXEC...arrêtez-moi si je me trompe, ne serait-ce que pour ma culture personnelle?!

[djibril]

Je pense que c'est mieux ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use warnings;
use strict;
use Carp;
 
#use CGI::Carp qw(fatalsToBrowser);
use CGI;
my $q = new CGI;
 
print $q->header( -type => "text/html",
    ),$q->start_html("test"),$q->end_html;
 
__END__

pas besoin de

Code :

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

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

si tu utilise la méthode header.