Mercurial > defr > DualBlog

annotate tb_send.php @ 43:1cdb1a68634b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changement dans la facon dont on choisi le format. Pour choisir un format, on passe maintenant en query-string un paramètre dont le nom correspond au nom du format souhaité, et sans valeur. Mise à jour du .htaccess en fonction de cette nouvelle forme de selection.
author Franck Deroche <webmaster@defr.org>
date Wed, 14 Nov 2007 17:12:37 +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 ?>