erreur : 500 Internal server Error

**isac83** · 15/09/2008, 16h45

j'ai eu cette erreur après avoir exécuter ces script:

erreur:

Code :

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

1
2
3
4
5
6
7
8
Internal Server Error
 
The server encountered an internal error or misconfiguration and was unable to complete your request.
 
Please contact the server administrator, admin@adm.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.
 
More information about this error may be available in the server error log.
Apache/2.2.3 (Red Hat) Server at www.monsite.com Port 80

bonjour.html

Code :

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

1
2
3
4
5
6
<form action="http://www.monsite.com/bonjour.pl"
METHOD=POST>
<b>Quel est votre nom ?</b>
<input type=text name=nom>
<input type=submit value="Allons-y">
</form>

bonjour.pl

Code :

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

1
2
3
4
5
6
7
#!/usr/bin
use CGI_Lite; # Utilisation d'un module CGI
my $cgi=new CGI_Lite; # Nouveau CGI
my %in = $cgi->parse_form_data; # Lecture des parametres
print "Content-type: text/html\n\n"; # Header indispensable
# Corps du programme
print "<h1>Bonjour $in{'nom'} !</h1>";

merci d'avance pour l'aide !

Invité · 15/09/2008, 16h49

Salut,

erreur 500 -> il faut regarder dans le log d'erreur du serveur apache pour pouvoir avoir plus d'information à ce sujet....

**isac83** · 15/09/2008, 17h25

comment je peut regarder dans le log d'erreur du serveur apache ?
j'ai un accès ftp mais je ne trouve pas ce log !

Invité · 15/09/2008, 17h29

Le serveur linux est chez un hebergeur?

Si oui lequel?

si non as-tu un accès ssh au serveur?

**isac83** · 15/09/2008, 17h33

mon hébergeur est netissime.com

**Jedai** · 15/09/2008, 18h02

C'est volontaire d'utiliser "CGI_Lite" plutôt que CGI ou CGI::Simple ? Parce que je ne connais pas cette librairie, ce qui me semble un choix plutôt bizarre pour quelqu'un qui ne semble pas très habitué au CGI.

Par ailleurs ton HTML est plutôt minimal, pas de <head>, juste le contenu du <body>...

Tu as essayé :

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 -T
use strict; use warnings;
 
use CGI qw(:standard);
 
my $cgi=new CGI;
 
print header(),
   start_html('Ma page de test'),
   h1( 'Bonjour ', param('nom'), ' !'),
   end_html();
 
__END__

--
Jedaï

**isac83** · 15/09/2008, 19h43

j'ai un autre scripte de paiement ou je voulais ajouter le variable du formulaire au variable $parm

call_request.pl

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
#!/usr/bin/perl
 
payment_request();
 
sub payment_request
{
 
 print "Content-Type: text/html\n\n";
 print "";
 print "<HTML><HEAD><TITLE>MERCANET - Paiement Securise sur Internet</TITLE></HEAD>";
 print "<BODY bgcolor=#ffffff>";
 print "<Font color=#000000>";
 print "<center><H1>Test de l'API plug-in MERCANET</H1></center><br><br>";
 
 $parm="merchant_id=082584341411111";
 $parm=$parm . " merchant_country=fr";
$parm=$parm . " capture_mode=AUTHOR_CAPTURE";
#ajouter des variables du formulaire à $parm ! 
 
 $path_bin = "bin/request";
 
 open(INFO, $path_bin . " " . $parm . "|");
  for ($result = 0, $i = 0; <INFO>; $i++)
  {
      $result = $result . $_;
  }
 close(INFO);
 
 @tableau = split("!",$result);
 
 
 $code = $tableau[1];
 $error = $tableau[2];
 $message = $tableau[3];
 
  if (( $code eq "" ) && ( $error eq "" ) )
 	{
  	print "<BR><CENTER>erreur appel request</CENTER><BR>";
  	print "fichier request non trouve : $path_bin";
     	print "</body></html>";
 	return;
 	};
 
  if ( $code != 0 )
  	{
  	print "<BR><CENTER>erreur apel API de paiement</CENTER><BR>";
  	print "message erreur : $error";
     	print "</body></html>";
 	return;
	};
 
 print "<br><br>";
 
 print "$error";
 print "<br>";
 
 
 print "$message";
 print "<br>";
 
 print "</BODY>";
 print "</HTML>";
 
}

et merci d'avance pour votre aide !!!

erreur : 500 Internal server Error

Web Perl

Discussions similaires

Partager

Partager