URL: https://linuxfr.org/forums/programmation-perl/posts/probleme-de-scripte
Title: probleme de scripte
Authors: debutanteP
Date: 2006年02月24日T22:32:08+01:00
Tags: 
Score: 0
voilà je suis perdue, j'ai besoin d'aide!!! j 'ai créé un formulaire d'enquete sur le logiciel modalisa. j'ai ensuite téléchargé sur mon serveur distant le fichier HTML du formulaire et un scripte cgi (vers lequel le bouton d'envoi du formulaire pointe)placé dans le repertoire cgi-bin. ça marche pas!! 
détails du fichier .pl placé dans le repertoire cgi-bin : 
 
#!/usr/bin/perl 
 
if($ENV{'REQUEST_METHOD'} eq 'POST') 
{ 
read(STDIN, $Data, $ENV{'CONTENT_LENGTH'}); 
 
# "modarep_perl.txt" est le nom du fichier dans lequel les réponses sont enregistrées 
# Vous pouvez le changer à votre guise en respectant 
# les conventions d'écriture de l'environnement d'exécution 
} 
 
if (open (FICHIER, ">>modarep_perl.txt") != false) 
{ 
print FICHIER "REMOTE_ADDR:", $ENV{"REMOTE_ADDR"},";"; 
print FICHIER "REMOTE_HOST:", $ENV{"REMOTE_HOST"},";"; 
print FICHIER "\n"; 
print FICHIER $Data; 
print FICHIER "\n"; 
close (FICHIER); 
} 
 
# ======Sortie vers le navigateur : 
# (vous pouvez modifier le texte en utilisant la syntaxe HTML) 
 
print "Content-type: text/html\n\n"; 
 
print <<html_fin; 
 
 
Merci 
 
 
 
**Votre réponse est enregistrée. Merci de votre participation !** 
 
 
 
 
html_fin 
} 
else # ======erreur fichier 
{ 
# Sortie vers le navigateur : 
print "Content-type: text/html\n\n"; 
print <<html_fin; 
 
 
Erreur 
 
 
**Impossible d'écrire les réponses sur le serveur** 
 
 
html_fin 
} 
} 
exit; 
 
 
Voici le message que j'ai quand je valide le formulaire : 
'D:\XXX\XXX.com\XXX\cgi-bin\modacgi.pl' script produced no output 
 
et voici ce que contient mon bouton "envoyer" du formulaire : 
<FORM METHOD = "POST" ACTION = "/cgi-bin/modacgi.pl" ENCTYPE=application/x-www-form-urlencoded> 
 
 
Alors vraiment, si quelque peut m'aider, je lui serais extremement reconnaissante!! 
Merci Merci!!!!
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/probleme-de-scripte.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/probleme-de-scripte.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>