function plug_microform($p, $id)
{
    $rid = 'mfr' . randid();
    //echo $p.'-'.$id;
    $nod = ses('mform', ses('qb') . '_microform_' . $id);
    req('pop');
    ses('mformj', $rid . '_plug___microform_plug*microform_' . ajx($p) . '_' . $id);
    reqp('msql');
    $msq = new msql('', $nod);
    //table
    list($p, $tp) = explode('§', $p);
    $rb = mform_mr($p);
    //p($rb);
    $msq->create($rb);
    $ret .= make_form($p, 'mfr' . $id, '_plug___microform_mform*j_' . ajx($p, '') . '_' . $id . '_') . br();
    if (auth(4)) {
        $ret .= msqlink('users', ses('mform')) . ' ' . btn('txtsmall2', $nod) . ' ';
    }
    if ($tp == 1) {
        $ret .= mform_read($id);
    } elseif ($tp) {
        $ret .= plugin('msqtemplate', $nod, $tp);
    }
    return divd($rid, $ret . $bt);
}

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 plug_color($p, $o)
{
    $rid = 'plg' . randid();
    $ret = color_j($p, $o);
    $bt .= msqlink('', 'system/edition_colors');
    return $bt . divd($rid, $ret);
}

function finder_menu($r, $p)
{
    if ($r[0] == 'shared' or $r[0] == '') {
        if (auth(4)) {
            $ret .= fi_mnu($r, '', 'local', 1, 1) . fi_mnu($r, '', 'global', 1) . fi_mnu($r, '', 'distant', 1);
            $ret .= ' | ';
            $ret .= fi_mnu($r, $p, 'virtual', 2, 1) . fi_mnu($r, $p, 'real', 2) . ' | ';
        }
    } elseif ($r[3] == 'list' or $r[3] == '') {
        $ret .= fi_mnu($r, $p, 'normal', 4, 1) . fi_mnu($r, $p, 'recursive', 4) . ' | ';
    }
    if (auth(4)) {
        $ret .= fi_mnu($r, '', 'shared', 0, 1) . fi_mnu($r, $_SESSION['qb'], 'disk', 0) . ' | ';
    }
    $ret .= fi_mnu($r, $p, 'flap', 3, 1) . fi_mnu($r, $p, 'icons', 3);
    $ret .= ' | ';
    //$ret.=fi_mnu($r,$p,'panel',3).fi_mnu($r,$p,'list',3);
    //$ret.=fi_mnu($r,$p,'pictos',6,1,1).fi_mnu($r,$p,'mini',6,'',1).' | ';
    if ($r[0] == 'shared' or $r[0] == '') {
        if (auth(4)) {
            if ($r[1] == 'global') {
                $ret .= fi_mnu($r, $p, 'update', 5);
            }
            if ($r[1] == 'global') {
                $ret .= msqlink('server', 'shared_files');
            } elseif ($r[1] != 'distant') {
                $ret .= msqlink('', $_SESSION['qb'] . '_shared');
            }
        }
    }
    return $ret;
}

function msqedit($p, $o)
{
    $bt = lj('', 'popup_plup___msqedit_msqdt*add_' . ajx($p) . '_' . $o, pictxt('add')) . ' ';
    $bt .= lj('', 'editmsql_plug__15_msqedit_msqdt*build_' . ajx($p) . '_' . $o, pictxt('refresh')) . ' ';
    //$bt.=lj('txtx','editmsql_plug___msqedit_msqdt*herit*overmenus_'.ajx($p),'herit overmenus');
    $bt .= msqlink('', ses('qb') . '_' . $p);
    $_SESSION['popm'] = $bt;
    return $bt . divd('editmsql', msqdt_build($p, $o));
}

function plug_icocss($p, $o)
{
    $rid = randid('plg');
    Head::add('csslink', '/css/_pictos.css');
    $bt = icocss_menu($p, $o, $rid);
    $bt .= msqlink('system', 'edition_pictos');
    //$ret.=icocss_build($p,$o);
    return $bt . divd($rid, $ret);
}

function plug_umdico($p, $o)
{
    ses('qdvoc', qd('umvoc'));
    ses('qdvoc_b', qd('umvoc_arts'));
    $ret = udc_build($p);
    $ret .= msqlink('', 'ummo_umvoc_1', '') . ' ';
    $ret .= lkt('', '/plug/umvoc', picto('link'));
    return $ret;
}

function plug_umglyphes($p, $o)
{
    if ($o == '1') {
        return ug_build($p);
    }
    $ret .= lj('', 'umglph___4', picto('del')) . ' ';
    $ret .= inp('umglph', $p, atz('44')) . ' ';
    $ret .= lj('popsav', 'umgl_plug___umglyphes_ug*build_' . ajx($p) . '__umglph', 'ok') . ' ';
    $ret .= divd('umgl', ug_build($p)) . br();
    $ret .= msqlink('', 'ummo_umvoc_1', '') . ' ';
    $ret .= lkt('', '/plug/umvoc', picto('link'));
    return $ret;
}

function plug_msqads($p, $o)
{
    $rid = 'plg' . randid();
    $p = $p ? $p : 'msqads';
    reqp('msql');
    $msq = new msql('', $p);
    //table
    $rb = array('day', 'quest', 'resp');
    $msq->create($rb);
    $ret .= input(1, $rb[0], $rb[0], '', 1) . br() . txarea($rb[1], '', 40, 4) . txarea($rb[2], '', 40, 4);
    $ret .= lj('txtbox', $rid . '_plug___msqads_msqads*j_' . $p . '__' . implode('|', $rb), 'save') . ' ';
    $ret .= msqlink('users', ses('qb') . '_' . $p);
    $msq->read('i');
    return $ret . divd($rid, make_table($msq->ret, 'txtblc', 'txtx'));
}

function msqadd_j($p, $o, $res)
{
    list($p, $msg) = ajxp($res, $p, $o);
    $dfb['_menus_'] = array('day', 'text');
    $nod = ses('qb') . '_msqadd_' . $p;
    if ($msg) {
        $rb = array(mkday(), $msg);
    }
    //if($rb)$r=msql_modif('users',$nod,$rb,$dfb,'push','');
    if ($rb) {
        $r = modif_vars('users', $nod, $rb, 'push', $dfb);
    }
    $bt = msqlink('users', $nod);
    return lj('popbt', 'plugmsqadd_plug___msqadd_msqadd*read_' . ajx($p), 'reload') . ' ' . $bt;
}

function plug_model($p, $o)
{
    $rid = 'plg' . randid();
    $p = $p ? $p : 'model';
    reqp('msql');
    $msq = new msql('', $p);
    //table
    $rb = array('title', 'text');
    $msq->create($rb);
    //cols
    $ret .= input(1, $rb[0], '', '', 20);
    $ret .= lj('txtbox', $rid . '_plug___model_model*j_' . $p . '__' . implode('|', $rb), 'save') . br();
    $ret .= txarea($rb[1], '', 40, 4);
    $ret .= msqlink('users', ses('qb') . '_' . $p);
    $msq->read('i');
    return $ret . divd($rid, make_table($msq->ret, 'txtblc', 'txtx'));
}

function plug_umtoa($p, $o)
{
    $rid = 'plg' . randid();
    Head::add('csscode', '
.hline{padding-left:10px; border-top:2px solid black;width:100%;}
.hline:hover{z-index:2; background:silver; min-height:40px;}
.vline{border-left:20px dashed black;}
.aeon{border-top:2px solid dashed; background:silver;}
.aeon1{background:bisque;}
.aeon2{background:darkkhaki;}
.aeonblack{background:lightslategray;}
.aeon3{background:darkturquoise;}
.aeon4{background:hotpink;}');
    $ret = umtoa_build($p, $o);
    $bt .= msqlink('', ses('qb') . '_umtoa');
    return $bt . divd($rid, $ret);
}

function plug_htaccess($d)
{
    $here = 'htaccess';
    $default = msql_read('system', 'default_htaccess', 1);
    $actual = read_file('.' . $here);
    if (!$actual or $d) {
        $actual = $default;
        $ret .= btn('txtyl', 'default_loaded') . br();
    }
    $ret .= picto('alert�24') . ' ' . btn('txtcadr', 'critical_operations') . ' ';
    $ret .= lj('txtbox', 'txt_plug__4_' . $here . '_' . $here . '*default', 'default') . ' ';
    $ret .= lj('txtbox', 'cbk_plug__xd_' . $here . '_' . $here . '*mkdefault___txt', 'backup') . ' ';
    $ret .= msqlink('system', 'default_htaccess') . ' ';
    $ret .= lkc('txtx', '.htaccess', 'link') . ' ';
    $ret .= hlpbt('htaccess') . ' ' . btd('cbk', '') . ' ';
    $ret .= btd('bts', lj('txtbox', 'cbk_plug__xd_' . $here . '_' . $here . '*j___txt', 'save')) . br() . br();
    $ret .= txarea('txt', $actual, 120, 26) . br();
    $ret .= lkt('txtblc', 'http://htaccess.madewithlove.be/', 'tests');
    return $ret;
}

function plug_menu($d, $p, $o, $dr)
{
    if ($dr) {
        $dr = '/' . $dr;
    }
    //$ret.=li(lien('txtsmall','/plug/index',picto('phi')));
    $ret .= popbub('plug', 'plugin', picto('phi2'), 'd', 1);
    //$ret.=llj('','popup_plup___plug_plug*slct',picto('list'));
    $ret .= li(lkc('txtsmall', host() . '/plug/' . $d . ($p ? '/' . $p : '' . ($o ? '/' . $o : '')), picto('reload')));
    $ret .= li(call_plug('txtsmall', 'popup', 'codeview', 'plug' . $dr . '_' . ajx($d), picto('conn')));
    //source
    if (auth(3)) {
        $ret .= msqlink('system', 'program_plugs') . ' ';
    }
    $ret .= plug_hlp($d);
    if (auth(4)) {
        $ret .= lj('', 'popup_editmsql___system/program*plugs_' . ajx($d) . '__1', picto('edit')) . ' ';
        $ret .= lj('', 'popup_editmsql___lang/fr/program*plugs_' . ajx($d) . '__1', picto('flag')) . ' ';
    }
    return mkbub($ret, 'inline', '', 'this.style.zIndex=popz+1;') . divc('admnu', '');
}

function plug_pictos($d, $id)
{
    $rid = 'bld' . randid();
    $ret = lj('popbt', $rid . '_plug___pictos_pictos*refresh', picto('reload')) . ' ';
    $ret .= hlpbt('pictos') . ' ' . msqlink('system', 'program_pictos') . br();
    $r = msql_read('system', 'program_pictos', '', 1);
    foreach ($r as $k => $v) {
        list($p, $c) = split(':', $v);
        if ($c == 'icon') {
            $ico = icon($p, $k);
        } elseif (is_numeric($c)) {
            $ico = icosys($p, $c);
        } elseif ($c == 'svg') {
            $ico = svg($p);
        } else {
            $ico = '';
        }
        $edit = lj('popbt', 'popup_plug___pictos_pictos*edit_' . $k, $k) . ' ';
        $rb[] = div('', picto($k, 24) . ' ' . $edit . btd('ico' . $k, $ico));
    }
    $ret .= onxcols($rb, 4, 680);
    return divd($rid, $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;
}

function backup_console()
{
    //(421)
    $base = 'msql/users/';
    $nod = $_SESSION['modsnod'];
    $f = $base . $nod . '_sav.php';
    $goto = '/?admin=console';
    if ($d = $_GET["newfrom_mods"]) {
        newmodfrom($d);
        select_mods($d);
    }
    if ($_GET["adopt_mods"]) {
        foreach ($_SESSION['prmb'] as $k => $v) {
            $vaue .= $v . '#';
        }
        update("qdu", "config", $vaue, "name", ses('qb'));
    }
    if ($_GET["backup_mods"]) {
        copy($base . $nod . '.php', $f);
    }
    if ($_GET["mk_default"]) {
        msq_copy('users', $nod, 'system', 'default_mods');
        msq_copy('users', $nod, 'users', 'public_mods_1');
        alert('system/default_mods;public_mods_1');
    }
    if ($_GET["restore_mods"]) {
        copy($f, $base . $nod . '.php');
        define_mods('');
        define_condition();
    }
    if ($_GET["refresh_mods"]) {
        define_mods('');
        define_condition();
    }
    if ($_GET["make_copy"]) {
        msq_copy('users', ses('qb') . '_mods_' . ses('prmb1'), 'users', $nod);
        define_mods('');
        define_condition();
    }
    if ($_GET["default_mods"]) {
        msq_copy('system', 'default_mods', 'users', $nod);
        define_mods('');
        define_condition();
    }
    $rt = array('backup' => 'save', 'restore' => 'left', 'refresh' => 'reload', 'copy' => 'copy', 'default' => 'file', 'mkdef' => 'export');
    foreach ($rt as $k => $v) {
        $rt[$k] = picto($v);
    }
    $ret = lkc('txtx" title="' . nms(94), $goto . '&backup_mods==', $rt['backup']);
    if (is_file($f)) {
        $ret .= lkc('txtx" title="' . nms(95), $goto . '&restore_mods==', $rt['restore']);
    }
    $ret .= lkc('txtx" title="' . nms(97), $goto . '&refresh_mods==', $rt['refresh']);
    if ($p1 = ses('prmb1')) {
        $ret .= lkc('txtx" title="' . nms(132) . ':' . $p1, $goto . '&make_copy==', $rt['copy']);
    }
    $ret .= lkc('txtx" title="' . nms(96), $goto . '&default_mods==', $rt['default']);
    if (auth(6)) {
        $ret .= lkc('txtx" title="' . nms(113), $goto . '&mk_default==', $rt['mkdef']) . ' ';
    }
    $ret .= hlpbt('console') . ' ';
    $ret .= msqlink('', ses('qb') . '_mods_' . prmb(1));
    $ret .= msqlink('system', 'admin_modules');
    return $ret . br();
}

function plug_petition($id, $p, $page = '')
{
    $p = $p ? $p : 10;
    $page = $page ? $page : 1;
    $keys = explode(',', pet_hlp('entries') . ',host,valid');
    $defsb['_menus_'] = array('name', 'mail', 'web', 'city', 'country', 'host', 'valid');
    if (auth(6)) {
        $msq = msqlink('', ses('qb') . '_petition_' . $id);
    }
    $nod = $_SESSION['qb'] . '_petition_' . $id;
    $r = read_vars('msql/users/', $nod, $defsb);
    $ret = lj('txtbox', 'popup_plup___petition_pet*form_' . $id, pet_hlp('sign')) . $msq . br();
    if ($_GET['confirm']) {
        $ret .= pet_confirm($r, $nod, $id);
        $r = msql_read('users', $nod);
    }
    if ($r) {
        $ret .= divd('pet' . $id, pet_read($r, $p, $page));
    }
    return $ret;
}

function facil_globalc($k, $nc)
{
    $r = css_default(1);
    $ret .= btn('txtcadr', 'herit from _global.css') . ' ';
    $ret .= msqlink('design', 'public_design_1') . br() . br();
    if ($r) {
        foreach ($r as $k => $v) {
            $ncb = name_classe($v);
            if ($ncb == $nc) {
                $ret .= name_line_j($k, $v, 1, 1);
            }
        }
    }
    return $ret;
}

function plug_addfonts($d)
{
    $here = 'addfonts';
    //Head::add('css','../css/_admin.css')); Head::add('js','../progb/ajx.js'));
    $r = msql_read('', 'public_addfonts', '');
    $ret .= divc('txtalert', 'coller la classe @face-font (avec url absolue)') . br();
    $ret .= txarea('txt', '', 60, 10);
    $ret .= lj('txtbox', 'cbk_plug___' . $here . '_addfonts*j_1_2_txt', 'save') . br() . br();
    //xd
    if ($_SESSION['auth'] > 4) {
        $ret .= divd('cbk', addf_read($r));
    }
    $ret .= msqlink('', 'public_addfonts');
    $ret = divd('page', divd('content', $ret));
    return $ret;
}