Mercurial > defr > DualBlog

annotate tb_send.php @ 56:0aa843c6571b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Il est necessaire de dés-épingler le formulaire dans ce cas.
author Franck Deroche <webmaster@defr.org>
date Tue, 29 Jan 2008 12:15:27 +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 ?>