trackback.php

   1 <?php
   2 // $Id: trackback.php,v 1.4 2003/06/22 05:39:07 arino Exp $
   3 /*
   4  * PukiWiki TrackBack ¥×¥í¥°¥é¥à
   5  * (C) 2003, Katsumi Saito <katsumi@jo1upk.ymt.prug.or.jp>
   6  * License: GPL
   7  *
   8  * http://localhost/pukiwiki/pukiwiki.php?FrontPage ¤ÈÌÀ³Î¤Ë»ØÄê¤·¤Ê¤¤¤È
   9  * TrackBack ID ¤Î¼èÆÀ¤Ï¤Ç¤¤Ê¤¤
  10  *
  11  * tb_count($page)              TrackBack Ping ¥Ç¡¼¥¿¸Ä¿ô¼èÆÀ // pukiwiki.skin.LANG.php
  12  * tb_send($page,$data)         TrackBack Ping Á÷¿® // file.php
  13  * tb_ScanLink($data)           convert_html() ÊÑ´¹·ë²Ì¤Î <a> ¥¿¥°¤«¤é URL Ãê½Ð
  14  * tb_PageInfo($page)           ¥Ú¡¼¥¸¾ðÊó¼èÆÀ
  15  * tb_xml_msg($rc,$msg)         XML ·ë²Ì½ÐÎÏ
  16  * tb_save()                    TrackBack Ping ¥Ç¡¼¥¿ÊÝÂ¸(¹¹¿·)
  17  * tb_delete($page)             TrackBack Ping ¥Ç¡¼¥¿ºï½ü // edit.inc.php
  18  * tb_get($file)                TrackBack Ping ¥Ç¡¼¥¿ÆþÎÏ
  19  * tb_put($file,$data)          TrackBack Ping ¥Ç¡¼¥¿½ÐÎÏ
  20  * tb_mode_rss($file)           ?__mode=rss ½èÍý
  21  * tb_mode_view($id)            ?__mode=view ½èÍý
  22  * tb_body($file)               TrackBack Ping ÌÀºÙ¹ÔÊÔ½¸
  23  * tb_sort_by_date_d($p1, $p2)  ¥Ç¡¼¥¿¤òÆüÉÕ½ç¡Ê¹ß½ç¡Ë¤ÇÀ°Îó
  24  * tb_id2page($id)              TrackBack ID ¤«¤é¥Ú¡¼¥¸Ì¾¼èÆÀ
  25  * tb_http($url, $method="GET", $headers="", $post=array(""))
  26  *                              GET, POST, HEAD ¤Ê¤É¤Î»ØÄê½èÍý¤ª¤è¤Ó ¥ì¥¹¥Ý¥ó¥¹¥³¡¼¥É¼èÆÀ
  27  * tb_PutID($page)              Ê¸¾ÏÃæ¤Ë trackback:ping ¤òËä¤á¹þ¤à¤¿¤á¤Î¥Ç¡¼¥¿¤òÀ¸À® // pukiwiki.php
  28  * tb_GetID($url)               Ê¸½ñ¤ò GET ¤·¡¢Ëä¤á¹þ¤Þ¤ì¤¿ TrackBack ID ¤ò¼èÆÀ
  29  * tb_xml_GetId($data)          Ëä¤á¹þ¤Þ¤ì¤¿¥Ç¡¼¥¿¤«¤é TrackBack ID ¤ò¼èÆÀ
  30  * tb_startElementHandler_GetId($parser, $name, $attribs)
  31  *                              xml_set_element_handler´Ø¿ô¤Ç¥»¥Ã¥È¤·¤¿ startElementHandler
  32  * tb_xg_dummy($parser, $name)  xml_set_element_handler´Ø¿ô¤Ç¥»¥Ã¥È¤·¤¿ EndElementHandler
  33  *
  34  */
  35
  36 if (!defined('TRACKBACK_DIR')) {
  37   define('TRACKBACK_DIR','./trackback/');
  38 }
  39
  40 // TrackBack Ping ¥Ç¡¼¥¿¸Ä¿ô¼èÆÀ
  41 function tb_count($page) {
  42
  43   $page_enc = md5($page);
  44   $file = TRACKBACK_DIR.$page_enc.".txt";
  45
  46   // TRACKBACK_DIR ¤ÎÂ¸ºß¤È½ñ¤¹þ¤ß²ÄÇ½¤«¤Î³ÎÇ§
  47   if (file_exists($file) === false) {
  48     return 0;
  49   }
  50   return count( file($file) );
  51 }
  52
  53 // TrackBack Ping Á÷¿®
  54 function tb_send($page,$data) {
  55   global $script, $trackback;
  56
  57   if (!$trackback) return;
  58   set_time_limit( 0 ); // ½èÍý¼Â¹Ô»þ´ÖÀ©¸Â(php.ini ¥ª¥×¥·¥ç¥ó max_execution_time )
  59
  60   $link = tb_ScanLink($data);
  61   if (!is_array($link)) return; // ¥ê¥ó¥¯Ìµ¤·¤Ï½ªÎ»
  62   $r_page = rawurlencode($page);
  63
  64   // ¼«Ê¸½ñ¤Î¾ðÊó
  65   $putdata = array();
  66   $putdata["title"] = $page; // ¥¿¥¤¥È¥ë¤Ï¥Ú¡¼¥¸Ì¾
  67   $putdata["url"] = $script."?".$r_page; // Á÷¿®»þ¤ËºÆÅÙ¡¢rawurlencode ¤µ¤ì¤ë
  68   $putdata["excerpt"] = tb_PageInfo($page);
  69   $putdata["blog_name"] = "PukiWiki/TrackBack 0.1";
  70   $putdata["charset"] = SOURCE_ENCODING; // Á÷¿®Â¦Ê¸»ú¥³¡¼¥É(Ì¤´ûÄê)
  71
  72   foreach ($link as $x) {
  73   // URL ¤«¤é TrackBack ID ¤ò¼èÆÀ¤¹¤ë
  74     $tbid = tb_GetID($x);
  75     if (empty($tbid)) continue; // TrackBack ¤ËÂÐ±þ¤·¤Æ¤¤¤Ê¤¤
  76     list($resp,$header,$data,$query) = tb_http($tbid,"POST","",$putdata);
  77     // FIXME: ¥¨¥é¡¼½èÍý¤ò¹Ô¤Ã¤Æ¤â¡¢¤¸¤ã¡¢¤É¤¦¤¹¤ë¡©¤À¤·¤Ê¤¡...
  78   }
  79
  80 }
  81
  82 // convert_html() ÊÑ´¹·ë²Ì¤Î <a> ¥¿¥°¤«¤é URL Ãê½Ð
  83 function tb_ScanLink($data) {
  84   $link = array();
  85   $string = convert_html($data);
  86
  87   // ¥ë¡¼¥×
  88   while (preg_match("'(href=)(\"|\')(http:?[^\"^\'^\>]+)'si", $string, $regs)) {
  89     $link[] = $regs[3];
  90     $string = str_replace($regs[3], "", $string);
  91   }
  92   return $link;
  93 }
  94
  95 // ¥Ú¡¼¥¸¾ðÊó¼èÆÀ
  96 function tb_PageInfo($page) {
  97   // ÍøÍÑ¥Ú¡¼¥¸¤Î°ú¿ô¤Ê¤·
  98   if (empty($page)) return "";
  99
 100   // ³µÍ×¤ÎÀ¸À®
 101   $excerpt = '';
 102   $ctr_len = 0;
 103   $body = get_source($page);
 104   foreach ($body as $x) {
 105     if ($x[0] == '/' && $x[1] == '/') continue; // PukiWiki ¤È¤·¤Æ¤Ï¡¢¥³¥á¥ó¥È¹Ô
 106     $excerpt .= trim($x);
 107     $ctr_len += strlen(trim($x));
 108     if ($ctr_len > 255) break; // 255 ¤òÄ¶²á¤·¤¿»þÅÀ¤Ç½ªÎ»
 109   }
 110   return $excerpt;
 111 }
 112
 113 // XML ·ë²Ì½ÐÎÏ
 114 function tb_xml_msg($rc,$msg) {
 115   $x = "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n".
 116     "<response>\n".
 117     "<error>".$rc."</error>\n";
 118   if (!empty($msg)) $x .= "<message>".$msg."</message>\n";
 119   $x .= "</response>\n";
 120   header('Content-Type: text/xml');
 121   print $x;
 122   die();
 123 }
 124
 125 // TrackBack Ping ¥Ç¡¼¥¿ÊÝÂ¸(¹¹¿·)
 126 function tb_save() {
 127   global $script,$vars,$post;
 128
 129   // TrackBack Ping ¤Ë¤ª¤±¤ë URL ¥Ñ¥é¥á¡¼¥¿¤ÏÉ¬¿Ü¤Ç¤¢¤ë¡£
 130   if (empty($post["url"])) {
 131     tb_xml_msg(1,"It is an indispensable parameter. URL is not set up.");
 132   }
 133
 134   // URL ÂÅÅöÀ¥Á¥§¥Ã¥¯ (¤³¤ì¤òÆþ¤ì¤ë¤È½èÍý»þ´Ö¤ËÌäÂê¤¬¤Ç¤ë)
 135   list($res,$hed,$dat,$query) = tb_http($post["url"],"HEAD");
 136   if ($res !== 200) {
 137     tb_xml_msg(1,"URL is fictitious.");
 138   }
 139
 140   // TRACKBACK_DIR ¤ÎÂ¸ºß¤È½ñ¤¹þ¤ß²ÄÇ½¤«¤Î³ÎÇ§
 141   if (file_exists(TRACKBACK_DIR) === false) {
 142     die(TRACKBACK_DIR.": No such directory");
 143   }
 144   if (is_writable(TRACKBACK_DIR) === false) {
 145     die(TRACKBACK_DIR.": Permission denied");
 146   }
 147
 148   // Query String ¤òÆÀ¤ë
 149   if (empty($vars["tb_id"])) {
 150     tb_xml_msg(1,"TrackBack Ping URL is inaccurate.");
 151   }
 152
 153   // ¥Ú¡¼¥¸Â¸ºß¥Á¥§¥Ã¥¯
 154   $page = tb_id2page($vars["tb_id"]);
 155   if ($page == $vars["tb_id"]) {
 156     tb_xml_msg(1,"TrackBack ID is invalid.");
 157   }
 158
 159   // TrackBack Ping ¤Î¥Ç¡¼¥¿¤òÆÉ¤ß¹þ¤à
 160   $rc = tb_put(TRACKBACK_DIR.$vars["tb_id"].".txt",tb_get(TRACKBACK_DIR.$vars["tb_id"].".txt"));
 161
 162   tb_xml_msg($rc,"");
 163 }
 164
 165 // TrackBack Ping ¥Ç¡¼¥¿ºï½ü
 166 function tb_delete($page) { @unlink(TRACKBACK_DIR.md5($page).".txt"); }
 167
 168 // TrackBack Ping ¥Ç¡¼¥¿ÆþÎÏ
 169 function tb_get($file) {
 170   if (!file_exists($file)) {
 171     return false;
 172   }
 173
 174   $rc    = array();
 175   $ctr   = 0;
 176
 177   $fp = @fopen ($file,"r");
 178   while ($data = @fgetcsv($fp, 8192, ",")) {
 179     $rc[$ctr++] = $data;
 180   }
 181   @fclose ($fp);
 182   return $rc;
 183 }
 184
 185 // TrackBack Ping ¥Ç¡¼¥¿½ÐÎÏ
 186 function tb_put($file,$data) {
 187   global $script,$vars,$post;
 188
 189   // Ê¸»ú¥³¡¼¥ÉÊÑ´¹
 190   if (empty($post["charset"])) $post["charset"] = "auto";
 191   $post["title"]     = mb_convert_encoding($post["title"],SOURCE_ENCODING,$post["charset"]);
 192   $post["excerpt"]   = mb_convert_encoding($post["excerpt"],SOURCE_ENCODING,$post["charset"]);
 193   $post["blog_name"] = mb_convert_encoding($post["blog_name"],SOURCE_ENCODING,$post["charset"]);
 194
 195   if (!($fp = fopen($file,"w"))) return 1;
 196   @flock($fp, LOCK_EX);
 197
 198   // ¥«¥ó¥Þ¤¬Æþ¤Ã¤Æ¤âÎÉ¤¤¤è¤¦¤Ë¡£(¤Ê¤ó¤«°ã¤¦¤È»×¤¦¤Ê¤¡)
 199   $post["url"]       = rawurlencode($post["url"]);
 200   $post["title"]     = rawurlencode($post["title"]);
 201   $post["excerpt"]   = rawurlencode($post["excerpt"]);
 202   $post["blog_name"] = rawurlencode($post["blog_name"]);
 203
 204   $sw_put = 0; // ¹¹¿·ÍÑ
 205   if ($data !== false) {
 206     foreach ($data as $x) {
 207       if ($x[1] == $post["url"]) {
 208         $sw_put = 1;
 209         $x[0] = UTIME;
 210         $x[2] = $post["title"];
 211         $x[3] = $post["excerpt"];
 212         $x[4] = $post["blog_name"];
 213       }
 214       // UTIME, url, title, excerpt, blog_name
 215       fwrite($fp, $x[0].",".$x[1].",".$x[2].",".$x[3].",".$x[4]."\n");
 216     }
 217   }
 218
 219   // ¹¹¿·¤·¤Æ¤¤¤Ê¤¤¾ì¹ç¤Ï¡¢£±·ïÄÉ²Ã¤¹¤ë
 220   if (!$sw_put) {
 221     fwrite($fp, UTIME.",".$post["url"].",".$post["title"].",".$post["excerpt"].",".$post["blog_name"]."\n");
 222   }
 223
 224   @flock($fp, LOCK_UN);
 225   @fclose($fp);
 226
 227   return 0;
 228 }
 229
 230 // ?__mode=rss ½èÍý
 231 function tb_mode_rss($file) {
 232
 233   $data = tb_get($file);
 234   // É½¼¨¥Ç¡¼¥¿¤Ê¤·
 235   if ($data === false) {
 236     tb_xml_msg(1,"TrackBack Ping data does not exist.");
 237   }
 238
 239   $rc = <<<EOD
 240 <?xml version="1.0" encoding="utf-8" ?>
 241 <response>
 242 <error>0</error>
 243 <rss version="0.91">
 244 <channel>
 245
 246 EOD;
 247
 248   $sw_item = 0;
 249   foreach ($data as $x) {
 250     if ($sw_item) $rc .= "<item>\n";
 251     $x[1] = rawurldecode($x[1]);
 252     $x[2] = rawurldecode($x[2]);
 253     $x[3] = rawurldecode($x[3]);
 254     // UTIME, url, title, excerpt, blog_name
 255     $rc .= <<<EOD
 256 <title>$x[2]</title>
 257 <link>$x[1]</link>
 258 <description>$x[3]</description>
 259
 260 EOD;
 261     if ($sw_item) {
 262       $rc .= "</item>\n";
 263     } else {
 264       $rc .= "<language>ja-Jp</language>\n";
 265       $sw_item = 1;
 266     }
 267   }
 268
 269   $rc .= <<<EOD
 270 </channel>
 271 </rss>
 272 </response>
 273
 274 EOD;
 275
 276   $rc = mb_convert_encoding($rc,"utf-8",SOURCE_ENCODING);
 277   header('Content-Type: text/xml');
 278   echo $rc;
 279 }
 280
 281 // ?__mode=view ½èÍý
 282 function tb_mode_view($tbid) {
 283   global $script, $page_title;
 284   global $_tb_title, $_tb_header, $_tb_entry, $_tb_refer;
 285
 286   // TrackBack ID ¤«¤é¥Ú¡¼¥¸Ì¾¤ò¼èÆÀ
 287   $page   = tb_id2page($tbid);
 288   $r_page = rawurlencode($page);
 289   $file   = TRACKBACK_DIR.$tbid.".txt";
 290
 291   $tb_title = sprintf($_tb_title,$page);
 292   $tb_refer = sprintf($_tb_refer,"<a href=\"$script?$r_page\">'$page'</a>","<a href=\"$script\">$page_title</a>");
 293
 294   $msg = <<<EOD
 295 <?xml version="1.0" encoding="UTF-8"?>
 296 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 297 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
 298 <head>
 299  <meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
 300 <title>$tb_title</title>
 301 <link rel="stylesheet" href="skin/trackback.css" type="text/css" />
 302 </head>
 303 <body>
 304 <div id="banner-commentspop">$_tb_header</div>
 305 <div class="blog">
 306
 307 <div class="trackback-url">
 308 $_tb_entry<br />
 309 $script?plugin=tb&tb_id=$tbid <br /><br />
 310 $tb_refer
 311 </div>
 312 EOD;
 313
 314   $msg .= tb_body($file);
 315   $msg .= <<<EOD
 316 </div>
 317 </body>
 318 </html>
 319 EOD;
 320
 321   $msg = mb_convert_encoding($msg,"UTF-8",SOURCE_ENCODING);
 322   echo $msg;
 323   die();
 324 }
 325
 326 // TrackBack Ping ÌÀºÙ¹ÔÊÔ½¸
 327 function tb_body($file) {
 328   global $_tb_header_Excerpt, $_tb_header_Weblog, $_tb_header_Tracked, $_tb_date;
 329
 330   $data = tb_get($file);
 331   if ($data === false) return;
 332
 333   // ºÇ¿·ÈÇ¤«¤éÀ°Îó
 334   usort($data, 'tb_sort_by_date_d');
 335
 336   $rc = "";
 337   foreach ($data as $x) {
 338     // UTIME, url, title, excerpt, blog_name
 339     $x[0] = date($_tb_date, $x[0]+LOCALZONE); // May  2, 2003 11:25 AM
 340     $x[1] = rawurldecode($x[1]); // URL
 341     $x[2] = rawurldecode($x[2]); // title
 342     $x[3] = rawurldecode($x[3]); // excerpt
 343     $x[4] = rawurldecode($x[4]); // blog_name
 344     $rc .= <<<EOD
 345 <div class="trackback-body">
 346 <span class="trackback-post"><a href="$x[1]" target="new">$x[2]</a><br />
 347 <strong>$_tb_header_Excerpt</strong> $x[3]<br />
 348 <strong>$_tb_header_Weblog</strong> $x[4]<br />
 349 <strong>$_tb_header_Tracked</strong> $x[0]</span>
 350 </div>
 351 EOD;
 352   }
 353
 354   return $rc;
 355 }
 356
 357 // ¥Ç¡¼¥¿¤òÆüÉÕ½ç¡Ê¹ß½ç¡Ë¤ÇÀ°Îó
 358 function tb_sort_by_date_d($p1, $p2) {
 359   return ($p2['0'] - $p1['0']);
 360 }
 361
 362 // TrackBack ID ¤«¤é¥Ú¡¼¥¸Ì¾¼èÆÀ
 363 function tb_id2page($id) {
 364   global $tb_pages;
 365
 366   if (!is_array($tb_pages)) {
 367     $tb_pages = get_existpages();
 368     natcasesort($tb_pages);
 369   }
 370
 371   foreach ($tb_pages as $x) {
 372     if ($id == md5(rawurlencode($x))) return rawurldecode($x);
 373   }
 374   return $id; // ¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç
 375
 376 }
 377
 378 /*
 379  * $url     : http://¤«¤é»Ï¤Þ¤ëURL( http://user:pass@host:port/path?query )
 380  * $method  : GET, POST, HEAD¤Î¤¤¤º¤ì¤«(¥Ç¥Õ¥©¥ë¥È¤ÏGET)
 381  * $headers : Ç¤°Õ¤ÎÄÉ²Ã¥Ø¥Ã¥À
 382  * $post    : POST¤Î»þ¤ËÁ÷¿®¤¹¤ë¥Ç¡¼¥¿¤ò³ÊÇ¼¤·¤¿ÇÛÎó("ÊÑ¿ôÌ¾"=>"ÃÍ")
 383  */
 384 function tb_http($url, $method="GET", $headers="", $post=array(""))
 385 {
 386   $rc = array();
 387   $url_arry = parse_url($url);
 388
 389   // query
 390   if (isset($url_arry['query'])) {
 391     $url_arry['query'] = "?".$url_arry['query'];
 392   } else {
 393     $url_arry['query'] = "";
 394   }
 395   // fragment
 396   if (isset($url_arry['fragment'])) {
 397     $url_arry['fragment'] = "#".$url_arry['fragment'];
 398   } else {
 399     $url_arry['fragment'] = "";
 400   }
 401
 402   if (!isset($url_arry['port'])) $url_arry['port'] = 80;
 403
 404   $query = $method." ".
 405     $url_arry['path'].$url_arry['query'].$url_arry['fragment'].
 406     " HTTP/1.0\r\n";
 407   $query .= "Host: ".$url_arry['host']."\r\n";
 408   $query .= "User-Agent: PukiWiki/TrackBack 0.1\r\n";
 409
 410   // Basic Ç§¾ÚÍÑ
 411   if (isset($url_arry['user']) && isset($url_arry['pass'])) {
 412     $query .= "Authorization: Basic ".
 413       base64_encode($url_arry['user'].":".$url_arry['pass'])."\r\n";
 414   }
 415
 416   $query .= $headers;
 417
 418   // POST »þ¤Ï¡¢urlencode ¤·¤¿¥Ç¡¼¥¿¤È¤¹¤ë
 419   if (strtoupper($method) == "POST") {
 420     while (list($name, $val) = each($post)) {
 421       $POST[] = $name."=".urlencode($val);
 422     }
 423     $data = implode("&", $POST);
 424     $query .= "Content-Type: application/x-www-form-urlencoded\r\n";
 425     $query .= "Content-Length: ".strlen($data)."\r\n";
 426     $query .= "\r\n";
 427     $query .= $data;
 428   } else {
 429     $query .= "\r\n";
 430   }
 431
 432   $fp = fsockopen($url_arry['host'], $url_arry['port'], $errno, $errstr, 30);
 433   if (!$fp) {
 434     if ($errno == 0) {
 435       $rc[0] = 406; // Not Acceptable
 436       $rc[1] = ""; // Header
 437       $rc[2] = ""; // Data
 438       $rc[3] = $query; // Query String
 439       return $rc;
 440     }
 441     // Proxy ·ÐÍ³¤Î¾ì¹ç¤Ï¡¢¼ºÇÔ¤·¡¢errno ¤Ï 0 ¤È¤Ê¤ë¡£
 442     // Warning: fsockopen() [http://www.php.net/function.fsockopen]:
 443     // php_network_getaddresses: gethostbyname failed in C:\var\www\html\pukiwiki\trackback.php on line 457
 444     // Warning: fsockopen() [http://www.php.net/function.fsockopen]:
 445     // unable to connect to xxxx.xx.xx:80 in C:\var\www\html\pukiwiki\trackback.php on line 457
 446     // ¤³¤ÎÁàºî¤òÀµ¤·¤¯½ªÎ»¤·¤Þ¤·¤¿¡£
 447     // (0)
 448     $rc[0] = $errno; // ¥¨¥é¡¼ÈÖ¹æ
 449     $rc[1] = ""; // Header
 450     $rc[2] = $errstr; // ¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸
 451     $rc[3] = $query; // Query String
 452     return $rc;
 453     // die("trackback.php: $errstr ($errno)\n");
 454   }
 455
 456   fputs($fp, $query);
 457
 458   $response = "";
 459   while (!feof($fp)) {
 460     $response .= fgets($fp, 4096);
 461   }
 462
 463   fclose($fp);
 464   $resp  = split("\r\n\r\n", $response, 2);
 465   $rccd  = strtok($resp[0]," ");
 466   $rc[0] = strtok(" "); // Response Code
 467   $rc[0] = $rc[0] * 1; // ¿ô»ú·¿¤ËÊÑ´¹
 468   $rc[1] = $resp[0]; // Header
 469   $rc[2] = $resp[1]; // Data
 470   $rc[3] = $query; // Query String
 471   return $rc;
 472 }
 473
 474 // Ê¸¾ÏÃæ¤Ë trackback:ping ¤òËä¤á¹þ¤à¤¿¤á¤Î¥Ç¡¼¥¿¤òÀ¸À®
 475 function tb_PutId($page) {
 476   global $script,$trackback;
 477
 478   if (!$trackback) return "";
 479
 480   $r_page = rawurlencode($page);
 481   $page_enc = md5($r_page);
 482   // $dcdate = substr_replace(get_date('Y-m-d\TH:i:sO',$time),':',-2,0);
 483   // dc:date="$dcdate"
 484
 485   $rc = <<<EOD
 486 <!--
 487 <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 488          xmlns:dc="http://purl.org/dc/elements/1.1/"
 489          xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/">
 490 <rdf:Description
 491     rdf:about="$script?$r_page"
 492     dc:identifier="$script?$r_page"
 493     dc:title="$page"
 494     trackback:ping="$script?plugin=tb&amp;tb_id=$page_enc" />
 495 </rdf:RDF>
 496 -->
 497 EOD;
 498   return $rc;
 499 }
 500
 501 // Ê¸½ñ¤ò GET ¤·¡¢Ëä¤á¹þ¤Þ¤ì¤¿ TrackBack ID ¤ò¼èÆÀ
 502 function tb_GetID($url) {
 503   global $tb_get_url, $tb_get_id;
 504
 505   $tb_get_url = $url;
 506   $tb_get_id  = "";
 507
 508   // 0: Response Code, 1:Header, 2:Data, 3:Query String
 509   $data = tb_http($url);
 510   if ($data[0] !== 200) return "";
 511
 512   // ¥ë¡¼¥×
 513   while (preg_match("'(<rdf:RDF .*?>)(.*?)(</rdf:RDF>)'si",$data[2],$regs)) {
 514     tb_xml_GetId($regs[1].$regs[2].$regs[3]);
 515     if (!empty($tb_get_id)) return $tb_get_id;
 516     $data[2] = str_replace($regs[1].$regs[2].$regs[3], "", $data[2]);
 517   }
 518   return "";
 519 }
 520
 521 // Ëä¤á¹þ¤Þ¤ì¤¿¥Ç¡¼¥¿¤«¤é TrackBack ID ¤ò¼èÆÀ
 522 function tb_xml_GetId($data) {
 523   // XML ¥Ñ¡¼¥µ¤òºîÀ®¤¹¤ë
 524   $xml_parser = xml_parser_create();
 525   if (!$xml_parser) return;
 526
 527   // start ¤ª¤è¤Ó end Í×ÁÇ¤Î¥Ï¥ó¥É¥é¤òÀßÄê¤¹¤ë
 528   xml_set_element_handler($xml_parser, "tb_startElementHandler_GetId", "tb_xg_dummy");
 529   xml_parse($xml_parser, $data, 0);
 530   xml_parser_free($xml_parser);
 531   return;
 532 }
 533
 534 // xml_set_element_handler´Ø¿ô¤Ç¥»¥Ã¥È¤·¤¿ startElementHandler
 535 function tb_startElementHandler_GetId($parser, $name, $attribs) {
 536   global $tb_get_url, $tb_get_id;
 537
 538   if ($name !== "RDF:DESCRIPTION") return;
 539
 540   $tbid = $tburl = $tbabout = "";
 541   foreach ($attribs as $key=>$value) {
 542     // print "KEY=".$key." VAL=".$value."\n";
 543     if ($key == "RDF:ABOUT") {
 544       $tbabout = $value;
 545       continue;
 546     }
 547     if ($key == "DC:IDENTIFER" || $key == "DC:IDENTIFIER") {
 548       $tburl = $value;
 549       continue;
 550     }
 551     if ($key == "TRACKBACK:PING") {
 552       $tbid = $value;
 553       continue;
 554     }
 555   }
 556
 557   // print "URL:".$tb_get_url."=".$tburl."\n";
 558   // print "TBID:".$tbid."\n";
 559   if ($tb_get_url == $tburl || $tb_get_url == $tbabout) $tb_get_id = $tbid;
 560 }
 561
 562 // xml_set_element_handler´Ø¿ô¤Ç¥»¥Ã¥È¤·¤¿ EndElementHandler
 563 function tb_xg_dummy($parser, $name) { return; }
 564
 565 ?>