[Sommaire] [Imprimer]

   1  #!/usr/bin/php -d short_open_tag=on
   2  <?php
   3  if ('cli' != php_sapi_name()) die();
   4  
   5  #------------------------------------------------------------------------------
   6  ini_set('memory_limit','128M');
   7  if(!defined('DOKU_INC')) define('DOKU_INC',realpath(dirname(__FILE__).'/../').'/');
   8  require_once  DOKU_INC.'inc/init.php';
   9  require_once  DOKU_INC.'inc/common.php';
  10  require_once  DOKU_INC.'inc/search.php';
  11  require_once  DOKU_INC.'inc/cliopts.php';
  12  
  13  #------------------------------------------------------------------------------
  14  function usage() {
  15      print "Usage: wantedpages.php [wiki:namespace]
  16      
  17      Outputs a list of wanted pages (pages which have
  18      internal links but do not yet exist).
  19      
  20      If the optional [wiki:namespace] is not provided,
  21      defaults to the root wiki namespace
  22      
  23      OPTIONS
  24          -h, --help get help
  25  ";
  26  }
  27  
  28  #------------------------------------------------------------------------------
  29  define ('DW_DIR_CONTINUE',1);
  30  define ('DW_DIR_NS',2);
  31  define ('DW_DIR_PAGE',3);
  32  
  33  #------------------------------------------------------------------------------
  34  function dw_dir_filter($entry, $basepath) {
  35      if ($entry == '.' || $entry == '..' ) {
  36          return DW_DIR_CONTINUE;
  37      }
  38      if ( is_dir($basepath . '/' . $entry) ) {
  39          if ( strpos($entry, '_') === 0 ) {
  40              return DW_DIR_CONTINUE;
  41          }
  42          return DW_DIR_NS;
  43      }
  44      if ( preg_match('/\.txt$/',$entry) ) {
  45          return DW_DIR_PAGE;
  46      }
  47      return DW_DIR_CONTINUE;
  48  }
  49  
  50  #------------------------------------------------------------------------------
  51  function dw_get_pages($dir) {
  52      static $trunclen = NULL;
  53      if ( !$trunclen ) {
  54          global $conf;
  55          $trunclen = strlen($conf['datadir'].':');
  56      }
  57      
  58      if ( !is_dir($dir) ) {
  59          fwrite( STDERR, "Unable to read directory $dir\n");
  60          exit(1);
  61      }
  62      
  63      $pages = array();
  64      $dh = opendir($dir);
  65      while ( FALSE !== ( $entry = readdir($dh) ) ) {
  66          $status = dw_dir_filter($entry, $dir);
  67          if ( $status == DW_DIR_CONTINUE ) {
  68              continue;
  69          } else if ( $status == DW_DIR_NS ) {
  70              $pages = array_merge($pages, dw_get_pages($dir . '/' . $entry));
  71          } else {
  72              $page = array(
  73                  'id'  => pathID(substr($dir.'/'.$entry,$trunclen)),
  74                  'file'=> $dir.'/'.$entry,
  75                  );
  76              $pages[] = $page;
  77          }
  78      }
  79      closedir($dh);
  80      return $pages;
  81  }
  82  
  83  #------------------------------------------------------------------------------
  84  function dw_internal_links($page) {
  85      global $conf;
  86      $instructions = p_get_instructions(file_get_contents($page['file']));
  87      $links = array();
  88      $cns = getNS($page['id']);
  89      $exists = FALSE;
  90      foreach($instructions as $ins){
  91          if($ins[0] == 'internallink' || ($conf['camelcase'] && $ins[0] == 'camelcaselink') ){
  92              $mid = $ins[1][0];
  93              resolve_pageid($cns,$mid,$exists);
  94              if ( !$exists ) {
  95                                  list($mid) = explode('#',$mid); //record pages without hashs
  96                  $links[] = $mid;
  97              }
  98          }
  99      }
 100      return $links;
 101  }
 102  
 103  #------------------------------------------------------------------------------
 104  $OPTS = Doku_Cli_Opts::getOptions(__FILE__,'h',array('help'));
 105  
 106  if ( $OPTS->isError() ) {
 107      fwrite( STDERR, $OPTS->getMessage() . "\n");
 108      exit(1);
 109  }
 110  
 111  if ( $OPTS->has('h') or $OPTS->has('help') ) {
 112      usage();
 113      exit(0);
 114  }
 115  
 116  $START_DIR = $conf['datadir'];
 117  
 118  if ( $OPTS->numArgs() == 1 ) {
 119      $START_DIR .= '/' . $OPTS->arg(0);
 120  }
 121  
 122  #------------------------------------------------------------------------------
 123  $WANTED_PAGES = array();
 124  
 125  foreach ( dw_get_pages($START_DIR) as $WIKI_PAGE ) {
 126      $WANTED_PAGES = array_merge($WANTED_PAGES,dw_internal_links($WIKI_PAGE));
 127  }
 128  $WANTED_PAGES = array_unique($WANTED_PAGES);
 129  sort($WANTED_PAGES);
 130  
 131  foreach ( $WANTED_PAGES as $WANTED_PAGE ) {
 132      print $WANTED_PAGE."\n";
 133  }
 134  exit(0);