15ad1ba23SRobert McLeod<?php 2c2f9de42SSam Wilson 3c2f9de42SSam Wilson// must be run within Dokuwiki 4c2f9de42SSam Wilsonif(!defined('DOKU_INC')) die(); 5c2f9de42SSam Wilson 6c2f9de42SSam Wilson/** 7c2f9de42SSam Wilson * Add-New-Page Plugin: a simple form for adding new pages. 8c2f9de42SSam Wilson * 9c2f9de42SSam Wilson * @license GPL 2 (http://www.gnu.org/licenses/gpl.html) 10c2f9de42SSam Wilson * @author iDO <ido@idotech.info> 11c2f9de42SSam Wilson * @author Sam Wilson <sam@samwilson.id.au> 12c2f9de42SSam Wilson */ 135ad1ba23SRobert McLeodclass syntax_plugin_addnewpage extends DokuWiki_Syntax_Plugin { 14c2f9de42SSam Wilson 15c2f9de42SSam Wilson /** 16d49bfc3cSGerrit Uitslag * Syntax Type 17c2f9de42SSam Wilson */ 18716e610aSGerrit Uitslag public function getType() { 1958a4331aSGerrit Uitslag return 'substition'; 2058a4331aSGerrit Uitslag } 215ad1ba23SRobert McLeod 22d49bfc3cSGerrit Uitslag /** 23d49bfc3cSGerrit Uitslag * Paragraph Type 24d49bfc3cSGerrit Uitslag */ 25716e610aSGerrit Uitslag public function getPType() { 2658a4331aSGerrit Uitslag return 'block'; 2758a4331aSGerrit Uitslag } 285ad1ba23SRobert McLeod 29d49bfc3cSGerrit Uitslag /** 30d49bfc3cSGerrit Uitslag * @return int 31d49bfc3cSGerrit Uitslag */ 32716e610aSGerrit Uitslag public function getSort() { 3358a4331aSGerrit Uitslag return 199; 3458a4331aSGerrit Uitslag } 355ad1ba23SRobert McLeod 36d49bfc3cSGerrit Uitslag /** 37d49bfc3cSGerrit Uitslag * @param string $mode 38d49bfc3cSGerrit Uitslag */ 39716e610aSGerrit Uitslag public function connectTo($mode) { 405ad1ba23SRobert McLeod $this->Lexer->addSpecialPattern('\{\{NEWPAGE[^\}]*\}\}', $mode, 'plugin_addnewpage'); 415ad1ba23SRobert McLeod } 425ad1ba23SRobert McLeod 43d49bfc3cSGerrit Uitslag /** 44d49bfc3cSGerrit Uitslag * Handler to prepare matched data for the rendering process 45d49bfc3cSGerrit Uitslag * 46735f6285SGerrit Uitslag * Handled syntax options: 47735f6285SGerrit Uitslag * {{NEWPAGE}} 48735f6285SGerrit Uitslag * {{NEWPAGE>your:namespace}} 49735f6285SGerrit Uitslag * {{NEWPAGE#newtpl1,newtpl2}} 50735f6285SGerrit Uitslag * {{NEWPAGE#newtpl1|Title1,newtpl2|Title1}} 51735f6285SGerrit Uitslag * {{NEWPAGE>your:namespace#newtpl1|Title1,newtpl2|Title1}} 52735f6285SGerrit Uitslag * 53d49bfc3cSGerrit Uitslag * @param string $match The text matched by the patterns 54d49bfc3cSGerrit Uitslag * @param int $state The lexer state for the match 55d49bfc3cSGerrit Uitslag * @param int $pos The character position of the matched text 56d49bfc3cSGerrit Uitslag * @param Doku_Handler $handler The Doku_Handler object 57d49bfc3cSGerrit Uitslag * @return array Return an array with all data you want to use in render 58*03475bb4SSam Wilson * @codingStandardsIgnoreStart 59d49bfc3cSGerrit Uitslag */ 60716e610aSGerrit Uitslag public function handle($match, $state, $pos, Doku_Handler $handler) { 61*03475bb4SSam Wilson /* @codingStandardsIgnoreEnd */ 62716e610aSGerrit Uitslag $options = substr($match, 9, -2); // strip markup 63716e610aSGerrit Uitslag $options = explode('#', $options, 2); 64716e610aSGerrit Uitslag 65735f6285SGerrit Uitslag $namespace = trim(ltrim($options[0], '>')); 66716e610aSGerrit Uitslag $templates = explode(',', $options[1]); 67716e610aSGerrit Uitslag $templates = array_map('trim', $templates); 68716e610aSGerrit Uitslag return array( 69716e610aSGerrit Uitslag 'namespace' => $namespace, 70716e610aSGerrit Uitslag 'newpagetemplates' => $templates 71716e610aSGerrit Uitslag ); 725ad1ba23SRobert McLeod } 735ad1ba23SRobert McLeod 74c2f9de42SSam Wilson /** 75c2f9de42SSam Wilson * Create the new-page form. 76c2f9de42SSam Wilson * 77d49bfc3cSGerrit Uitslag * @param $mode string output format being rendered 78d49bfc3cSGerrit Uitslag * @param $renderer Doku_Renderer the current renderer object 79d49bfc3cSGerrit Uitslag * @param $data array data created by handler() 80d49bfc3cSGerrit Uitslag * @return boolean rendered correctly? 81c2f9de42SSam Wilson */ 82716e610aSGerrit Uitslag public function render($mode, Doku_Renderer $renderer, $data) { 835ad1ba23SRobert McLeod global $lang; 845ad1ba23SRobert McLeod 855ad1ba23SRobert McLeod if($mode == 'xhtml') { 86716e610aSGerrit Uitslag $disablecache = null; 87716e610aSGerrit Uitslag $namespaceinput = $this->_htmlNamespaceInput($data['namespace'], $disablecache); 88716e610aSGerrit Uitslag if($namespaceinput === false) { 89716e610aSGerrit Uitslag if($this->getConf('addpage_hideACL')) { 90716e610aSGerrit Uitslag $renderer->doc .= ''; 91716e610aSGerrit Uitslag } else { 92716e610aSGerrit Uitslag $renderer->doc .= $this->getLang('nooption'); 93716e610aSGerrit Uitslag } 945ad1ba23SRobert McLeod return true; 955ad1ba23SRobert McLeod } 96716e610aSGerrit Uitslag if($disablecache) $renderer->info['cache'] = false; 975ad1ba23SRobert McLeod 98716e610aSGerrit Uitslag $newpagetemplateinput = $this->_htmlTemplateInput($data['newpagetemplates']); 99716e610aSGerrit Uitslag 100c2f9de42SSam Wilson $form = '<div class="addnewpage">' . DOKU_LF 101447a4886SSam Wilson . DOKU_TAB . '<form name="addnewpage" method="get" action="' . DOKU_BASE . DOKU_SCRIPT . '" accept-charset="' . $lang['encoding'] . '">' . DOKU_LF 102716e610aSGerrit Uitslag . DOKU_TAB . DOKU_TAB . $namespaceinput . DOKU_LF 103c2f9de42SSam Wilson . DOKU_TAB . DOKU_TAB . '<input class="edit" type="text" name="title" size="20" maxlength="255" tabindex="2" />' . DOKU_LF 104716e610aSGerrit Uitslag . $newpagetemplateinput 105447a4886SSam Wilson . DOKU_TAB . DOKU_TAB . '<input type="hidden" name="do" value="edit" />' . DOKU_LF 106447a4886SSam Wilson . DOKU_TAB . DOKU_TAB . '<input type="hidden" name="id" />' . DOKU_LF 107716e610aSGerrit Uitslag . DOKU_TAB . DOKU_TAB . '<input class="button" type="submit" value="' . $this->getLang('okbutton') . '" tabindex="4" />' . DOKU_LF 108c2f9de42SSam Wilson . DOKU_TAB . '</form>' . DOKU_LF 109c2f9de42SSam Wilson . '</div>'; 110c2f9de42SSam Wilson $renderer->doc .= $form; 1115ad1ba23SRobert McLeod 1125ad1ba23SRobert McLeod return true; 1135ad1ba23SRobert McLeod } 1145ad1ba23SRobert McLeod return false; 1155ad1ba23SRobert McLeod } 116c2f9de42SSam Wilson 1175ad1ba23SRobert McLeod /** 1185ad1ba23SRobert McLeod * Parse namespace request 1195ad1ba23SRobert McLeod * 1205ad1ba23SRobert McLeod * @author Samuele Tognini <samuele@cli.di.unipi.it> 121a98ad79cSSam Wilson * @author Michael Braun <michael-dev@fami-braun.de> 1225ad1ba23SRobert McLeod */ 123*03475bb4SSam Wilson protected function _parseNS($ns) { 1245ad1ba23SRobert McLeod global $ID; 12505e1bc90SMichael Braun if($ns == "@PAGE@") return $ID; 12605e1bc90SMichael Braun if($ns == "@NS@") return getNS($ID); 1275ad1ba23SRobert McLeod $ns = preg_replace("/^\.(:|$)/", dirname(str_replace(':', '/', $ID)) . "$1", $ns); 1285ad1ba23SRobert McLeod $ns = str_replace("/", ":", $ns); 1295ad1ba23SRobert McLeod $ns = cleanID($ns); 1305ad1ba23SRobert McLeod return $ns; 1315ad1ba23SRobert McLeod } 132c2f9de42SSam Wilson 133c2f9de42SSam Wilson /** 134c2f9de42SSam Wilson * Create the HTML Select element for namespace selection. 135c2f9de42SSam Wilson * 1368fad05fbSSam Wilson * @param string|false $dest_ns The destination namespace, or false if none provided. 137716e610aSGerrit Uitslag * @param bool $disablecache reference indicates if caching need to be disabled 138716e610aSGerrit Uitslag * @global string $ID The page ID 139c2f9de42SSam Wilson * @return string Select element with appropriate NS selected. 140c2f9de42SSam Wilson */ 141716e610aSGerrit Uitslag protected function _htmlNamespaceInput($dest_ns, &$disablecache) { 1425ad1ba23SRobert McLeod global $ID; 143716e610aSGerrit Uitslag $disablecache = false; 1445ad1ba23SRobert McLeod 1458fad05fbSSam Wilson // If a NS has been provided: 1468fad05fbSSam Wilson // Whether to hide the NS selection (otherwise, show only subnamespaces). 1475ad1ba23SRobert McLeod $hide = $this->getConf('addpage_hide'); 1485ad1ba23SRobert McLeod 1498fad05fbSSam Wilson // Whether the user can create pages in the provided NS (or root, if no 1508fad05fbSSam Wilson // destination NS has been set. 1518fad05fbSSam Wilson $can_create = (auth_quickaclcheck($dest_ns . ":") >= AUTH_CREATE); 1528fad05fbSSam Wilson 153716e610aSGerrit Uitslag //namespace given, but hidden 154716e610aSGerrit Uitslag if($hide && !empty($dest_ns)) { 1558fad05fbSSam Wilson if($can_create) { 156*03475bb4SSam Wilson return '<input type="hidden" name="np_cat" id="np_cat" value="' . $this->_parseNS($dest_ns) . '"/>'; 1578fad05fbSSam Wilson } else { 158716e610aSGerrit Uitslag return false; 1598fad05fbSSam Wilson } 160c2f9de42SSam Wilson } 1615ad1ba23SRobert McLeod 162716e610aSGerrit Uitslag //show select of given namespace 163716e610aSGerrit Uitslag $currentns = getNS($ID); 1645ad1ba23SRobert McLeod 1655ad1ba23SRobert McLeod $ret = '<select class="edit" id="np_cat" name="np_cat" tabindex="1">'; 1665ad1ba23SRobert McLeod 1678fad05fbSSam Wilson // Whether the NS select element has any options 1685ad1ba23SRobert McLeod $someopt = false; 1695ad1ba23SRobert McLeod 1708fad05fbSSam Wilson // Show root namespace if requested and allowed 1718fad05fbSSam Wilson if($this->getConf('addpage_showroot') && $can_create) { 1728fad05fbSSam Wilson if(empty($dest_ns)) { 1738fad05fbSSam Wilson // If no namespace has been provided, add an option for the root NS. 174e6a74061SGerrit Uitslag $ret .= '<option ' . (($currentns == '') ? 'selected ' : '') . 'value="">' . $this->getLang('namespaceRoot') . '</option>'; 1755ad1ba23SRobert McLeod $someopt = true; 1765ad1ba23SRobert McLeod } else { 1778fad05fbSSam Wilson // If a namespace has been provided, add an option for it. 178e6a74061SGerrit Uitslag $ret .= '<option ' . (($currentns == $dest_ns) ? 'selected ' : '') . 'value="' . formText($dest_ns) . '">' . formText($dest_ns) . '</option>'; 1795ad1ba23SRobert McLeod $someopt = true; 1805ad1ba23SRobert McLeod } 181c2f9de42SSam Wilson } 1825ad1ba23SRobert McLeod 183*03475bb4SSam Wilson $subnamespaces = $this->_getNamespaceList($dest_ns); 184716e610aSGerrit Uitslag foreach($subnamespaces as $ns) { 185716e610aSGerrit Uitslag if(auth_quickaclcheck($ns . ":") < AUTH_CREATE) continue; 186716e610aSGerrit Uitslag $nsparts = explode(':', $ns); 187716e610aSGerrit Uitslag $nsparts = str_repeat(' ', substr_count($ns, ':')) . $nsparts[count($nsparts) - 1]; 188716e610aSGerrit Uitslag $ret .= '<option ' . (($currentns == $ns) ? 'selected ' : '') . 'value="' . $ns . '">' . $nsparts . '</option>'; 1895ad1ba23SRobert McLeod $someopt = true; 190716e610aSGerrit Uitslag $disablecache = true; 1915ad1ba23SRobert McLeod } 1925ad1ba23SRobert McLeod $ret .= '</select>'; 1935ad1ba23SRobert McLeod 194716e610aSGerrit Uitslag if($someopt) { 1955ad1ba23SRobert McLeod return $ret; 196716e610aSGerrit Uitslag } else { 197716e610aSGerrit Uitslag return false; 198716e610aSGerrit Uitslag } 1995ad1ba23SRobert McLeod } 200c2f9de42SSam Wilson 201f9dafbcdSSam Wilson /** 202f9dafbcdSSam Wilson * Get a list of namespaces below the given namespace. 203f9dafbcdSSam Wilson * Recursively fetches subnamespaces. 204f9dafbcdSSam Wilson * 205716e610aSGerrit Uitslag * @param string $topns The top namespace 206f9dafbcdSSam Wilson * @return array Multi-dimensional array of all namespaces below $tns 207f9dafbcdSSam Wilson */ 208*03475bb4SSam Wilson protected function _getNamespaceList($topns = '') { 2095ad1ba23SRobert McLeod global $conf; 210d49bfc3cSGerrit Uitslag 211716e610aSGerrit Uitslag $topns = utf8_encodeFN(str_replace(':', '/', $topns)); 2125ad1ba23SRobert McLeod 213716e610aSGerrit Uitslag $excludes = $this->getConf('addpage_exclude'); 214716e610aSGerrit Uitslag if($excludes == "") { 215716e610aSGerrit Uitslag $excludes = array(); 216716e610aSGerrit Uitslag } else { 217716e610aSGerrit Uitslag $excludes = @explode(';', strtolower($excludes)); 218716e610aSGerrit Uitslag } 219716e610aSGerrit Uitslag $searchdata = array(); 220716e610aSGerrit Uitslag search($searchdata, $conf['datadir'], 'search_namespaces', array(), $topns); 2215ad1ba23SRobert McLeod 222716e610aSGerrit Uitslag $namespaces = array(); 223716e610aSGerrit Uitslag foreach($searchdata as $ns) { 224716e610aSGerrit Uitslag foreach($excludes as $exclude) { 225716e610aSGerrit Uitslag if(strpos($ns['id'], $exclude) === 0) { 226716e610aSGerrit Uitslag continue 2; 227716e610aSGerrit Uitslag } 228716e610aSGerrit Uitslag } 229716e610aSGerrit Uitslag $namespaces[] = $ns['id']; 230716e610aSGerrit Uitslag } 2315ad1ba23SRobert McLeod 232716e610aSGerrit Uitslag return $namespaces; 2335ad1ba23SRobert McLeod } 234716e610aSGerrit Uitslag 235716e610aSGerrit Uitslag /** 236716e610aSGerrit Uitslag * Create html for selection of namespace templates 237716e610aSGerrit Uitslag * 238716e610aSGerrit Uitslag * @param array $newpagetemplates array of namespace templates 239716e610aSGerrit Uitslag * @return string html of select or hidden input 240716e610aSGerrit Uitslag */ 241716e610aSGerrit Uitslag public function _htmlTemplateInput($newpagetemplates) { 242716e610aSGerrit Uitslag $cnt = count($newpagetemplates); 243716e610aSGerrit Uitslag if($cnt < 1 || $cnt == 1 && $newpagetemplates[0] == '') { 244716e610aSGerrit Uitslag $input = ''; 245716e610aSGerrit Uitslag 246716e610aSGerrit Uitslag } else { 247716e610aSGerrit Uitslag if($cnt == 1) { 248*03475bb4SSam Wilson list($template, ) = $this->_parseNSTemplatePage($newpagetemplates[0]); 249e6a74061SGerrit Uitslag $input = '<input type="hidden" name="newpagetemplate" value="' . formText($template) . '" />'; 250716e610aSGerrit Uitslag } else { 251716e610aSGerrit Uitslag $first = true; 2528c8f824eSGerrit Uitslag $input = '<select name="newpagetemplate" tabindex="3">'; 253716e610aSGerrit Uitslag foreach($newpagetemplates as $template) { 254716e610aSGerrit Uitslag $p = ($first ? ' selected="selected"' : ''); 255716e610aSGerrit Uitslag $first = false; 256716e610aSGerrit Uitslag 257*03475bb4SSam Wilson list($template, $name) = $this->_parseNSTemplatePage($template); 258716e610aSGerrit Uitslag $p .= ' value="'.formText($template).'"'; 259716e610aSGerrit Uitslag $input .= "<option $p>".formText($name)."</option>"; 2605ad1ba23SRobert McLeod } 261716e610aSGerrit Uitslag $input .= '</select>'; 2625ad1ba23SRobert McLeod } 263716e610aSGerrit Uitslag $input = DOKU_TAB . DOKU_TAB . $input . DOKU_LF; 2645ad1ba23SRobert McLeod } 265716e610aSGerrit Uitslag return $input; 266c2f9de42SSam Wilson } 267716e610aSGerrit Uitslag 268716e610aSGerrit Uitslag /** 269716e610aSGerrit Uitslag * Parses and resolves the namespace template page 270716e610aSGerrit Uitslag * 271716e610aSGerrit Uitslag * @param $nstemplate 272716e610aSGerrit Uitslag * @return array 273716e610aSGerrit Uitslag */ 274*03475bb4SSam Wilson protected function _parseNSTemplatePage($nstemplate) { 275716e610aSGerrit Uitslag global $ID; 276716e610aSGerrit Uitslag 277716e610aSGerrit Uitslag @list($template, $name) = explode('|', $nstemplate, 2); 278716e610aSGerrit Uitslag 279716e610aSGerrit Uitslag $exist = null; 280716e610aSGerrit Uitslag resolve_pageid(getNS($ID), $template, $exist); //get absolute id 281716e610aSGerrit Uitslag 282716e610aSGerrit Uitslag if (is_null($name)) $name = $template; 283716e610aSGerrit Uitslag 284716e610aSGerrit Uitslag return array($template, $name); 2855ad1ba23SRobert McLeod } 286c2f9de42SSam Wilson 2875ad1ba23SRobert McLeod} 288