xref: /plugin/addnewpage/syntax.php (revision 0102fe8c7bc538ddb14a84a8541f4795289bf88b)
15ad1ba23SRobert McLeod<?php
2c2f9de42SSam Wilson/**
3c2f9de42SSam Wilson * Add-New-Page Plugin: a simple form for adding new pages.
4c2f9de42SSam Wilson *
5c2f9de42SSam Wilson * @license  GPL 2 (http://www.gnu.org/licenses/gpl.html)
6c2f9de42SSam Wilson * @author   iDO <ido@idotech.info>
7c2f9de42SSam Wilson * @author   Sam Wilson <sam@samwilson.id.au>
8c2f9de42SSam Wilson */
9*0102fe8cSDamien Regad
10*0102fe8cSDamien Regad// must be run within Dokuwiki
11*0102fe8cSDamien Regadif(!defined('DOKU_INC')) die();
12*0102fe8cSDamien Regad
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}}
529785b7d1SVladimir     *   {{NEWPAGE>your:namespace#newtpl1|Title1,newtpl2|Title1#@HI@,Howdy}}
53735f6285SGerrit Uitslag     *
54d49bfc3cSGerrit Uitslag     * @param   string       $match   The text matched by the patterns
55d49bfc3cSGerrit Uitslag     * @param   int          $state   The lexer state for the match
56d49bfc3cSGerrit Uitslag     * @param   int          $pos     The character position of the matched text
57d49bfc3cSGerrit Uitslag     * @param   Doku_Handler $handler The Doku_Handler object
58d49bfc3cSGerrit Uitslag     * @return  array Return an array with all data you want to use in render
5903475bb4SSam Wilson     * @codingStandardsIgnoreStart
60d49bfc3cSGerrit Uitslag     */
61716e610aSGerrit Uitslag    public function handle($match, $state, $pos, Doku_Handler $handler) {
6203475bb4SSam Wilson        /* @codingStandardsIgnoreEnd */
63716e610aSGerrit Uitslag        $options = substr($match, 9, -2); // strip markup
649785b7d1SVladimir        $options = explode('#', $options, 3);
65716e610aSGerrit Uitslag
66735f6285SGerrit Uitslag        $namespace = trim(ltrim($options[0], '>'));
675cc7d735SDamien Regad        $templates = explode(',', $options[1] ?? '');
68716e610aSGerrit Uitslag        $templates = array_map('trim', $templates);
699418ebb8SDamien Regad        $newpagevars = trim($options[2] ?? '');
70716e610aSGerrit Uitslag        return array(
71716e610aSGerrit Uitslag            'namespace' => $namespace,
729785b7d1SVladimir            'newpagetemplates' => $templates,
739785b7d1SVladimir            'newpagevars' => $newpagevars
74716e610aSGerrit Uitslag        );
755ad1ba23SRobert McLeod    }
765ad1ba23SRobert McLeod
77c2f9de42SSam Wilson    /**
78c2f9de42SSam Wilson     * Create the new-page form.
79c2f9de42SSam Wilson     *
80d49bfc3cSGerrit Uitslag     * @param   $mode     string        output format being rendered
81d49bfc3cSGerrit Uitslag     * @param   $renderer Doku_Renderer the current renderer object
82d49bfc3cSGerrit Uitslag     * @param   $data     array         data created by handler()
83d49bfc3cSGerrit Uitslag     * @return  boolean                 rendered correctly?
84c2f9de42SSam Wilson     */
85716e610aSGerrit Uitslag    public function render($mode, Doku_Renderer $renderer, $data) {
865ad1ba23SRobert McLeod        global $lang;
875ad1ba23SRobert McLeod
885ad1ba23SRobert McLeod        if($mode == 'xhtml') {
8952cbbe71SDenis Anikin            $disablecache = true;
9052cbbe71SDenis Anikin            if($disablecache) $renderer->info['cache'] = false;
91716e610aSGerrit Uitslag            $namespaceinput = $this->_htmlNamespaceInput($data['namespace'], $disablecache);
92716e610aSGerrit Uitslag            if($namespaceinput === false) {
93716e610aSGerrit Uitslag                if($this->getConf('addpage_hideACL')) {
94716e610aSGerrit Uitslag                    $renderer->doc .= '';
95716e610aSGerrit Uitslag                } else {
96716e610aSGerrit Uitslag                    $renderer->doc .= $this->getLang('nooption');
97716e610aSGerrit Uitslag                }
985ad1ba23SRobert McLeod                return true;
995ad1ba23SRobert McLeod            }
1005ad1ba23SRobert McLeod
101716e610aSGerrit Uitslag            $newpagetemplateinput = $this->_htmlTemplateInput($data['newpagetemplates']);
102716e610aSGerrit Uitslag
103ed55cb4cSMichael Grosse            $form = '<div class="addnewpage"><p>'
104ed55cb4cSMichael Grosse                . '<form name="addnewpage" method="get" action="' . DOKU_BASE . DOKU_SCRIPT . '" accept-charset="' . $lang['encoding'] . '">'
105ed55cb4cSMichael Grosse                . $namespaceinput
106ed55cb4cSMichael Grosse                . '<input class="edit" type="text" name="title" size="20" maxlength="255" tabindex="2" />'
107716e610aSGerrit Uitslag                . $newpagetemplateinput
108ed55cb4cSMichael Grosse                . '<input type="hidden" name="newpagevars" value="' . $data['newpagevars'] . '"/>'
109ed55cb4cSMichael Grosse                . '<input type="hidden" name="do" value="edit" />'
110ed55cb4cSMichael Grosse                . '<input type="hidden" name="id" />'
111ed55cb4cSMichael Grosse                . '<input class="button" type="submit" value="' . $this->getLang('okbutton') . '" tabindex="4" />'
112ed55cb4cSMichael Grosse                . '</form>'
113aa8cc19bSMichael Grosse                . '</p></div>';
114ed55cb4cSMichael Grosse
115c2f9de42SSam Wilson            $renderer->doc .= $form;
1165ad1ba23SRobert McLeod
1175ad1ba23SRobert McLeod            return true;
1185ad1ba23SRobert McLeod        }
1195ad1ba23SRobert McLeod        return false;
1205ad1ba23SRobert McLeod    }
121c2f9de42SSam Wilson
1225ad1ba23SRobert McLeod    /**
1235ad1ba23SRobert McLeod     * Parse namespace request
1245ad1ba23SRobert McLeod     *
1255ad1ba23SRobert McLeod     * @author Samuele Tognini <samuele@cli.di.unipi.it>
126a98ad79cSSam Wilson     * @author Michael Braun <michael-dev@fami-braun.de>
1275ad1ba23SRobert McLeod     */
12803475bb4SSam Wilson    protected function _parseNS($ns) {
129ccc8b5fdSmw75        $ID=getID();
13018c06200SMichael Grosse        if(strpos($ns, '@PAGE@') !== false) {
13118c06200SMichael Grosse            return cleanID(str_replace('@PAGE@', $ID, $ns));
13243baf956SMichael Grosse        }
13305e1bc90SMichael Braun        if($ns == "@NS@") return getNS($ID);
1345ad1ba23SRobert McLeod        $ns = preg_replace("/^\.(:|$)/", dirname(str_replace(':', '/', $ID)) . "$1", $ns);
1355ad1ba23SRobert McLeod        $ns = str_replace("/", ":", $ns);
1365ad1ba23SRobert McLeod        $ns = cleanID($ns);
1375ad1ba23SRobert McLeod        return $ns;
1385ad1ba23SRobert McLeod    }
139c2f9de42SSam Wilson
140c2f9de42SSam Wilson    /**
141c2f9de42SSam Wilson     * Create the HTML Select element for namespace selection.
142c2f9de42SSam Wilson     *
1438fad05fbSSam Wilson     * @param string|false $dest_ns The destination namespace, or false if none provided.
144716e610aSGerrit Uitslag     * @param bool $disablecache reference indicates if caching need to be disabled
145716e610aSGerrit Uitslag     * @global string $ID The page ID
146c2f9de42SSam Wilson     * @return string Select element with appropriate NS selected.
147c2f9de42SSam Wilson     */
148716e610aSGerrit Uitslag    protected function _htmlNamespaceInput($dest_ns, &$disablecache) {
1495ad1ba23SRobert McLeod        global $ID;
150716e610aSGerrit Uitslag        $disablecache = false;
1515ad1ba23SRobert McLeod
1528fad05fbSSam Wilson        // If a NS has been provided:
1538fad05fbSSam Wilson        // Whether to hide the NS selection (otherwise, show only subnamespaces).
1545ad1ba23SRobert McLeod        $hide = $this->getConf('addpage_hide');
1555ad1ba23SRobert McLeod
15629fe948bSJulian Einwag        $parsed_dest_ns = $this->_parseNS($dest_ns);
1578fad05fbSSam Wilson        // Whether the user can create pages in the provided NS (or root, if no
1588fad05fbSSam Wilson        // destination NS has been set.
15929fe948bSJulian Einwag        $can_create = (auth_quickaclcheck($parsed_dest_ns . ":") >= AUTH_CREATE);
1608fad05fbSSam Wilson
161716e610aSGerrit Uitslag        //namespace given, but hidden
162716e610aSGerrit Uitslag        if($hide && !empty($dest_ns)) {
1638fad05fbSSam Wilson            if($can_create) {
16429fe948bSJulian Einwag                return '<input type="hidden" name="np_cat" id="np_cat" value="' . $parsed_dest_ns . '"/>';
1658fad05fbSSam Wilson            } else {
166716e610aSGerrit Uitslag                return false;
1678fad05fbSSam Wilson            }
168c2f9de42SSam Wilson        }
1695ad1ba23SRobert McLeod
170716e610aSGerrit Uitslag        //show select of given namespace
171716e610aSGerrit Uitslag        $currentns = getNS($ID);
1725ad1ba23SRobert McLeod
1735ad1ba23SRobert McLeod        $ret = '<select class="edit" id="np_cat" name="np_cat" tabindex="1">';
1745ad1ba23SRobert McLeod
1758fad05fbSSam Wilson        // Whether the NS select element has any options
1765ad1ba23SRobert McLeod        $someopt = false;
1775ad1ba23SRobert McLeod
1788fad05fbSSam Wilson        // Show root namespace if requested and allowed
1798fad05fbSSam Wilson        if($this->getConf('addpage_showroot') && $can_create) {
1808fad05fbSSam Wilson            if(empty($dest_ns)) {
1818fad05fbSSam Wilson                // If no namespace has been provided, add an option for the root NS.
182e6a74061SGerrit Uitslag                $ret .= '<option ' . (($currentns == '') ? 'selected ' : '') . 'value="">' . $this->getLang('namespaceRoot') . '</option>';
1835ad1ba23SRobert McLeod                $someopt = true;
1845ad1ba23SRobert McLeod            } else {
1858fad05fbSSam Wilson                // If a namespace has been provided, add an option for it.
186e6a74061SGerrit Uitslag                $ret .= '<option ' . (($currentns == $dest_ns) ? 'selected ' : '') . 'value="' . formText($dest_ns) . '">' . formText($dest_ns) . '</option>';
1875ad1ba23SRobert McLeod                $someopt = true;
1885ad1ba23SRobert McLeod            }
189c2f9de42SSam Wilson        }
1905ad1ba23SRobert McLeod
19103475bb4SSam Wilson        $subnamespaces = $this->_getNamespaceList($dest_ns);
192fead6b5eSAlbert Chern
193fead6b5eSAlbert Chern        // The top of this stack will always be the last printed ancestor namespace
194fead6b5eSAlbert Chern        $ancestor_stack = array();
195fead6b5eSAlbert Chern        if (!empty($dest_ns)) {
196fead6b5eSAlbert Chern            array_push($ancestor_stack, $dest_ns);
197fead6b5eSAlbert Chern        }
198fead6b5eSAlbert Chern
199716e610aSGerrit Uitslag        foreach($subnamespaces as $ns) {
200fead6b5eSAlbert Chern
201716e610aSGerrit Uitslag            if(auth_quickaclcheck($ns . ":") < AUTH_CREATE) continue;
202fead6b5eSAlbert Chern
203fead6b5eSAlbert Chern            // Pop any elements off the stack that are not ancestors of the current namespace
204fead6b5eSAlbert Chern            while(!empty($ancestor_stack) && strpos($ns, $ancestor_stack[count($ancestor_stack) - 1] . ':') !== 0) {
205fead6b5eSAlbert Chern                array_pop($ancestor_stack);
206fead6b5eSAlbert Chern            }
207fead6b5eSAlbert Chern
208716e610aSGerrit Uitslag            $nsparts = explode(':', $ns);
209fead6b5eSAlbert Chern            $first_unprinted_depth = empty($ancestor_stack)? 1 : (2 + substr_count($ancestor_stack[count($ancestor_stack) - 1], ':'));
210fead6b5eSAlbert Chern            for ($i = $first_unprinted_depth, $end = count($nsparts); $i <= $end; $i++) {
211fead6b5eSAlbert Chern                $namespace = implode(':', array_slice($nsparts, 0, $i));
212fead6b5eSAlbert Chern                array_push($ancestor_stack, $namespace);
213fead6b5eSAlbert Chern                $selectOptionText = str_repeat('&nbsp;&nbsp;', substr_count($namespace, ':')) . $nsparts[$i - 1];
214fead6b5eSAlbert Chern                $ret .= '<option ' .
215fead6b5eSAlbert Chern                    (($currentns == $namespace) ? 'selected ' : '') .
216fead6b5eSAlbert Chern                    ($i == $end? ('value="' . $namespace . '">') : 'disabled>') .
217fead6b5eSAlbert Chern                    $selectOptionText .
218fead6b5eSAlbert Chern                    '</option>';
219fead6b5eSAlbert Chern            }
2205ad1ba23SRobert McLeod            $someopt = true;
221716e610aSGerrit Uitslag            $disablecache = true;
2225ad1ba23SRobert McLeod        }
223fead6b5eSAlbert Chern
2245ad1ba23SRobert McLeod        $ret .= '</select>';
2255ad1ba23SRobert McLeod
226716e610aSGerrit Uitslag        if($someopt) {
2275ad1ba23SRobert McLeod            return $ret;
228716e610aSGerrit Uitslag        } else {
229716e610aSGerrit Uitslag            return false;
230716e610aSGerrit Uitslag        }
2315ad1ba23SRobert McLeod    }
232c2f9de42SSam Wilson
233f9dafbcdSSam Wilson    /**
234f9dafbcdSSam Wilson     * Get a list of namespaces below the given namespace.
235f9dafbcdSSam Wilson     * Recursively fetches subnamespaces.
236f9dafbcdSSam Wilson     *
237716e610aSGerrit Uitslag     * @param string $topns The top namespace
238f9dafbcdSSam Wilson     * @return array Multi-dimensional array of all namespaces below $tns
239f9dafbcdSSam Wilson     */
24003475bb4SSam Wilson    protected function _getNamespaceList($topns = '') {
2415ad1ba23SRobert McLeod        global $conf;
242d49bfc3cSGerrit Uitslag
243716e610aSGerrit Uitslag        $topns = utf8_encodeFN(str_replace(':', '/', $topns));
2445ad1ba23SRobert McLeod
245716e610aSGerrit Uitslag        $excludes = $this->getConf('addpage_exclude');
246716e610aSGerrit Uitslag        if($excludes == "") {
247716e610aSGerrit Uitslag            $excludes = array();
248716e610aSGerrit Uitslag        } else {
249716e610aSGerrit Uitslag            $excludes = @explode(';', strtolower($excludes));
250716e610aSGerrit Uitslag        }
251716e610aSGerrit Uitslag        $searchdata = array();
252716e610aSGerrit Uitslag        search($searchdata, $conf['datadir'], 'search_namespaces', array(), $topns);
2535ad1ba23SRobert McLeod
254716e610aSGerrit Uitslag        $namespaces = array();
255716e610aSGerrit Uitslag        foreach($searchdata as $ns) {
256716e610aSGerrit Uitslag            foreach($excludes as $exclude) {
257017bc029SMatthieu Estrada                if( ! empty($exclude) && strpos($ns['id'], $exclude) === 0) {
258716e610aSGerrit Uitslag                    continue 2;
259716e610aSGerrit Uitslag                }
260716e610aSGerrit Uitslag            }
261716e610aSGerrit Uitslag            $namespaces[] = $ns['id'];
262716e610aSGerrit Uitslag        }
2635ad1ba23SRobert McLeod
264716e610aSGerrit Uitslag        return $namespaces;
2655ad1ba23SRobert McLeod    }
266716e610aSGerrit Uitslag
267716e610aSGerrit Uitslag    /**
268716e610aSGerrit Uitslag     * Create html for selection of namespace templates
269716e610aSGerrit Uitslag     *
270716e610aSGerrit Uitslag     * @param array $newpagetemplates array of namespace templates
271716e610aSGerrit Uitslag     * @return string html of select or hidden input
272716e610aSGerrit Uitslag     */
273716e610aSGerrit Uitslag    public function _htmlTemplateInput($newpagetemplates) {
274716e610aSGerrit Uitslag        $cnt = count($newpagetemplates);
275716e610aSGerrit Uitslag        if($cnt < 1 || $cnt == 1 && $newpagetemplates[0] == '') {
276716e610aSGerrit Uitslag            $input = '';
277716e610aSGerrit Uitslag
278716e610aSGerrit Uitslag        } else {
279716e610aSGerrit Uitslag            if($cnt == 1) {
28003475bb4SSam Wilson                list($template, ) = $this->_parseNSTemplatePage($newpagetemplates[0]);
281e6a74061SGerrit Uitslag                $input = '<input type="hidden" name="newpagetemplate" value="' . formText($template) . '" />';
282716e610aSGerrit Uitslag            } else {
283716e610aSGerrit Uitslag                $first = true;
2848c8f824eSGerrit Uitslag                $input = '<select name="newpagetemplate" tabindex="3">';
285716e610aSGerrit Uitslag                foreach($newpagetemplates as $template) {
286716e610aSGerrit Uitslag                    $p = ($first ? ' selected="selected"' : '');
287716e610aSGerrit Uitslag                    $first = false;
288716e610aSGerrit Uitslag
28903475bb4SSam Wilson                    list($template, $name) = $this->_parseNSTemplatePage($template);
290716e610aSGerrit Uitslag                    $p .= ' value="'.formText($template).'"';
291716e610aSGerrit Uitslag                    $input .= "<option $p>".formText($name)."</option>";
2925ad1ba23SRobert McLeod                }
293716e610aSGerrit Uitslag                $input .= '</select>';
2945ad1ba23SRobert McLeod            }
295716e610aSGerrit Uitslag            $input = DOKU_TAB . DOKU_TAB . $input . DOKU_LF;
2965ad1ba23SRobert McLeod        }
297716e610aSGerrit Uitslag        return $input;
298c2f9de42SSam Wilson    }
299716e610aSGerrit Uitslag
300716e610aSGerrit Uitslag    /**
301716e610aSGerrit Uitslag     * Parses and resolves the namespace template page
302716e610aSGerrit Uitslag     *
303716e610aSGerrit Uitslag     * @param $nstemplate
304716e610aSGerrit Uitslag     * @return array
305716e610aSGerrit Uitslag     */
30603475bb4SSam Wilson    protected function _parseNSTemplatePage($nstemplate) {
307716e610aSGerrit Uitslag        global $ID;
308716e610aSGerrit Uitslag
309716e610aSGerrit Uitslag        @list($template, $name) = explode('|', $nstemplate, 2);
310716e610aSGerrit Uitslag
311716e610aSGerrit Uitslag        $exist = null;
312716e610aSGerrit Uitslag        resolve_pageid(getNS($ID), $template, $exist); //get absolute id
313716e610aSGerrit Uitslag
314716e610aSGerrit Uitslag        if (is_null($name)) $name = $template;
315716e610aSGerrit Uitslag
316716e610aSGerrit Uitslag        return array($template, $name);
3175ad1ba23SRobert McLeod    }
318c2f9de42SSam Wilson
3195ad1ba23SRobert McLeod}
320