[vdxml/php] formulaire et minitel...

formulaire et minitel... [vdxml/php] - XML/XSL - Programmation

Marsh Posté le 27-10-2003 à 11:34:22    

salut,
 
j'essaye de faire fonctionner un script php pour receuillir les resultats d'un formulaire sur un serveur minitel :
 
La page de formulaire

Code :
  1. <?xml version="1.0" encoding="ISO-8859-1"?>
  2. <!DOCTYPE VDXML SYSTEM "vdxml.dtd">
  4. <VDXML>
  5. <RACCOURCI FNCT="SOMMAIRE" URL=".....accueil.vdxml"/>
  7. <TEXTECADRE CFCADRE="JA" COULEURTRAIT="RO" CF="BC" X="2" Y="2" DX="38" DY="4" ALIGN="CENTER">
  8.  <AC TC="DL" CC="RO"/>
  9.   3615 AFDCE<BR/>
  10.  <AC TC="TN" CC="RO"/>
  11.   Laissez nous un message
  12. </TEXTECADRE>
  14. <TEXTE CC="NO" CF="CY" DY="1" DX="9" Y="7" X="1">
  15. NOM<ESP/>
  16. <ESP/>
  17. :</TEXTE>
  18. <TEXTE CC="NO" CF="CY" DY="1" DX="9" Y="8" X="1">
  19. EMAIL
  20. :</TEXTE>
  21. <TEXTE CC="NO" CF="CY" DY="1" DX="9" Y="9" X="1">
  22. ADRESSE
  23. :</TEXTE>
  24. <TEXTE CC="NO" CF="CY" DY="1" DX="9" Y="13" X="1">
  25. MESSAGE
  26. :</TEXTE>
  27. <TEXTECADRE CFCADRE="JA" COULEURTRAIT="RO" CF="BC" X="10" Y="20" DX="22" DY="3" ALIGN="CENTER">
  28. <AC CC="RO" TC="TN"/>ENVOI
  29. <AC CC="RO" TC="TN"/><ESP/>-<ESP/>
  30. <AC CC="RO" TC="TN"/>SOMMAIRE
  31. </TEXTECADRE>
  32. <FORM URL="script_message.php" REQ="GET">
  33. <SAISIE CD="." CC="NO" CF="CY" TAILLE="30" Y="7" X="9" NAME="nom"/>
  34. <SAISIE CD="." CC="NO" CF="CY" TAILLE="30" Y="8" X="9" NAME="email"/>
  35. <SAISIEML CD="." CC="NO" CF="CY" NBLIGNE="3" Y="10" X="1" NAME="adresse"/>
  36. <SAISIEML CD="." CC="NO" CF="CY" NBLIGNE="6" Y="14" X="1" NAME="message"/>
  37. </FORM>
  40. </VDXML>


et pour le script :

Code :
  1. <?php
  4. $dest="clodator@afdce.org";
  7. $referer= getenv("HTTP_REFERER" );
  10. $ok=1;
  12. if($ok){
  13. // envoi du resultat par email
  14. $sujet= "Form2Mail de ".$referer;
  15. $body.="Page d'origine : $referer\n";
  16. $body.="\n*** Valeurs resultats ***\n";
  18. if(count($HTTP_POST_VARS)){
  19.     while (list($key, $val) = each($HTTP_POST_VARS)){
  20.        $body.="$key : $val\n";
  21.     } 
  22. }
  24. if(count($HTTP_GET_VARS)){
  25.     while (list($key, $val) = each($HTTP_GET_VARS)){
  26.       $body.="$key : $val\n";
  27.     } 
  28. }
  30. $body.="*************************\n";
  31. if(!email("webmaster",$dest,$sujet,$body)){
  32.      print "erreur envoi email <br>";
  33. }
  35. // affiche le VDXML qui suit si succes
  36. ?>
  37. <?xml version="1.0" encoding="ISO-8859-1"?>
  38. <!DOCTYPE VDXML SYSTEM "vdxml.dtd">
  39. <VDXML>
  40. <RACCOURCI URL="http://www.afdce.org/minitel/accueil.vdxml" FNCT="SOMMAIRE"/>
  41. <TEXTE X="2" Y="2" DX="4" DY="22" CC="RO" CF="JA" CFCADRE="JA">
  42. <AC TC="DT"/><BR NBR="6"/>A<BR/>F<BR/>D<BR/>C<BR/>E</TEXTE>
  44. <TEXTE X="6" Y="2" DX="32" DY="2" ALIGN="CENTER" CC="RO" CF="JA" TC="TN">
  45. Bienvenue sur notre serveur minitel.</TEXTE>
  46. </VDXML>
  47. <?php
  48. }
  49. // affiche le VDXML qui suit si erreur
  51. else{
  52. ?>
  53. <?xml version="1.0" encoding="ISO-8859-1"?>
  54. <!DOCTYPE VDXML SYSTEM "vdxml.dtd">
  55. <VDXML>
  56. <RACCOURCI URL="http://www.afdce.org/minitel/accueil.vdxml" FNCT="SOMMAIRE"/>
  57. <TEXTE X="2" Y="2" DX="4" DY="22" CC="RO" CF="JA" CFCADRE="JA">
  58. <AC TC="DT"/><BR NBR="6"/>Z<BR/>E<BR/>R<BR/>O<BR/>E</TEXTE>
  60. <TEXTE X="6" Y="2" DX="32" DY="2" ALIGN="CENTER" CC="RO" CF="JA" TC="TN">
  61. Bienvenue sur notre serveur minitel.</TEXTE>
  62. </VDXML>
  64. <?php
  65. }
  66. ?>


c pas moi qui ai fait le script, c un script fourni par online que g essayé(sans succés) d'adapter au minitel
 
donc ben ca marche pas, et sur le minitel quand ca marche pas y a ecrit "incident momentané"...pas trop parlant pour trouver l'erreur
 
Merci pour votre aide
 

Reply

Marsh Posté le 27-10-2003 à 11:34:22   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed