Mercurial > defr > DualBlog

annotate tb_send.php @ 31:2d98421d43da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Le formulaire d'ajout de commentaire vient remplacer <tr:commentForm /> Avant, il était considéré comme un post en plus dans le document, ce qui ne permettait pas de l'activer ou de le desactiver selon les différents modèles de squelettes (embettant pour la feed Atom par exemple)
author Franck Deroche <webmaster@defr.org>
date Mon, 05 Nov 2007 08:59:51 +0100
parents 629389204276
children
rev   line source
webmaster@0 1 <?php
webmaster@0 2 include("classes.php");
webmaster@0 3 $Data = new DataAccess();
webmaster@0 4 $Data->Query("SELECT * FROM Mess WHERE num_mess=255");
webmaster@0 5 $row = $Data->GetRow();
webmaster@0 6 $tbAddress = "http://www.defr.org/blog/tb.php?id=255";
webmaster@0 7 $ar_tbAddress = parse_url($tbAddress);
webmaster@0 8 if(!array_key_exists('port', $ar_tbAddress)) $ar_tbAddress['port'] = 80;
webmaster@0 9 if(!array_key_exists('path', $ar_tbAddress)) $ar_tbAddress['path'] = '/';
webmaster@0 10 if(array_key_exists('query', $ar_tbAddress)) $ar_tbAddress['query'] = '?' . $ar_tbAddress['query'];
webmaster@0 11 var_export($ar_tbAddress);
webmaster@0 12 $fp = fsockopen($ar_tbAddress['host'], 80, $errno, $errstr, 15);
webmaster@0 13 if($fp) {
webmaster@0 14 $genToSend = "POST {$ar_tbAddress['path']}{$ar_tbAddress['query']} HTTP/1.0\r\n";
webmaster@0 15 $genToSend .= "Host: {$ar_tbAddress['host']}\r\n";
webmaster@0 16 $genToSend .= "Content-Type: application/x-www-form-urlencoded \n";
webmaster@0 17
webmaster@0 18 // Essai de récuperation de l'encodage...Envoie en iso si pas d'indication d'UTF...
webmaster@0 19 $argToSend = "__info=1";
webmaster@0 20 $toSend = $genToSend . "Content-Length: " . strlen($argToSend) . "\n\n";
webmaster@0 21 $toSend .= $argToSend;
webmaster@0 22 echo("<pre>$toSend</pre>");
webmaster@0 23 fwrite($fp, $toSend);
webmaster@0 24 while(!feof($fp))
webmaster@0 25 $result .= fgets($fp, 128);
webmaster@0 26 fclose($fp);
webmaster@0 27 if(!preg_match('/<encoding>(UTF-8|utf-8)<\/encoding>/msU',$result)) {
webmaster@0 28 $row['Titre'] = utf8_decode($row['Titre']);
webmaster@0 29 $row['Message'] = utf8_decode($row['Message']);
webmaster@0 30 echo("Snif, utilisation d'ISO...");
webmaster@0 31 }
webmaster@0 32
webmaster@0 33 $fp = fsockopen($ar_tbAddress['host'], 80, $errno, $errstr, 15);
webmaster@0 34 $argToSend = "title=" . htmlentities(urlencode($row['Titre'])) . "&blog_name=Dual+Blog";
webmaster@0 35 $argToSend .= "&url=http://defr.org/blog/posts/{$row['num_mess']}&excerpt=" . htmlentities(urlencode(substr(strip_tags($row['Message']), 0, 255) . "..."));
webmaster@0 36
webmaster@0 37 $toSend = $genToSend . "Content-Length: " . strlen($argToSend) . "\n\n";
webmaster@0 38 $toSend .= $argToSend;
webmaster@0 39 echo("<pre>$toSend</pre>");
webmaster@0 40 fwrite($fp, $toSend);
webmaster@0 41 while (!feof($fp)) {
webmaster@0 42 echo fgets($fp, 128);
webmaster@0 43 }
webmaster@0 44 fclose($fp);
webmaster@0 45 } else {
webmaster@0 46 echo("Pb de connexion : $errno - $errstr");
webmaster@0 47 }
webmaster@0 48 ?>