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); }