plugin/yetlist.inc.php

   1 <?php
   2 /////////////////////////////////////////////////
   3 // PukiWiki - Yet another WikiWikiWeb clone.
   4 //
   5 // $Id: yetlist.inc.php,v 1.19 2004/07/31 03:09:20 henoheno Exp $
   6 //
   7
   8 function plugin_yetlist_action()
   9 {
  10         global $script;
  11         global $_title_yetlist,$_err_notexist;
  12
  13         $retval = array(
  14                 'msg' => $_title_yetlist,
  15                 'body' => ''
  16         );
  17
  18         $refer = array();
  19         $exists = get_existpages();
  20         $pages = array_diff(get_existpages(CACHE_DIR,'.ref'),get_existpages());
  21         foreach ($pages as $page)
  22         {
  23                 foreach (file(CACHE_DIR.encode($page).'.ref') as $line)
  24                 {
  25                         list($_page) = explode("\t",$line);
  26                         $refer[$page][] = $_page;
  27                 }
  28         }
  29
  30         if (count($refer) == 0)
  31         {
  32                 $retval['body'] = $_err_notexist;
  33                 return $retval;
  34         }
  35
  36         ksort($refer,SORT_STRING);
  37
  38         foreach($refer as $page=>$refs)
  39         {
  40                 $r_page = rawurlencode($page);
  41                 $s_page = htmlspecialchars($page);
  42
  43                 $link_refs = array();
  44                 foreach(array_unique($refs) as $_refer)
  45                 {
  46                         $r_refer = rawurlencode($_refer);
  47                         $s_refer = htmlspecialchars($_refer);
  48
  49                         $link_refs[] = "<a href=\"$script?$r_refer\">$s_refer</a>";
  50                 }
  51                 $link_ref = join(' ',$link_refs);
  52                 // »²¾È¸µ¥Ú¡¼¥¸¤¬Ê£¿ô¤¢¤Ã¤¿¾ì¹ç¡¢refer¤ÏºÇ¸å¤Î¥Ú¡¼¥¸¤ò»Ø¤¹(¤¤¤¤¤Î¤«¤Ê)
  53                 $retval['body'] .= "<li><a href=\"$script?cmd=edit&amp;page=$r_page&amp;refer=$r_refer\">$s_page</a> <em>($link_ref)</em></li>\n";
  54         }
  55
  56         if ($retval['body'] != '')
  57         {
  58                 $retval['body'] = "<ul>\n".$retval['body']."</ul>\n";
  59         }
  60
  61         return $retval;
  62 }
  63 ?>