function umwords_build($p, $o)
{
$ratio = 50;
$min = $p * $ratio;
$limit = $min . ', ' . ($min + $ratio);
$r = sql_inner('pub_art.id,msg', 'qda', 'qdm', 'id', 'kv', 'where nod="ummo" limit ' . $limit);
if ($r) {
foreach ($r as $k => $v) {
$v = str_replace("'", ' ', $v);
//$v=str_replace('-',' ',$v);
$rb = str_word_count($v, 2);
if ($rb) {
foreach ($rb as $ka => $va) {
if ($va == strtoupper($va) && !umwords_dicos($va) && strlen($va) > 1) {
$rd[] = array($k, $va, $ka, soundex($va));
//idart,voc,pos,sound
$rc[$va] = array($k, $va, $ka, soundex($va));
}
}
}
}
}
//if(auth(6))umwords_sav($rc);
return $rd;
$ret = count($rc);
$ret .= make_table($rc);
return $ret;
}
function user_reg($login, $password)
{
$sql = 'INSERT INTO users (login, password)
VALUES (:login, :password)';
$result = sql_inner($sql, $login, $password);
// create_dir($login);
return $result;
}
function natwords()
{
$r = sql_inner('msg', 'qdm', 'qda', 'id', 'vr', ' ' . ses('qda') . '.day>"' . calc_date(1) . '"');
foreach ($r as $k => $v) {
$ra = addwords($v, $ra);
}
//p($ra);
$ra = array_flip($ra);
return $ra;
}
function ud_segments($p)
{
//occurrences
$r = sql_inner('idart,pos', 'qdvoc', 'qdvoc_b', 'idvoc', '', 'where voc="' . $p . '" group by pos order by idart');
$ret = divc('txtcadr', $p . ' : ' . nbof(count($r), 19)) . br();
if ($r) {
foreach ($r as $k => $v) {
$va = ud_segment($v[0], $v[1]);
$va = str_replace($p, btn('stabilo', $p), $va);
$ret .= divc('tracks', $va) . br();
}
}
return $ret;
}
function statsee_j($p, $o, $res = '')
{
if (!$p) {
$p = 0;
}
//$r=sql('iq,qb,page,time','qdv','','id>'.$p.' order by id desc');
$r = sql_inner('ip,qb,page,DATE_FORMAT(' . qd('live') . '.time,\'%H:%i:%s\')', 'qdp', 'qdv', 'iq', '', 'where ' . qd('live') . '.id>' . $p . ' order by ' . qd('live') . '.id desc limit 50');
//p($r);
if ($r) {
foreach ($r as $k => $v) {
$ret[] = array($k, $v[3], $v[0], $v[2]);
}
}
return make_table($ret, 'txtx', 'txtx');
}
function udc_source()
{
//AADOAUGOO
$r = msql_read('users', 'ummo_umvoc_1', '');
$sql = 'where nod="ummo" and substring(frm,1,1)!="_" and frm!="études" and frm!="Idéogrammes" and frm!="AiooyaaOaxiiboo" and re>0 and msg like ';
if ($r) {
foreach ($r as $k => $v) {
if ($k != '_menus_') {
$rb = sql_inner('frm', 'qdm', 'qda', 'id', 'k', $sql . '"% ' . $v[0] . ' %"', '');
}
if ($rb) {
$rb = array_keys($rb);
$v[3] = count($rb) ? implode(', ', $rb) : '';
$rc[$k] = $v;
}
}
}
$r = msql_modif('', 'ummo_umvoc_1', $rc, '', 'arr', '');
}
function twit_share($p, $o, $res = '')
{
$rid = 'plg' . randid();
list($p, $o) = ajxp($res, $p, $o);
req('spe');
require_once 'plug/tiers/Twitter.php';
$t = new Twitter();
$suj = suj_of_id($p);
$author = sql_inner('tag', 'qdt', 'qdta', 'idtag', 'v', 'where cat="auteurs" and idart="' . $p . '"');
if ($author) {
$suj .= ', ' . ucfirst(nms(88)) . ' ' . $author;
}
$url = host() . urlread($p);
$j = atj('strcount', 'twpost');
$s = atb('onclick', $j) . atb('onkeypress', $j) . atc('console');
$ret = balise('textarea', atd('twpost') . atb('cols', 50) . atb('rows', 5) . $s, $suj . ' ' . $url) . br();
$ret .= lj('popbt', $rid . '_plug___twit_twit*post___twpost', picto('get')) . ' ';
$ret .= span(atd('strcount') . atc('txtsmall'), '');
return divd($rid, $ret);
}
function admin_tags($cat = 'tag')
{
req('spe');
$rid = randid('admtag');
if (!$cat) {
$cat = 'tag';
}
$utags = explode(' ', 'tag ' . prmb(18));
foreach ($utags as $v) {
$c = $v == $cat ? 'txtblc' : 'txtx';
$ret .= lj($c, $rid . '_call___meta_admin*tags_' . ajx($v), $v) . ' ';
}
$ret = divc('', $ret);
$ra = sql_inner('idtag,idart', 'qda', 'qdta', 'idart', 'k', 'where nod="' . ses('qb') . '"');
if ($ra) {
arsort($ra);
}
$rb = sql('id,tag', 'qdt', 'kv', 'cat="' . $cat . '"');
if ($ra) {
foreach ($ra as $k => $v) {
if ($rb[$k]) {
$rc[$k] = array($rb[$k], $v);
}
}
}
$ret .= divc('nbp', count($rc) . ' ' . $cat) . br();
if ($rc) {
foreach ($rc as $idtag => $v) {
$ret .= lj('popbt', 'popup_callp___meta-spe_admin*tags*edit_' . $idtag . '_' . $cat, pictxt('popup', $v[0] . ' (' . $v[1] . ')')) . ' ';
}
}
//
return divd($rid, $ret);
}
function read_tags($idart, $cat)
{
//tag_arts
$order = 'order by ' . ses('qdta') . '.id ASC';
$r = sql_inner('idtag,tag', 'qdt', 'qdta', 'idtag', 'kv', 'cat="' . $cat . '" and idart="' . $idart . '" ' . $order);
return $r;
}
function trkarts($p, $t = '')
{
$p = $_GET['dig'] ? $_GET['dig'] : $p;
$p = is_numeric($p) ? $p : $_SESSION['nbj'];
if (!$p) {
$p = 30;
}
$np = time_prev($p);
$ret = dig_it_j($p, 'modtrk_ajxlnk___VAR' . $mx . '/' . ajx($t) . '/' . $d . '/' . $o . ':' . ajx('tracks'));
$qda = ses('qda');
$qdi = ses('qdi');
$r = sql_inner($qdi . '.frm', 'qda', 'qdi', 'frm', 'k', 'where ' . $qda . '.nod="' . ses('qb') . '" AND ' . $qda . '.re>0 AND ' . $qdi . '.day>' . calc_date($p) . ' AND ' . $qdi . '.day<' . calc_date($np) . ' AND substring(' . $qda . '.frm,1,1)!="_" ORDER BY ' . $qdi . '.day DESC');
if ($r) {
$ret .= build_titl($r, $t ? $t : 'Tracks', 21);
$ret .= output_pages_spe($r, 1, 'track');
}
return divd('modtrk', $ret);
}
