15ad1ba23SRobert McLeod<?php 2c2f9de42SSam Wilson 3c2f9de42SSam Wilson// must be run within Dokuwiki 4c2f9de42SSam Wilsonif (!defined('DOKU_INC')) die(); 5c2f9de42SSam Wilson 65ad1ba23SRobert McLeodif (!defined('DOKU_INC')) define('DOKU_INC', realpath(dirname(__FILE__) . '/../../') . '/'); 75ad1ba23SRobert McLeodif (!defined('DOKU_PLUGIN')) define('DOKU_PLUGIN', DOKU_INC . 'lib/plugins/'); 85ad1ba23SRobert McLeodrequire_once(DOKU_PLUGIN . 'syntax.php'); 95ad1ba23SRobert McLeod 10c2f9de42SSam Wilson/** 11c2f9de42SSam Wilson * Add-New-Page Plugin: a simple form for adding new pages. 12c2f9de42SSam Wilson * 13c2f9de42SSam Wilson * @license GPL 2 (http://www.gnu.org/licenses/gpl.html) 14c2f9de42SSam Wilson * @author iDO <ido@idotech.info> 15c2f9de42SSam Wilson * @author Sam Wilson <sam@samwilson.id.au> 16c2f9de42SSam Wilson */ 175ad1ba23SRobert McLeodclass syntax_plugin_addnewpage extends DokuWiki_Syntax_Plugin { 18c2f9de42SSam Wilson 19c2f9de42SSam Wilson /** 20c2f9de42SSam Wilson * Get some information about this plugin. 21c2f9de42SSam Wilson * 22c2f9de42SSam Wilson * @return array The info array. 23c2f9de42SSam Wilson */ 245ad1ba23SRobert McLeod function getInfo() { 255ad1ba23SRobert McLeod return array( 26a98ad79cSSam Wilson 'author' => 'iDo, Sam Wilson, Michael Braun', 27a98ad79cSSam Wilson 'email' => '', 288fad05fbSSam Wilson 'date' => '2013-05-17', 295ad1ba23SRobert McLeod 'name' => 'addnewpage', 30c2f9de42SSam Wilson 'desc' => 'Adds a "new page form" to any wiki page.', 31c2f9de42SSam Wilson 'url' => 'https://wiki.dokuwiki.org/plugin:addnewpage', 325ad1ba23SRobert McLeod ); 335ad1ba23SRobert McLeod } 345ad1ba23SRobert McLeod 35c2f9de42SSam Wilson function getType() { return 'substition'; } 365ad1ba23SRobert McLeod 37c2f9de42SSam Wilson function getPType() { return 'block'; } 385ad1ba23SRobert McLeod 39c2f9de42SSam Wilson function getSort() { return 199; } 405ad1ba23SRobert McLeod 415ad1ba23SRobert McLeod function connectTo($mode) { 425ad1ba23SRobert McLeod $this->Lexer->addSpecialPattern('\{\{NEWPAGE[^\}]*\}\}', $mode, 'plugin_addnewpage'); 435ad1ba23SRobert McLeod } 445ad1ba23SRobert McLeod 455ad1ba23SRobert McLeod function handle($match, $state, $pos, &$handler) { 465ad1ba23SRobert McLeod $ns = substr($match, 10, -2); // strip markup 475ad1ba23SRobert McLeod return array($ns); // use an array here 485ad1ba23SRobert McLeod } 495ad1ba23SRobert McLeod 50c2f9de42SSam Wilson /** 51c2f9de42SSam Wilson * Create the new-page form. 52c2f9de42SSam Wilson * 53c2f9de42SSam Wilson * @return boolean 54c2f9de42SSam Wilson */ 555ad1ba23SRobert McLeod function render($mode, &$renderer, $data) { 565ad1ba23SRobert McLeod global $lang; 575ad1ba23SRobert McLeod $renderer->info['cache'] = false; 585ad1ba23SRobert McLeod $data = $data[0]; // get data back from the array 595ad1ba23SRobert McLeod 605ad1ba23SRobert McLeod if ($mode == 'xhtml') { 61c2f9de42SSam Wilson $ns_select = $this->_makecombo($data); 62c2f9de42SSam Wilson if ($ns_select == $this->getLang('nooption')) { 63c2f9de42SSam Wilson $renderer->doc .= (!$this->getConf('addpage_hideACL')) ? $ns_select : ''; 645ad1ba23SRobert McLeod return true; 655ad1ba23SRobert McLeod } 665ad1ba23SRobert McLeod 67c2f9de42SSam Wilson $button_val = ((@$this->getLang('okbutton')) ? $this->getLang('okbutton') : 'ok'); 68c2f9de42SSam Wilson $form = '<div class="addnewpage">'.DOKU_LF 69447a4886SSam Wilson .DOKU_TAB.'<form name="addnewpage" method="get" action="'.DOKU_BASE.DOKU_SCRIPT.'" accept-charset="'.$lang['encoding'].'">'.DOKU_LF 70c2f9de42SSam Wilson .DOKU_TAB.DOKU_TAB.$ns_select.DOKU_LF 71c2f9de42SSam Wilson .DOKU_TAB.DOKU_TAB.'<input class="edit" type="text" name="title" size="20" maxlength="255" tabindex="2" />'.DOKU_LF 72447a4886SSam Wilson .DOKU_TAB.DOKU_TAB.'<input type="hidden" name="do" value="edit" />'.DOKU_LF 73447a4886SSam Wilson .DOKU_TAB.DOKU_TAB.'<input type="hidden" name="id" />'.DOKU_LF 74c2f9de42SSam Wilson .DOKU_TAB.DOKU_TAB.'<input class="button" type="submit" value="'.$button_val.'" tabindex="3" />'.DOKU_LF 75c2f9de42SSam Wilson .DOKU_TAB.'</form>'.DOKU_LF 76c2f9de42SSam Wilson .'</div>'; 77c2f9de42SSam Wilson $renderer->doc .= $form; 785ad1ba23SRobert McLeod 795ad1ba23SRobert McLeod return true; 805ad1ba23SRobert McLeod } 815ad1ba23SRobert McLeod return false; 825ad1ba23SRobert McLeod } 83c2f9de42SSam Wilson 845ad1ba23SRobert McLeod /** 855ad1ba23SRobert McLeod * Parse namespace request 865ad1ba23SRobert McLeod * 875ad1ba23SRobert McLeod * @author Samuele Tognini <samuele@cli.di.unipi.it> 88a98ad79cSSam Wilson * @author Michael Braun <michael-dev@fami-braun.de> 895ad1ba23SRobert McLeod */ 905ad1ba23SRobert McLeod function _parse_ns($ns) { 915ad1ba23SRobert McLeod global $ID; 9205e1bc90SMichael Braun if ($ns == "@PAGE@") return $ID; 9305e1bc90SMichael Braun if ($ns == "@NS@") return getNS($ID); 945ad1ba23SRobert McLeod $ns = preg_replace("/^\.(:|$)/", dirname(str_replace(':', '/', $ID)) . "$1", $ns); 955ad1ba23SRobert McLeod $ns = str_replace("/", ":", $ns); 965ad1ba23SRobert McLeod $ns = cleanID($ns); 975ad1ba23SRobert McLeod return $ns; 985ad1ba23SRobert McLeod } 99c2f9de42SSam Wilson 100c2f9de42SSam Wilson /** 101c2f9de42SSam Wilson * Create the HTML Select element for namespace selection. 102c2f9de42SSam Wilson * 103c2f9de42SSam Wilson * @global string $ID The page ID 1048fad05fbSSam Wilson * @param string|false $dest_ns The destination namespace, or false if none provided. 105c2f9de42SSam Wilson * @return string Select element with appropriate NS selected. 106c2f9de42SSam Wilson */ 107*d36b62c6SSam Wilson function _makecombo($dest_ns) { 1085ad1ba23SRobert McLeod global $ID; 1095ad1ba23SRobert McLeod 1108fad05fbSSam Wilson // If a NS has been provided: 1118fad05fbSSam Wilson // Whether to hide the NS selection (otherwise, show only subnamespaces). 1125ad1ba23SRobert McLeod $hide = $this->getConf('addpage_hide'); 1135ad1ba23SRobert McLeod 1148fad05fbSSam Wilson // Whether the user can create pages in the provided NS (or root, if no 1158fad05fbSSam Wilson // destination NS has been set. 1168fad05fbSSam Wilson $can_create = (auth_quickaclcheck($dest_ns.":") >= AUTH_CREATE); 1178fad05fbSSam Wilson 1188fad05fbSSam Wilson if (!empty($dest_ns) && $hide) { 1198fad05fbSSam Wilson if ($can_create) { 1208fad05fbSSam Wilson return '<input type="hidden" name="np_cat" id="np_cat" value="'.$this->_parse_ns($dest_ns).'"/>'; 1218fad05fbSSam Wilson } else { 1228fad05fbSSam Wilson return $this->getLang('nooption'); 1238fad05fbSSam Wilson } 124c2f9de42SSam Wilson } 1255ad1ba23SRobert McLeod 1265ad1ba23SRobert McLeod $ns = explode(':', $ID); 1275ad1ba23SRobert McLeod array_pop($ns); 1285ad1ba23SRobert McLeod $ns = implode(':', $ns); 1295ad1ba23SRobert McLeod 1305ad1ba23SRobert McLeod $r = $this->_getnslist(""); 1315ad1ba23SRobert McLeod $ret = '<select class="edit" id="np_cat" name="np_cat" tabindex="1">'; 1325ad1ba23SRobert McLeod 1338fad05fbSSam Wilson // Whether the NS select element has any options 1345ad1ba23SRobert McLeod $someopt=false; 1355ad1ba23SRobert McLeod 1368fad05fbSSam Wilson // Show root namespace if requested and allowed 1378fad05fbSSam Wilson if ($this->getConf('addpage_showroot') && $can_create) { 1388fad05fbSSam Wilson if (empty($dest_ns)) { 1398fad05fbSSam Wilson // If no namespace has been provided, add an option for the root NS. 1408fad05fbSSam Wilson $option_text = ((@$this->getLang('namespaceRoot'))?$this->getLang('namespaceRoot'):'top'); 1418fad05fbSSam Wilson $ret.='<option '.(($ns=='')?'selected ':'').'value="">'.$option_text.'</option>'; 1425ad1ba23SRobert McLeod $someopt=true; 1435ad1ba23SRobert McLeod } else { 1448fad05fbSSam Wilson // If a namespace has been provided, add an option for it. 1458fad05fbSSam Wilson $ret.='<option '.(($ns==$dest_ns)?'selected ':'').'value="'.$dest_ns.'">'.$dest_ns.'</option>'; 1465ad1ba23SRobert McLeod $someopt=true; 1475ad1ba23SRobert McLeod } 148c2f9de42SSam Wilson } 1495ad1ba23SRobert McLeod 1505ad1ba23SRobert McLeod foreach ($r as $k => $v) { 151c2f9de42SSam Wilson if ($data != '') { 152c2f9de42SSam Wilson if (strpos(":" . $v, ":" . $data . ":") === false) { 153c2f9de42SSam Wilson continue; 154c2f9de42SSam Wilson } 155c2f9de42SSam Wilson } 1565ad1ba23SRobert McLeod if (auth_quickaclcheck($v . ":") < AUTH_CREATE) continue; 1575ad1ba23SRobert McLeod $vv = explode(':', $v); 1585ad1ba23SRobert McLeod $vv = str_repeat(' ', substr_count($v, ':')) . $vv[count($vv) - 1]; 159e815d9c2SSam Wilson $ret.='<option '.(($ns == $v) ? 'selected ' : '').'value="'.$v.'">'.$vv.'</option>'; 1605ad1ba23SRobert McLeod $someopt = true; 1615ad1ba23SRobert McLeod } 1625ad1ba23SRobert McLeod $ret.='</select>'; 1635ad1ba23SRobert McLeod if (!$someopt) $ret = $this->getLang('nooption'); 1645ad1ba23SRobert McLeod 1655ad1ba23SRobert McLeod return $ret; 1665ad1ba23SRobert McLeod } 167c2f9de42SSam Wilson 1685ad1ba23SRobert McLeod function _getnslist($tns = '') { 1695ad1ba23SRobert McLeod require_once(DOKU_INC . 'inc/search.php'); 1705ad1ba23SRobert McLeod global $conf; 171c2f9de42SSam Wilson if ($tns == '') $tns = $conf['datadir']; 172c2f9de42SSam Wilson if (!is_dir($tns)) $tns = str_replace(':', '/', $tns); 1735ad1ba23SRobert McLeod $data = array(); 1745ad1ba23SRobert McLeod $exclude = $this->getConf('addpage_exclude'); 1755ad1ba23SRobert McLeod 176c2f9de42SSam Wilson if ($exclude == "") $exclude = array(); 177c2f9de42SSam Wilson else $exclude = @explode(';', strtolower($exclude)); 1785ad1ba23SRobert McLeod 1795ad1ba23SRobert McLeod search($data, $tns, 'search_index', array('ns' => '')); 1805ad1ba23SRobert McLeod 1815ad1ba23SRobert McLeod $data2 = array(); 1825ad1ba23SRobert McLeod foreach ($data as $k => $v) { 1835ad1ba23SRobert McLeod if ($v['type'] == 'd') { 1845ad1ba23SRobert McLeod if (!in_array(strtolower($v['id']), $exclude)) { 1855ad1ba23SRobert McLeod array_push($data2, $v['id']); 1865ad1ba23SRobert McLeod $r = $this->_getnslist($tns . '/' . $v['id']); 1875ad1ba23SRobert McLeod foreach ($r as $vv) { 188c2f9de42SSam Wilson if (!in_array(strtolower($vv), $exclude)) { 1895ad1ba23SRobert McLeod array_push($data2, $v['id'] . ':' . $vv); 1905ad1ba23SRobert McLeod } 1915ad1ba23SRobert McLeod } 1925ad1ba23SRobert McLeod } 1935ad1ba23SRobert McLeod } 194c2f9de42SSam Wilson } 1955ad1ba23SRobert McLeod return $data2; 1965ad1ba23SRobert McLeod } 197c2f9de42SSam Wilson 1985ad1ba23SRobert McLeod} 199