Mercurial > defr > DualBlog

annotate tb_send.php @ 11:ff57b45eda37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changement profond de l'index. Utilisation des templates. Dual Blog utilise maintenant intimement la libraire de templates que l'on peut trouver sur http://hg.defr.org/defr/templates, ce qui permet d'eviter de mixer du code PHP avec du HTML. Accessoirement, on est aussi assurer d'avoir du XML valide, puisque c'est l'API DOM qui est utilisée pour générer la sortie.
author Franck Deroche <webmaster@defr.org>
date Wed, 24 Oct 2007 20:06:00 +0200
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 ?>