function matrix_j($p, $o, $res = '')
{
list($p, $o) = ajxp($res, $p, $o);
//$resultant des champs
$ret = matrix_build($p, $o);
return plugin_func('svg', 'svg_j', $ret, ses('sz'));
}
function sql_init($t)
{
$db = plugin_func('install', 'install_db', ses('qd'));
if ($db['_' . $t]) {
mysql_query($db['_' . $t]) or die(mysql_error() . $db['_' . $t]);
}
}
function poll_init()
{
$db = plugin_func('install', 'install_db', ses('qd'));
if ($db['_poll']) {
mysql_query($db['_poll']) or die($db['_poll']);
}
}
function tarim_tar($f, $rc)
{
mkdir_r($f);
if (is_file($f)) {
unlink($f);
}
if (!is_file($f) && $rc) {
plugin_func('tar', 'tar', $f, $rc);
}
if (is_file($f)) {
$ret = lk($f, '', $f);
} elseif (!$rc) {
$ret = 'no';
} else {
$ret = 'er';
}
return $ret;
}
function light_live()
{
$db = plugin_func('install', 'install_db', ses('qd'));
if (!$db['live']) {
return 'er';
}
$sql = str_replace('_live', '_live2', $db['live']);
mysql_query($sql);
$tim = calc_date(30);
$day = date('Y-m-d H:i:s', $tim);
$lastid = sql('id', 'qdv', 'v', 'time>"' . $day . '" order by id limit 1');
if (is_numeric($lastid)) {
msquery('insert into ' . ses('qdv2') . ' select * from ' . ses('qdv') . ' where id<' . $lastid);
msquery('delete from ' . ses('qdv') . ' where id<"' . $lastid . '"');
reflush('qdv');
}
return ses('qdv') . ' was cleaned from id ' . $lastid;
}
$t = '/plug/' . $id;
$s = $id == 'iframe' ? 720 : 550;
$p = 2;
break;
case "plug":
$ret = plugin_func($id, $va, $opt, $optb, $res);
break;
case "plup":
if ($optb > 200 && $optb < 1000) {
$s = $optb;
$optb = '';
} else {
$s = 550;
}
$p = 2;
$ret .= plugin_func($id, $va, $opt, $optb, $res);
$t = '/plug/' . $id;
break;
case "openapp":
$ret = openapp($id, $va, $opt);
$t = $id;
break;
case "sesmake":
if (forbidden_sessions($va)) {
$_SESSION[$va] = $id;
}
break;
case "session":
$ret = $_SESSION[$id];
break;
case "togses":
function vacuum($f, $sj = '')
{
$f = https($f);
$f = http($f);
$f = utmsrc($f);
$reb = vaccum_ses($f);
if (!$reb) {
$_SESSION['vacuum'][nohttp($f)] = '';
return array('nothing');
}
if ($_POST['see']) {
eco($reb, 1);
}
$enc = embed_detect(strtolower($reb), 'charset=', '"');
if (!$enc) {
$enc = mb_detect_encoding($reb);
}
list($defid, $defs) = verif_defcon($f);
//defcons
if (!$defs) {
$defs = known_defcon($reb);
}
if (!$defs) {
$defs = recognize_defcon($reb);
}
$auv = auto_video($f, 'pop');
if (!$defs && !$auv) {
add_defcon($f);
return array('Title', $f, $f, '', '', '');
}
if (strtolower($enc) == 'utf-8' or $_POST['utf'] or $defs[5]) {
$reb = utf8_decode_b($reb);
}
if ($defs[2]) {
if (!$defs[3]) {
$suj = embed_detect_c($reb, $defs[2]);
} elseif ($defs[3]) {
$suj = embed_detect($reb, $defs[2], $defs[3]);
}
$suj = trim(del_n($suj));
$suj = interpret_html($suj, "ok");
}
if ($defs[0]) {
if (!$defs[1]) {
$rec = embed_detect_c($reb, $defs[0]);
} elseif ($defs[1]) {
$rec = embed_detect($reb, $defs[0], $defs[1]);
}
} else {
$rec = embed_detect_c($reb, '<body');
}
if ($defs[8]) {
if (!$defs[9]) {
$opt = embed_detect_c($reb, $defs[8]);
} elseif ($defs[9]) {
$opt = embed_detect($reb, $defs[8], $defs[9]);
}
if ($opt) {
$opt .= br() . br();
}
}
if ($defs[4] && $defs[4] != 1) {
if (strpos($reb, $defs[4]) !== false) {
$end = embed_detect_c($reb, $defs[4]);
}
if ($end) {
$end = br() . br() . $end;
}
}
if ($auv) {
$ret = $auv;
} elseif (strpos($f, 'twitter.com')) {
//twit
list($suj, $ret, $day) = plugin_func('twit', 'twit_vacuum', $f);
} else {
$ret = converthtml($opt . $rec . $end);
}
//foot
if ($suj) {
$title = clean_title($suj);
} else {
$title = clean_internaltag(pre_clean($sj ? $sj : 'Title'));
}
if ($defs[6]) {
$ret = post_treat_batch($ret, $title, $defs[6]);
}
//post_treat
if ($_SESSION['sugm']) {
$sug = sugnote();
}
if (!$auv) {
$ret .= "\n\n" . $sug . '[' . $f . ']';
}
//eco($rec,1);
return array($title, $ret, $rec, $defid, $defs);
}
function connectors($doc, $media, $id)
{
$large = $_SESSION['prma']['content'];
$largb = round($large * 0.5);
$xt = strtolower(strrchr($doc, "."));
$xfp = strrpos($doc, ':');
$xf = substr($doc, $xfp);
$pdoc = substr($doc, 0, $xfp);
if (rstr(70)) {
$xf = retape_conn($xf, $id);
}
//list($d,$p)=good_param($pdoc);
switch ($xf) {
case ':no':
return;
break;
case ':br':
return "\n";
break;
case ':u':
return '<u>' . $pdoc . '</u>';
break;
case ':i':
return '<i>' . $pdoc . '</i>';
break;
case ':b':
return '<b>' . $pdoc . '</b>';
break;
case ':h':
return '<h3>' . $pdoc . '</h3>';
break;
case ':h1':
return '<h1>' . $pdoc . '</h1>';
break;
case ':h2':
return '<h2>' . $pdoc . '</h2>';
break;
case ':h4':
return '<h4>' . $pdoc . '</h4>';
break;
case ':e':
return '<sup>' . $pdoc . '</sup>';
break;
case ':l':
return '<small>' . $pdoc . '</small>';
break;
case ':k':
return '<strike>' . $pdoc . '</strike>';
break;
case ':q':
return '<blockquote>' . $pdoc . '</blockquote>';
break;
case ':t':
return btn("txtit", $pdoc);
break;
case ':c':
return btn("txtclr", $pdoc);
break;
case ':s':
return btn("stabilo", $pdoc);
break;
case ':r':
return pub_clr($pdoc . '§ff0000');
break;
case ':code':
return bal('code', $pdoc);
break;
case ':list':
return make_li($pdoc, 'ul');
break;
case ':css':
return pub_css($pdoc);
break;
case ':font':
return pub_font($pdoc);
break;
case ':size':
return pub_size($pdoc);
break;
case ':color':
return pub_clr($pdoc);
break;
case ':html':
return pub_html($pdoc);
break;
case ':pub':
return pubart($pdoc);
break;
//pub
//pub
case ':w':
return lkc('', goodroot($pdoc), $pdoc);
break;
case ':read':
return str_replace('<br />', '', read_msg($pdoc, $media));
break;
//read
//read
case ':photo':
return photo_thumbs($pdoc, $id);
break;
//gallery
//gallery
case ':photo1':
return gallery_flash($pdoc, $id);
break;
//flash
//flash
case ':photo2':
return gallery_j($pdoc, $id);
break;
//ajax
//ajax
case ':slider':
return slider($pdoc, $id);
break;
//flash
//flash
case ':sliderJ':
return sliderj($pdoc, $id);
break;
//ajax
//ajax
case ':jukebox':
return jukebox($pdoc, $media, $id);
break;
//jukebox
//jukebox
case ':radio':
return radio($pdoc, $media, $id);
break;
//radio
//radio
case ':import':
return import_art($pdoc, $media);
break;
//import
//import
case ':numlist':
return make_li($pdoc, 'ol');
break;
case ':forum':
return plugin('forum', $pdoc ? $pdoc : $id);
break;
//forum
//forum
case ':search':
return rech_internal($pdoc);
break;
//search
//search
case ':articles':
return arts_mod($pdoc, $id);
break;
//articles
//articles
case ':formail':
return make_form($pdoc, 'mailform' . $id, '_formail___' . ajx($pdoc, '') . '____');
break;
//mail
//mail
case ':chat':
return plugin('chat', $pdoc ? $pdoc : $id, 5);
break;
//chat
//chat
case ':chatxml':
return plugin('chatxml', $pdoc ? $pdoc : $id);
break;
case ':room':
return call_plug('', 'popup', 'chatxml', $pdoc, pictxt('chat', $pdoc));
break;
case ':shop':
return plugin('shop', 'shop', $pdoc, $id);
break;
//shop
//shop
case ':prod':
return plugin('shop', 'prod', $pdoc, $id);
break;
//prod
//prod
case ':bkg':
return mk_bkg($pdoc, $id);
break;
case ':draw':
return plugin('draw');
break;
case ':icon':
return icon($pdoc);
break;
case ':center':
return bal("center", $pdoc);
break;
case ':right':
return divc('" align="right', $pdoc);
break;
case ':clear':
if (is_image($pdoc)) {
$pdoc = place_image($pdoc, $media, $large, $largb);
}
return str_replace('float:left;', '', $pdoc) . "\n\n";
break;
case ':table':
return mk_table($pdoc);
break;
case ':divtable':
return mk_dtable($pdoc);
break;
case ':nh':
if ($media == 'nl') {
return lka('#nb' . $pdoc . '" name="nh' . $pdoc, $pdoc);
} else {
return lj('" name="nh' . $pdoc, 'popup_nbp___' . $pdoc . '_' . $id, $pdoc);
}
break;
case ':nb':
if ($media != 'nl') {
$go = urlread($id);
}
return lka($go . '#nh' . $pdoc . '" name="nb' . $pdoc, $pdoc);
break;
//nbp
//nbp
case ':pre':
return bal("pre", entities($pdoc));
break;
case ':php':
return progcode($pdoc);
break;
case ':link':
return special_link($pdoc);
break;
case ':console':
return divc("console", $pdoc);
break;
case ':label':
return imlabel($pdoc, $large);
break;
case ':polaroid':
return imcomment($pdoc, $large, $largb, $media, $id);
break;
case ':scan':
return scan_txt($pdoc);
break;
//fopen_txt
//fopen_txt
case ':iframe':
return iframe($pdoc, '');
break;
case ':imgtxt':
return create_img_txt($pdoc);
break;
case ':download':
return download($pdoc);
break;
case ':msql':
return msqread(msq_goodtable_b($pdoc), $id);
break;
case ':microsql':
return msqread(msq_goodtable($pdoc), $id);
break;
case ':microread':
return microread($pdoc);
break;
case ':msq_conn':
return msqconn($pdoc, $id);
break;
//case(':msq_html'):return msqconn($pdoc,$id);break;
//case(':msq_html'):return msqconn($pdoc,$id);break;
case ':msq_lasts':
return msqlasts($pdoc);
break;
case ':msq_count':
return msqcount($pdoc);
break;
case ':msq_bin':
return msqbin($pdoc);
break;
case ':msq_graph':
return msqgraph($pdoc, $media);
break;
case ':data':
return msqdata($pdoc, $id);
break;
case ':microform':
return plugin('microform', $pdoc, $id);
break;
break;
case ':module':
req('mod');
return build_mod_r($pdoc);
break;
case ':modpop':
return lj('', 'popup_modpop__3_' . ajx($pdoc), picto('get'));
break;
case ':ajxget':
return ajx($pdoc);
break;
case ':ajax':
return ajxlink($pdoc, randid(), 0, 1);
break;
case ':rss_input':
return rssin($pdoc);
break;
case ':twitter':
return plugin_func('twit', 'twit_build', ajx($pdoc));
break;
case ':twitter_cached':
return twitart($pdoc, $id);
break;
case ':poptwit':
return poptwit($pdoc);
break;
case ':last-update':
return lastup($pdoc, $id);
break;
case ':pdf':
return pdfreader($pdoc);
break;
case ':swf':
return popswf($pdoc);
break;
case ':flv':
return popflv($pdoc, $large);
break;
case ':jpg':
return place_image($pdoc, $media, $large, $largb);
break;
case ':img':
$im = vacuum_image($pdoc . '.jpg', $id);
return place_image($im, $media, $large, $largb);
break;
//img
//img
case ':mini':
if (substr($pdoc, 0, 4) == 'http') {
return vacuum_image($pdoc, $id);
}
return make_mini_b($pdoc, $id);
break;
//mini
//mini
case ':thumb':
return make_mini_c($pdoc);
break;
//thumb
//thumb
case ':video':
return video_auto($pdoc, $large, $id, $media);
break;
case ':popvideo':
return popvideo($pdoc);
break;
case ':poptxt':
return call_j($pdoc, 'poptxt');
break;
case ':popmsqt':
return call_j($pdoc, 'popmsqt');
break;
case ':popmsql':
return call_j($pdoc, 'popmsql');
break;
case ':popread':
return call_j($pdoc, 'popread');
break;
case ':pop':
return call_pop($pdoc);
break;
case ':jopen':
return jopen($pdoc, 0);
break;
//jopen
//jopen
case ':jconn':
return jopen($pdoc, 1);
break;
//jconn
//jconn
case ':popurl':
return popurl($pdoc);
break;
case ':popart':
return pop_art($pdoc);
break;
case ':rss_art':
return rss_art($pdoc, 0, 0);
break;
case ':rss_read':
return rss_art($pdoc, 1, 0);
break;
case ':webpage':
return lj('txtbox', 'popup_webpage___' . ajx($pdoc), preplink($pdoc));
break;
case ':weburl':
return weblink($pdoc, 1);
break;
case ':web':
return weblink($pdoc);
break;
case ':idart':
return id_of_suj($pdoc);
break;
case ':petition':
return plugin('petition', $id, 10);
break;
case ':book':
return plugin('book', $pdoc, $id);
break;
case ':popbook':
return plugin('book', $pdoc, 'x');
break;
case ':track':
return tracks_read($pdoc);
break;
//case(':eco'):return txarea('',parse($pdoc),44,8); break;
//case(':eco'):return txarea('',parse($pdoc),44,8); break;
case ':svg':
return svg($pdoc);
break;
case ':svgcode':
list($p, $o) = split_one('§', $pdoc, 1);
return plugin_func('svg', 'svg_j', $p, $o);
break;
case ':plug':
list($p, $o, $conn) = decompact_conn($pdoc);
return plugin($conn, $p, $o);
break;
case ':pluf':
list($fnc, $plg) = explode('§', $pdoc);
return plugin_func($plg, $fnc, '');
break;
case ':plup':
list($p, $o, $conn) = decompact_conn($pdoc);
list($plg, $bt) = split_one("§", $conn, 1);
return lj('', 'popup_plupin___' . $plg . '_' . ajx($p) . '_' . ajx($o), $bt ? $bt : $plg);
break;
case ':openapp':
list($p, $o, $d) = decompact_conn($pdoc);
return openapp($d, $p, $o);
break;
case ':popapp':
list($p, $o, $d) = decompact_conn($pdoc);
return lj('', 'popup_openapp___' . $d, $d);
break;
case ':apps':
return read_apps_link($pdoc);
case ':bubble':
return bubble_menus($pdoc, 'inline');
case ':header':
Head::add('code', delbr($pdoc, "\n"));
return;
break;
case ':basic':
list($func, $var) = good_param($pdoc);
return cbasic($func, $var);
break;
case ':bazx':
return plugin('bazx', $pdoc);
break;
case ':version':
return $_SESSION['philum'];
break;
case ':ver':
$phi = $_SESSION['philum'];
return substr($phi, 0, 2) . '.' . substr($phi, 2, 2);
break;
case ':picto':
@(list($p, $o) = explode('§', $pdoc));
return picto($p, $o);
break;
case ':on':
return '[' . $pdoc . ']';
break;
}
if ($doc == '--') {
return hr();
}
//hr
if (is_image($doc) && strpos($doc, '§') === false && strpos($doc, '<') === false) {
//images
if (substr($d, 0, 4) == 'http' && !$_GET['callj']) {
$doc = vacuum_image($doc, $id);
}
return place_image($doc, $media, $large, $largb);
}
if (strpos($doc, "¬") !== false) {
return mk_dtable($doc);
}
//tables
if ($xt == ".mp3") {
return audio(goodroot($doc), $id);
}
//mp3
if ($xt == ".mp4") {
return video_html(goodroot($doc));
}
//mp4
if ($xt == ".pdf") {
return pdfdoc($doc, $media, $large);
}
//pdf
if ($xt == ".svg") {
list($p, $w, $h) = subparams($doc);
return image($p, $w, $h);
}
//svf
if ($xt == ".flv") {
return jwplayer($doc, $large);
}
//flv
if ($xt == ".swf") {
return flash_prep($doc, '');
}
//swf
if ($xt == ".txt") {
$doc = goodroot($doc);
return lkt('', $doc, strrchr($doc, "/"));
}
if ($xt == ".gz") {
return download($doc);
}
//tar
if ($xt && $xt != ".") {
//video
if (strpos('.ogg.mp4.m4a.mov.mpg.wmv.h264.aac', $xt) !== false) {
if ($media != 3) {
return lj('txtx', 'popup_popvideo___' . ajx($doc), pictxt('video', strrchr_b($doc, "/")));
}
if ($xt == '.mp4' or $xt == '.m4a' or $xt == '.mov') {
return jwplayer($doc, round($large * (3 / 4)));
}
}
}
if (substr($pdoc, 0, 1) == '@') {
return poptwit(substr($pdoc, 1));
}
//liens
if ((strpos($doc, '§') !== false or strpos($doc, 'http') !== false or strpos($doc, '@') !== false) && strpos($doc, '<a href') === false) {
$lk = prepdlink($doc);
if (is_image($lk[0])) {
//link2image§text
if (substr($lk[0], 0, 4) == 'http') {
$lk[0] = vacuum_image($lk[0], $id);
}
if (substr($lk[1], 0, 4) == 'http') {
$lk[1] = lkt('', $lk[1], preplink($lk[1]));
}
if (is_image($lk[1])) {
return popim(goodroot($lk[0]), image(goodroot($lk[1])), $id);
}
//mini
//return place_image($lk[0],$media,$large,$largb,$lk[1],'');
return popim(goodroot($lk[0], 1), $lk[1]);
} elseif (is_image($lk[1])) {
//link§image
if (substr($lk[1], 0, 4) == 'http') {
$lk[1] = vacuum_image($lk[1], $id);
}
if (strpos($lk[0], '.pdf') !== false) {
return pdfdoc($doc, $media, $large);
}
if (is_numeric($lk[0])) {
$lk[0] = urlread($lk[0]);
}
return lkc('', $lk[0], place_image($lk[1], $media, $large, $largb, '', ''));
} elseif (substr($lk[0], 0, 4) == 'http') {
return lka($lk[0], $lk[1]);
} elseif (strpos($lk[0], '<img') !== false) {
return $lk[0] . divc('blocktext', $lk[1]);
} elseif (strpos($lk[1], '<img') !== false) {
return $lk[0] . ' ' . $lk[1];
} elseif (substr($lk[0], 0, 1) == '/') {
return lka($lk[0], $lk[1]);
} elseif (strpos($lk[0], '/') !== false) {
return lkc('', goodroot($lk[0]), $lk[1]);
} elseif (strpos($lk[0], '.pdf') !== false) {
return pdfdoc($doc, $media, $large);
} elseif (substr($lk[0], 0, 1) == '#') {
list($lien, $name) = explode('-', $lk[0]);
return lka($lien . '" name="' . $name, $lk[1]);
} elseif (strpos($lk[0], '@') !== false && strpos($lk[0], ".") !== false) {
return lka('mailto:' . $lk[0], $lk[1] ? $lk[1] : $lk[0]);
} elseif (substr($doc, 0, 1) == '@' && ($tw = substr($doc, 1))) {
return call_plug('', 'popup', 'twitter', ajx($tw), $doc);
} elseif (is_numeric($lk[0])) {
return jread('', $lk[0], $lk[1]);
}
}
//cols
if (substr($xf, 0, 2) == ":/") {
$nb = substr($xf, 2);
if (is_numeric($nb)) {
$nw = $large / $nb - 5;
if ($media < 3) {
return $pdoc;
} else {
return divs('float:left; width:' . $nw . 'px; padding-right:5px;', $pdoc);
}
}
}
if (substr($xf, 2) == "cols" && $media > 2) {
$nb = substr($xf, 1, 2);
if ($media < 3) {
return $pdoc;
} else {
return paocols($pdoc, $nb, 0);
}
}
//codeline_join
$xxf = substr($xf, 1);
$clvr = sesmk('clvars');
if ($clvr[$xxf]) {
$rb = decompact_conn($doc);
return codeline($rb[0], $rb[1], $rb[2]);
}
//user_conn
$is = strpos($xf, ':') !== false ? 1 : 0;
if ($xxf && $is && $xxf != 'stop' && $xxf != 'attr' && $xxf != 'rect' && $xxf != 'defs') {
$func = msql_read('', ses('qb') . '_connectors', $xxf);
if (!$func) {
$func = msql_read('', 'public_connectors', $xxf);
}
if ($func && !is_array($func)) {
return cbasic($func, $pdoc);
}
//plugin
if (isplug($xxf)) {
list($p, $o) = explode('§', $pdoc);
$ret = plugin($xxf, $p, $o);
}
if ($ret) {
return delbr($ret, "\n");
}
}
return '[' . $doc . ']';
}
function build_mods($r)
{
//p($r);
$ptit_css = 'txtcadr';
$pbdy_css = 'panel';
$smcss = 'small';
//mod,param,title,condition,command,option,(bloc),hide,template,nobr,div,ajxbtn
list($m, $p, $t, $c, $d, $o, $ch, $hd, $tp, $nbr, $dv, $jbt) = $r;
$t = stripslashes($t);
switch ($m) {
//main
case 'LOAD':
if ($_SESSION['read']) {
$ret = art_read($tp);
} else {
$ret = api_arts($_SESSION['frm'], $o, $tp);
}
break;
case 'Page_titles':
$ret = page_titles($o);
break;
case 'All':
$api = api_arts_rq($p, $o);
$api['t'] = $t ? $t : nms(100);
break;
case 'category':
if ($p == 1 && $_SESSION['frm'] == 'Home') {
$p = 'All';
}
$ret = api_arts($p, $o, $tp);
break;
case 'Board':
$ret = collect_board($p);
break;
case 'plan':
$ret = arts_plan($m, $p);
break;
case 'Hubs':
$ret = arts_plan($m, $p);
break;
case 'gallery':
$ret = arts_plan($m, $p);
break;
case 'tracks':
$ret = trkarts($p, $t);
break;
//api_tracks($t)
//api_tracks($t)
case 'MenusJ':
$ret = ajxlink($p, 'mjx', $o, $d);
break;
//case('Wall'): $ret=wall_arts($t,$p); break;
//case('Wall'): $ret=wall_arts($t,$p); break;
case 'api':
$ret = plugin('apicom', str_replace(';', ',', $p), $o);
break;
case 'api_mod':
$api = api_defaults_rq(explode_k(str_replace(';', ',', $p), ',', ':'));
break;
//:,
//:,
case 'api_arts':
$api = api_mod_arts($p, $t, $tp);
if ($d == 'panel') {
$api['cmd'] = $d;
}
$api['cols'] = $o;
break;
//&=
//&=
case 'articles':
$load = api_mod_arts_row($p);
$obj = 1;
break;
//&=
//case('articles'): $api=api_mod_rq($p.'&t=x'); break;//&=
//&=
//case('articles'): $api=api_mod_rq($p.'&t=x'); break;//&=
case 'tab_mods':
$ret = tab_mods($p);
break;
case 'last':
$ret = art_read_b('last', $n, 3, '');
break;
case 'player':
$ret = flash_prep('', $p);
break;
case 'friend_art':
$ret = friend_art($o);
break;
case 'friend_rub':
$ret = friend_rub($o);
break;
case 'related_arts':
$load = related_art();
break;
case 'related_by':
$load = related_art_by();
break;
case 'prev_next':
$ret = prevnext_art($d, $p, $o);
break;
case 'cat_arts':
$p = $p != 1 ? $p : $_SESSION['frm'];
$t = $t != $m ? $t : $p;
$load = tri_rqt($p, 1, $_SESSION['dayx']);
break;
case 'priority_arts':
$load = tri_rqt($p, 11);
$t = $t != $m ? $t : $p;
break;
case 'recents':
$load = recents_arts($p, $o);
$obj = 1;
break;
case 'read':
$ret = divc($o, read_msg($p, 3));
break;
case 'popart':
$ret = pop_art($p);
break;
case 'pub_art':
$ret = pub_art_b($p, $o);
break;
case 'pub_arts':
$load = array_flip(explode(' ', $p));
break;
case 'pub_img':
$ret = pub_img($p);
break;
case 'taxo_arts':
$load = taxo_arts($p);
if ($t > 1) {
$t = suj_of_id($t);
}
break;
case 'taxo_nav':
$ret = plugin('taxonav', $p, $o);
break;
case 'read_art':
$ret = read_art($p, $t);
$t = '';
break;
case 'short_arts':
$load = short_arts($p);
if ($o <= 3) {
$prw = $o;
}
break;
case 'most_read':
$ret = most_read_mod($p, $t, $d, $o, $m, $tp);
$t = '';
break;
case 'same_title':
$load = same_title();
break;
case 'deja_vu':
if ($_SESSION['mem']) {
$load = $_SESSION['mem'];
}
break;
//com
//com
case 'rss_input':
if ($p) {
$ret = rssin(ajx($p, 1));
}
break;
case 'disk':
require_once 'ajxf.php';
$_SESSION['dlmod'] = $p;
if ($p && $p != '/') {
$pb = '/' . $p;
}
$ret = divd('dsnavds', ds_nav('dl', 'users/' . ses('qb') . $pb));
break;
case 'finder':
$ra = array('|', '-');
$p = str_replace($ra, '/', $p);
$o = str_replace($ra, '/', $o);
req('finder');
$ret = finder($p, $o, $d);
break;
case 'channel':
$ret = plugin('channel', $p, $t, $d, $o);
$t = '';
break;
case 'hour':
setlocale(LC_TIME, "fr_FR");
//%A%d%B%G%T
if ($p) {
$dat = strftime($p ? $p : '%y%m%d:%H%M', $_SESSION['dayx']);
} else {
$dat = mkday('', 1);
}
if (!$d) {
$ret = btn($o, $dat);
} else {
$ret = divc($o, $dat);
}
break;
case 'cart':
$ret = lkc("txtcadr", "/?plug=cart", $p != 1 ? $p : "Cart");
$ret = divd('cart', m_pubart($_SESSION['cart'], 'scroll', 7));
break;
case 'video':
$ret = video_auto($p, '', '', 3);
break;
case 'video_playlist':
$load = videoplaylist($p);
$obj = 1;
$prw = 'vd';
break;
case 'video_viewer':
$ret = videoboard($p, $c, $o);
break;
//txt
//txt
case 'text':
$ret = stripslashes(urldecode($p));
if ($o) {
$ret = divc($o, $ret);
}
break;
case 'connector':
if (substr($p, 0, 1) != "[" && substr($p, -1, 1) != "]") {
$p = '[' . $p . ']';
}
$ret = nl2br(format_txt_r($p, '', ''));
if ($o == 'article') {
$ret = balc('article', 'justy', format_txt($p, '', ''));
}
break;
case 'codeline':
if ($p) {
$ret = correct_txt($p, "", 'codeline');
}
break;
case 'clear':
$ret = divc("clear", "");
break;
case 'hr':
$ret = '<hr' . atc($p) . ' />';
break;
case 'br':
$ret = br();
break;
//menus
//case('ajax'): $ret=lj('',$p,$t); break;
//menus
//case('ajax'): $ret=lj('',$p,$t); break;
case 'conn':
$ret = connectors($p, $o, '');
break;
case 'link':
if ($d == 'noli') {
$ret = special_link($p, $o);
} else {
if (strpos($p, '§')) {
list($p, $t) = split_one('§', $p, 0);
}
$lin[] = mod_link_r($p, $t);
}
break;
case 'user_menu':
$ret = user_menu($p);
break;
//mod_link
//mod_link
case 'app_link':
$ret = read_apps_link($p, $d, $o);
break;
case 'app_menu':
$r = build_apps($p, $d);
$ra = m_apps($r, 'menu', '');
if ($o == 'icons') {
$ret = desktop_build_ico($ra, 'icones');
} else {
$ret = app_list($ra, '', $o);
}
$ret .= divc('clear', '');
break;
case 'app_popup':
Head::add('jscode', sj(read_apps(explode(',', $p))));
break;
case 'categories':
$line = $_SESSION['line'];
if ($line) {
ksort($line);
$d = $d ? $d : 'lines';
if ($d == 'cols' && !$o) {
$o = 4;
}
if ($o == 'home') {
$lin[] = array($_GET['module'], 'module', 'Home', 'Home');
}
foreach ($line as $k => $va) {
if ($o == 'nb') {
$ka = $k . ' (' . $va . ')';
} else {
$ka = $k;
}
$lin[] = array($_SESSION['frm'], 'cat', $k, $ka);
}
}
break;
case 'overcats':
req('bubs');
return mkbub(bub_root('overcat', 'zero'), 'inline', '1');
break;
case 'MenuBub':
req('bubs');
return mkbub(bub_root('menubub', 'zero'), 'inline', '1');
break;
case 'timetravel':
return timetravel($p, $o);
break;
case 'submenus':
return bubble_menus($p, $o);
break;
case 'taxonomy':
$ret = taxonomy($p, $o);
break;
case 'rub_taxo':
$ret = rub_taxo($p, $t);
$t = '';
break;
case 'folders':
$load = supertriad_ask();
$prw = $o;
$obj = 63;
break;
case 'desk':
$ret = deskmod($p);
break;
case 'desktop_arts':
$ret = title($t) . desktop_arts($p, $o, 'arts');
break;
case 'desktop_varts':
$ret = title($t) . desktop_arts($p, $o, 'varts');
break;
case 'desktop_files':
$ret = title($t) . desktop_arts($p, $o, 'files');
break;
case 'hierarchics':
$in = m_suj_hierarchic('active', '');
$ret = balc("ul", $pbdy_css, $in);
break;
//cacheable
//cacheable
case 'hubs':
$mn = $_SESSION['mn'];
if (count($mn) >= 2) {
$t = $p != 1 ? $p : $t;
if ($t) {
$t = lkc('', htac('module') . 'hubs', $t);
}
$in = m_nodes_b($mn, $o);
$ret = balc("ul", $pbdy_css, $in);
}
break;
case 'tags':
if ($t) {
$t = lkc('', '/plugin/tags/' . $p . '/1', $t);
}
$lin = tag_mod($p, $o, $d);
break;
case 'tags_cloud':
$p = $p ? $p : 'tag';
$ret = btn($ptit_css, lkc('', "/plug/tags", $p));
$line = tags_list($p, ses('nbj'));
$in = tags_cloud($line, 10, 22, ' ', $p);
$ret .= divc($pbdy_css, $in);
break;
case 'tag_arts':
list($p, $o) = split_one(':', $p);
$load = tag_arts($p, $o);
break;
case 'last_tags':
$lin = last_tags($p, $o, $d);
break;
case 'classtag_arts':
$load = classtag_arts($p);
break;
//class find id//$o=$p;
//class find id//$o=$p;
case 'see_also-tags':
$r = see_also_tags($p ? $p : 'tag');
if ($r) {
$ret = see_also($r, $p, $d, $o, $tp);
}
break;
case 'see_also-rub':
$t = $p != 1 ? $p : $_SESSION['frm'];
if ($_GET['read']) {
$load = see_also_rub($p);
}
break;
case 'see_also-source':
list($load, $t) = see_also_source($o);
break;
case 'siteclics':
$ret = siteclics($p);
break;
case 'rub_tags':
$ret = rub_tags($p);
break;
case 'sources':
if ($t) {
$t = lkc('', '/module/source', $t);
}
$lin = art_sources($p);
break;
case 'msql_links':
if ($o == 'rss') {
$l = '/?plug=rssin&rssurl=';
} elseif ($o == 'mail') {
$l = 'mailto:';
} else {
$l = '';
}
$ret = msql_links($p, $o, $l, $d, $t);
$t = '';
break;
case 'rss':
$ret .= balc('ul', 'panel', divd('rssj', rssj($p ? $p : 'rssurl', $o)));
break;
case 'rssin':
$ret .= rssj_m($p, $o);
break;
case 'chat':
if ($t) {
$t = ljb('', 'SaveD', 'cht' . $p . '_chat_' . $p, $t);
}
$p = $p != 1 ? $p : 'pub';
$in = plugin('chat', $p, $o ? $o : 10);
if ($in) {
$ret = divc($pbdy_css, $in);
}
break;
case 'stats':
$ret = plugin('stats', '', '');
break;
case 'archives':
if ($p == 1) {
$p = $m;
}
if ($p) {
$ret = btn($ptit_css, $p);
}
$in = divd("archives", m_archives(""));
$ret .= balc('ul', $pbdy_css, $in);
break;
case 'agenda':
$load = sql('ib,msg', 'qdd', 'kv', 'val="agenda"');
$tim = time();
if ($load) {
foreach ($load as $k => $v) {
if (strtotime($v) < $tim) {
unset($load[$k]);
}
}
}
break;
case 'folders_varts':
$load = mod_varts($p);
break;
case 'panel_arts':
$ret = plugin_func('panart', 'panart_build', $p);
break;
case 'calendar':
$in = calendar(ses('daya'));
if ($p == 1) {
$p = $m;
}
if ($p) {
$ret = btn($ptit_css, $p);
}
$ret .= divc($pbdy_css, $in);
break;
case 'newsletter':
if ($o) {
$ret = call_plug($ptit_css, 'popup', 'mailist', $p, $p) . ' ';
} else {
$ret = plugin('mailist', '', $p);
}
break;
case 'bridge':
$_GET['urlsrc'] = $p = 'http://' . $p . '/' . ajx($t, 1);
$rea = vacuum($p, '');
$po['suj'] = $rea[0];
$po['msg'] = format_txt($rea[1], 3, $id);
$po['source'] = picto('link') . ' ' . pub_link($p);
$ret = template($po, '');
break;
case 'columns':
$ret = mod_columns($p, $o);
break;
//users
//users
case 'login':
$ret = login_btn($p, $o);
break;
case 'login_popup':
$ret = login_btn_p($p, $o);
break;
case 'log-out':
if (ses('USE')) {
$ret .= lkc($smcss, '/logout', picto('logout')) . ' ';
}
break;
case 'search_form':
$ret = search_btn($p, $o, '', $d);
break;
case 'search':
$load = plugin_func('search', 'rech', $p, $o);
break;
case 'social':
$ret = plugin('social', $p, $o);
break;
//banner
//banner
case 'Banner':
$ret = make_ban($p, $t, $o);
break;
case 'ban_art':
if ($p != 1) {
$ret .= lka(subdom(ses('qb')), read_msg($p, ''));
}
break;
//footer
//footer
case 'credits':
$ret = lj('bevel', 'popup_about', picto('phi2'));
break;
case 'admin':
$ret = lkc($smcss, '/admin/log/open', $t ? $t : picto('admin')) . ' ';
$t = '';
break;
case 'chrono':
$ret = btn('txtsmall2', round(mtime() - $_SESSION['stime'], 2) . 's') . ' ';
break;
case 'contact':
$ret = contact($p, $o ? $o : $smcss) . ' ';
break;
//plugs
//plugs
case 'taxonav':
return plugin('taxonav', $p, $t);
$t = '';
break;
case 'iframe':
$ret = plugin('ifram', '', '');
break;
case 'suggest':
$ret = pluginside(nms(126), 'suggest', $p, $o);
break;
case 'create_art':
$ret = f_inp('', '');
break;
case 'twitter':
if ($p) {
$ret = plugin('twitter', $p, $o);
}
break;
case 'profil':
$ret = plugin_func('profil', $p, $o);
break;
//special
//special
case 'BLOCK':
$ret = build_modules($p, '');
break;
case 'module':
$ret = build_mod_r($p);
break;
case 'command':
$ret = com_mod($p);
break;
case 'plug':
list($pp, $po) = split('-', $o);
$ret = plugin($p, $pp, $po);
break;
case 'pluf':
list($pp, $po) = split('-', $p);
list($op, $oo) = split('-', $o);
$ret = plugin_func($pp, $po, $op, $oo);
break;
case 'plup':
return lj('', 'popup_plupin___' . $p . '_' . $o . '_', $t ? $t : $p);
break;
case 'close':
$ret = '';
default:
if ($p && $m) {
$reb = connectors($p . ($o ? '§' . $o : '') . ':' . $m, "", "");
}
if ($reb && $reb != '[' . $p . ':' . $m . ']') {
$ret = $reb;
} else {
$reb = plugin($m, $p, $o);
if ($reb) {
$ret = build_titl('', $t ? $t : $m, '') . $reb;
}
}
break;
}
//menus
if ($lin) {
$ret = mod_lin($lin, $t, $d, $o);
}
//arts
if ($load) {
$ret = mod_load($load, $ret, $t, $d, $o, $obj, $prw, $tp, $id);
}
//api
if ($api) {
$ret = api_load($api);
}
//umods
if (!$ret && !$lin && !$load && $p && $m) {
//user_mods
$func = msql_read('', $_SESSION['qb'] . '_modules', $m);
if ($func && !is_array($func)) {
$ret = cbasic($func, $p);
}
}
if (!$nbr) {
$br = br();
}
if ($ret) {
if ($dv) {
return divc('mod', $ret) . $br;
} else {
return $ret . $br;
}
}
}
function poll_edt($id)
{
return btd('pll' . $id, plugin_func('poll', 'poll_score', $id));
}
function msql_adm($msql = '')
{
//echo br();
$root = sesm('root', 'msql/');
$auth = $_SESSION['auth'];
$ath = 6;
//auth_level_mini
$wsz = define_s('wsz', 700);
$msql = $msql ? $msql : $_GET['msql'];
$_SESSION['page'] = $_GET['page'] ? $_GET['page'] : 1;
#boot
if ($msql && $msql != '=') {
$url = sesm('url', '/msql/');
$ra = msql_boot($msql);
$_SESSION['msql_boot'] = $ra;
list($bases, $base, $dirs, $dir, $prefixes, $prefix, $files, $table, $version, $folder, $node) = $ra;
//build url
$murl = sesm('murl', murl($base, $dir, $prefix, $table, $version));
//b/d/p_t_v
$basename = $root . $folder . $node;
$is_file = is_file($basename . '.php');
$lk = sesm('lk', $url . $folder . $node . gpage());
$folder = $root . $folder;
//conformity
msql_adm_head($lk, $base, $prefix, $table, $version);
}
$def = ajx($_POST['def'] ? $_POST['def'] : $_GET['def'], 1);
if ($_GET['see']) {
$ret[] = verbose($ra, 'dirs');
}
//auth
if ($base == 'users' && $prefix == $_SESSION['USE']) {
$_SESSION['ex_atz'] = 1;
}
if ($auth >= $ath && $_SESSION['ex_atz'] or $auth >= 6) {
$authorized = true;
}
$lkb = $lk . '&';
#load
//reqp('msql'); $msq=new msql($base,$node); if($is_file)$defs=$msq->load();
if (get('repair')) {
msql_repair($folder, $node);
}
//old
if ($is_file) {
$defs = read_vars($folder, $node, $defsb);
}
//if(!$defs)$ret[]=verbose($ra,'');
if ($defs['_menus_']) {
$defsb['_menus_'] = $defs['_menus_'];
}
//save
if ($def && !$defs[$def]) {
$_POST['add'] = $def;
}
if (($_POST['def'] or $_POST['add']) && $authorized) {
list($defs, $def) = save_defs($folder, $node, $defs, $def, $base);
}
//savb
if ($_GET['sav']) {
save_vars($folder, $node . '_sav', $defs, 1);
}
//create
if ($_GET['create'] && $authorized) {
$prefix = normaliz_c($_POST['prfx']);
$table = normaliz_c($_POST['hbname']);
if ($_POST['hbnb'] && $_POST['hbnb'] != 'version') {
$version = $_POST['hbnb'];
}
if (!$_POST['hbnb']) {
$version = '';
}
if (is_numeric($_POST['nbc'])) {
$defsb['_menus_'] = '';
$nbc = $_POST['nbc'];
$nbc = $nbc > 1 ? $nbc : 1;
for ($i = 1; $i <= $nbc; $i++) {
$defsb['_menus_'][] = 'col_' . $i;
}
} elseif ($defs['_menus_']) {
$defsb['_menus_'] = $defs['_menus_'];
} else {
$defsb['_menus_'] = array('');
}
$node = mnod($prefix, $table, $version);
if ($folder && $prefix) {
read_vars($folder, $node, $defsb);
}
relod(sesm('url') . murl_build('', '', $prefix, $table, $version));
}
#modifs
//save_modif
$do = find_command();
if ($do && $auth >= $ath) {
$defs = msql_modifs($defs, $defsb, $folder, $prefix . '_' . $table, $node, $basename, $do);
}
#render
$lh = sesmk('msqlang');
#-menus
if (!$_GET['def']) {
$ret['menus'] = msql_menus($ra);
}
//auth(3) &&
if (!$_GET['def']) {
//called
#-files
//add
if (auth(4)) {
$ret['fls'] = lkc('txtblc', $lkb . 'new==', pictxt('add', $lh[9][0])) . ' ';
}
if ($table && $authorized && $prefix && $is_file) {
//$defs &&
$ret['fls'] .= lkc('txtx', $lkb . 'sav==', $lh[2][0]) . ' ';
if (is_file($basename . '_sav.php')) {
$ret['fls'] .= lkc('txtx', $lkb . 'restore==', $lh[3][0]) . ' ';
}
$ret['fls'] .= lj_goto('import_defs', 5);
//$ret['fls'].=lj_goto('import_old','');
$ret['fls'] .= lj_goto('import_keys', 17);
$ret['fls'] .= lj_goto('merge_defs', 6);
$ret['fls'] .= lj_goto('append_update', 7);
$ret['fls'] .= lj_goto('append_values', 8);
} else {
$ret['fls'] .= $bckp;
}
if ($files[$prefix] && ($auth > $ath or $prefix == $_SESSION['USE'])) {
if ($auth >= $ath && $table && $prefix && $is_file) {
$ret['fls'] .= lkc('txtx', $lkb . 'del_table==', $lh[10][0]) . ' ';
$ret['fls'] .= ljb('txtblc', 'delfile', $lkb . 'del_file==', $lh[11][0]) . ' ';
//$ret['fls'].=lkc('txtyl',$lkb.'del_file==',$lh[11][0]).' ';
if (!$defs or isset($defs[0])) {
$ret['fls'] .= lkc('txtyl', $lkb . 'repair==', $lh[12][0]) . ' ';
}
}
}
if ($ret['fls']) {
$ret['fls'] .= br();
}
//$ret['fls']=divc('menu',$ret['fls']);
//new
if ($_GET['new']) {
$ret['fls'] .= newbase($base, $prefix, $table, $version);
}
#-util
if ($table && $authorized && $prefix && $is_file) {
$ret['utl'] .= lkc('txtblc', $lkb . 'def=_menus_', $lh[1][0]) . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'reset_menus==', $lh[22][0]) . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'del_menus==', $lh[23][0]) . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'add_keys==', $lh[24][0]) . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'del_keys==', $lh[25][0]) . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'def=_menus_&add_col==', $lh[14][0]) . ' ';
$ret['utl'] .= lj_goto('del_col', 15);
if ($is_file) {
$ret['utl'] .= lkc('txtx" title="' . $lh[13][1], $lkb . 'repair_cols==', $lh[13][0]) . br();
}
if ($base != 'system' && is_file(sesm('root') . 'system/' . $node . '.php')) {
$ret['utl'] .= lkc('txtblc', $lkb . 'update==', $lh[26][0]) . ' ';
}
$ret['utl'] .= lj_goto('sort_table', 19);
if ($table != 'restrictions' && $table != 'params') {
$ret['utl'] .= lkc('txtx', $lkb . 'reorder==', $lh[20][0]) . ' ';
}
$ret['utl'] .= lj_goto('permut', 21);
$ret['utl'] .= lkc('txtx', $lkb . 'edit_conn==', $lh[16][0]) . ' ';
$ret['utl'] .= lkc('txtx" title="' . $lh[6][1], $lkb . 'inject_defs==', $lh[18][0]) . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'edit_csv==', 'csv') . ' ';
$ret['utl'] .= lkc('txtx', $lkb . 'json==', 'json') . ' ';
if (auth(6)) {
$ret['utl'] .= lkc('txtx', $lkb . 'export_mysql==', 'sql') . ' ';
}
if (auth(6)) {
$ret['utl'] .= lkc('txtx', $lkb . 'create_mysql==', 'create mysql') . ' ';
}
$ret['utl'] .= lj('txtx', 'popup_msql___lang_helps_msql', '?');
}
#-fieldset
if ($ret['fls'] . $ret['utl']) {
$ret['utils'] = divc('menu', $ret['fls'] . $ret['utl']);
}
$ret['fls'] = $ret['utl'] = '';
//if($ret['nfo'])$ret['nfo'].=br();
}
//called
#-infos
if ($table && $is_file) {
$ret['nfo'] = lkc('popsav', $lk, $murl) . ' ';
$wurl = $_SERVER['HTTP_HOST'] . '/msql/' . $murl;
$ret['nfo'] .= lj('popbt', 'popup_text___' . ajx($wurl) . '_weburl_console', pictit('link', 'web url'));
$wcon = '[' . $murl . $kdef . ($def ? ':' . $def : '') . ':microsql]';
$ret['nfo'] .= lj('popbt', 'popup_text___' . ajx($wcon) . '_connector_console', pictit('conn', 'connector'));
$ret['nfo'] .= lkt('popbt', '/plug/microxml.php?table=' . $murl, pictit('rss', 'xml')) . ' - ';
$ret['nfo'] .= btn('txtsmall2', count($defs) . ' ' . plurial(count($defs), 116)) . ' - ';
if ($is_file) {
$ret['nfo'] .= btn('txtsmall2', fsize($basename . '.php')) . ' - ';
}
$ret['nfo'] .= btn('txtsmall2', ftime($basename . '.php')) . ' ';
$ret['nfo'] .= msq_search($murl);
}
if ($ret['nfo']) {
$ret['nfo'] = divc('menu', $ret['nfo']);
}
//entries
//if($defs)$ret['edt'].=slctmenuder($defs,$def?$def:'_menus_');
//add
if ($is_file && $authorized && !$_GET['called'] && $defs && !$_GET['def']) {
$ret['edt'] .= divc('menu', f_inp_add($defs, $defsb, $def)) . br();
}
//edit
//echo verbose($ra,'');
if ($def && $defs[$def]) {
$ret['edt'] .= f_inp_m($defs, $defsb['_menus_'], $def);
}
//edit_conn
if ($_GET['edit_conn'] == '=') {
if ($defs) {
foreach ($defs as $k => $v) {
$v = str_replace(array('|', '¬'), array(':BAR:', ':LINE:'), $v);
$edittable .= implode('|', $v) . '¬' . "\n";
}
}
//(!is_numeric($k)?$k.'|':'')
$ret[] = divc('', 'paste a table as created by transductor from html table :: use "|" for cells and "¬" for lines of cells') . form($lkb . 'def=' . $def, txarea('import_conn', $edittable, 60, 14) . br() . checkbox('aid', 'ok', 'auto_increment', '1') . input2('submit', 'save', 'import', 'txtbox')) . hr() . br();
}
//array
if ($_GET['inject_defs'] == '=') {
$datas = str_replace(array('<' . '?php', '?' . '>'), '', read_file($basename . '.php'));
$ret[] = divc('', 'paste $r[1]=array(1,2,3)') . form($lkb, txarea('inject_defs', $datas, 60, 14) . br() . input2('submit', 'replace', 'replace', 'txtbox') . input2('submit', 'inject', 'inject', 'txtbox') . checkbox('mono', '1', 'key=>value', '') . checkbox('sql', '1', 'mysql', '')) . hr() . br();
}
//export_mysql
if ($_GET['create_mysql'] == '=' && auth(6)) {
$ok = plugin_func('mysql', 'import_msql', $defs, $node);
$ret[] = divc('txtalert', 'create table ' . $node . ': ' . $ok);
}
if ($_GET['export_mysql'] == '=' && auth(6)) {
$ret[] = txarea('', mysqlrb($defs), 60, 40);
}
//csv
if ($_GET['edit_csv'] == '=') {
foreach ($defs as $k => $v) {
if ($v) {
$edittable .= $k . ':' . (is_array($v) ? implode(',', $v) : htmlentities($v)) . "\n";
}
}
$ret[] = divc('', 'paste csv using "," for cells and lines for rows') . form($lkb . 'def=' . $def, txarea('edit_csv', $edittable, 60, 14) . br() . checkbox('aid', 'ok', 'auto_increment', '1') . input2('submit', 'save', 'import', 'txtbox')) . hr() . br();
}
//csv
if ($_GET['json'] == '=') {
foreach ($defs as $k => $v) {
if ($v) {
$edittable .= '"' . $k . '":' . (is_array($v) ? '["' . implode('","', $v) . '"]' : '"' . htmlentities($v[0])) . '",';
}
}
$ret[] = txarea('edit_csv', '{' . $edittable, 60, 14) . '}' . br();
}
//see_table
if ($defs && !$_GET['def']) {
// && (!$def or $_POST['save'])//called
$out = divd('editmsql', draw_table($defs, $murl, ''));
$ret[] = $out . br();
} else {
$ret[] = divd('editmsql', '');
}
if ($auth > 6) {
$ret[] = lkc('txtx', $lkb . 'backup_msql==', 'backup') . ' ';
}
if ($_GET['backup_msql']) {
$ret[] = backup_msql();
}
return divd('content', implode('', $ret));
}
function slct_r($d, $o, $vrf = '')
{
switch ($d) {
case 'parent':
$r = newartparent();
break;
case 'category':
$r = $_SESSION['line'];
if ($r) {
ksort($r);
}
break;
//$r=array(nms(9)=>1);
//$r=array(nms(9)=>1);
case 'tag':
$r = tags_list_nb($o, 30);
break;
//$r=array('tag'=>1);
//$r=array('tag'=>1);
case 'lang':
$r = array_flip(explode(' ', prmb(26)));
$cl = 1;
break;
case 'msql':
req('msql');
list($dr, $nd, $vn) = murl_vars($o);
$r = msql_read($dr, $nd, '', 1);
//echo $o.'-'.$vrf.':'.$dr.'/'.$nd.'='.$vn.br();
if ($r) {
ksort($r);
}
if ($r) {
$r = array_flip(array_keys($r));
}
break;
case 'msqlc':
req('msql');
list($dr, $nd, $vn) = murl_vars($o);
$ra = msql_read($dr, $nd, '', 'k', 1);
$vrf = $vn ? $vn : 0;
if ($ra) {
foreach ($ra as $k => $v) {
$v = parse($v[$vrf]);
$r[$v] = $v;
}
}
if ($r) {
ksort($r);
}
break;
case 'plug':
$r = msql_read('system', 'program_plugs');
if ($r) {
ksort($r);
}
break;
case 'func':
if ($o) {
$r = call_user_func($o);
}
$r = array_keys($r);
if ($r) {
ksort($r);
}
break;
case 'pfunc':
list($plg, $fnc, $prm) = explode('/', $o);
$r = plugin_func($plg, $fnc, $prm);
break;
case 'pfuncb':
list($plg, $fnc, $prm) = explode('/', $o);
$r = plugin_func($plg, $fnc, $prm);
break;
default:
if (strpos($d, '|')) {
$r = array_flip(explode('|', $d));
} else {
$r = array_flip(explode(' ', $d));
}
break;
}
if ($r && $cl) {
$r = array_unshift_b($r, '', 'x');
}
//if($r[0])unset($r[0]);
return $r;
}
function search_engine($d)
{
return plugin_func('search', 'rech', $d, '30');
}
function plug_editor($reset = '')
{
secure_inputs();
if ($_SESSION["dev"] == "dev" or $_SESSION["dev"] == "lab") {
$g = "b";
}
req('pop,spe,art,tri');
Head::add('csscode', '.tabc{border:1px dotted grey;padding:10px;min-height:25px;width:550px;}');
Head::add('jscode', '
function SaveIcpb(){//convert
var opt=document.getElementById("txtareb").innerHTML;
document.getElementById("txt").value=opt;
SaveJ("txtarea_convhtml_txtareb_4");
toggle_tab(\'tab-1\',2);}
function editab(p){
var act=document.getElementById("edt").className;
if(act=="txtx" || p==1){var arr=[true,"on","txtred",""];}
else{var arr=[false,"off","txtx","none"];}
document.getElementById("txtareb").contentEditable=arr[0];
document.getElementById("txtareb").designMode="arr[1]"; void 0;
document.getElementById("txtareb").focus;
document.getElementById("edt").className=arr[2];
document.getElementById("edtc").style.display=arr[3];}
');
//Head::add('rel',array('shortcut icon',uicon('copy_16','edit2','/')));
$out["head"] .= div(atd('popup') . ats('position:fixed;'), '');
$out["head"] .= hidden('', 'socket', '');
if ($_GET['switch_defcon']) {
$_SESSION['rstr'][18] = $_SESSION['rstr'][18] == 0 ? 1 : 0;
}
$basedefs = $_SESSION['rstr'][18] == 0 ? 'public' : $_SESSION['qb'];
if ($reset == 'reset_cache') {
$_SESSION['vacuum'] = '';
}
####
if ($_GET["urlsrc"]) {
$urlsrc = $_GET["urlsrc"];
$_GET["urlsrc"] = $urlsrc = strdeb($urlsrc, '?utm_source');
$urlsrc = str_replace("\$", "?", $urlsrc);
foreach ($_GET as $k => $v) {
if ($k == "rssurl") {
$urlsrc = $v;
} elseif ($k != 'urlsrc') {
$urlsrc .= '&' . $k . '=' . $v;
}
}
}
if ($_POST["urlsrc"]) {
$urlsrc = $_POST["urlsrc"];
// && $_POST["txt"]==""
$_POST["urlsrc"] = $urlsrc = strdeb($urlsrc, '?utm_source');
}
if ($_POST["suj"]) {
$title = $_POST["suj"];
}
if (strpos($urlsrc, "http") === false && $urlsrc) {
$urlsrc = 'http://' . $urlsrc;
}
if ($urlsrc && $_POST["txt"] == "") {
list($title, $reb, $ret, $defid, $defs) = vacuum($urlsrc, "");
}
//echo txarea('',$ret,20,4);
####
//see h-number in html(mnu)
$tabnam = 'tbmdtab-1';
if ($_POST["urlsrc"] or $_POST["txt"] or $_POST["txb"]) {
$_SESSION[$tabnam] = '2';
$npb = $_SESSION['npnb'];
} elseif ($_POST["urlsrc"] && !$_POST["txt"]) {
$_SESSION[$tabnam] = '1';
}
//else $_SESSION[$tabnam]='0';//current_tab
if ($_POST["txt"]) {
$ret = stripslashes($_POST['txt']);
}
//html
if ($_POST["txb"]) {
$reb = stripslashes($_POST['txb']);
}
//conn
if ($_POST["title"]) {
$title = stripslashes($_POST['title']);
}
if ($_POST["convent"]) {
$ret = html_entity_decode($ret);
}
if ($_POST["convutf"]) {
$ret = utf8_decode($ret);
}
if ($_POST["convurl"]) {
$ret = urldecode($ret);
}
if ($_POST["urlencode"]) {
$ret = urlencode($ret);
}
if ($_POST["table2array"]) {
$reb = plugin_func('table2array', 'table2array_build', $reb);
}
if ($ret && !$reb) {
//if(!strpos($ret,'<br />') && strpos($ret,"\r"))$ret=nl2br($ret);
$reb = converthtml($ret);
//htmlentities //htmlspecialchars
$reb = html_entity_decode_b($reb);
$reb = html_entity_decode($reb);
$reb = convertmail($reb);
$reb = embed_links($reb);
} elseif (!$ret) {
$ret = format_txt(stripslashes($reb), 0, "");
}
//if(!$ret)
$ree = clean_br($ret);
#edit
//transformers
if ($_POST['repla']) {
if ($_POST['rec_prg']) {
$reb = ereg_replace(stripslashes($_POST['repla']), stripslashes($_POST['replb']), $reb);
} else {
$reb = str_replace(stripslashes($_POST['repla']), stripslashes($_POST['replb']), $reb);
}
}
if ($_POST['del_tab']) {
$reb = del_tables($reb);
}
//if($_POST['conn_to_del']){$reb=correct_txt($reb,$_POST['conn_to_del'],'correct');
// $reb=str_replace(array("¬","|"),"",$reb); $reb=clean_br($reb);}
if ($_POST['del_n'] == "ok") {
$reb = del_n($reb);
}
if ($_POST['clean_mail']) {
$reb = convertmail($reb);
}
if ($_POST["clean_punct"]) {
$reb = clean_punct($reb);
}
if ($_POST["add_punct"] == "ok") {
$reb = add_lines($reb);
}
if ($_POST['clean_br'] or $urlsrc) {
$reb = clean_br($reb);
}
/*----------------------*/
//import
if ($_SESSION["dev"]) {
$dv = ' ' . btn('txtsmall', $_SESSION["dev"]);
}
$out['head'] .= lkc("txtx", "/plug/editor", picto('editxt', 16) . $dv) . ' ';
//'₪'
//defcons
if (!$defid) {
$defid = str_replace(array('http://', 'www.'), '', $urlsrc);
$defid = substr($defid, 0, strpos($defid, '/'));
}
$defcon .= msqlink('users', $basedefs . '_defcons');
if ($_SESSION['rstr'][18] == 1 && $_SESSION['auth'] > 4) {
$defcon .= lkc("txtblc", '?switch_defcon==', "switch") . ' ';
$defcon .= lkt("txtblc", '/msql/users/' . $basedefs . '_defcons&append=users/public_defcons', "herit_from_public") . ' ';
$defcon .= lkt("txtblc", '/msql/users/public_defcons&append=users/' . $_SESSION["qb"] . '_defcons', "inform_public") . ' ';
} else {
$defcon .= btn('txtsmall', 'public_defcons') . ' ';
}
if ($defid) {
$defcon .= lj("txtred", 'popup_editmsql___users/' . $basedefs . '*defcons_' . $defid, "edit");
}
$otab['html'] .= '<form id="form1" name="coded" method="post" action="/plug/editor">';
$otab['html'] .= ljb('txtbox', 'document.coded.txt.select()', '', '::');
$otab['html'] .= submitj('txtbox', 'codeb', 'convert') . ' ';
$otab['html'] .= input2("text", "urlsrc", $urlsrc, '" size="36') . ' ';
if ($urlsrc) {
$otab['html'] .= lkt('txtx', $urlsrc, 'go') . ' ';
}
$otab['html'] .= br();
$otab['html'] .= '<textarea name="txt" id="txt" class="console" rows="21" cols="61">' . $ret . '</textarea>' . br();
//htmlentities
$otab['html'] .= $defcon . ' ';
$otab['html'] .= checkbox("objects", "ok", "objects", 0) . ' ';
//$otab['html'].=checkbox("jump","ok","not_convert",0).br();
$otab['html'] .= checkbox("nobr", "ok", "br", 0);
$otab['html'] .= checkbox("convent", "ok", "entities", 0) . ' ';
$otab['html'] .= checkbox("convutf", "ok", "utf8", 0) . ' ';
$otab['html'] .= checkbox("convurl", "ok", "url", 0) . ' ';
$otab['html'] .= checkbox("see", "ok", "show_work", 0) . br();
$otab['html'] .= lkt("txtblc", "/plug/converts", "conversions") . ' ';
$otab['html'] .= lkt("txtblc", "/plug/pad", "notepad") . ' ';
$otab['html'] .= lkt("txtblc", "/plug/ifram", "iframe") . ' ';
$otab['html'] .= lkc('txtblc', '/plug/editor/reset_cache', 'reset_cache') . ' ';
$otab['html'] .= '</form>';
//notepad
if ($_SESSION['USE']) {
$otab['connectors'] .= divs('position:absolute; right:0; top:0;', plugin('txt', $npb, 1));
}
$otab['connectors'] .= btn('txtit', $title);
$otab['connectors'] .= '<form name="converted" method="post" action="">';
$otab['connectors'] .= ljb('txtbox', 'document.converted.txb.select()', '', '::');
$otab['connectors'] .= submitj('txtbox', 'converted', 'modif') . ' ';
$otab["connectors"] .= div('', conn_correct($reb));
//local_reparation
$otab['connectors'] .= div(ats('width:630px;'), conn_edit(""));
$otab['connectors'] .= input(0, 'title', $title, '');
$otab['connectors'] .= '<textarea name="txb" id="txtarea" class="tab" rows="16" cols="68" wrap="VIRTUAL" onselect="storeCaret(this);" onclick="storeCaret(this);" onkeyup="storeCaret(this);" ondblclick="storeCaret(this);" onChange="clip.setText(this.value)">' . $reb . '</textarea><br>';
$otab['connectors'] .= '<div class="txtsmall2">';
$otab['connectors'] .= $defcon . ' ';
$otab['connectors'] .= checkbox("clean_mail", "ok", "clean_mail", 0) . ' ';
$otab['connectors'] .= checkbox("clean_br", "ok", "clean_br", 0) . ' ';
$otab['connectors'] .= checkbox("del_n", "ok", "del_nl", 0) . ' ';
$otab['connectors'] .= checkbox("add_punct", "ok", "add_nl", 0) . ' ';
$otab['connectors'] .= checkbox("clean_punct", "ok", "typo_rules", 0) . ' ';
$otab['connectors'] .= checkbox("del_tab", "ok", "del_tables", 0) . ' ';
$otab['connectors'] .= checkbox("table2array", "ok", "table2array", 0) . ' ';
//$otab['connectors'].='<label>delete:</label>'.balise("select",array(2=>"conn_to_del",5=>"txtblc"),batch_defil_kv(connectors_reference_lite(),"","vv")).' ';
$otab['connectors'] .= '</div>';
$otab['connectors'] .= divc('txtsmall2', 'replace by:') . '' . txarea("repla", $_POST['repla'], 15, 1) . ' ' . txarea("replb", $_POST['replb'], 15, 1) . ' ' . checkbox("rec_prg", "ok", "preg", 0);
$otab['connectors'] .= '</form>';
$otab['connectors'] .= lkt("txtblc", "/plug/converts", "converts") . ' ';
$otab['connectors'] .= lkt("txtblc", "/plug/pad", "notepad") . ' ';
$otab['connectors'] .= lkt("txtblc", "/plug/buildtable", "buildtable") . ' ';
//wysiwyg
//if($title)$otab["render"].=btn("txtit",$title).br();
$otab['render'] .= btd('bts', ljb('txtbox', 'SaveIcpb()', '', 'convert')) . ' ';
$otab['render'] .= ljb('txtx" id="edt', 'editab(0)', '', 'editable') . ' ';
$otab['render'] .= txareacb($ree, 'tabc panel justy');
$otab['render'] .= btd('bts', ljb('txtbox', 'SaveIcpb()', '', 'convert')) . ' ';
$otab['render'] .= ljb('txtx" id="edt', 'editab(0)', '', 'editable') . ' ';
$otab['render'] .= divd('popup', '') . "\n";
$otab['render'] .= divd('popw', '') . "\n";
$otab['render'] .= hidden('', 'socket', '');
$out["end"] .= '</body>' . "\n" . '</html>';
return implode("", $out) . make_tabs($otab);
}
