plugin/yetlist.inc.php

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