function radio_edit($nod, $dr, $md, $id = '')
{
    $id = $id ? $id : $_SESSION['read'];
    $nd = 'radio' . $id;
    if (!$nod) {
        $nod = $_SESSION['qb'] . '_' . $nd;
    }
    $nodb = str_replace('_', '*', $nod);
    if ($dr) {
        $ret .= radio_build($dr, $nod);
    }
    $r = msql_read('radio', $nod, '');
    $ret .= msqlink('radio', $_SESSION['qb'] . '_' . $nd);
    if ($r[$md]) {
        foreach ($r[$md] as $k => $v) {
            $ky .= $md . '.' . $k . '|';
            $edit .= input2('text', '"id="' . $md . '.' . $k, $v) . btn('txtsmall', $r['_menus_'][$k]) . br();
        }
        $edit .= ljb('popbt', 'SaveR', 'popup_radiosav_' . $nodb . '__' . $k . '\',\'' . $ky, 'save');
    }
    $ret .= divc('edit', $edit);
    if ($r) {
        foreach ($r as $k => $v) {
            foreach ($v as $ka => $va) {
                $datas[$k][] = $va;
            }
            if ($k != '_menus_' && $k != $md) {
                $datas[$k][] = ljb('popbt', 'SaveJ', 'popup_radioedit___' . $nodb . '__' . $k, 'edit');
            }
        }
    }
    $ret .= make_divtable($datas);
    return popup('build_playlist', $ret);
}

function ascii_j($p, $o, $res = '')
{
    list($p, $o) = ajxp($res, $p, $o);
    //build
    if ($o) {
        $ret = ascii_arr($o);
        $r = explode(' ', $o);
    } else {
        if ($p) {
            list($start, $length) = split("-", $p);
        } else {
            $start = 128;
            $length = 1000;
        }
        for ($i = $start; $i <= $start + $length; $i++) {
            $r[] = $i;
        }
        $ret .= ascii_menu($start, $length);
    }
    //signs
    foreach ($r as $k => $v) {
        if ($v) {
            $bt .= ljb('', 'insert', $v . ' ', chr_b($v)) . ' ';
        }
    }
    $ret .= divs('font-size:medium; line-height:140%;', $bt);
    return $ret;
}

function kb_build($id, $o)
{
    if ($o) {
        $r = array('²1234567890°+', 'AZERTYUIOP¨£', 'QSDFGHJKLM%µ', 'WXCVBN?./§', '~#{[|`\\^@]}€<>');
    } else {
        $r = array('&é"\'(-è_çà)=', 'azertyuiop^$', 'qsdfghjklmù*', 'wxcvbn,;:!');
    }
    $cap = lj($o ? 'active' : '', 'kbd_plug___keyboard_kb*build_' . $id . '_' . yesno($o), picto('up'));
    foreach ($r as $v) {
        $ra = strsplit($v);
        $i++;
        foreach ($ra as $va) {
            $ret .= lja('popbt', 'insert_b(\'' . $va . '\',\'' . $id . '\')', $va) . ' ';
        }
        if ($i == 1) {
            $ret .= ljb('popw', 'conn', $id . '_del', picto('no'));
        }
        if ($i == 2) {
            $ret .= ljb('popw', 'insert_b', '\\n\',\'' . $id, picto('back'));
        }
        if ($i == 3) {
            $ret .= $cap;
        }
        if ($i == 4) {
            $ret .= lja('popbt', 'insert_b(\' \',\'' . $id . '\')', '--');
        }
        $ret .= br();
    }
    return $ret;
}

function pane_base($url, $suj, $frm, $day, $img, $msg, $alx)
{
    static $id;
    $id++;
    //$msg=ereg_replace('width='."^[_a-zA-Z0-9.]+$","",$msg);//([[:digit:]]*)
    $ara = array("<![CDATA[", "]]>");
    $suj = str_replace($ara, " ", $suj);
    $url = str_replace($ara, " ", $url);
    $msg = str_replace($ara, " ", $msg);
    if ($img != "") {
        $gmi = '<img src="' . $img . '" class="imgl" border="0" height="72">';
    }
    $id_art = recognize_article($url, clean_title($suj), $alx);
    //already_exists
    if ($id_art) {
        $opt .= popart($id_art);
    } elseif ($_SESSION["USE"] == $_SESSION["qb"] or $_SESSION["auth"] > 3) {
        $purl = ajx($url, '');
        $opt .= ljb('txtx', 'SaveJ', 'popup_addArt___' . $purl . '_1', "save") . ' ';
        //$opt.=ljb('txtbox','SaveIf',$purl,'save').' ';
        $opt .= btd('btc' . $id, lj('txtx', 'btc' . $id . '_batch__xd_' . $purl . '_p', '+')) . ' ';
        $opt .= ljb('txtx', 'Close', 'art' . $id, 'x');
    }
    $panout = array('sty' => 'tab', 'id' => $id, 'suj' => $suj, 'date' => $day, 'tag' => " ", 'opt' => $opt, 'thumb' => $gmi, 'msg' => $msg, 'url' => $url);
    $ret = template_build(template_rss(), $panout);
    return divd('article', $ret);
}

function book_pages($id, $rid)
{
    $ret .= ljb('', 'autoread', $id . '\',\'' . $rid, picto('play')) . ' ';
    $ret .= ljb('', 'clearTimeout(timer)', '', picto('no')) . ' ';
    $ret .= ljb('', 'scrollt', '2\',\'' . $rid, picto('up')) . ' ';
    $ret .= ljb('', 'scrollt', '1\',\'' . $rid, picto('down'));
    return divs('', $ret);
}

function exc_fast()
{
    $ref = array('{}', '[]', 'if()', 'foreach($r as $k=>$v)', '$ret=;', 'strpos($d,\'x\')!==false', 'return $ret;', '.br()', 'echo \'ee\';', "\r");
    foreach ($ref as $k => $v) {
        $ret .= ljb('txtx', 'insert', $v, $v) . br();
    }
    return divs('width:180px; overflow:auto; height:240px;', $ret);
}

function plug_memstorage($d)
{
    Head::add('jscode', mstr_j());
    $ret .= ljb('txtbox', 'mem_recap()', '', 'echo') . br() . br();
    $ret .= divd('cbk', '') . br();
    //$ret.=txarea('cbk','',60,10);
    return $ret;
}

function np_sav($d, $id)
{
    $ret = hidden('', 'cka', 'm' . $d);
    for ($i = 1; $i <= 7; $i++) {
        $c = $i == $d ? 'active' : '';
        $ret .= ljb($c . '" id="ckb' . $i, 'mem_storage', $id . '_m' . $i . '_1_1_ckb' . $i . '_memnu', $i);
    }
    $ret .= ljb('" id="ckc', 'mem_storage', $id . '_cka__1_ckc', 'save');
    return span(atc('nbp') . atd('memnu'), $ret) . hlpbt('memstorage');
}

function plug_cssedit($p, $o)
{
    $r = f_inp_edit_css_conn();
    foreach ($r as $k => $v) {
        foreach ($v as $ka => $va) {
            $ret[$k] .= ljb('', "insert_b", $va . '\',\'cssarea' . $p, $va) . br();
        }
    }
    return make_tabs($ret, '', 'nbp');
}

function pictos_see($id)
{
    $r = explore('imgb/icons/svg/noun');
    asort($r);
    foreach ($r as $k => $v) {
        $im = svg('/noun/' . substr($v, 0, -4) . '§24') . ' ';
        $ret .= ljb('popbt', 'jumpvalue', $id . '_noun/' . $v, $im) . ' ';
    }
    return divd('scroll', $ret);
}

function embed_li_dsnav($d, $v, $isr)
{
    $_SESSION["nbsd"]++;
    $ds = $_SESSION["ds"];
    $qb = $_SESSION['qb'];
    $xt = substr($v, -4);
    if ($v) {
        $f = $d . '/' . $v;
    } else {
        $f = $d;
    }
    if ($xt == ".jpg" or $xt == ".png" or $xt == ".gif") {
        $img = make_thumb_c($f);
        if (is_file($f)) {
            list($w, $h) = getimagesize($f);
        }
        $ww = '_' . $w . '_' . $h;
    }
    $f = str_replace(array('users/', 'imgb/icons/'), '', $f);
    $fb = ajx($f, 0);
    if (is_numeric($ds)) {
        //bkg
        if ($isr) {
            $ret = lj("popbt", 'bkg' . $ds . '_dsnav___' . $fb . '_bkg', $v);
        } else {
            list($w, $h) = getimagesize($f);
            $tx = $v . ' (' . $w . ' * ' . $h . ')';
            //if(is_file($f))
            $ret = lj('', 'css' . $ds . '_stylsav___' . $fb . '_' . $ds . '_2', $img . $tx) . hr();
        }
    }
    if ($ds == "gl") {
        if ($isr) {
            $ret = lj("popbt", 'popup_gallery__3x_' . $fb, $v);
        }
    }
    //photo
    if ($ds == "dl") {
        $dlm = $_SESSION['qb'] . '/' . $_SESSION['dlmod'];
        //dwnl
        if ($isr) {
            $ret = lj("popbt", 'dsnavds_dsnav___' . $fb . '_users/' . $dlm, $v);
        } elseif ($img) {
            $ret = ljb("popw", 'SaveBf', 'photo_users/' . $fb . $ww, $img . $v);
        } else {
            $ret = lkt("popw", $d . '/' . $v, $img . $v);
        }
    }
    if ($ds == "ic" && !$isr) {
        return $ret;
    } elseif ($ret) {
        return '├' . $ret . br();
    }
}

function np_sav($d, $id)
{
    $ret = hidden('', 'cka', 'm' . $d);
    for ($i = 1; $i <= 9; $i++) {
        $c = $i == $d ? 'active' : '';
        $ret .= ljb('' . $c . '" id="ckb' . $i, 'mem_storage', $id . '_m' . $i . '_1_1_ckb' . $i . '_memnu', $i);
    }
    $ret .= ljb('" id="ckc', 'mem_storage', $id . '_cka__1_ckc', nms(57));
    $ret .= lj('', 'popup_plup___pad_pad*write___' . $id . '', picto('export'));
    return divc('nb_pages', divd('memnu', $ret . hlpbt('memstorage')));
}

function plug_sticky($d)
{
    $d = $d != '' ? $d : 1;
    $id = 'np' . randid();
    $ret = hidden('', 'cka', 'm' . $d);
    $ret .= ljb('poph" id="ckb', 'mem_storage', $id . '_m' . $d . '_1_1_ckb' . $d, picto('reload'));
    //$ret.=ljb('popbt" id="ckc','mem_storage',$id.'_m'.$d.'__1_ckc','save');
    //$ret.=ljb('popbt" id="ckb'.$d,'mem_storage',$id.'_m'.$d.'_1_1_ckb'.$d.'_memnu','restore');
    $ret .= ljb('poph" id="ckc', 'mem_storage', $id . '_cka__1_ckc', pictit('save', 'save'));
    $ret = divs('float:right;', $ret);
    $ret .= divedit($id, '', 'height:240px; overflow:auto; padding:10px;', $j, $txt);
    $ret .= js_code('document.getElementById(\'' . $id . '\').innerHTML=localStorage[\'m' . $d . '\']');
    return popup_stick($ret);
}

function mail_prep($id)
{
    $r = mail_mails();
    if ($_SESSION['auth'] < 3) {
        $r = array($_SESSION['qbin']['adminmail'] => 1);
    }
    if ($r) {
        ksort($r);
        foreach ($r as $k => $v) {
            $j = 'jumpvalue(\'' . $id . '_' . addslashes($k) . '\'); Close(\'popup\');';
            $ret .= ljb('txtx', $j, '', str_extract('@', $k, 0, 0)) . ' ';
        }
        return divc('nb_pages', $ret);
    }
}

function msqlxread()
{
    $page = $_GET['page'] ? $_GET['page'] : 1;
    $npg = 10;
    require 'plug/microxml.php';
    $min = ($page - 1) * $npg;
    $max = $page * $npg;
    $i = 0;
    $site = 'http://philum.net';
    //$site=philum();//father_server
    $r = clkt($site . '/msql/clients/philum_tickets');
    unset($r['_menus_']);
    if ($r) {
        foreach ($r as $k => $v) {
            //array('host','hub','msg','day','ip')
            if ($v[0] == $_SERVER['HTTP_HOST'] && $v[1] == ses('qb')) {
                $del = lj('txtyl', 'tickets_plug___tickets_tickets*j_' . $k . '_x', 'x');
            } else {
                $del = '';
            }
            $answ = ljb('popbt', 'jumpMenu_text', 'tckansw_' . ($v[5] ? $v[5] : $k), nms(91));
            $rb[$k] .= btn('txtsmall2', $v[3]) . ' ';
            $rb[$k] .= lkc('txtsmall', 'http://' . $v[0] . '/' . $v[1], $v[1]) . ' ';
            if (!$v[5]) {
                $rb[$k] .= $answ . ' ';
            }
            $rb[$k] .= $del . br();
            $msg = $v[2];
            if (!function_exists('correct_txt')) {
                req('tri,pop,spe');
            }
            //$msg=correct_txt($msg,'','sconn');
            if ($i >= $min && $i < $max) {
                $msg = miniconn($msg);
            }
            $i++;
            $rb[$k] .= divc('" style="width:400px;', nl2br(stripslashes($msg))) . br();
            if ($v[5]) {
                $rb[$v[5]] .= div(ats('margin-left:40px;'), $rb[$k]);
                unset($rb[$k]);
            }
        }
    }
    if ($rb) {
        rsort($rb);
    }
    return by_pages($rb, $page);
}

function chatform($p, $msg)
{
    $nm = ses('muse');
    $d .= ljb('popbt" title="#' . $p, 'SaveD', 'cht' . $p . '_chat_chatread_' . $p, picto('reload'));
    $d .= autoclic('" id="msg' . $p, 'message', 18, '1000', 'search');
    if ($nm) {
        $j = 'cht' . $p . '_plug___chat_chatsav_' . $p . '_' . $nm . '_msg' . $p;
    } else {
        $j = 'popup_plup__x_chat_chatnm_' . $p . '__msg' . $p;
    }
    //$jb=' getbyid(\'msg'.$p.'\').value=\'\';';
    $d .= ljb('popbt', sj($j) . $jb, '', picto('kright'));
    return '<form name="chat' . $p . '" action="javascript:' . sj($j) . $jb . '">' . $d . '</form>';
    //$ret=js_code(temporize("chatimer","SaveD('cht".$p.'_chat_chatread_'.$p."');",($mx?$mx:5*1000)));
    return $ret;
}

function plug_gallery($q)
{
    if ($q == "gl") {
        $q = "";
    }
    $img_d = sql('img', 'qda', 'v', 'id="' . $_SESSION['read'] . '"');
    $img_d = substr($img_d, 0, 1) == '/' ? substr($img_d, 1) : $img_d;
    $img_d = str_replace("/", ",", $img_d);
    if ($q == "auto") {
        $s = "";
    } elseif ($q == "manual") {
        $s = $q;
        $imgs = str_replace(",", ",\n", $img_d);
    } elseif ($q == "dir") {
        $s = $q;
        $dirs = br() . plugin('dsnav', 'gl', 'users/' . $_SESSION['qb']);
    } else {
        $s = $q;
    }
    $ret .= bal("b", "source:") . ' ';
    if (!$q) {
        //gallerygl
        if ($img_d) {
            $ret .= lj('popbt', 'popup_gallery__x_auto', "auto") . ' ';
            $ret .= lj('popbt', 'popup_gallery__x_manual', "manual") . ' ';
        }
        $ret .= lj('popbt', 'popup_gallery__x_dir', "user/directory");
    } else {
        $ret .= lj("popbt", 'popup_gallery', $q == "dir" ? "user_directory" : $q);
    }
    if ($imgs) {
        $ret .= br() . txarea('dpl', $imgs, 40, 10, atd('source') . atc('popw') . ats('border:1px solid black'));
    }
    //pb name=src
    if ($dirs) {
        $ret .= $dirs;
    }
    if ($q != "dir" && $q) {
        $ret .= br() . bal("b", "type:") . ' ';
        $ret .= ljb("popbt", "insert_photo", $s . '\',\'', "Thumbnails") . ' ';
        $ret .= ljb("popbt", "insert_photo", $s . '\',\'2', "Ajax") . ' ';
        $ret .= ljb("popbt", "insert_photo", $s . '\',\'1', "Flash") . ' ';
        $ret .= lj("popbt", 'popup_slider_' . ($s == 'manual' ? 'source' : '') . '_3x_' . $s . '_' . $_SESSION['read'], "Slider") . ' ';
    }
    return $ret;
}

function affiche_prod($v, $id)
{
    if (!is_numeric($v)) {
        $v = id_of_suj($v);
    }
    list($day, $frm, $suj, $img, $nod, $thm, $lu, $re) = pecho_arts($v);
    $p["suj"] = $suj;
    $p["img"] = first_img($img);
    $p["thumb"] = make_thumb(first_img($img), "no");
    $p["id"] = $v;
    $p["sty"] = "panel";
    $chsup = explode(" ", $_SESSION['prmb'][18]);
    foreach ($chsup as $cat) {
        $va = sql('msg', 'qdd', 'v', 'ib="' . $v . '" AND val="' . $cat . '"');
        $ct = $cat == 'prix' ? 'price' : $cat;
        if ($va) {
            $p[$ct] = $cat . ': ' . trim($va);
        }
    }
    $p["add2cart"] = ljb("txtbox", "SaveJ", 'cart_shop___' . $v, "add");
    return template($p, 'products');
}

function plug_cart()
{
    if ($_GET["del"]) {
        unset($_SESSION['cart'][$_GET["del"]]);
    }
    $ar[] = array("", "réf", "titre", "prix", "qté", "sub_total", "x");
    //"ancien prix","remise",
    if ($_SESSION['cart']) {
        foreach ($_SESSION['cart'] as $k => $v) {
            $save .= $k . '=' . $v . ';' . "\r";
            list($day, $frm, $tit, $amg, $nod, $tag, $lu, $re, $host, $mail, $ib) = pecho_arts($k);
            list($prx, $ref, $stock) = prod_from_art($k);
            //,$reduc,$descript
            $tit = lkc("txtcadr", good_url($k, 'read'), $tit) . '' . br();
            $img = minimg($amg, 1) . br();
            //if($reduc){$oldprice=$prix;$prx=round($prix*($reduc/100));}
            //else{$oldprice="";$prx=$prix;}//prix
            $qte = qtes($k, $v);
            $erz = lkc('', '?plug=cart&del=' . $k, 'x');
            $ar[] = array($img, $ref, $tit, $prx, $qte, $prx * $qte, $erz);
            //$oldprice,$reduc,
            $total += $prx * $qte;
        }
        $_SESSION["prixtotal"] = $total;
        $ar[] = array("", "", "", "", "total", $total);
        //"","",
        $tb = make_table($ar, 'txtred', '');
        //$tb=str_replace("table",'table width="100%"',$tb);
        $tb = str_replace("td", 'td class="txtblc" align="center"', $tb);
        //$_SESSION["commande"]=$tb;
        $ret = $tb . br();
        $ret .= ljb('txtbox', 'jumpval', 'ref5_command::' . $save, $_SESSION['nms'][27]) . br() . br();
        $ret .= nl2br(make_form_fromstring('::Name=input::Adress=input::city=input::Email=input::Message=text', ''));
    } else {
        $ret = btn("txtred", "empty_cart");
    }
    return $ret;
}

function stx_btn($d, $nd, $tx)
{
    //version,node,
    $r = msq_choose('', $nd, 'txt');
    $nxt = msq_find_next($r);
    $tt = 'txtbox" title="';
    if ($d) {
        $ret .= btd('bck', '') . ' ';
        $tar = 'tit|txtarea';
        $ret .= btd('bts', lj('popbt', 'bck_plug__xd_stext_stext*j_' . $d . '__' . $tar, nms(27))) . ' ';
        $ret .= ljb('txtx', 'notepad_open', $nd . '_txt_' . $d . '_' . $tx, $d) . ' ';
        //reload
        $ret .= lj($tt . nms(43), 'bck_plug__xd_stext_stext*del_' . $d . '_' . $tx, picto('del'));
        $ret .= lj($tt . nms(42), 'plgtxt_plug___stext_plug*stext__' . $tx, picto('close'));
    }
    if ($nd) {
        $ret .= lj($tt . nms(44), 'plgtxt_plug___stext_plug*stext_' . $nxt . '_' . $tx, picto('add'));
        $ret .= lj($tt . nms(25), 'popup_plup___stext_stx*files_' . $nd . '_' . $tx, picto('get'));
    }
    if ($d) {
        $ret .= msqlink('', $nd . '_txt_' . $d);
    }
    return $ret;
}