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 58d49bfc3cSGerrit Uitslag */ 59716e610aSGerrit Uitslag public function handle($match, $state, $pos, Doku_Handler $handler) { 60716e610aSGerrit Uitslag $options = substr($match, 9, -2); // strip markup 61716e610aSGerrit Uitslag $options = explode('#', $options, 2); 62716e610aSGerrit Uitslag 63735f6285SGerrit Uitslag $namespace = trim(ltrim($options[0], '>')); 64716e610aSGerrit Uitslag $templates = explode(',', $options[1]); 65716e610aSGerrit Uitslag $templates = array_map('trim', $templates); 66716e610aSGerrit Uitslag return array( 67716e610aSGerrit Uitslag 'namespace' => $namespace, 68716e610aSGerrit Uitslag 'newpagetemplates' => $templates 69716e610aSGerrit Uitslag ); 705ad1ba23SRobert McLeod } 715ad1ba23SRobert McLeod 72c2f9de42SSam Wilson /** 73c2f9de42SSam Wilson * Create the new-page form. 74c2f9de42SSam Wilson * 75d49bfc3cSGerrit Uitslag * @param $mode string output format being rendered 76d49bfc3cSGerrit Uitslag * @param $renderer Doku_Renderer the current renderer object 77d49bfc3cSGerrit Uitslag * @param $data array data created by handler() 78d49bfc3cSGerrit Uitslag * @return boolean rendered correctly? 79c2f9de42SSam Wilson */ 80716e610aSGerrit Uitslag public function render($mode, Doku_Renderer $renderer, $data) { 815ad1ba23SRobert McLeod global $lang; 825ad1ba23SRobert McLeod 835ad1ba23SRobert McLeod if($mode == 'xhtml') { 84716e610aSGerrit Uitslag $disablecache = null; 85716e610aSGerrit Uitslag $namespaceinput = $this->_htmlNamespaceInput($data['namespace'], $disablecache); 86716e610aSGerrit Uitslag if($namespaceinput === false) { 87716e610aSGerrit Uitslag if($this->getConf('addpage_hideACL')) { 88716e610aSGerrit Uitslag $renderer->doc .= ''; 89716e610aSGerrit Uitslag } else { 90716e610aSGerrit Uitslag $renderer->doc .= $this->getLang('nooption'); 91716e610aSGerrit Uitslag } 925ad1ba23SRobert McLeod return true; 935ad1ba23SRobert McLeod } 94716e610aSGerrit Uitslag if($disablecache) $renderer->info['cache'] = false; 955ad1ba23SRobert McLeod 96716e610aSGerrit Uitslag $newpagetemplateinput = $this->_htmlTemplateInput($data['newpagetemplates']); 97716e610aSGerrit Uitslag 98c2f9de42SSam Wilson $form = '<div class="addnewpage">' . DOKU_LF 99447a4886SSam Wilson . DOKU_TAB . '<form name="addnewpage" method="get" action="' . DOKU_BASE . DOKU_SCRIPT . '" accept-charset="' . $lang['encoding'] . '">' . DOKU_LF 100716e610aSGerrit Uitslag . DOKU_TAB . DOKU_TAB . $namespaceinput . DOKU_LF 101c2f9de42SSam Wilson . DOKU_TAB . DOKU_TAB . '<input class="edit" type="text" name="title" size="20" maxlength="255" tabindex="2" />' . DOKU_LF 102716e610aSGerrit Uitslag . $newpagetemplateinput 103447a4886SSam Wilson . DOKU_TAB . DOKU_TAB . '<input type="hidden" name="do" value="edit" />' . DOKU_LF 104447a4886SSam Wilson . DOKU_TAB . DOKU_TAB . '<input type="hidden" name="id" />' . DOKU_LF 105716e610aSGerrit Uitslag . DOKU_TAB . DOKU_TAB . '<input class="button" type="submit" value="' . $this->getLang('okbutton') . '" tabindex="4" />' . DOKU_LF 106c2f9de42SSam Wilson . DOKU_TAB . '</form>' . DOKU_LF 107c2f9de42SSam Wilson . '</div>'; 108c2f9de42SSam Wilson $renderer->doc .= $form; 1095ad1ba23SRobert McLeod 1105ad1ba23SRobert McLeod return true; 1115ad1ba23SRobert McLeod } 1125ad1ba23SRobert McLeod return false; 1135ad1ba23SRobert McLeod } 114c2f9de42SSam Wilson 1155ad1ba23SRobert McLeod /** 1165ad1ba23SRobert McLeod * Parse namespace request 1175ad1ba23SRobert McLeod * 1185ad1ba23SRobert McLeod * @author Samuele Tognini <samuele@cli.di.unipi.it> 119a98ad79cSSam Wilson * @author Michael Braun <michael-dev@fami-braun.de> 1205ad1ba23SRobert McLeod */ 121716e610aSGerrit Uitslag protected function _parse_ns($ns) { 1225ad1ba23SRobert McLeod global $ID; 12305e1bc90SMichael Braun if($ns == "@PAGE@") return $ID; 12405e1bc90SMichael Braun if($ns == "@NS@") return getNS($ID); 1255ad1ba23SRobert McLeod $ns = preg_replace("/^\.(:|$)/", dirname(str_replace(':', '/', $ID)) . "$1", $ns); 1265ad1ba23SRobert McLeod $ns = str_replace("/", ":", $ns); 1275ad1ba23SRobert McLeod $ns = cleanID($ns); 1285ad1ba23SRobert McLeod return $ns; 1295ad1ba23SRobert McLeod } 130c2f9de42SSam Wilson 131c2f9de42SSam Wilson /** 132c2f9de42SSam Wilson * Create the HTML Select element for namespace selection. 133c2f9de42SSam Wilson * 1348fad05fbSSam Wilson * @param string|false $dest_ns The destination namespace, or false if none provided. 135716e610aSGerrit Uitslag * @param bool $disablecache reference indicates if caching need to be disabled 136716e610aSGerrit Uitslag * @global string $ID The page ID 137c2f9de42SSam Wilson * @return string Select element with appropriate NS selected. 138c2f9de42SSam Wilson */ 139716e610aSGerrit Uitslag protected function _htmlNamespaceInput($dest_ns, &$disablecache) { 1405ad1ba23SRobert McLeod global $ID; 141716e610aSGerrit Uitslag $disablecache = false; 1425ad1ba23SRobert McLeod 1438fad05fbSSam Wilson // If a NS has been provided: 1448fad05fbSSam Wilson // Whether to hide the NS selection (otherwise, show only subnamespaces). 1455ad1ba23SRobert McLeod $hide = $this->getConf('addpage_hide'); 1465ad1ba23SRobert McLeod 1478fad05fbSSam Wilson // Whether the user can create pages in the provided NS (or root, if no 1488fad05fbSSam Wilson // destination NS has been set. 1498fad05fbSSam Wilson $can_create = (auth_quickaclcheck($dest_ns . ":") >= AUTH_CREATE); 1508fad05fbSSam Wilson 151716e610aSGerrit Uitslag //namespace given, but hidden 152716e610aSGerrit Uitslag if($hide && !empty($dest_ns)) { 1538fad05fbSSam Wilson if($can_create) { 1548fad05fbSSam Wilson return '<input type="hidden" name="np_cat" id="np_cat" value="' . $this->_parse_ns($dest_ns) . '"/>'; 1558fad05fbSSam Wilson } else { 156716e610aSGerrit Uitslag return false; 1578fad05fbSSam Wilson } 158c2f9de42SSam Wilson } 1595ad1ba23SRobert McLeod 160716e610aSGerrit Uitslag //show select of given namespace 161716e610aSGerrit Uitslag $currentns = getNS($ID); 1625ad1ba23SRobert McLeod 1635ad1ba23SRobert McLeod $ret = '<select class="edit" id="np_cat" name="np_cat" tabindex="1">'; 1645ad1ba23SRobert McLeod 1658fad05fbSSam Wilson // Whether the NS select element has any options 1665ad1ba23SRobert McLeod $someopt = false; 1675ad1ba23SRobert McLeod 1688fad05fbSSam Wilson // Show root namespace if requested and allowed 1698fad05fbSSam Wilson if($this->getConf('addpage_showroot') && $can_create) { 1708fad05fbSSam Wilson if(empty($dest_ns)) { 1718fad05fbSSam Wilson // If no namespace has been provided, add an option for the root NS. 172*e6a74061SGerrit Uitslag $ret .= '<option ' . (($currentns == '') ? 'selected ' : '') . 'value="">' . $this->getLang('namespaceRoot') . '</option>'; 1735ad1ba23SRobert McLeod $someopt = true; 1745ad1ba23SRobert McLeod } else { 1758fad05fbSSam Wilson // If a namespace has been provided, add an option for it. 176*e6a74061SGerrit Uitslag $ret .= '<option ' . (($currentns == $dest_ns) ? 'selected ' : '') . 'value="' . formText($dest_ns) . '">' . formText($dest_ns) . '</option>'; 1775ad1ba23SRobert McLeod $someopt = true; 1785ad1ba23SRobert McLeod } 179c2f9de42SSam Wilson } 1805ad1ba23SRobert McLeod 181716e610aSGerrit Uitslag $subnamespaces = $this->_getnslist($dest_ns); 182716e610aSGerrit Uitslag foreach($subnamespaces as $ns) { 183716e610aSGerrit Uitslag if(auth_quickaclcheck($ns . ":") < AUTH_CREATE) continue; 184716e610aSGerrit Uitslag $nsparts = explode(':', $ns); 185716e610aSGerrit Uitslag $nsparts = str_repeat(' ', substr_count($ns, ':')) . $nsparts[count($nsparts) - 1]; 186716e610aSGerrit Uitslag $ret .= '<option ' . (($currentns == $ns) ? 'selected ' : '') . 'value="' . $ns . '">' . $nsparts . '</option>'; 1875ad1ba23SRobert McLeod $someopt = true; 188716e610aSGerrit Uitslag $disablecache = true; 1895ad1ba23SRobert McLeod } 1905ad1ba23SRobert McLeod $ret .= '</select>'; 1915ad1ba23SRobert McLeod 192716e610aSGerrit Uitslag if($someopt) { 1935ad1ba23SRobert McLeod return $ret; 194716e610aSGerrit Uitslag } else { 195716e610aSGerrit Uitslag return false; 196716e610aSGerrit Uitslag } 1975ad1ba23SRobert McLeod } 198c2f9de42SSam Wilson 199f9dafbcdSSam Wilson /** 200f9dafbcdSSam Wilson * Get a list of namespaces below the given namespace. 201f9dafbcdSSam Wilson * Recursively fetches subnamespaces. 202f9dafbcdSSam Wilson * 203716e610aSGerrit Uitslag * @param string $topns The top namespace 204f9dafbcdSSam Wilson * @return array Multi-dimensional array of all namespaces below $tns 205f9dafbcdSSam Wilson */ 206716e610aSGerrit Uitslag protected function _getnslist($topns = '') { 2075ad1ba23SRobert McLeod global $conf; 208d49bfc3cSGerrit Uitslag 209716e610aSGerrit Uitslag $topns = utf8_encodeFN(str_replace(':', '/', $topns)); 2105ad1ba23SRobert McLeod 211716e610aSGerrit Uitslag $excludes = $this->getConf('addpage_exclude'); 212716e610aSGerrit Uitslag if($excludes == "") { 213716e610aSGerrit Uitslag $excludes = array(); 214716e610aSGerrit Uitslag } else { 215716e610aSGerrit Uitslag $excludes = @explode(';', strtolower($excludes)); 216716e610aSGerrit Uitslag } 217716e610aSGerrit Uitslag $searchdata = array(); 218716e610aSGerrit Uitslag search($searchdata, $conf['datadir'], 'search_namespaces', array(), $topns); 2195ad1ba23SRobert McLeod 220716e610aSGerrit Uitslag $namespaces = array(); 221716e610aSGerrit Uitslag foreach($searchdata as $ns) { 222716e610aSGerrit Uitslag foreach($excludes as $exclude) { 223716e610aSGerrit Uitslag if(strpos($ns['id'], $exclude) === 0) { 224716e610aSGerrit Uitslag continue 2; 225716e610aSGerrit Uitslag } 226716e610aSGerrit Uitslag } 227716e610aSGerrit Uitslag $namespaces[] = $ns['id']; 228716e610aSGerrit Uitslag } 2295ad1ba23SRobert McLeod 230716e610aSGerrit Uitslag return $namespaces; 2315ad1ba23SRobert McLeod } 232716e610aSGerrit Uitslag 233716e610aSGerrit Uitslag /** 234716e610aSGerrit Uitslag * Create html for selection of namespace templates 235716e610aSGerrit Uitslag * 236716e610aSGerrit Uitslag * @param array $newpagetemplates array of namespace templates 237716e610aSGerrit Uitslag * @return string html of select or hidden input 238716e610aSGerrit Uitslag */ 239716e610aSGerrit Uitslag public function _htmlTemplateInput($newpagetemplates) { 240716e610aSGerrit Uitslag $cnt = count($newpagetemplates); 241716e610aSGerrit Uitslag if($cnt < 1 || $cnt == 1 && $newpagetemplates[0] == '') { 242716e610aSGerrit Uitslag $input = ''; 243716e610aSGerrit Uitslag 244716e610aSGerrit Uitslag } else { 245716e610aSGerrit Uitslag if($cnt == 1) { 246716e610aSGerrit Uitslag list($template, ) = $this->_parseNStemplatepage($newpagetemplates[0]); 247*e6a74061SGerrit Uitslag $input = '<input type="hidden" name="newpagetemplate" value="' . formText($template) . '" />'; 248716e610aSGerrit Uitslag } else { 249716e610aSGerrit Uitslag $first = true; 2508c8f824eSGerrit Uitslag $input = '<select name="newpagetemplate" tabindex="3">'; 251716e610aSGerrit Uitslag foreach($newpagetemplates as $template) { 252716e610aSGerrit Uitslag $p = ($first ? ' selected="selected"' : ''); 253716e610aSGerrit Uitslag $first = false; 254716e610aSGerrit Uitslag 255716e610aSGerrit Uitslag list($template, $name) = $this->_parseNStemplatepage($template); 256716e610aSGerrit Uitslag $p .= ' value="'.formText($template).'"'; 257716e610aSGerrit Uitslag $input .= "<option $p>".formText($name)."</option>"; 2585ad1ba23SRobert McLeod } 259716e610aSGerrit Uitslag $input .= '</select>'; 2605ad1ba23SRobert McLeod } 261716e610aSGerrit Uitslag $input = DOKU_TAB . DOKU_TAB . $input . DOKU_LF; 2625ad1ba23SRobert McLeod } 263716e610aSGerrit Uitslag return $input; 264c2f9de42SSam Wilson } 265716e610aSGerrit Uitslag 266716e610aSGerrit Uitslag /** 267716e610aSGerrit Uitslag * Parses and resolves the namespace template page 268716e610aSGerrit Uitslag * 269716e610aSGerrit Uitslag * @param $nstemplate 270716e610aSGerrit Uitslag * @return array 271716e610aSGerrit Uitslag */ 272716e610aSGerrit Uitslag protected function _parseNStemplatepage($nstemplate) { 273716e610aSGerrit Uitslag global $ID; 274716e610aSGerrit Uitslag 275716e610aSGerrit Uitslag @list($template, $name) = explode('|', $nstemplate, 2); 276716e610aSGerrit Uitslag 277716e610aSGerrit Uitslag $exist = null; 278716e610aSGerrit Uitslag resolve_pageid(getNS($ID), $template, $exist); //get absolute id 279716e610aSGerrit Uitslag 280716e610aSGerrit Uitslag if (is_null($name)) $name = $template; 281716e610aSGerrit Uitslag 282716e610aSGerrit Uitslag return array($template, $name); 2835ad1ba23SRobert McLeod } 284c2f9de42SSam Wilson 2855ad1ba23SRobert McLeod} 286