xref: /plugin/tagging/helper.php (revision 077ff864212df3b04b2454da2031cb8478bd4aaf)
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'
64*077ff864SAndreas 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     */
67*077ff864SAndreas 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
97*077ff864SAndreas Gohr        // limit results
98*077ff864SAndreas Gohr        if($limit) {
99*077ff864SAndreas Gohr            $limit = " LIMIT $limit";
100*077ff864SAndreas Gohr        }else{
101*077ff864SAndreas Gohr            $limit = '';
102*077ff864SAndreas Gohr        }
103*077ff864SAndreas 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
109*077ff864SAndreas Gohr              ORDER BY $orderby
110*077ff864SAndreas Gohr                $limit
111*077ff864SAndreas 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
223f61105deSAdrian Lang    public function tpl_tags() {
224f61105deSAdrian Lang        global $INFO;
225f61105deSAdrian Lang        global $lang;
226fbf38c5bSAndreas Gohr        $tags = $this->findItems(array('pid' => $INFO['id']), 'tag');
227f61105deSAdrian Lang        $this->html_cloud($tags, 'tag', array($this, 'linkToSearch'));
228f61105deSAdrian Lang
229f61105deSAdrian Lang        if(isset($_SERVER['REMOTE_USER']) && $INFO['writable']) {
230f61105deSAdrian Lang            $lang['btn_tagging_edit'] = $lang['btn_secedit'];
231fbf38c5bSAndreas Gohr            echo html_btn('tagging_edit', $INFO['id'], '', array());
232289f50bdSAndreas Gohr            $form = new Doku_Form(array('id' => 'tagging__edit'));
233fbf38c5bSAndreas Gohr            $form->addHidden('tagging[id]', $INFO['id']);
234289f50bdSAndreas Gohr            $form->addHidden('call', 'plugin_tagging_save');
235fbf38c5bSAndreas Gohr            $form->addElement(form_makeTextField('tagging[tags]', implode(', ', array_keys($this->findItems(array('pid' => $INFO['id'], 'tagger' => $_SERVER['REMOTE_USER']), 'tag')))));
236289f50bdSAndreas Gohr            $form->addElement(form_makeButton('submit', 'save', $lang['btn_save'], array('id' => 'tagging__edit_save')));
237289f50bdSAndreas Gohr            $form->addElement(form_makeButton('submit', 'cancel', $lang['btn_cancel'], array('id' => 'tagging__edit_cancel')));
238f61105deSAdrian Lang            $form->printForm();
239f61105deSAdrian Lang        }
240f61105deSAdrian Lang    }
241872edc7cSRené Corinth
2428a1a3846SAndreas Gohr    /**
2438a1a3846SAndreas Gohr     * @return array
2448a1a3846SAndreas Gohr     */
245872edc7cSRené Corinth    public function getAllTags() {
246872edc7cSRené Corinth
247872edc7cSRené Corinth        $db  = $this->getDb();
2488a1a3846SAndreas Gohr        $res = $db->query('SELECT pid, tag, tagger FROM taggings ORDER BY tag');
249872edc7cSRené Corinth
250872edc7cSRené Corinth        $tags_tmp = $db->res2arr($res);
251872edc7cSRené Corinth        $tags     = array();
252872edc7cSRené Corinth        foreach($tags_tmp as $tag) {
253302a38efSAndreas Gohr            $tid = $this->cleanTag($tag['tag']);
254872edc7cSRené Corinth
255302a38efSAndreas Gohr            //$tags[$tid]['pid'][] = $tag['pid'];
256872edc7cSRené Corinth
257302a38efSAndreas Gohr            if(isset($tags[$tid]['count'])) {
258302a38efSAndreas Gohr                $tags[$tid]['count']++;
259302a38efSAndreas Gohr                $tags[$tid]['tagger'][] = $tag['tagger'];
260872edc7cSRené Corinth            } else {
261302a38efSAndreas Gohr                $tags[$tid]['count']  = 1;
262302a38efSAndreas Gohr                $tags[$tid]['tagger'] = array($tag['tagger']);
263872edc7cSRené Corinth            }
264872edc7cSRené Corinth        }
265872edc7cSRené Corinth        return $tags;
266872edc7cSRené Corinth    }
267872edc7cSRené Corinth
2688a1a3846SAndreas Gohr    /**
2698a1a3846SAndreas Gohr     * Renames a tag
2708a1a3846SAndreas Gohr     *
2718a1a3846SAndreas Gohr     * @param string $formerTagName
2728a1a3846SAndreas Gohr     * @param string $newTagName
2738a1a3846SAndreas Gohr     */
274872edc7cSRené Corinth    public function renameTag($formerTagName, $newTagName) {
275872edc7cSRené Corinth
276872edc7cSRené Corinth        if(empty($formerTagName) || empty($newTagName)) {
2778a1a3846SAndreas Gohr            msg($this->getLang("admin enter tag names"), -1);
2788a1a3846SAndreas Gohr            return;
279872edc7cSRené Corinth        }
280872edc7cSRené Corinth
281872edc7cSRené Corinth        $db = $this->getDb();
282872edc7cSRené Corinth
283302a38efSAndreas Gohr        $res   = $db->query('SELECT pid FROM taggings WHERE tag= ?', $formerTagName);
284872edc7cSRené Corinth        $check = $db->res2arr($res);
285872edc7cSRené Corinth
286872edc7cSRené Corinth        if(empty($check)) {
2878a1a3846SAndreas Gohr            msg($this->getLang("admin tag does not exists"), -1);
2888a1a3846SAndreas Gohr            return;
289872edc7cSRené Corinth        }
290872edc7cSRené Corinth
291302a38efSAndreas Gohr        $res = $db->query("UPDATE taggings SET tag = ? WHERE tag = ?", $newTagName, $formerTagName);
292872edc7cSRené Corinth        $db->res2arr($res);
293872edc7cSRené Corinth
2948a1a3846SAndreas Gohr        msg($this->getLang("admin saved"), 1);
2958a1a3846SAndreas Gohr        return;
296872edc7cSRené Corinth    }
297872edc7cSRené Corinth
298f61105deSAdrian Lang}
299