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