xref: /plugin/tagging/helper.php (revision bed9f360eca61ec341abfddbf7522689e0222ec4)
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 = '') {
142*bed9f360SAndreas Gohr        // wrap tag in quotes if non clean
143*bed9f360SAndreas Gohr        $ctag = $this->cleanTag($tag);
144*bed9f360SAndreas Gohr        if($ctag != utf8_strtolower($tag)) $tag = '"'.$tag.'"';
145*bed9f360SAndreas Gohr
146*bed9f360SAndreas Gohr        $ret = '?do=search&id=' . rawurlencode($tag);
1475540f91dSAndreas Gohr        if($ns) $ret .= rawurlencode(' @' . $ns);
1485540f91dSAndreas Gohr
1495540f91dSAndreas Gohr        return $ret;
150f61105deSAdrian Lang    }
151f61105deSAdrian Lang
1525540f91dSAndreas Gohr    /**
1535540f91dSAndreas Gohr     * Calculates the size levels for the given list of clouds
1545540f91dSAndreas Gohr     *
1555540f91dSAndreas Gohr     * Automatically determines sensible tresholds
1565540f91dSAndreas Gohr     *
1575540f91dSAndreas Gohr     * @param array $tags list of tags => count
1585540f91dSAndreas Gohr     * @param int   $levels
1595540f91dSAndreas Gohr     * @return mixed
1605540f91dSAndreas Gohr     */
161f61105deSAdrian Lang    public function cloudData($tags, $levels = 10) {
162f61105deSAdrian Lang        $min = min($tags);
163f61105deSAdrian Lang        $max = max($tags);
164f61105deSAdrian Lang
165f61105deSAdrian Lang        // calculate tresholds
166f61105deSAdrian Lang        $tresholds = array();
167f61105deSAdrian Lang        for($i = 0; $i <= $levels; $i++) {
168f61105deSAdrian Lang            $tresholds[$i] = pow($max - $min + 1, $i / $levels) + $min - 1;
169f61105deSAdrian Lang        }
170f61105deSAdrian Lang
171f61105deSAdrian Lang        // assign weights
172f61105deSAdrian Lang        foreach($tags as $tag => $cnt) {
173f61105deSAdrian Lang            foreach($tresholds as $tresh => $val) {
174f61105deSAdrian Lang                if($cnt <= $val) {
175f61105deSAdrian Lang                    $tags[$tag] = $tresh;
176f61105deSAdrian Lang                    break;
177f61105deSAdrian Lang                }
178f61105deSAdrian Lang                $tags[$tag] = $levels;
179f61105deSAdrian Lang            }
180f61105deSAdrian Lang        }
181f61105deSAdrian Lang        return $tags;
182f61105deSAdrian Lang    }
183f61105deSAdrian Lang
1845540f91dSAndreas Gohr    /**
1855540f91dSAndreas Gohr     * Display a tag cloud
1865540f91dSAndreas Gohr     *
1875540f91dSAndreas Gohr     * @param array    $tags   list of tags => count
1885540f91dSAndreas Gohr     * @param string   $type   'tag'
1895540f91dSAndreas Gohr     * @param Callable $func   The function to print the link (gets tag and ns)
1905540f91dSAndreas Gohr     * @param bool     $wrap   wrap cloud in UL tags?
1915540f91dSAndreas Gohr     * @param bool     $return returnn HTML instead of printing?
1925540f91dSAndreas Gohr     * @param string   $ns     Add this namespace to search links
1935540f91dSAndreas Gohr     * @return string
1945540f91dSAndreas Gohr     */
1955540f91dSAndreas Gohr    public function html_cloud($tags, $type, $func, $wrap = true, $return = false, $ns = '') {
196f61105deSAdrian Lang        $ret = '';
1970dbdc3fcSAdrian Lang        if($wrap) $ret .= '<ul class="tagging_cloud clearfix">';
198f61105deSAdrian Lang        if(count($tags) === 0) {
199f61105deSAdrian Lang            // Produce valid XHTML (ul needs a child)
200f61105deSAdrian Lang            $this->setupLocale();
201f61105deSAdrian Lang            $ret .= '<li><div class="li">' . $this->lang['js']['no' . $type . 's'] . '</div></li>';
202f61105deSAdrian Lang        } else {
203f61105deSAdrian Lang            $tags = $this->cloudData($tags);
204f61105deSAdrian Lang            foreach($tags as $val => $size) {
205f61105deSAdrian Lang                $ret .= '<li class="t' . $size . '"><div class="li">';
2065540f91dSAndreas Gohr                $ret .= call_user_func($func, $val, $ns);
207f61105deSAdrian Lang                $ret .= '</div></li>';
208f61105deSAdrian Lang            }
209f61105deSAdrian Lang        }
210f61105deSAdrian Lang        if($wrap) $ret .= '</ul>';
211f61105deSAdrian Lang        if($return) return $ret;
212f61105deSAdrian Lang        echo $ret;
2135540f91dSAndreas Gohr        return '';
214f61105deSAdrian Lang    }
215f61105deSAdrian Lang
2165540f91dSAndreas Gohr    /**
2175540f91dSAndreas Gohr     * Get the link to a search for the given tag
2185540f91dSAndreas Gohr     *
2195540f91dSAndreas Gohr     * @param string $tag search for this tag
2205540f91dSAndreas Gohr     * @param string $ns  limit search to this namespace
2215540f91dSAndreas Gohr     * @return string
2225540f91dSAndreas Gohr     */
2235540f91dSAndreas Gohr    protected function linkToSearch($tag, $ns = '') {
2245540f91dSAndreas Gohr        return '<a href="' . hsc($this->getTagSearchURL($tag, $ns)) . '">' . $tag . '</a>';
225f61105deSAdrian Lang    }
226f61105deSAdrian Lang
22709536771SAndreas Gohr
228f61105deSAdrian Lang    public function tpl_tags() {
229f61105deSAdrian Lang        global $INFO;
230f61105deSAdrian Lang        global $lang;
231fbf38c5bSAndreas Gohr        $tags = $this->findItems(array('pid' => $INFO['id']), 'tag');
23209536771SAndreas Gohr        echo '<div class="plugin_tagging_edit">';
233f61105deSAdrian Lang        $this->html_cloud($tags, 'tag', array($this, 'linkToSearch'));
234f61105deSAdrian Lang
235f61105deSAdrian Lang        if(isset($_SERVER['REMOTE_USER']) && $INFO['writable']) {
236f61105deSAdrian Lang            $lang['btn_tagging_edit'] = $lang['btn_secedit'];
237fbf38c5bSAndreas Gohr            echo html_btn('tagging_edit', $INFO['id'], '', array());
238289f50bdSAndreas Gohr            $form = new Doku_Form(array('id' => 'tagging__edit'));
239fbf38c5bSAndreas Gohr            $form->addHidden('tagging[id]', $INFO['id']);
240289f50bdSAndreas Gohr            $form->addHidden('call', 'plugin_tagging_save');
241fbf38c5bSAndreas Gohr            $form->addElement(form_makeTextField('tagging[tags]', implode(', ', array_keys($this->findItems(array('pid' => $INFO['id'], 'tagger' => $_SERVER['REMOTE_USER']), 'tag')))));
242289f50bdSAndreas Gohr            $form->addElement(form_makeButton('submit', 'save', $lang['btn_save'], array('id' => 'tagging__edit_save')));
243289f50bdSAndreas Gohr            $form->addElement(form_makeButton('submit', 'cancel', $lang['btn_cancel'], array('id' => 'tagging__edit_cancel')));
244f61105deSAdrian Lang            $form->printForm();
245f61105deSAdrian Lang        }
24609536771SAndreas Gohr        echo '</div>';
247f61105deSAdrian Lang    }
248872edc7cSRené Corinth
2498a1a3846SAndreas Gohr    /**
2508a1a3846SAndreas Gohr     * @return array
2518a1a3846SAndreas Gohr     */
252872edc7cSRené Corinth    public function getAllTags() {
253872edc7cSRené Corinth
254872edc7cSRené Corinth        $db  = $this->getDb();
2558a1a3846SAndreas Gohr        $res = $db->query('SELECT pid, tag, tagger FROM taggings ORDER BY tag');
256872edc7cSRené Corinth
257872edc7cSRené Corinth        $tags_tmp = $db->res2arr($res);
258872edc7cSRené Corinth        $tags     = array();
259872edc7cSRené Corinth        foreach($tags_tmp as $tag) {
260302a38efSAndreas Gohr            $tid = $this->cleanTag($tag['tag']);
261872edc7cSRené Corinth
262302a38efSAndreas Gohr            //$tags[$tid]['pid'][] = $tag['pid'];
263872edc7cSRené Corinth
264302a38efSAndreas Gohr            if(isset($tags[$tid]['count'])) {
265302a38efSAndreas Gohr                $tags[$tid]['count']++;
266302a38efSAndreas Gohr                $tags[$tid]['tagger'][] = $tag['tagger'];
267872edc7cSRené Corinth            } else {
268302a38efSAndreas Gohr                $tags[$tid]['count']  = 1;
269302a38efSAndreas Gohr                $tags[$tid]['tagger'] = array($tag['tagger']);
270872edc7cSRené Corinth            }
271872edc7cSRené Corinth        }
272872edc7cSRené Corinth        return $tags;
273872edc7cSRené Corinth    }
274872edc7cSRené Corinth
2758a1a3846SAndreas Gohr    /**
2768a1a3846SAndreas Gohr     * Renames a tag
2778a1a3846SAndreas Gohr     *
2788a1a3846SAndreas Gohr     * @param string $formerTagName
2798a1a3846SAndreas Gohr     * @param string $newTagName
2808a1a3846SAndreas Gohr     */
281872edc7cSRené Corinth    public function renameTag($formerTagName, $newTagName) {
282872edc7cSRené Corinth
283872edc7cSRené Corinth        if(empty($formerTagName) || empty($newTagName)) {
2848a1a3846SAndreas Gohr            msg($this->getLang("admin enter tag names"), -1);
2858a1a3846SAndreas Gohr            return;
286872edc7cSRené Corinth        }
287872edc7cSRené Corinth
288872edc7cSRené Corinth        $db = $this->getDb();
289872edc7cSRené Corinth
290302a38efSAndreas Gohr        $res   = $db->query('SELECT pid FROM taggings WHERE tag= ?', $formerTagName);
291872edc7cSRené Corinth        $check = $db->res2arr($res);
292872edc7cSRené Corinth
293872edc7cSRené Corinth        if(empty($check)) {
2948a1a3846SAndreas Gohr            msg($this->getLang("admin tag does not exists"), -1);
2958a1a3846SAndreas Gohr            return;
296872edc7cSRené Corinth        }
297872edc7cSRené Corinth
298302a38efSAndreas Gohr        $res = $db->query("UPDATE taggings SET tag = ? WHERE tag = ?", $newTagName, $formerTagName);
299872edc7cSRené Corinth        $db->res2arr($res);
300872edc7cSRené Corinth
3018a1a3846SAndreas Gohr        msg($this->getLang("admin saved"), 1);
3028a1a3846SAndreas Gohr        return;
303872edc7cSRené Corinth    }
304872edc7cSRené Corinth
305f61105deSAdrian Lang}
306