plugin/related.inc.php

   1 <?php
   2 // PukiWiki - Yet another WikiWikiWeb clone
   3 // related.inc.php
   4 // Copyright 2005-2017 PukiWiki Development Team
   5 // License: GPL v2 or (at your option) any later version
   6 //
   7 // Related plugin: Show Backlinks for the page
   8
   9 function plugin_related_convert()
  10 {
  11         global $vars;
  12
  13         return make_related($vars['page'], 'p');
  14 }
  15
  16 // Show Backlinks: via related caches for the page
  17 function plugin_related_action()
  18 {
  19         global $vars, $defaultpage, $whatsnew;
  20
  21         $_page = isset($vars['page']) ? $vars['page'] : '';
  22         if ($_page == '') $_page = $defaultpage;
  23
  24         // Get related from cache
  25         $data = links_get_related_db($_page);
  26         if (! empty($data)) {
  27                 // Hide by array keys (not values)
  28                 foreach(array_keys($data) as $page)
  29                         if ($page == $whatsnew ||
  30                             check_non_list($page))
  31                                 unset($data[$page]);
  32         }
  33         // Result
  34         $s_word = htmlsc($_page);
  35         $msg = 'Backlinks for: ' . $s_word;
  36         $retval  = '<a href="' . get_page_uri($_page) . '">' .
  37                 'Return to ' . $s_word .'</a><br />'. "\n";
  38         if (empty($data)) {
  39                 $retval .= '<ul><li>No related pages found.</li></ul>' . "\n";
  40         } else {
  41                 // Show count($data)?
  42                 ksort($data, SORT_STRING);
  43                 $retval .= '<ul>' . "\n";
  44                 foreach ($data as $page=>$time) {
  45                         $s_page  = htmlsc($page);
  46                         $mtime_span = get_passage_mtime_html_span($time + LOCALZONE);
  47                         $retval .= ' <li><a href="' . get_page_uri($page) . '">' . $s_page .
  48                                 '</a>' . $mtime_span . '</li>' . "\n";
  49                 }
  50                 $retval .= '</ul>' . "\n";
  51         }
  52         return array('msg'=>$msg, 'body'=>$retval);
  53 }