function plug_rssin($u) { req('pop,art,tri,spe'); Head::add('jslink', '/prog/utils.js'); if ($_GET['rssurl']) { foreach ($_GET as $k => $v) { if ($k == "rssurl") { $u = $v; } else { $u .= '&' . $k . '=' . $v; } } } $u = str_replace('http://', '', $u); if ($u) { $alx = alx(); $rss = load_xml('http://' . $u, 1); $ret .= bal('h1', lkt('', 'http://' . $u, preplink($u))); $ret .= lkt("", '/?plug=rssin&rssurl=' . $u, picto('url')); foreach ($rss as $k => $v) { if ($v[1]) { $ret .= pane_base($v[1], $v[0], "", rss_date($v[2]), "", $v[3], $alx); } } } return $ret; }
function plug_tags($p, $o) { req('mod,spe'); if ($_GET['sources']) { $r = sql('mail', 'qda', 'k', ''); $go = 'source'; //source foreach ($r as $k => $v) { if ($k != 'mail' && trim($k)) { $reb[preplink($k)] += 1; } } } else { $cat = $p ? $p : 'tag'; //$reb=tags_list($cat); $ra = sql('idtag,idart', 'qdta', 'k', ''); arsort($ra); $rb = sql('id,tag', 'qdt', 'kv', 'cat="' . $cat . '"'); arsort($ra); foreach ($ra as $k => $v) { if ($rb[$k]) { $reb[$rb[$k]] = $v; } } } if ($o) { $ret = tags_cloud($reb, 12, 27, ' ', $cat); } else { $ret = tg_list($reb, $go); } return divc('txtcadr', count($reb) . ' ' . ($p ? $p : 'Tags')) . $ret; }
function plug_links() { foreach (ses('rqt') as $k => $v) { $rb[preplink($v[9])] += 1; } arsort($rb); //p($rb); foreach ($rb as $k => $v) { if ($k) { $ret .= $k . ' (' . $v . ')' . br(); } } $ret .= hr() . links_all(); return $ret; }
function sugg_recall() { $nod = nod('suggest'); $r = msql_read('', $nod, ''); $js = 'popup_call__3_ajxf_batch*preview_'; if ($r) { foreach ($r as $k => $v) { $j = ajx($v[2]); $lnk = lka($v[2], picto('url')); if (!$v[1]) { $ret .= br() . lj('popbt', $js . $j . '_' . $k, $v[0] . ' ' . preplink($v[2])) . ' ' . $lnk; } } } return $ret; }
case "archives": req('spe'); $ret = m_archives($id); break; case "editbrut": req('admin,spe'); if ($va) { admin_art_sav($id, $va); } $ret = admin_art_edit($va ? $va : $id); break; //content //content case "webpage": require 'plug/suggest.php'; $t = preplink($id); $ret = suggest_import($id); break; case "convhtml": req('spe,tri'); $_GET['urlsrc'] = host() . '/'; $ret = convhtml_b($id); break; case "convconn": req('pop,tri'); //wwig $ret = format_txt_r(ajx($id, 1), 3, 'test'); break; case "iframe": $s = strdeb($res, '-'); $s = is_numeric($s) ? $s : 720;
function rssj($p, $o) { $r = msql_read('', ses('qb') . '_' . $p, '', 1); //$r=msq_sort($r,1,''); if ($r) { foreach ($r as $k => $v) { if ($v[2] == $o or !$o) { if (substr($v[0], 0, 4) == 'http') { $v[0] = substr($v[0], 7); } if ($v[0]) { $ret[$v[2]] .= toggle('', 'rsj' . $k . '_rssj_' . $k . '_' . ajx($v[0], ''), $v[1] ? $v[1] : preplink($v[0])) . ' ' . btd('rsj' . $k, '') . br(); } } } } //$v[2] //foreach($ret as $k=>$v){ksort($v); $ret[$k]=implode('',$v);} if (auth(6)) { $b = msqlink('', ses('qb') . '_' . $p) . ' '; } return make_tabs($ret, 'rss', 'nbp') . $b; }
function pub_link($m) { return lkt('', http($m), picto('url', 16)) . ' ' . lj('', 'popup_getcontent___source_' . ajx(http_root($m)), preplink($m)); }
function see_also_source($o = '') { $o = $o ? $o : 10; $id = ses('read'); $src = $_SESSION['rqt'][$id][9]; if (!$src) { $src = sql('mail', 'qda', 'v', 'id=' . ses('read')); } if ($src) { $src = preplink($src); $r = $_SESSION['rqt']; if ($r) { foreach ($r as $k => $v) { if (preplink($v[9]) == $src) { $ret[$k] += 1; } } } if (!$ret && $src) { $ret = sql('id', 'qda', 'k', 'mail LIKE "%' . $src . '%" limit ' . $o); } if ($ret) { unset($ret[$id]); return array($ret, lka(htac('source') . strdeb($src, '.'), $src . ' ' . $n)); } } }
function pub_link($m) { $f = ajx(http_root($m)); return lkt('', http($m), picto('url', 16)) . ' ' . lj('', 'popup_api___source:' . $f, preplink($m)); }
function batch_preview($f, $sug = '') { req('pop,spe,tri'); $f = http($f); $_GET['urlsrc'] = $f; $w = prma('content'); list($suj, $msg) = vacuum($f); $msg = embed_links($msg); $msg = clean_br_lite($msg); $msg = clean_punct($msg); $msg = format_txt($msg, '', 'test'); $sty = atc('justy') . ats('width:' . $w . 'px;'); if (strlen($msg) > 400) { $sty .= atd('scroll'); } $titl = bal('h2', $suj); $_SESSION['sugm'] = $sug; $rid = randid('btch'); $rel = lj('', 'popup_call__x_ajxf_batch*preview_' . ajx($f) . '_', pictit('reload', nms(101))) . ' '; $rel .= lj('', 'popup_addArt__x_' . ajx($f) . '_1', picto('edit')) . ' '; if (auth(6)) { $titl .= $rel . urledt($f) . ' '; } $titl .= lkt('', $f, picto('url')); if (auth(6)) { $titl .= newartcat($f); } $ret .= bal('section', bal('header', $titl) . balb('article', $sty, $msg)); //$_SESSION['vacuum'][$f]=''; return popup(preplink($f), $ret, $w); }