xref: /plugin/tagging/helper.php (revision 09536771e77d1c7c8a979e031029f87403367cc2)
1f61105deSAdrian Lang<?php
2f61105deSAdrian Lang
3f61105deSAdrian Langif(!defined('DOKU_INC')) die();
4e4543b6dSAdrian Langclass helper_plugin_tagging extends DokuWiki_Plugin {
5f61105deSAdrian Lang
6289f50bdSAndreas Gohr    /**
7b12334e1SAndreas Gohr     * Gives access to the database
8b12334e1SAndreas Gohr     *
9b12334e1SAndreas Gohr     * Initializes the SQLite helper and register the CLEANTAG function
10b12334e1SAndreas Gohr     *
11b12334e1SAndreas Gohr     * @return helper_plugin_sqlite|bool false if initialization fails
12289f50bdSAndreas Gohr     */
13289f50bdSAndreas Gohr    public function getDB() {
14302a38efSAndreas Gohr        static $db = null;
15f61105deSAdrian Lang        if(!is_null($db)) {
16f61105deSAdrian Lang            return $db;
17f61105deSAdrian Lang        }
18f61105deSAdrian Lang
19302a38efSAndreas Gohr        /** @var helper_plugin_sqlite $db */
20f61105deSAdrian Lang        $db = plugin_load('helper', 'sqlite');
21f61105deSAdrian Lang        if(is_null($db)) {
22f61105deSAdrian Lang            msg('The tagging plugin needs the sqlite plugin', -1);
23f61105deSAdrian Lang            return false;
24f61105deSAdrian Lang        }
257e6afce6SAndreas Gohr        $db->init('tagging', dirname(__FILE__) . '/db/');
26302a38efSAndreas Gohr        $db->create_function('CLEANTAG', array($this, 'cleanTag'), 1);
27f61105deSAdrian Lang        return $db;
28f61105deSAdrian Lang    }
29f61105deSAdrian Lang
30302a38efSAndreas Gohr    /**
31302a38efSAndreas Gohr     * Canonicalizes the tag to its lower case nospace form
32302a38efSAndreas Gohr     *
33302a38efSAndreas Gohr     * @param $tag
34302a38efSAndreas Gohr     * @return string
35302a38efSAndreas Gohr     */
36302a38efSAndreas Gohr    public function cleanTag($tag) {
37302a38efSAndreas Gohr        $tag = str_replace(' ', '', $tag);
38302a38efSAndreas Gohr        $tag = utf8_strtolower($tag);
39302a38efSAndreas Gohr        return $tag;
40302a38efSAndreas Gohr    }
41302a38efSAndreas Gohr
42f61105deSAdrian Lang    public function replaceTags($id, $user, $tags) {
43f61105deSAdrian Lang        $db = $this->getDB();
44f61105deSAdrian Lang        $db->query('BEGIN TRANSACTION');
45f61105deSAdrian Lang        $queries = array(array('DELETE FROM taggings WHERE pid = ? AND tagger = ?', $id, $user));
46f61105deSAdrian Lang        foreach($tags as $tag) {
47f61105deSAdrian Lang            $queries[] = array('INSERT INTO taggings (pid, tagger, tag) VALUES(?, ?, ?)', $id, $user, $tag);
48f61105deSAdrian Lang        }
49f61105deSAdrian Lang
50f61105deSAdrian Lang        foreach($queries as $query) {
51f61105deSAdrian Lang            if(!call_user_func_array(array($db, 'query'), $query)) {
52f61105deSAdrian Lang                $db->query('ROLLBACK TRANSACTION');
53f61105deSAdrian Lang                return false;
54f61105deSAdrian Lang            }
55f61105deSAdrian Lang        }
56f61105deSAdrian Lang        return $db->query('COMMIT TRANSACTION');
57f61105deSAdrian Lang    }
58f61105deSAdrian Lang
590a518a11SAndreas Gohr    /**
60b12334e1SAndreas Gohr     * Get a list of Tags or Pages matching search criteria
610a518a11SAndreas Gohr     *
62b12334e1SAndreas Gohr     * @param array  $filter What to search for array('field' => 'searchterm')
63b12334e1SAndreas Gohr     * @param string $type   What field to return 'tag'|'pid'
64077ff864SAndreas Gohr     * @param int    $limit  Limit to this many results, 0 for all
650a518a11SAndreas Gohr     * @return array associative array in form of value => count
660a518a11SAndreas Gohr     */
67077ff864SAndreas Gohr    public function findItems($filter, $type, $limit=0) {
68f61105deSAdrian Lang        $db = $this->getDB();
69b12334e1SAndreas Gohr        if(!$db) return array();
70f61105deSAdrian Lang
71b12334e1SAndreas Gohr        // create WHERE clause
72b12334e1SAndreas Gohr        $where = '1=1';
73b12334e1SAndreas Gohr        foreach($filter as $field => $value) {
74b12334e1SAndreas Gohr            // compare clean tags only
75b12334e1SAndreas Gohr            if($field === 'tag') {
76b12334e1SAndreas Gohr                $field = 'CLEANTAG(tag)';
77b12334e1SAndreas Gohr                $q     = 'CLEANTAG(?)';
78b12334e1SAndreas Gohr            } else {
79b12334e1SAndreas Gohr                $q = '?';
80b12334e1SAndreas Gohr            }
81b12334e1SAndreas Gohr            // detect LIKE filters
82b12334e1SAndreas Gohr            if($this->useLike($value)) {
83b12334e1SAndreas Gohr                $where .= " AND $field LIKE $q";
84b12334e1SAndreas Gohr            } else {
85b12334e1SAndreas Gohr                $where .= " AND $field = $q";
86b12334e1SAndreas Gohr            }
87b12334e1SAndreas Gohr        }
88b12334e1SAndreas Gohr        // group and order
89b12334e1SAndreas Gohr        if($type == 'tag') {
90b12334e1SAndreas Gohr            $groupby = 'CLEANTAG(tag)';
91b12334e1SAndreas Gohr            $orderby = 'CLEANTAG(tag)';
92b12334e1SAndreas Gohr        } else {
93b12334e1SAndreas Gohr            $groupby = $type;
94466524f5SAndreas Gohr            $orderby = "cnt DESC, $type";
95b12334e1SAndreas Gohr        }
96b12334e1SAndreas Gohr
97077ff864SAndreas Gohr        // limit results
98077ff864SAndreas Gohr        if($limit) {
99077ff864SAndreas Gohr            $limit = " LIMIT $limit";
100077ff864SAndreas Gohr        }else{
101077ff864SAndreas Gohr            $limit = '';
102077ff864SAndreas Gohr        }
103077ff864SAndreas Gohr
104b12334e1SAndreas Gohr        // create SQL
105b12334e1SAndreas Gohr        $sql = "SELECT $type AS item, COUNT(*) AS cnt
106b12334e1SAndreas Gohr                  FROM taggings
107b12334e1SAndreas Gohr                 WHERE $where
108b12334e1SAndreas Gohr              GROUP BY $groupby
109077ff864SAndreas Gohr              ORDER BY $orderby
110077ff864SAndreas Gohr                $limit
111077ff864SAndreas Gohr              ";
112b12334e1SAndreas Gohr
113b12334e1SAndreas Gohr        // run query and turn into associative array
114b12334e1SAndreas Gohr        $res = $db->query($sql, array_values($filter));
115f61105deSAdrian Lang        $res = $db->res2arr($res);
116b12334e1SAndreas Gohr
117f61105deSAdrian Lang        $ret = array();
118b12334e1SAndreas Gohr        foreach($res as $row) {
119b12334e1SAndreas Gohr            $ret[$row['item']] = $row['cnt'];
120f61105deSAdrian Lang        }
121f61105deSAdrian Lang        return $ret;
122f61105deSAdrian Lang    }
123f61105deSAdrian Lang
124b12334e1SAndreas Gohr    /**
125b12334e1SAndreas Gohr     * Check if the given string is a LIKE statement
126b12334e1SAndreas Gohr     *
127b12334e1SAndreas Gohr     * @param string $value
128b12334e1SAndreas Gohr     * @return bool
129b12334e1SAndreas Gohr     */
130b12334e1SAndreas Gohr    private function useLike($value) {
131b12334e1SAndreas Gohr        return strpos($value, '%') === 0 || strrpos($value, '%') === strlen($value) - 1;
132b2073787SDominik Eckelmann    }
133b2073787SDominik Eckelmann
134302a38efSAndreas Gohr    /**
135302a38efSAndreas Gohr     * Constructs the URL to search for a tag
136302a38efSAndreas Gohr     *
1375540f91dSAndreas Gohr     * @param string $tag
1385540f91dSAndreas Gohr     * @param string $ns
139302a38efSAndreas Gohr     * @return string
140302a38efSAndreas Gohr     */
1415540f91dSAndreas Gohr    public function getTagSearchURL($tag, $ns = '') {
1425540f91dSAndreas Gohr        $ret = '?do=search&id=' . rawurlencode($tag);
1435540f91dSAndreas Gohr        if($ns) $ret .= rawurlencode(' @' . $ns);
1445540f91dSAndreas Gohr
1455540f91dSAndreas Gohr        return $ret;
146f61105deSAdrian Lang    }
147f61105deSAdrian Lang
1485540f91dSAndreas Gohr    /**
1495540f91dSAndreas Gohr     * Calculates the size levels for the given list of clouds
1505540f91dSAndreas Gohr     *
1515540f91dSAndreas Gohr     * Automatically determines sensible tresholds
1525540f91dSAndreas Gohr     *
1535540f91dSAndreas Gohr     * @param array $tags list of tags => count
1545540f91dSAndreas Gohr     * @param int   $levels
1555540f91dSAndreas Gohr     * @return mixed
1565540f91dSAndreas Gohr     */
157f61105deSAdrian Lang    public function cloudData($tags, $levels = 10) {
158f61105deSAdrian Lang        $min = min($tags);
159f61105deSAdrian Lang        $max = max($tags);
160f61105deSAdrian Lang
161f61105deSAdrian Lang        // calculate tresholds
162f61105deSAdrian Lang        $tresholds = array();
163f61105deSAdrian Lang        for($i = 0; $i <= $levels; $i++) {
164f61105deSAdrian Lang            $tresholds[$i] = pow($max - $min + 1, $i / $levels) + $min - 1;
165f61105deSAdrian Lang        }
166f61105deSAdrian Lang
167f61105deSAdrian Lang        // assign weights
168f61105deSAdrian Lang        foreach($tags as $tag => $cnt) {
169f61105deSAdrian Lang            foreach($tresholds as $tresh => $val) {
170f61105deSAdrian Lang                if($cnt <= $val) {
171f61105deSAdrian Lang                    $tags[$tag] = $tresh;
172f61105deSAdrian Lang                    break;
173f61105deSAdrian Lang                }
174f61105deSAdrian Lang                $tags[$tag] = $levels;
175f61105deSAdrian Lang            }
176f61105deSAdrian Lang        }
177f61105deSAdrian Lang        return $tags;
178f61105deSAdrian Lang    }
179f61105deSAdrian Lang
1805540f91dSAndreas Gohr    /**
1815540f91dSAndreas Gohr     * Display a tag cloud
1825540f91dSAndreas Gohr     *
1835540f91dSAndreas Gohr     * @param array    $tags   list of tags => count
1845540f91dSAndreas Gohr     * @param string   $type   'tag'
1855540f91dSAndreas Gohr     * @param Callable $func   The function to print the link (gets tag and ns)
1865540f91dSAndreas Gohr     * @param bool     $wrap   wrap cloud in UL tags?
1875540f91dSAndreas Gohr     * @param bool     $return returnn HTML instead of printing?
1885540f91dSAndreas Gohr     * @param string   $ns     Add this namespace to search links
1895540f91dSAndreas Gohr     * @return string
1905540f91dSAndreas Gohr     */
1915540f91dSAndreas Gohr    public function html_cloud($tags, $type, $func, $wrap = true, $return = false, $ns = '') {
192f61105deSAdrian Lang        $ret = '';
1930dbdc3fcSAdrian Lang        if($wrap) $ret .= '<ul class="tagging_cloud clearfix">';
194f61105deSAdrian Lang        if(count($tags) === 0) {
195f61105deSAdrian Lang            // Produce valid XHTML (ul needs a child)
196f61105deSAdrian Lang            $this->setupLocale();
197f61105deSAdrian Lang            $ret .= '<li><div class="li">' . $this->lang['js']['no' . $type . 's'] . '</div></li>';
198f61105deSAdrian Lang        } else {
199f61105deSAdrian Lang            $tags = $this->cloudData($tags);
200f61105deSAdrian Lang            foreach($tags as $val => $size) {
201f61105deSAdrian Lang                $ret .= '<li class="t' . $size . '"><div class="li">';
2025540f91dSAndreas Gohr                $ret .= call_user_func($func, $val, $ns);
203f61105deSAdrian Lang                $ret .= '</div></li>';
204f61105deSAdrian Lang            }
205f61105deSAdrian Lang        }
206f61105deSAdrian Lang        if($wrap) $ret .= '</ul>';
207f61105deSAdrian Lang        if($return) return $ret;
208f61105deSAdrian Lang        echo $ret;
2095540f91dSAndreas Gohr        return '';
210f61105deSAdrian Lang    }
211f61105deSAdrian Lang
2125540f91dSAndreas Gohr    /**
2135540f91dSAndreas Gohr     * Get the link to a search for the given tag
2145540f91dSAndreas Gohr     *
2155540f91dSAndreas Gohr     * @param string $tag search for this tag
2165540f91dSAndreas Gohr     * @param string $ns  limit search to this namespace
2175540f91dSAndreas Gohr     * @return string
2185540f91dSAndreas Gohr     */
2195540f91dSAndreas Gohr    protected function linkToSearch($tag, $ns = '') {
2205540f91dSAndreas Gohr        return '<a href="' . hsc($this->getTagSearchURL($tag, $ns)) . '">' . $tag . '</a>';
221f61105deSAdrian Lang    }
222f61105deSAdrian Lang
223*09536771SAndreas Gohr
224f61105deSAdrian Lang    public function tpl_tags() {
225f61105deSAdrian Lang        global $INFO;
226f61105deSAdrian Lang        global $lang;
227fbf38c5bSAndreas Gohr        $tags = $this->findItems(array('pid' => $INFO['id']), 'tag');
228*09536771SAndreas Gohr        echo '<div class="plugin_tagging_edit">';
229f61105deSAdrian Lang        $this->html_cloud($tags, 'tag', array($this, 'linkToSearch'));
230f61105deSAdrian Lang
231f61105deSAdrian Lang        if(isset($_SERVER['REMOTE_USER']) && $INFO['writable']) {
232f61105deSAdrian Lang            $lang['btn_tagging_edit'] = $lang['btn_secedit'];
233fbf38c5bSAndreas Gohr            echo html_btn('tagging_edit', $INFO['id'], '', array());
234289f50bdSAndreas Gohr            $form = new Doku_Form(array('id' => 'tagging__edit'));
235fbf38c5bSAndreas Gohr            $form->addHidden('tagging[id]', $INFO['id']);
236289f50bdSAndreas Gohr            $form->addHidden('call', 'plugin_tagging_save');
237fbf38c5bSAndreas Gohr            $form->addElement(form_makeTextField('tagging[tags]', implode(', ', array_keys($this->findItems(array('pid' => $INFO['id'], 'tagger' => $_SERVER['REMOTE_USER']), 'tag')))));
238289f50bdSAndreas Gohr            $form->addElement(form_makeButton('submit', 'save', $lang['btn_save'], array('id' => 'tagging__edit_save')));
239289f50bdSAndreas Gohr            $form->addElement(form_makeButton('submit', 'cancel', $lang['btn_cancel'], array('id' => 'tagging__edit_cancel')));
240f61105deSAdrian Lang            $form->printForm();
241f61105deSAdrian Lang        }
242*09536771SAndreas Gohr        echo '</div>';
243f61105deSAdrian Lang    }
244872edc7cSRené Corinth
2458a1a3846SAndreas Gohr    /**
2468a1a3846SAndreas Gohr     * @return array
2478a1a3846SAndreas Gohr     */
248872edc7cSRené Corinth    public function getAllTags() {
249872edc7cSRené Corinth
250872edc7cSRené Corinth        $db  = $this->getDb();
2518a1a3846SAndreas Gohr        $res = $db->query('SELECT pid, tag, tagger FROM taggings ORDER BY tag');
252872edc7cSRené Corinth
253872edc7cSRené Corinth        $tags_tmp = $db->res2arr($res);
254872edc7cSRené Corinth        $tags     = array();
255872edc7cSRené Corinth        foreach($tags_tmp as $tag) {
256302a38efSAndreas Gohr            $tid = $this->cleanTag($tag['tag']);
257872edc7cSRené Corinth
258302a38efSAndreas Gohr            //$tags[$tid]['pid'][] = $tag['pid'];
259872edc7cSRené Corinth
260302a38efSAndreas Gohr            if(isset($tags[$tid]['count'])) {
261302a38efSAndreas Gohr                $tags[$tid]['count']++;
262302a38efSAndreas Gohr                $tags[$tid]['tagger'][] = $tag['tagger'];
263872edc7cSRené Corinth            } else {
264302a38efSAndreas Gohr                $tags[$tid]['count']  = 1;
265302a38efSAndreas Gohr                $tags[$tid]['tagger'] = array($tag['tagger']);
266872edc7cSRené Corinth            }
267872edc7cSRené Corinth        }
268872edc7cSRené Corinth        return $tags;
269872edc7cSRené Corinth    }
270872edc7cSRené Corinth
2718a1a3846SAndreas Gohr    /**
2728a1a3846SAndreas Gohr     * Renames a tag
2738a1a3846SAndreas Gohr     *
2748a1a3846SAndreas Gohr     * @param string $formerTagName
2758a1a3846SAndreas Gohr     * @param string $newTagName
2768a1a3846SAndreas Gohr     */
277872edc7cSRené Corinth    public function renameTag($formerTagName, $newTagName) {
278872edc7cSRené Corinth
279872edc7cSRené Corinth        if(empty($formerTagName) || empty($newTagName)) {
2808a1a3846SAndreas Gohr            msg($this->getLang("admin enter tag names"), -1);
2818a1a3846SAndreas Gohr            return;
282872edc7cSRené Corinth        }
283872edc7cSRené Corinth
284872edc7cSRené Corinth        $db = $this->getDb();
285872edc7cSRené Corinth
286302a38efSAndreas Gohr        $res   = $db->query('SELECT pid FROM taggings WHERE tag= ?', $formerTagName);
287872edc7cSRené Corinth        $check = $db->res2arr($res);
288872edc7cSRené Corinth
289872edc7cSRené Corinth        if(empty($check)) {
2908a1a3846SAndreas Gohr            msg($this->getLang("admin tag does not exists"), -1);
2918a1a3846SAndreas Gohr            return;
292872edc7cSRené Corinth        }
293872edc7cSRené Corinth
294302a38efSAndreas Gohr        $res = $db->query("UPDATE taggings SET tag = ? WHERE tag = ?", $newTagName, $formerTagName);
295872edc7cSRené Corinth        $db->res2arr($res);
296872edc7cSRené Corinth
2978a1a3846SAndreas Gohr        msg($this->getLang("admin saved"), 1);
2988a1a3846SAndreas Gohr        return;
299872edc7cSRené Corinth    }
300872edc7cSRené Corinth
301f61105deSAdrian Lang}
302