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