plugin/yetlist.inc.php

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