Retour à Forum de programmation

Script CGI ne fonctionne pas.

  • ajdegans
  • Born
  • Born
  • No Avatar
  • Inscription: Sep 17, 2003
  • Messages: 4
  • Loc: netherlands
  • Status: Offline

Message Septembre 17th, 2003, 3:54 pm

Salut, im relativement nouveau pour les scripts CGI. J'ai donc pris certaines parties du code et des formulaires créés par e-mail.

On travaille! Mais la seconde ne fonctionnera pas. du CGI ci-dessous ce que ce fichier particulier:

Code: [ Select ]
#!/usr/bin/perl
$sendmail_location = "/usr/sbin/sendmail";

read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
@formpairs = split(/&/, $formbuffer);
foreach $formpair (@formpairs) {
    ($formname, $formvalue) = split(/=/, $formpair);
    $formvalue =~ tr/+/ /;
    $formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
  $formvalue =~ s/<([^>]|\n)*>//g;
    if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
    else { $FORM{$formname} = $formvalue; }
}


foreach $require (split(/\,/,$FORM{'require'})) {
if ($require eq "email" || $require eq "to") {
unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
$error .= "Error in $require.<BR>";
}
}
unless ($FORM{$require}) {
$error .= "Missing $require.<BR>";
}
}

unless ($FORM{'sendpage'}) {
$error .= "Missing confirmation page url<BR>";
}

if ($error) {
print "Content-type: text/html\n\n";
print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
exit;
}

if ($FORM{'jounaam'}) {
$yeshow = qq(
Naam, $FORM{'jounaam'}
);
}

if ($FORM{'pakket'}) {
$yeshow = qq(
Pakket, $FORM{'pakket'}
);
}

if ($FORM{'email'}) {
$yeshow = qq(
E-mail, $FORM{'email'}
);
}

if ($FORM{'adres'}) {
$yeshow = qq(
Adres, $FORM{'adres'}
);
}

if ($FORM{'postcode'}) {
$yeshow = qq(
Postcode, $FORM{'postcode'}
);
}

if ($FORM{'plaats'}) {
$yeshow = qq(
Plaats, $FORM{'plaats'}
);
}

if ($FORM{'land'}) {
$yeshow = qq(
Land, $FORM{'land'}
);
}

if ($FORM{'telefoon'}) {
$yeshow = qq(
Telefoon, $FORM{'telefoon'}
);
}

if ($FORM{'gsm'}) {
$yeshow = qq(
gsm, $FORM{'gsm'}
);
}

if ($FORM{'message'}) {
$yeshow = qw(
From, $FORM{'message'}
);
}

if ($FORM{'hoekomjehier'}) {
$yeshow = qq(
Hoe kom je hier, $FORM{'hoekomjehier'}
);
}

open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
print MAIL "From: $FORM{'jounaam'} <$FORM{'email'}>\n";
print MAIL "To: $FORM{'to'}\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL <<EOF;
$yeshow

$FORM{'message'}


EOF
close (MAIL);

print "Location: $FORM{'sendpage'}\n\n";
exit;
  1. #!/usr/bin/perl
  2. $sendmail_location = "/usr/sbin/sendmail";
  4. read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
  5. @formpairs = split(/&/, $formbuffer);
  6. foreach $formpair (@formpairs) {
  7.     ($formname, $formvalue) = split(/=/, $formpair);
  8.     $formvalue =~ tr/+/ /;
  9.     $formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
  10.   $formvalue =~ s/<([^>]|\n)*>//g;
  11.     if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
  12.     else { $FORM{$formname} = $formvalue; }
  13. }
  16. foreach $require (split(/\,/,$FORM{'require'})) {
  17. if ($require eq "email" || $require eq "to") {
  18. unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
  19. $error .= "Error in $require.<BR>";
  20. }
  21. }
  22. unless ($FORM{$require}) {
  23. $error .= "Missing $require.<BR>";
  24. }
  25. }
  27. unless ($FORM{'sendpage'}) {
  28. $error .= "Missing confirmation page url<BR>";
  29. }
  31. if ($error) {
  32. print "Content-type: text/html\n\n";
  33. print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
  34. exit;
  35. }
  37. if ($FORM{'jounaam'}) {
  38. $yeshow = qq(
  39. Naam, $FORM{'jounaam'}
  40. );
  41. }
  43. if ($FORM{'pakket'}) {
  44. $yeshow = qq(
  45. Pakket, $FORM{'pakket'}
  46. );
  47. }
  49. if ($FORM{'email'}) {
  50. $yeshow = qq(
  51. E-mail, $FORM{'email'}
  52. );
  53. }
  55. if ($FORM{'adres'}) {
  56. $yeshow = qq(
  57. Adres, $FORM{'adres'}
  58. );
  59. }
  61. if ($FORM{'postcode'}) {
  62. $yeshow = qq(
  63. Postcode, $FORM{'postcode'}
  64. );
  65. }
  67. if ($FORM{'plaats'}) {
  68. $yeshow = qq(
  69. Plaats, $FORM{'plaats'}
  70. );
  71. }
  73. if ($FORM{'land'}) {
  74. $yeshow = qq(
  75. Land, $FORM{'land'}
  76. );
  77. }
  79. if ($FORM{'telefoon'}) {
  80. $yeshow = qq(
  81. Telefoon, $FORM{'telefoon'}
  82. );
  83. }
  85. if ($FORM{'gsm'}) {
  86. $yeshow = qq(
  87. gsm, $FORM{'gsm'}
  88. );
  89. }
  91. if ($FORM{'message'}) {
  92. $yeshow = qw(
  93. From, $FORM{'message'}
  94. );
  95. }
  97. if ($FORM{'hoekomjehier'}) {
  98. $yeshow = qq(
  99. Hoe kom je hier, $FORM{'hoekomjehier'}
  100. );
  101. }
  103. open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
  104. print MAIL "From: $FORM{'jounaam'} <$FORM{'email'}>\n";
  105. print MAIL "To: $FORM{'to'}\n";
  106. print MAIL "Subject: $FORM{'subject'}\n\n";
  107. print MAIL <<EOF;
  108. $yeshow
  110. $FORM{'message'}
  113. EOF
  114. close (MAIL);
  116. print "Location: $FORM{'sendpage'}\n\n";
  117. exit;


Peut-être que quelqu'un peut trouver le code erroné. Moi je pense que la partie avec:
Code: [ Select ]
if ($FORM{'jounaam'}) {
$yeshow = qq(
Naam, $FORM{'jounaam'}
);
}

if ($FORM{'pakket'}) {
$yeshow = qq(
Pakket, $FORM{'pakket'}
);
}

if ($FORM{'email'}) {
$yeshow = qq(
E-mail, $FORM{'email'}
);
}

if ($FORM{'adres'}) {
$yeshow = qq(
Adres, $FORM{'adres'}
);
}

if ($FORM{'postcode'}) {
$yeshow = qq(
Postcode, $FORM{'postcode'}
);
}

if ($FORM{'plaats'}) {
$yeshow = qq(
Plaats, $FORM{'plaats'}
);
}

if ($FORM{'land'}) {
$yeshow = qq(
Land, $FORM{'land'}
);
}

if ($FORM{'telefoon'}) {
$yeshow = qq(
Telefoon, $FORM{'telefoon'}
);
}

if ($FORM{'gsm'}) {
$yeshow = qq(
gsm, $FORM{'gsm'}
);
}

if ($FORM{'message'}) {
$yeshow = qw(
From, $FORM{'message'}
);
}

if ($FORM{'hoekomjehier'}) {
$yeshow = qq(
Hoe kom je hier, $FORM{'hoekomjehier'}
);
}
  1. if ($FORM{'jounaam'}) {
  2. $yeshow = qq(
  3. Naam, $FORM{'jounaam'}
  4. );
  5. }
  7. if ($FORM{'pakket'}) {
  8. $yeshow = qq(
  9. Pakket, $FORM{'pakket'}
  10. );
  11. }
  13. if ($FORM{'email'}) {
  14. $yeshow = qq(
  15. E-mail, $FORM{'email'}
  16. );
  17. }
  19. if ($FORM{'adres'}) {
  20. $yeshow = qq(
  21. Adres, $FORM{'adres'}
  22. );
  23. }
  25. if ($FORM{'postcode'}) {
  26. $yeshow = qq(
  27. Postcode, $FORM{'postcode'}
  28. );
  29. }
  31. if ($FORM{'plaats'}) {
  32. $yeshow = qq(
  33. Plaats, $FORM{'plaats'}
  34. );
  35. }
  37. if ($FORM{'land'}) {
  38. $yeshow = qq(
  39. Land, $FORM{'land'}
  40. );
  41. }
  43. if ($FORM{'telefoon'}) {
  44. $yeshow = qq(
  45. Telefoon, $FORM{'telefoon'}
  46. );
  47. }
  49. if ($FORM{'gsm'}) {
  50. $yeshow = qq(
  51. gsm, $FORM{'gsm'}
  52. );
  53. }
  55. if ($FORM{'message'}) {
  56. $yeshow = qw(
  57. From, $FORM{'message'}
  58. );
  59. }
  61. if ($FORM{'hoekomjehier'}) {
  62. $yeshow = qq(
  63. Hoe kom je hier, $FORM{'hoekomjehier'}
  64. );
  65. }


init est la chose la badass mais je n'ai aucune idée de fixer ce gif "alt =":(" title =" Sad "/>

Si quelqu'un pouvait aider à :(

Merci d'avance
  • Anonymous
  • Bot
  • No Avatar
  • Inscription: 25 Feb 2008
  • Messages: ?
  • Loc: Ozzuland
  • Status: Online

Message Septembre 17th, 2003, 3:54 pm

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de l’utilisateur
  • Inscription: Déc 20, 2002
  • Messages: 8922
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Message Septembre 17th, 2003, 11:40 pm

Lorsque vous exécutez ce script, vous faire des erreurs? ou qu'est-ce qui ne fonctionne pas?
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Inscription: Sep 17, 2003
  • Messages: 4
  • Loc: netherlands
  • Status: Offline

Message Septembre 18th, 2003, 8:30 am

Je me procurer cette page d'erreur

Code: [ Select ]
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, helpdesk@flexwebhosting.nl 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/1.3.27 Server at www.zerocom.nl Port 80
  1. Internal Server Error
  2. The server encountered an internal error or misconfiguration and was unable to complete your request.
  3. Please contact the server administrator, helpdesk@flexwebhosting.nl and inform them of the time the error occurred, and anything you might have done that may have caused the error.
  5. More information about this error may be available in the server error log.
  9. --------------------------------------------------------------------------------
  11. Apache/1.3.27 Server at www.zerocom.nl Port 80


Je l'avais en quelque sorte de travail, mais alors tous les champs de formulaire est resté blanc. si l'ensemble du formulaire a été d'aucune utilité...il ne s'est pas présenté dans le courriel. Donc, fondamentalement, il funcioned mais seulement une partie...
  • bestempire
  • Newbie
  • Newbie
  • No Avatar
  • Inscription: Sep 18, 2003
  • Messages: 7
  • Status: Offline

Message Septembre 18th, 2003, 10:17 am

Vérifiez si vous avez correctement CHMODed le fichier et le chemin d'accès à Perl est à droite
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Inscription: Sep 17, 2003
  • Messages: 4
  • Loc: netherlands
  • Status: Offline

Message Septembre 18th, 2003, 11:35 am

i vérifié chmod

sa:-rwxr-xr-x (755)

Dans le manuel d'un autre script, il fonctionne...

En outre, le chemin de perl est correcte :)
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de l’utilisateur
  • Inscription: Déc 20, 2002
  • Messages: 8922
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Message Septembre 18th, 2003, 7:16 pm

Avez-vous accès à votre serveur de log d'erreur? Plus d'information devrait être là que d'expliquer exactement pourquoi il ne fonctionne pas.
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Inscription: Sep 17, 2003
  • Messages: 4
  • Loc: netherlands
  • Status: Offline

Message Septembre 19th, 2003, 1:50 pm

J'ai trouvé ça au error_log

Code: [ Select ]
syntax error at bestelformulier.cgi line 97, near ")("
Execution of bestelformulier.cgi aborted due to compilation errors.

[Thu Sep 18 17:19:10 2003] [error] [client 62.131.20.6] Premature end of script headers: /home/virtual/site59/fst/var/www/cgi-bin/bestelformulier.cgi
  1. syntax error at bestelformulier.cgi line 97, near ")("
  2. Execution of bestelformulier.cgi aborted due to compilation errors.
  4. [Thu Sep 18 17:19:10 2003] [error] [client 62.131.20.6] Premature end of script headers: /home/virtual/site59/fst/var/www/cgi-bin/bestelformulier.cgi


Je suppose que j'ai écrit le. cgi tort, mais je n'ai aucune idée whats wrong depuis que je connais à peine cgi...:)

Page 1 sur 1

Afficher de l'information

  • Total des messages de ce sujet: 7 messages
  • Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 296 invités
  • Vous ne pouvez pas poster de nouveaux sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas éditer vos messages
  • Vous ne pouvez pas supprimer vos messages
  • Vous ne pouvez pas joindre des fichiers
 
 

© 2011 Unmelted, LLC. Ozzu® est une marque déposée de Unmelted, LLC