fork(1) download
copy 
  1. <?php
  2. /* Fichier PHP: "gestioncommentaires.php"
  3. +------------------------------------------------------------------------------+
  4. | Extension pour une fonction "ajout de commentaires" |
  5. | Tedheu 2009, version 1.0 (fr), mise à jour le 09 novembre 2009 |
  6. | Module script PHP de gestion des commentaires |
  7. | fonctionne de paire avec le module JavaScript "commentaires.js" |
  8. +------------------------------------------------------------------------------+
  9. */
  10. /*========= Paramètres de personnalisation ===================================*/
  11. // Chaque message a un parametre de validation (index 'v' du tableau $Message)
  12. // avec une valeur de 0 le message est stocké mais ne sera pas affiché
  13. // avec une valeur de 1 le message est stocké et sera affiché
  14. // avec une valeur de -1 le message sera retiré du fichier de stockage
  15. $validmesdef= 1; // validation par défaut des messages
  16. //
  17. /*========= Variables (initialisation) =======================================*/
  18. $jeton= NULL; // normalement communiqué par variables GET
  19. $sujet= NULL; // normalement communiqué par variables GET
  20. $action= NULL; // normalement communiqué par variables GET
  21. //---
  22. $entetedef= '|=== Fichier de commentaires, T² 09 novembre 2009 - version 1.0 ===|'."\n";
  23. $nouveau= false; // message pas nouveau par défaut
  24. $imesnou= -1; // indice nouveau message mis à -1
  25. //--- messages => tableau de tableaux
  26. // le visteur envoi un commentaire avec d'autres informations l'ensemble forme un message
  27. $Message= array();
  28. $Message['*']= array(); // * > jeton
  29. $Message['s']= array(); // s > sujet
  30. $Message['v']= array(); // v > validation, -1, 0 ou 1 , 0 > non validé, -1 > rejeté
  31. $Message['i']= array(); // i > numéro IP
  32. $Message['d']= array(); // d > date du jour
  33. $Message['h']= array(); // h > heure
  34. $Message['n']= array(); // n > nom
  35. $Message['c']= array(); // c > commentaire
  36. $Message['r']= array(); // r > réservé pour usage futur
  37. //--- deux actions possibles: lecture, écriture
  38. $Actionliste= array('lecture','ecriture');
  39. //--- données pour traitement de sécurisation
  40. $tagspermis= '<b><i><u><a><br><small><img>';
  41. $Evenements= array('onAbort','onBlur','onChange','onClick','onDbclick','onDragdrop','onError','onFocus','onKeydown','onKeypress','onKeyup','onLoad','onMouseOver','onMouseOut','onReset','onResize','onSelect','onSubmit','onUnload');
  42. foreach ($Evenements as $evenement){$Clefs[]= '/'.$evenement.'/i';}
  43. $Car_nr= array("\n\r","\r\n","\n","\r");
  44. $Carspe= array('&','ç','¨','£','µ','§','²','³','¤','¿','±');
  45. array_push($Carspe,'à','â','ä','ã','é','è','ê','ë','î','ï','ô','ö','õ','ù','û','ü');
  46. array_push($Carspe,'Â','Ä','Ã','Ê','Ë','Î','Ï','Ô','Ö','Õ','Û','Ü');
  47. array_push($Carspe,'ñ','Ñ');
  48. foreach ($Carspe as $car){$Carchgs[]= htmlentities($car);}
  49. array_push($Carspe,'%','^');
  50. array_push($Carchgs,'%','^');
  51. //-----------------------------------------------------------------------------/
  52. /*========= Récupération d'informations ======================================*/
  53. //--- informations générales
  54. $ipc=$_SERVER['REMOTE_ADDR']; // numéro IP du visiteur
  55. $jour= date('d.m.Y');
  56. $heure= date('H:i');
  57. //--- variables passées par méthode GET
  58. (!empty($_GET['sujet']))? $sujet=$_GET['sujet']: $sujet='aucun';
  59. (!empty($_GET['action']))? $action=$_GET['action']: $action='rien';
  60. (!empty($_GET['jeton']))? $jeton= $_GET['jeton']: $jeton= '0';
  61. //--- traitements des informations GET entrantes
  62. $sujet= substr(strip_tags($sujet),0,30);
  63. $sujet_r= substr(strip_tags($sujet),0,10);
  64. if (!in_array($action,$Actionliste)) $action='rien';
  65. $jeton= preg_replace('/[^0-9]/','',$jeton); // que des chiffres
  66. $jeton= substr($jeton,0,10);
  67. //-----------------------------------------------------------------------------/
  68. /*========= Validation de la requête =========================================*/
  69. $valide= true;
  70. if ($sujet=='aucun') $valide= false;
  71. if ($action=='rien') $valide= false;
  72. if ($jeton=='0') $valide= false;
  73. if (!$valide) {
  74. // arret du script par sécurité si requête non valide
  75. exit;
  76. }
  77. /*========= Créations de fichiers si inexistants =============================*/
  78. $nomfichier_verrou= 'verrou_'.$sujet_r.'.txt';
  79. $nomfichier_messag= 'messages_'.$sujet_r.'.txt';
  80. if (!file_exists($nomfichier_verrou)) touch($nomfichier_verrou);
  81. if (!file_exists($nomfichier_messag)){
  82. $pf0=fopen($nomfichier_messag,'w');
  83. fwrite($pf0,$entetedef);
  84. fclose($pf0);
  85. }
  86. //-----------------------------------------------------------------------------/
  87. //
  88. /*========= Mode écriture ($action= 'ecriture') ==============================*/
  89. if ($action=='ecriture'){
  90. $nouveau= true; // on suppose un nouveau message
  91. //
  92. //=== variables passées par méthode POST ----------------------------------/
  93. (!empty($_POST['nom']))? $nom= $_POST['nom']: $nom= 'inconnu';
  94. (!empty($_POST['message']))? $commentaire= $_POST['message']: $commentaire= '';
  95. //--- traitements des informations POST entrantes
  96. $nom= strip_tags($nom);
  97. $nom= str_replace($Car_nr,'',$nom);
  98. $nom= htmlentities(substr($nom,0,20));
  99. $commentaire= strip_tags($commentaire,$tagspermis);
  100. $commentaire= preg_replace($Clefs,'none',$commentaire);
  101. $commentaire= str_replace($Carspe,$Carchgs,$commentaire);
  102. $commentaire= str_replace($Car_nr,'<br>',$commentaire);
  103. $commentaire= preg_replace('/\\\/','',$commentaire); // plus d'anti-slash
  104. //-------------------------------------------------------------------------/
  105. //=== accès au fichier des messages en lecture/écriture -------------------/
  106. //--- mise en place du verrou -------------------------
  107. $deb= time(); $tempo= 2; $erreur= '';
  108. do{
  109. $verrou= file($nomfichier_verrou);
  110. if (count($verrou)==0) break;
  111. }while((time()-$deb)<=$tempo);
  112. if (count($verrou)!=0){ // (le verrou est resté bloqué)
  113. $erreur.= '-- blocage-verrou --';
  114. if ((time()-trim($verrou[0]))>=10){
  115. $erreur.= ' -- deblocage-force --';
  116. $pfv=fopen($nomfichier_verrou,'w');
  117. fwrite($pfv,'');
  118. fclose($pfv);
  119. }
  120. }
  121. else{ // (si pas d'erreur fermeture du verrou)
  122. $pfv=fopen($nomfichier_verrou,'w');
  123. fwrite($pfv,time());
  124. fclose($pfv);
  125. }
  126. if ($erreur!='') die('ERREUR: '.$erreur);
  127. //-----------------------------------------------------
  128. //--- lecture du fichier de messages ligne par ligne
  129. $pf1= fopen($nomfichier_messag,'r');
  130. $n=-1;
  131. while (!feof($pf1)) $ligne[++$n]=fgets($pf1,1024);
  132. fclose($pf1);
  133. $nlgn= $n;
  134. //-------------------------------------------------------------------------/
  135. //=== analyse du contenu et traitement ------------------------------------/
  136. $entete=$ligne[0]; // la première ligne est une entête
  137. $imesnou= 0; // indice nouveau message = 0
  138. if ($nouveau){
  139. $Message['*'][0]= $jeton;
  140. $Message['s'][0]= $sujet;
  141. $Message['v'][0]= $validmesdef;
  142. $Message['i'][0]= $ipc;
  143. $Message['d'][0]= $jour;
  144. $Message['h'][0]= $heure;
  145. $Message['n'][0]= $nom;
  146. $Message['c'][0]= $commentaire;
  147. $Message['r'][0]= 'RFU';
  148. }
  149. //--- traitement ligne par ligne
  150. $imes= 1;
  151. $jeton_tst= false; $ipc_tst= false; $heure_tst= false;
  152. for ($ilgn=1; $ilgn<=$nlgn; $ilgn++){
  153. $clef= substr($ligne[$ilgn],0,3);
  154. $contenu= str_replace($Car_nr,'',substr($ligne[$ilgn],3));
  155. switch($clef){
  156. case '\\*\\': // jeton
  157. $Message['*'][$imes]= $contenu;
  158. ($jeton==$contenu)? $jeton_tst= true: $jeton_tst= false; break;
  159. case '\\s\\':
  160. $Message['s'][$imes]= $contenu;
  161. case '\\v\\':
  162. $Message['v'][$imes]= $contenu;
  163. case '\\i\\':
  164. $Message['i'][$imes]= $contenu;
  165. ($ipc==$contenu)? $ipc_tst= true: $ipc_tst= false; break;
  166. case '\\d\\':
  167. $Message['d'][$imes]= $contenu;
  168. ($jour==$contenu)? $d_tst= true: $d_tst= false; break;
  169. case '\\h\\':
  170. $Message['h'][$imes]= $contenu;
  171. $mindif= substr($heure,3,4) - substr($contenu,3,4);
  172. ($mindif<=5)? $heure_tst= true: $heure_tst= false;
  173. $heudif= substr($heure,0,2) - substr($contenu,0,2);
  174. if ($heudif!=0) $heure_tst= false;
  175. break;
  176. case '\\n\\':
  177. $Message['n'][$imes]= $contenu; break;
  178. case '\\c\\':
  179. $Message['c'][$imes]= $contenu; break;
  180. case '\\r\\':
  181. $Message['r'][$imes]= $contenu; break;
  182. case '\\-\\':
  183. // fin de message
  184. if ($nouveau AND $jeton_tst AND $ipc_tst AND $heure_tst){
  185. // le même que le nouveau
  186. $imesnou= $imes; // indice nouveau message
  187. $Message['h'][$imes]= $heure;
  188. $Message['n'][$imes]= $nom;
  189. $Message['c'][$imes]= $commentaire;
  190. }
  191. $imes++; // au suivant
  192. $jeton_tst= false; $ipc_tst= false; $heure_tst= false;
  193. break;
  194. }
  195. }
  196. $nmes= $imes-1;
  197. //--- réduction des messages si le champ $commentaire est vide
  198. if ($commentaire==''){
  199. $Message['v'][$imesnou]= -1;
  200. $nouveau= 0;
  201. }
  202. //-------------------------------------------------------------------------/
  203. //=== reecriture du fichier de messages -----------------------------------/
  204. $pf2=fopen($nomfichier_messag,'w');
  205. fwrite($pf2,$entete);
  206. ($nouveau AND ($imesnou==0))? $imesdeb=0: $imesdeb=1;
  207. for ($imes=$imesdeb; $imes<=$nmes; $imes++){
  208. if ($Message['v'][$imes]== -1) continue; // '-1'> le message est effacé
  209. fwrite($pf2,'\\*\\'.$Message['*'][$imes]."\n");
  210. fwrite($pf2,'\\s\\'.$Message['s'][$imes]."\n");
  211. fwrite($pf2,'\\v\\'.$Message['v'][$imes]."\n");
  212. fwrite($pf2,'\\i\\'.$Message['i'][$imes]."\n");
  213. fwrite($pf2,'\\d\\'.$Message['d'][$imes]."\n");
  214. fwrite($pf2,'\\h\\'.$Message['h'][$imes]."\n");
  215. fwrite($pf2,'\\n\\'.$Message['n'][$imes]."\n");
  216. fwrite($pf2,'\\c\\'.$Message['c'][$imes]."\n");
  217. fwrite($pf2,'\\r\\'.$Message['r'][$imes]."\n");
  218. fwrite($pf2,'\\-\\----------'."\n");
  219. }
  220. fclose($pf2);
  221. //-------------------------------------------------------------------------/
  222. //=== libération du verrou ------------------------------------------------/
  223. $pfv=fopen($nomfichier_verrou,'w');
  224. fwrite($pfv,'');
  225. fclose($pfv);
  226. //-------------------------------------------------------------------------/
  227. }// $action== 'ecriture'
  228. //
  229. /*========= Mode lecture ($action= 'lecture') ================================*/
  230. if ($action=='lecture'){
  231. $nouveau= false; // pas de nouveau message
  232. //--- lecture du fichier de messages lignes par lignes
  233. $pf1= fopen($nomfichier_messag,'r');
  234. $n=-1;
  235. while (!feof($pf1)) $ligne[++$n]=fgets($pf1,1024);
  236. fclose($pf1);
  237. $nlgn= $n;
  238. //-------------------------------------------------------------------------/
  239. //=== analyse du contenu et traitement ------------------------------------/
  240. $entete=$ligne[0]; // la première ligne est une entête
  241. //--- traitement ligne par ligne
  242. $imes= 1;
  243. for ($ilgn=1; $ilgn<=$nlgn; $ilgn++){
  244. $clef= substr($ligne[$ilgn],0,3);
  245. $contenu= substr($ligne[$ilgn],3);
  246. $contenu= str_replace($Car_nr,'',$contenu);
  247. switch($clef){
  248. case '\\v\\':
  249. $Message['v'][$imes]= $contenu; break;
  250. case '\\d\\':
  251. $Message['d'][$imes]= $contenu; break;
  252. case '\\h\\':
  253. $Message['h'][$imes]= $contenu; break;
  254. case '\\n\\':
  255. $Message['n'][$imes]= $contenu; break;
  256. case '\\c\\':
  257. $Message['c'][$imes]= $contenu; break;
  258. case '\\-\\': // fin de message
  259. $imes++; // au suivant
  260. break;
  261. }
  262. }
  263. $nmes= $imes-1;
  264. }// $action== 'lecture'
  265. //-----------------------------------------------------------------------------//
  266.  
  267. /*========= Affichage ========================================================*/
  268. if ($nouveau){
  269. $imes= $imesnou;
  270. echo('<hr><fieldset>');
  271. echo('<legend>Votre nouveau message est enregistré : <i>( vous pouvez encore le modifier )</i></legend>');
  272. echo(' Nom: '.$Message['n'][$imes].'<br>');
  273. echo($Message['c'][$imes]);
  274. echo('</fieldset>');
  275. }
  276. //
  277. echo('<hr>');
  278. for ($imes=1; $imes<=$nmes; $imes++){
  279. if ($Message['v'][$imes]== 0) continue; // '0'> le message n'est pas affiché
  280. if ($imes != $imesnou){
  281. echo('<b>Nom :</b> '.$Message['n'][$imes].'  ');
  282. echo('<b>Date :</b> '.$Message['d'][$imes].' '.$Message['h'][$imes].'<br>');
  283. echo($Message['c'][$imes].'<br>');
  284. echo('<hr>'."\n");
  285. }
  286. }
  287. //-----------------------------------------------------------------------------/
  288. ?>
Success #stdin #stdout #stderr 0.01s 20568KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
PHP Notice:  Undefined index: REMOTE_ADDR in /home/hclKyK/prog.php on line 54
https://ideone.com/GQS0Si
language:
PHP (php 7.3.5)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!