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 troc_edit($id, $rid)
{
if ($id) {
$ra = sql('*', 'obj', 'a', 'id="' . $id . '"');
}
//pr($ra);
//list($id,$usr,$obj,$txt,$type,$img,$state,$day)=$ra; //$id=$ra['id'];
//nom
$ret = divc('row', btn('txtx', 'Désignation') . input(1, 'objet', $ra['obj'])) . br();
//type
$ret .= divc('row', btn('txtx', 'Type de transaction') . select_j('type', 'pfunc', $ra['type'], 'troc/troc_transtype', $ra['type'], '0')) . br();
//state
//$ret.=divc('row',checkbox_j('state',$ra['state'],'Ouvert / Fermé','Etat','txtx')).br();
$ret .= hidden('', 'state', 1);
//description
//$ret.=btn('txtx','Description');
$ret .= divc('row', divedit('cntdescrpt', 'track', 'min-height:18px; width:400px;', $j, $ra['txt'])) . br();
//props
$r = sql('id,prop,attr', 'prop', 'kvv', 'ib="' . $id . '"');
//p($r);
if ($r) {
foreach ($r as $k => $v) {
$ky[] = 'k' . $k;
$del = '';
$del = lj('popdel', $rid . '_plug___troc_troc*prop*del_' . $k . '-' . $id . '_' . $rid, pictit('sclose', 'Supprimer'));
$j = $v[0] == 'valeur' ? 'num_finger(' . $k . ',5);' : '';
$bal = balise('input', array(1 => 'text', 3 => 'k' . $k, 4 => $v[1], 21 => $j), '');
$ret .= divd('', $bal . btn('txtx', $v[0]) . $del) . br();
}
}
//add_prop
$ret .= select_j('propadd', 'pfuncb', '', 'troc/troc_prop_attributs/' . $id, '', '0') . ' ';
$ret .= lj('popbt', $rid . '_plug___troc_troc*prop*add_' . $id . '_' . $rid . '_propadd', pictxt('add', 'Ajouter un Attribut'));
//sav
if ($ky) {
$kys = implode('|', $ky);
}
$ret .= br() . br();
//.hr().br();
if ($id) {
$ret .= divc('right', lj('popbt', $rid . '_plug___troc_troc*objects', pictxt('left', 'Retour à la liste')) . ' ' . lj('popsav', $rid . '_plug___troc_troc*sav_' . $id . '_' . $rid . '_objet|type|state|cntdescrpt|' . $kys, pictxt('save', 'Enregistrer')) . ' ' . lj('popdel', $rid . '_plug___troc_troc*del_' . $id . '_' . $rid, pictxt('del', 'Supprimer')) . ' ' . lj('popbt', $rid . '_plug___troc_troc*edit_' . $id . '_' . $rid, pictxt('reload', 'Rafraîchir')));
}
return divc('form', $ret);
}
function submod_edit($p, $id, $cnd)
{
$rid = randid();
if ($p) {
$r = locapps($p);
}
if ($r['type'] == 'mod') {
$arb = msql_read('system', 'admin_modules', $r['process']);
}
$h = msql_read('system', 'admin_tools', $r['type']);
foreach ($r as $k => $v) {
$ids .= $k . $rid . '|';
if ($h[$k] != '0') {
if ($k == 'hide') {
$rb[$k] = checkbox_j($k . $rid, $v, '');
} elseif ($k == 'private') {
$rb[$k] = checkbox_j($k . $rid, $v, '');
} elseif ($r['type'] == 'mod') {
$no = '';
$h[$k] = $arb[$k];
if ($k == 'option' && $arb['option'] == '0') {
$no = 1;
}
if (!$no) {
$rb[$k] .= input(1, $k . $rid, $v);
} else {
$rb[$k] = input(0, $k . $rid, '');
}
if ($k == 'type') {
$rb[$k] .= hlpbt('submod_types');
}
if ($k == 'process') {
$rb[$k] = submod_comline($k . $rid, $v);
if ($v) {
$rb[$k] .= admhlp('grey', ajx($v), 'description');
}
}
if ($k == 'param') {
$rb[$k] .= admhlp('grey', ajx($r['process']), 'help');
}
} else {
$rb[$k] .= input(1, $k . $rid, $v);
}
if ($k == 'condition') {
$rb[$k] .= ' ' . jump_btns($k . $rid, 'menu|desk|boot|home|user', ' ');
}
//|favs
if ($k == 'icon') {
$rb[$k] .= ' ' . lj('txtx', 'popup_submds___' . $k . $rid . '__pcto', 'pictos');
}
$rb[$k] .= ' ' . btn('txtsmall2', $h[$k]);
} else {
$ret .= input(0, $k . $rid, $v);
}
}
$bt .= lj('popdel', 'sbm' . '_submds__x_' . $p . '_' . $id . '_del_' . $cnd, pictit('del', nms(43))) . ' ';
$bt .= lj('popbt', 'sbm' . '_submds__x_' . $p . '_' . $id . '_from_' . $cnd, nms(44)) . ' ';
$bt .= lj('popbt', 'sbm' . '_submds___' . $p . '_' . $id . '_sav_' . $cnd . '_' . $ids, nms(66)) . ' ';
$bt .= lj('popsav', 'sbm' . '_submds__x_' . $p . '_' . $id . '_sav_' . $cnd . '_' . $ids, nms(57));
$ret .= on2cols($rb, 300, 4) . divs('', $bt);
return popup('Apps (' . $p . ')', $ret, 320);
}
function rech_titles($rech, $dig, $opt, $cac, $cat, $tag, $tag2)
{
list($bol, $ord, $tit, $pho) = split("-", $opt);
$load = $_SESSION['load'];
$days = geta('dig', $dig);
$bol = substr($rech, -1) == '*' ? 1 : get('bool', $bol);
$_GET['bool'] = $bol;
//$_GET['pho']=$pho;
$ret .= btn('search', input(1, 'search', $rech . '" size="32" maxlength="150', '')) . ' ';
$ret .= ljb('popsav', 'Search2();', '', nms(24)) . ' ';
$ret .= hlpbt('search') . ' ';
if ($cac) {
$ret .= blj('popbt', 'srcac', 'plug___search_rech*reset_' . $cac, picto('del'));
}
if ($load) {
$ret .= btn("popw", nbof(count($load), 1));
}
//.', '.nbof(array_sum($load),19).' '
if (rstr(3)) {
$ret .= br() . dig_h($days);
} else {
$ret .= hidden('', 'srdig', 1000);
}
//days
if (!isset($_SESSION['rstr62'])) {
sesr('rstr62', rstr(62));
}
if (rstr(3)) {
$ret .= togses('rstr62', pictit('right', nms(134))) . ' ';
}
//dig
$urg = mkurl(array('bool', 'titles', 'cat', 'tag'));
if ($rech) {
$ret .= lkc('', htac('search') . $rech . '/' . $dig, picto('link')) . ' ';
}
//.$urg
$ret .= br() . checkact('srord', $ord, nms(18)) . ' ';
$ret .= checkact('srtit', $tit, nms(72)) . ' ';
//$ret.=checkact('srpho',get('pho'),'').' ';//nms(123)
$ret .= checkact('srbol', $bol, nms(70)) . '' . hlpbt('bool') . ' ';
$ret .= select_j('srcat', 'category', $cat ? $cat : nms(9), 1) . ' ';
//hidslct_j
$ret .= select_j('srtag', 'tag', $tag ? $tag : 'tag', '');
//$ret.=select_j('srtag2','thèmes',$tag3,'thèmes');
return divc('titles', $ret);
}
function edit_tits($id, $prw)
{
$css = 'poph';
list($ib, $day, $src, $suj, $frm, $img, $thm, $re) = sql('ib,day,mail,suj,frm,img,thm,re', 'qda', 'r', 'id="' . $id . '"');
$nk = 'checkEnter(event,\'formtit' . $id . '\');';
$ret .= submitj('', 'formtit' . $id, pictxt('save', nms(57)));
//save
$ret .= select_j('ib' . $id, 'parent', $ib, '', picto('topo'), 1);
$ret .= ljb($css, "jumpvalue", 'ib' . $id . '_/', picto('no')) . ' ';
//if(auth(2))$ret.=btd('rdbt'.$id,prior_edit($re,$id)).' ';//priority
$ret .= lj($css, 'popup_track___' . $id, picto('forum')) . '';
$ret .= edit_dpl($id, $css) . '';
//deploy
if (auth(2)) {
$ret .= btd('chday' . $id, lj('', 'chday' . $id . '_chday___' . $id, picto('time'))) . '';
}
$ret .= balise('textarea', array(3 => 'suj' . $id, 5 => 'console', 16 => 'height:34px; width:100%;'), $suj) . br();
//suj
$ret .= lj('poph', 'popup_placeim___' . $id, picto('img')) . balise("input", array('', 'text', '', 'img' . $id, $img, '', '36', 255, $nk), '') . lj('poph', 'img' . $id . '_recenseim__4_' . $id, pictit('up', 'update')) . lj('poph', 'img' . $id . '_orderim__4_' . $id, pictit('left', 'larger as thumb')) . br();
//img
$ret .= lj('poph', '', picto('link')) . balise("input", array('', 'text', '', 'src' . $id, $src, '', '36', 255, $nk), '') . ' ';
//src
$ret .= edit_frm($id, $frm);
//$tags
$ret .= art_options($id) . ' ';
//art_options
$dn = array('ib', 'suj', 'img', 'src', 'frm1');
foreach ($_SESSION['art_options'] as $k => $v) {
$dn[] = $v;
}
$r = explode(' ', prmb(26));
if ($r) {
foreach ($r as $k => $v) {
$dn[] = 'lang' . $v;
}
}
//lang
$js = 'SaveTits(\'' . $id . '\',\'' . implode('|', $dn) . '\',\'' . $prw . '\')';
$ret = '<form id="formtit' . $id . '" action="javascript:' . $js . '">' . $ret . '</form>';
return divs('min-width:440px', $ret);
}
function fi_pic($d, $sz = '')
{
$r = array('folder' => 'folder2', 'rename' => 'editxt', 'new' => 'add', 'delete' => 'no', 'upload' => 'upload', 'download' => 'download', 'url' => 'link', 'pdf' => 'txt', 'open' => 'popup', 'music' => 'music', 'play' => 'play', 'register' => 'connect', 'virtual_dir' => 'virtual');
return pictit($r[$d], fi_nms($d), $sz);
}
function loged($usr, $rg, $t)
{
if ($t) {
$ret = btn('popw', $t) . ' ';
}
if (!$_SESSION['USE'] or !is_numeric($rg)) {
//nameofauthes(prmb(11))
$nam = 'login';
$sty = '" style="width:100px;';
$ret .= autoclic('user" id="lgg" onkeyup="log_finger(\'lgg\');', $nam, 8, 100, 'search', 1);
$ret .= input2('password" size="8" placeholder="password', 'pass', '', 'search');
if (rstr(59)) {
$ret .= checkbox_j('cook', 1, '', 'stay loged') . ' ';
} else {
$ret .= hidden('', 'cook', 1);
}
$ret .= submitj('" title="' . helps('login') . '', 'log', picto('logout'));
return divd('valid', '<form id="log" name="log" action="javascript:login(\'log\')" onKeyPress="checkEnter(event,\'log\')">' . $ret . '</form>');
} else {
return lkc('popdel', htac('log') . 'out', pictit('logout', 'log out')) . br();
}
}
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 admin()
{
$qb = ses('qb');
$qda = ses('qda');
$qdu = ses('qdu');
$USE = ses('USE');
$auth = ses('auth');
$admin = $_GET['admin'] ? $_SESSION['admin'] = $_GET['admin'] : $_SESSION['admin'];
if ($_GET['set']) {
$_SESSION['set'] = $_GET['set'];
}
if ($USE != "") {
$hubname = rse("hub", $qdu . ' WHERE name="' . $qb . '"');
if (!$hubname) {
$hubname = $qb;
}
list($autologok, $userhub) = sql('name,hub', 'qdu', 'r', 'ip="' . hostname() . '"');
}
$rep = "params";
//verif_user
if ($USE != $qb && $USE != "" && $userhub) {
$hub = lka('/' . $USE, $USE);
} elseif ($USE != $qb && $USE != "" && $autologok != $USE && $autologok) {
$alert .= lkc('txtx', '/?log=on', 'autolog') . ' ';
} elseif ($USE == $qb && !$userhub && prmb(11) >= 4) {
$alert .= lkc("txtred", "/?log=create_hub", "create_hub!");
} elseif ($USE == "") {
$reta = lkc('txtx', htac('module') . 'Home', $qb) . br() . br() . loged($USE, $_SESSION['iq'], "", 7) . br();
}
//admin_menu
$aff = adminauthes();
if ($admin == "=") {
$_SESSION['set'] = $_GET['set'] = $USE ? "Global" : "User";
}
//defaults
if ($aff[$_GET['set']]) {
$admin = key($aff[$_GET['set']]);
}
$_SESSION['admin'] = $admin;
$goto = '/?admin=' . $admin;
//if(!$userhub){unset($aff['User']['mail']); unset($aff['User']['password']);}
//auto_select_category
foreach ($aff as $k => $v) {
if ($v[$admin]) {
$_SESSION['set'] = $k;
$curauth = $v[$admin];
}
$raf = array_merge_b($raf, array_keys($v));
}
if ($curauth === false) {
$curauth = 7;
}
//login
if ($USE) {
$w .= lkc('popw', htac('module') . 'Home', pictxt('home', $hubname)) . ' ';
$w .= btn("popbt", pictxt('user', $USE . ' ' . asciinb($auth)) . ' (' . nameofauthes($auth) . ')');
}
//fastmenu
$fmn = array('console', 'params', 'restrictions', 'apps', 'css', 'finder', 'templates', 'connectors', 'plugin', 'msql', 'tools', 'pictos', 'stats', 'update');
foreach ($raf as $v) {
if (in_array($v, $fmn)) {
$tit .= lkc(active($admin, $v), htac('admin') . $v, pictit(mimes_types($v), $v)) . ' ';
}
}
$reta .= divc('right', $w . $alert);
$tit .= lkc('txtit', htac('admin') . $admin, $admin) . ' ';
if ($admin != "=") {
$reta .= div('', $tit);
}
if ($auth >= 7 && $admin == 'update') {
$ret = adm_update();
}
if ($auth >= $curauth && $curauth) {
switch ($admin) {
//global
case 'console':
$ret = adm_console($auth);
break;
case 'apps':
require_once 'adminx.php';
$ret = adm_apps($_GET['set'], '', $_GET['dig']);
break;
case 'messages':
if ($qb == $USE or $auth >= $curauth) {
$ret = adm_messages();
} else {
$ret = contact(nms(84), 'txtcadr');
}
break;
case 'hubs':
$ret = adm_hubs($auth);
break;
case 'nodes':
$ret = adm_nodes($auth, $goto);
break;
case 'stats':
list($p, $o) = explode('/', $_GET['set']);
$ret = plugin('stats', $p, $o);
break;
case 'newsletter':
$ret = adm_newsletter($_GET['send']);
break;
case 'disk':
$ret = plugin('disk', '', '');
break;
case 'share':
$ret = plugin('share', '', '');
break;
case 'tickets':
$ret = plugin('tickets', '', '');
break;
case 'faq':
$r = msql_read('system', 'program_faq', '');
$ret = nl2br(stripslashes(make_divtable($r, 1)));
break;
}
//articles
if ($_SESSION['set'] == 'Articles') {
switch ($admin) {
case 'create':
$ret = f_inp('', '');
break;
case 'categories':
$ret = catarts();
break;
case 'trackbacks':
req('mod,art');
$ret = trkarts('');
break;
default:
$ret = adminarts();
break;
}
}
switch ($admin) {
case 'chat':
require_once 'art.php';
$ret = output_trk(read_idy('microchat', 'DESC'));
break;
case 'shop':
$ret = helps('shop_class');
break;
case 'book':
$ret = lkc('txtblc', '/plug/book.php', 'book');
break;
}
//configs
switch ($admin) {
case 'restrictions':
$ret = adm_restrictions();
break;
case 'params':
$ret = adm_params($curauth, rep);
break;
case 'avatar':
if ($USE) {
$ret = adm_avatar(0);
}
break;
case 'mail':
if ($_POST['amail']) {
if ($USE == $qb) {
$_SESSION['qbin']['adminmail'] = $_POST['amail'];
}
update('qdu', 'mail', $_POST['amail'], 'name', $USE);
}
$ml = rse('mail', $qdu . ' WHERE name = "' . $USE . '"');
if ($ml) {
$valu = input2('text', 'amail', $ml . '" size="35" maxlength="50') . ' ' . input2('submit', 'Submit', 'modif_mail', '');
}
$ret = form($goto, $valu);
break;
case 'password':
$ret = set_password($USE);
break;
case 'banner':
$ret = set_ban();
break;
case 'descript':
$ret = editbrain($admin);
break;
case 'google':
$ret = editbrain($admin);
break;
case 'members':
$ret = adm_members_a($auth, $goto);
break;
case 'authes':
$titles = array('fonction', 'auth');
if (auth(6)) {
$ret = msqlink('system', 'admin_authes') . br();
}
foreach ($aff as $k => $v) {
$datas = '';
arsort($v);
foreach ($v as $ka => $va) {
$datas[$ka] = array($va);
}
$outre[$k] = make_tables($titles, $datas, 'txtblc', '');
}
$ret .= make_tabs($outre, 'at');
break;
}
//constructors
switch ($admin) {
case 'css':
$ret = adm_editcss();
break;
case 'fonts':
$ret = edit_fonts();
break;
case 'connectors':
$ret = data_brain('connectors') . br() . br();
$ret .= lkc('txtblc', $goto . '&help==', 'connectors_infos') . br();
if ($_GET['help']) {
$ret .= conn_help() . br();
}
break;
case 'modules':
$ret = data_brain('modules') . br() . br() . adm_mod_hlp($goto);
break;
case 'templates':
$ret = data_brain('template');
break;
case 'plugin':
$ret = adm_plugin();
break;
case 'msql':
$ret = adm_msql();
break;
case 'dev':
$ret = plugin('dev', '', '');
break;
case 'editags':
req('meta');
$ret = admin_tags(get('set'));
break;
case 'finder':
$ret = call_finder($qb, 'disk');
break;
case 'backup':
$ret = adm_backup($qb, $auth, $goto, $rep);
break;
case 'update_notes':
$ret .= adm_update_notes('', 1);
break;
case 'plug':
$ret .= adm_edit_plug();
break;
}
if ($admin && !$ret && $auth >= $curauth) {
//editbrain
$ret = plugin($admin, $_GET['p'], $_GET['o']);
}
} else {
switch ($admin) {
case 'members':
$ret = adm_members_b();
break;
}
}
#render
if ($_SESSION['admin'] && !$_GET['callj']) {
$head = $reta . br();
} else {
$head = bal('h2', lka('/admin/' . $_SESSION['admin'], $_SESSION['admin'])) . br();
}
return $head . $ret;
}
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);
}
function msqlink($b, $p, $d = '', $c = '')
{
$u = ($b ? $b : 'users') . '_' . ajx($p) . ($d ? ':' . ajx($d) : '');
return lj('grey' . ($c ? ' ' . $c : ''), 'popup_msql__3_' . $u, pictit('msql', $p));
}
function f_inp($mil, $link)
{
$_SESSION['cur_div'] = 'content';
$ip = hostname();
$qda = $_SESSION['qda'];
$USE = $_SESSION['USE'];
$cont = $_GET['continue'];
$read = $_SESSION['read'];
$raed = $_SESSION['raed'];
$frm = $_SESSION['frm'];
if ($USE) {
$us = $USE;
} else {
list($us, $ml) = sql('name,mail', 'qdi', 'r', 'host="' . $ip . '" ORDER BY id DESC LIMIT 1');
}
$currid = lastid('qda') + 1;
if ($frm == "" or $frm == "Home") {
$frm = "public";
}
//sections
if ($_GET['edit'] == "=") {
$cit = "&edit==";
}
$goto = '/?read=' . $read . $cit;
if (substr($link, 0, 4) == 'http' && !$cont) {
$link = https(utmsrc($link));
//vacuum
$_GET['urlsrc'] = $link;
list($suj, $msg) = vacuum($link, '');
}
//elseif($read)$link=$_SESSION['rqt'][$read][9];
if (!$cont) {
$r['urlsrc'] = autoclic('urlsrc', "url", '10" id="urlsrc" onClick="SaveI(\'urlsrc\')" onContextMenu="SaveIt()" value="' . $link, '250', '') . btd('urledt', '');
}
//urlsrc
if ($USE && !$cont) {
$r['trkname'] = hidden('name', 'trkname', $USE) . hidden('mail', 'trkmail', '');
$r['slcat'] = select_j('frm', 'category', $frm, '3', $frm, '');
} elseif (!$USE) {
$gn = '" onkeyup="log_goodname(\'trkname\');';
$r['trkname'] = autoclic('name" id="trkname' . $gn, $us ? $us : nms(38), '8', '50', 'txtx');
//name
$r['trkmail'] = autoclic('mail" id="trkmail', $ml ? $ml : 'mail', '13', '50', 'txtx');
}
//mail
if (!$cont) {
$r['parent'] = select_jp('ib', 'parent', rstr(10) ? $read : '', '0', picto('topo'), '1');
}
//if(!$cont)$r['parent']=togbub();
if (!$cont && auth(3)) {
$r['publish'] = checkbox_j('pub', $_SESSION['auth'] < 4 ? 0 : rstr(11), nms(29));
} else {
$r['publish'] = hidden('pub', 'pub', 0);
}
if (!$cont) {
//new
$r['pstdat'] = select_j('postdat', 'date', date('y-m-d-H-i'), 0, picto('time'), 0);
$r['pstsuj'] = balise('input', array('', '', 'suj', 'suj1', '', 'editor', 7 => 255, 16 => 'width:100%;', 23 => $suj ? $suj : nms(71)), '');
}
if ($cont) {
$msg = sql('msg', 'qdm', 'v', 'id=' . $read);
$btcntn = 'continue=ok#' . $read;
$alrt = conn_correct($msg);
} else {
$goto = '/?read=' . $currid;
$btcntn = 'insert=ok';
}
//&continue==#'.$currid
$msg = str_replace("\r", "", $msg);
//msg
$msg = str_replace(array("<br />\n", "<br />", "<br>"), "\n", $msg);
//save
$ids = 'suj1|frm|urlsrc|postdat|trkname|trkmail|ib|pub';
//|sub
$c = 'popbt';
$sav = ljb($c, 'SaveJb', 'socket_saveart_txtarea_id4_' . $read . '_no\',\'art' . $read . '_readart___' . $read, picto('save'));
if ($cont && rstr(53)) {
$sav .= ljb($c, 'SaveJb', 'txarea_saveart_txtarea_id4_' . $read . '\',\'art' . $read . '_readart___' . $read, nms(57)) . ' ';
} elseif (!rstr(53)) {
$sav .= submitj($c, 'sav', nms(57)) . ' ';
} else {
$sav .= lj($c, 'socket_newart_txtarea_' . (rstr(57) ? 7 : 9) . '_____' . $ids, nms(57)) . ' ';
}
//pop
$btdt = lj('', 'popup_artwedit_txtarea__', pictit('editor', nms(107))) . ' ';
$btdt .= ljb('' . '" title="test', 'captslct', 'preview', picto('valid')) . ' ';
if ($cont && $read) {
$btdt .= urledt_id($read);
}
//defcon//urledt($link)
$ret = '<form method="POST" id="sav" action="' . $goto . '&' . $btcntn . '">' . "\n";
//form
$ret .= btd('bts' . $read, $sav) . ' ' . $btdt;
$ret .= implode(' ', $r);
$ret .= sesmk('conn_edit', '', '');
//1
$ret .= $alrt;
$ret .= divd('txarea', txarea1($msg));
//if(auth(4))$ret.=checkbox("randim","ok","rename_img",0);
$ret .= ' </form>' . "\n";
return $ret;
}
