Position Argos et PHP [exemple avec telnet]

Position Argos et PHP [exemple avec telnet] - PHP - Programmation

Marsh Posté le 22-10-2004 à 14:15:44    

Pour ceux que cela intéresse, voici un script qui récupère une position Argos directement sur les serveurs CLS.
Le compte utilisé est le compte de démo. Il vous faudra personaliser.
 
A+
 

Code :
  1. <?php
  2. //récupération des informations d'une balise Argos par connexion directe au centre de calcul CLS
  4. //variables du script
  5. $serveur = "netdis.cls.fr";  //serveur de connexion netdis.cls.fr
  6. $login = "EVERYONE";   //login au serveur
  7. $password = "ARGOS";   //password
  8. $commande = "COM/C,10,,ALL";  //commande à effectuer
  11. function telnet($serveur, $login, $mdp, $commande) {
  13. $close = "LOGOUT";
  15. // entetes TELNET
  16. $header1=chr(0xFF).chr(0xFB).chr(0x1F).chr(0xFF).chr(0xFB).
  17. chr(0x20).chr(0xFF).chr(0xFB).chr(0x18).chr(0xFF).chr(0xFB).
  18. chr(0x27).chr(0xFF).chr(0xFD).chr(0x01).chr(0xFF).chr(0xFB).
  19. chr(0x03).chr(0xFF).chr(0xFD).chr(0x03).chr(0xFF).chr(0xFC).
  20. chr(0x23).chr(0xFF).chr(0xFC).chr(0x24).chr(0xFF).chr(0xFA).
  21. chr(0x1F).chr(0x00).chr(0x50).chr(0x00).chr(0x18).chr(0xFF).
  22. chr(0xF0).chr(0xFF).chr(0xFA).chr(0x20).chr(0x00).chr(0x33).
  23. chr(0x38).chr(0x34).chr(0x30).chr(0x30).chr(0x2C).chr(0x33).
  24. chr(0x38).chr(0x34).chr(0x30).chr(0x30).chr(0xFF).chr(0xF0).
  25. chr(0xFF).chr(0xFA).chr(0x27).chr(0x00).chr(0xFF).chr(0xF0).
  26. chr(0xFF).chr(0xFA).chr(0x18).chr(0x00).chr(0x58).chr(0x54).
  27. chr(0x45).chr(0x52).chr(0x4D).chr(0xFF).chr(0xF0);
  29. $header2=chr(0xFF).chr(0xFC).chr(0x01).chr(0xFF).chr(0xFC).
  30. chr(0x22).chr(0xFF).chr(0xFE).chr(0x05).chr(0xFF).chr(0xFC).chr(0x21);
  32. // connexion
  33. $fp=pfsockopen($serveur,23);
  35. // envoi de l'entete telnet
  36. fputs($fp,$header1);
  37. sleep(1);
  38. fputs($fp,$header2);
  39. sleep(1);
  41. //recupération de la réponse
  42. $output.=fread($fp,128);
  43. $stat=socket_get_status($fp);
  44. $output.=fread($fp, $stat["unread_bytes"]);
  46. // login
  47. fputs($fp,$login."\r" );
  48. sleep(1);
  50. //recupération de la réponse
  51. $output.=fread($fp,128);
  52. $stat=socket_get_status($fp);
  53. $output.=fread($fp, $stat["unread_bytes"]);
  55. //password
  56. fputs($fp,$mdp."\r" );
  57. sleep(1);
  59. //recupération de la réponse
  60. $output.=fread($fp,128);
  61. $stat=socket_get_status($fp);
  62. $output.=fread($fp, $stat["unread_bytes"]);
  64. // envoi de la commande
  65. fputs($fp,$commande."\r" );     
  66. sleep(1);
  68. //lecture de la reponse
  69. $output.=fread($fp,128);
  70. $stat=socket_get_status($fp);
  71. $output.=fread($fp, $stat["unread_bytes"]);
  73. //logout
  74. fputs($fp,$close."\r" );
  75. fclose($fp);
  77. $result = strpos($output, $commande);
  79. if ($result) {
  80.  return $output;
  81. }
  82. else {
  83.  echo $output;
  84.  return FALSE;
  85. }
  86. }
  87. // Fin de la fonction de connexion TELNET
  88. ///////////////////////////////////////////////////////
  90. //appel des resultats par TELNET
  91. $reponse = telnet($serveur, $login, $password, $commande);
  93. //Test sans connexion
  94. //$reponse = "ARGOS READY /COM/C,10,,ALL PROG  \t  \r   10 10000  43.543N     10.398W  \t\n\t   3      \n\r\t      286/1322Z-286/0926 ( 3) 0.99811E+3               32   0.20000E+2   0.32000E+2 ";
  97. //si la réponse n'est pas complete, on recommence (jusque 2 essais)
  99. if (!$reponse) {
  100. sleep(3);
  101. $reponse = telnet($serveur, $login, $password, $commande);
  102. }
  103. if (!$reponse) {
  104. sleep(3);
  105. $reponse = telnet($serveur, $login, $password, $commande);
  106. }
  109. if ($reponse) {
  110. //traitement de la chaine retour
  111. if (strpos($reponse, "/".$commande)) {
  113.  //extraction des données
  114.  ereg("[0-9]{1,3}\.[0-9]{3}(N|S)", $reponse, $lat); //recup latitude
  115.  ereg("[0-9]{1,3}\.[0-9]{3}(W|E)", $reponse, $long); //recup longitude
  116.  ereg($long[0]."[ \t\n\r]+([0-9A-Z]{1})", $reponse, $classe); //recup classe de résultat
  117.  ereg("([0-9]{1,3})/([0-9]{4})Z-([0-9]{1,3})/([0-9]{4})", $reponse, $date); //recup date et heure de dernière localisation
  119.  //traitement de la date
  120.  $aujourdhui = strftime("%j" );  //numéro d'aujourd'hui dans le calendrier
  121.      //si le numero du jour de > à celui d'aujourd'hui, nous travaillons avec l'annee derniere
  122.  $annee = ($aujourdhui < $date[3]) ? intval(strftime("%Y" )) - 1 : intval(strftime("%Y" ));
  123.  $minute = substr($date[4], 2, 2);
  124.  $heure = substr($date[4], 0, 2);
  126.  $derniere_localisation = date("d/m/Y", mktime (0,0,0,1,$date[3],$annee))." $heure:$minute";
  129.  //enregistrement dans un fichier des donnees LAT et LONG
  130.  $fichier = "gps.html";
  131.  $fp = fopen($fichier, "wb" );
  132.  fputs($fp, "LAT : $lat[0] <br />LONG : $long[0]" );
  133.  fclose($fp);
  136.  echo "La derni&egrave;re localisation de la balise : $derniere_localisation GMT <br />LAT : $lat[0] <br />LONG : $long[0] <br />Classe de résultat : $classe[1]";
  138. }
  139. else {
  140.  echo "Erreur de r&eacute;cup&eacute;ration des donn&eacute;es";
  141. }
  142. }
  143. else {
  144. echo "Erreur de connexion avec le serveur Argos";
  145. }
  148. ?>


 
edit : ortho


Message édité par T509 le 22-10-2004 à 21:30:26

---------------
fermez vos topics résolus avec le tag [Résolu] en fin de titre. Merci !
Reply

Marsh Posté le 22-10-2004 à 14:15:44   

Reply

Marsh Posté le 22-10-2004 à 14:38:26    

oula je vais voir de chez moi qu'est ce que ca peut donner mais va peux etre bien marrant à utiliseR.

Reply

Sujets relatifs:

Leave a Replay

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