function sliderJ_thumbs($r, $f, $a)
{
$w = currentwidth();
if ($r) {
unset($r['_menus_']);
}
if ($r) {
$rb = array_keys_r($r, 5);
}
if ($rb) {
$wt = array_sum($rb);
}
$limit = 0 - ($wt - $w + 22);
if ($r) {
foreach ($r as $k => $v) {
$i++;
$imn = 'gallery/mini/' . $v[1];
if (is_file($imn)) {
$im = image($imn, $v[5], $v[6]);
$gdp = 0 - $wa + ($w / 2 - $v[5] / 2);
if ($gdp < $limit) {
$gdp = $limit;
}
if ($gdp > 0) {
$gdp = 0;
}
$ret .= ljb('', 'sliderjnav_' . $a, $gdp . '\',\'' . $k, $im);
$wa += $v[5];
}
}
}
$ret = div(' id="sdjv' . $a . '" style="margin-left:0px;"', $ret);
$ret = div(' style="overflow:hidden; width:' . $w . 'px; height:75px;"', $ret);
return $ret;
}
function plug_cubes($d)
{
req('pop');
$w = currentwidth();
$r = $_SESSION['rqt'];
$cols = 4;
$c = $cols * 3;
$n = count($r);
$nl = ceil($n / $c);
$l = $w / $c;
$cats = array_keys_r($r, 1, 'k');
$clr = cub_clr($cats);
foreach ($r as $k => $v) {
if ($v[11] > 1 && $v[3]) {
$lx = $l * ($v[11] - 1);
//$pub=minimg($v[3],"h").lka(htac($k),$v[2]);
//$pub=make_thumb_d($v[3],round($lx).'/'.round($lx));//
$pub = image('/imgc/' . $v[3], round($lx), round($lx));
$pub = lka(htac($k) . '" title="' . $v[2], $pub);
$ret .= divs(cub_sz($lx, $clr[$v[1]]), $pub);
}
}
//for($ic=0;$ic<$c;$ic++){}
//for($ib=0;$ib<$nl;$ib++){$i++;}
return $ret;
}
function detect_core()
{
$dr = 'progb/';
$rec = recup_func($dr, 'lib');
//p($rec);
$r = msql_read('system', 'program_core', '', '1');
$rk = array_keys_r($r, 0, 'k');
//p($r);
foreach ($rec as $k => $v) {
$rc = $r[$rk[$k]];
$v = str_replace('$', '', $v);
$rc[2] = str_replace('$', '', $rc[2]);
if ($k) {
$rb[] = array($k, $v[0], $rc[2], $rc[3], $v[1]);
}
//$rc[4]?$rc[4]:
if (!$rk[$k]) {
$na++;
}
}
foreach ($rk as $k => $v) {
if (!$rec[$k]) {
$nb++;
}
}
//p($rb);
$rb = msq_reorder($rb);
//p($rb); //req('msql'); //$rb=sort_table($rb,0);
$rh = array('function', 'variables', 'usage', 'return', 'context');
msql_save('system', 'program_core', $rb, $rh);
//,'input','output'
return 'program_core: added: ' . ($na ? $na - 1 : 0) . ' deleted: ' . ($nb ? $nb : 0) . br();
}
function exc_lib()
{
$rf = msql_read('system', 'program_core', '', 1);
$ref = array_keys_r($rf, 0);
asort($ref);
foreach ($ref as $k => $v) {
$ret .= lj('', 'popup_plup___exec_readfunc_' . $k, $v) . br();
}
return divs('width:180px; overflow:auto; height:240px;', $ret);
}
function addfonts_j($var1, $var2, $res)
{
$r = msql_read('', 'public_addfonts', '');
if ($r) {
$rk = array_keys_r($r, 0, 'k');
}
$res = ajx(substr($res, 0, -1), 1);
$res = embed_detect($res, '{', '}', '');
$res = str_replace(array('"', "'", ' ', "\n", "\r", "\t", "?#iefix", "?", "!"), '', $res);
$ra = explode(';', $res);
$nb = count($ra);
for ($i = 0; $i < $nb; $i++) {
list($attrb, $value) = split_right(':', $ra[$i], 0);
if ($attrb == 'font-family') {
$rb['name'] = $value;
}
$rab = explode(',', $ra[$i]);
if ($rab) {
foreach ($rab as $k => $va) {
$rt = embed_detect($va, 'url(', ')', '');
//echo $rt.br().br();
if ($rt && !$rk[$rb['name']]) {
$rs = str_extract('#', $rt, 0, 0);
$xt = strrchr_b($rt, '.');
if ($xt && substr($rs, 0, 4) == 'http' && $xt != 'eot?') {
$rb[$xt] = $rs;
} else {
$noturl = 1;
}
}
}
}
}
if ($rb[0]) {
$rb = msq_reorder($rb);
}
//p($rb);
$dfb['_menus_'] = array('name', 'eot', 'woff', 'svg', 'ttf');
if (count($rb) > 1) {
$r = msql_modif('users', 'public_addfonts', $rb, $dfb, 'push', '');
//p($rb);
return addf_read($r);
} else {
return btn('txtred', $noturl ? 'not absolte url' : 'already_exists');
}
}
function msqt_read($nod, $p)
{
$r = read_vars('msql/users/', $nod, '');
if (isset($r['_menus_'])) {
$mnu = $r['_menus_'];
unset($r['_menus_']);
}
if (substr($p, 0, 1) == 'x') {
$p = substr($p, 1);
} else {
$o = 'x';
}
$rb = array_keys_r($r, $p);
if ($o) {
arsort($rb);
} else {
asort($rb);
}
$r = conform_order($r, $rb);
foreach ($mnu as $k => $v) {
$pb = ajx($o . $v, 0);
$tts[] = lj('', 'msqt_plug___msqtemplate_msqt*read_' . ajx($nod, 0) . '_' . $o . $k, $v);
}
foreach ($r as $k => $v) {
if ($v) {
foreach ($v as $ka => $va) {
if ($mnu[$ka] == 'date') {
$va = date('d/m/Y', $va);
}
$r[$k][$ka] = $va;
}
}
}
array_unshift($r, $tts);
return make_table($r, 'txtred', 'txtx');
}
function config_mod($mnb, $option)
{
$rm = msql_read('users', $_SESSION['modsnod'], $mnb);
//module
$mod = $rm['module'];
$bloc = $rm['block'];
$param = $rm['param'];
if (strpos($param, ',')) {
$param = str_replace(', ', ",\n", $param);
$param = ereg_replace("[\n]{2,}", "\n", $param);
}
$arb = msql_read('system', 'admin_modules', $mod);
//props
$type = $arb['category'];
$prm = $arb['param'];
$opt = $arb['option'];
$com = $arb['command'];
$com = str_replace('scroll', 'scroll scrold', $com);
$arc = msql_read('lang', 'admin_modules', $mod);
$fhlp = $arc['description'];
if (strpos(prma('blocks'), $mod) !== false && $mod) {
$type = "div";
$fhlp = $fhlp ? $fhlp : nms(90);
$prm = 3;
$arb["title"] = 1;
} elseif (!$type && $mod != 'system') {
$type = 'user_mod';
$fhlp = 'obsolete';
} elseif ($mod == 'Page_titles') {
$fhlp .= ' ' . hlpbt('breadcrumb');
}
if ($bloc == 'menus') {
$type = 'menu_link';
$fhlp = 'menu link';
}
if ($arc['help']) {
$phlp = admhlp('grey', ajx($mod), 'help') . ' ';
}
if ($arc['option']) {
$ohlp = admhlp('grey', ajx($mod), 'option') . ' ';
}
if ($arc['command']) {
$dhlp = admhlp('grey', ajx($mod), 'command') . ' ';
}
//usage
$rc = array('module' => bal('strong', $mod) . ' (' . $type . ') ' . $mnb, 'usage' => divc('small', $fhlp));
if ($_SESSION['line'][$param]) {
$rc["article"] = lkt('', htac('section') . $param, $param);
} elseif ($prm == 2) {
//wait_ID
if (!is_numeric($param)) {
$id = find_id($param);
} else {
$id = $param;
}
if (is_numeric($id) && $param > 3) {
list($dy, $frm, $suj, $amg) = pecho_arts($id);
//art
$rc["article"] = lkt('', '/?read=' . $id, $suj);
}
}
$l = 'modules_' . $bloc . '_' . $mnb;
$rid = randid();
$rds = array('mb', 'mm', 'mp', 'mt', 'mc', 'md', 'mo', 'mh', 'mv', 'me', 'mr', 'mi', 'mj');
foreach ($rds as $k => $v) {
$rvs[$v] = $v . $rid;
$dvs .= $v . $rid . '|';
}
//$dvs.=;
$sty = '" onkeypress="checkEnter(event,\'savmod\')';
$form .= hidden('', $rvs['mm'], $mod);
//edit
if ($mod == "submenus") {
require_once 'spe.php';
$rc["edit"] = menus_h($mnb);
if ($option) {
$param = menu_h_g($option);
}
}
if ($mod == "Banner") {
$rc["edit"] = lkc("popbt", '/admin/banner', 'edit_banner');
} elseif ($mod == "user_menu") {
$rc["edit"] = jump_btns($rvs['mp'], spelinks(), ' ');
} elseif ($mod == "app_menu") {
$rc["edit"] = btn('console', 'button/type/process/param/option/condition/root/icon/hide/private§display[,]');
} elseif ($mod == 'link' or $mod == "url") {
$arr = explode('|', spelinks());
if ($_SESSION['line']) {
$arr += array_flip($_SESSION['line']);
}
$rc["edit"] = select(array('id' => 'mps', 'onchange' => 'jumpslct(\'' . $rvs['mp'] . '\',this)', 'style' => "width:90px;"), $arr, 'vv');
} elseif ($mod == 'template') {
$ra = msql_read('', ses('qb') . '_template', '', 1);
if ($ra) {
$rb = array_keys_r($ra, 1, 'k');
$rc["edit"] = jump_btns($rvs['mp'], $rb, '');
}
} elseif ($mod == 'msql_links') {
$rc["edit"] = jump_btns($rvs['mp'], 'links|rssurl|deploy', '');
} elseif ($mod == 'connector') {
req('art');
$rc["edit"] = conn_edit();
$rc["edit"] .= txarea('txtarea', $param, 50, 5, 'txtnoir" onkeyup="transvalue(\'' . $rvs['mp'] . '\')" onclick="transvalue(\'' . $rvs['mp'] . '\')"; onblur="transvalue(\'' . $rvs['mp'] . '\');');
} elseif ($mod == 'desktop') {
$rc["edit"] = hlpbt('desklr');
} elseif ($mod == 'cssfonts') {
$rc["edit"] = jump_btns($rvs['mp'], 'fontphilum|fontmicrosys|', ' ');
} elseif ($mod == 'columns') {
$rc["edit"] = mod_edit('', 1, $rvs['mp']);
} elseif ($mod == 'articles') {
$rc["edit"] = divd('amc', artmod_edit_l($rvs['mp'], '', ''));
} elseif ($mod == "design" && prmb(5)) {
$rc["edit"] = picto(alert) . helps('prmb5');
}
//param
if ($mod == 'tab_mods' or $mod == 'MenusJ' or $mod == 'art_mod') {
$rc["param"] = comline($param, $rvs['mp']);
} elseif ($mod == 'app_menu') {
$rc["param"] = appmenu($param, $rvs['mp']);
} elseif ($mod == "submenus") {
$rc["param"] = txarea($rvs['mp'], $param, 42, 4);
} elseif ($prm != '0') {
$rc["param"] = goodarea($param, $rvs['mp'], '', $j, 42);
} else {
$form .= hidden('', $rvs['mp'], '');
}
if ($mod == 'desktop') {
$rc["edit"] = $phlp;
$rc["param"] .= ' ' . hlpbt('desklr');
} elseif ($rc["param"] && $mod != 'apps' && $phlp) {
$rc["param"] .= ' ' . $phlp;
}
//title
if ($prm != '1' && !$arb["title"]) {
$rc["title"] = input(1, $rvs['mt'] . '" size="42' . $sty, $rm['title'], "");
} else {
$form .= hidden('', $rvs['mt'], '');
}
//bloc
if ($bloc != 'system' && $bloc != 'newsletter' && $bloc != 'gsm') {
$rc["bloc"] = select_j($rvs['mb'], 'system ' . prma('blocks'), $bloc, 1, $bloc, 0);
} else {
$form .= hidden('', $rvs['mb'], $bloc);
}
//condition
if ($bloc != 'newsletter') {
$rc["condition"] = select_j($rvs['mc'], '- home cat art', $rm['condition'], 3, $rm['condition'], 0) . ' ' . hlpbt('mod_cond');
} else {
$form .= hidden('', $rvs['mc'], '');
}
//command
if ($com) {
$rc["command"] = select_j($rvs['md'], '- ' . ajx($com), $rm['command'], 1, $rm['command'], 0) . ' ' . $dhlp;
} else {
$form .= hidden('', $rvs['md'], '');
}
//option
if ($opt != '0') {
$rc["option"] = select_j($rvs['mo'], '-|' . $opt, $rm['option'], 3, $rm['option'], 0) . ' ';
if ($mod == 'LOAD') {
$rc["option"] .= hlpbt('art_render');
} else {
$rc['option'] .= $ohlp;
}
} else {
$form .= hidden('', $rvs['mo'], '');
}
//template
if ($arb["template"]) {
$ara = msql_read('', ses('qb') . '_template', '', 1);
if ($ara) {
$tmp = implode(' ', array_keys($ara));
}
$rc["template"] = select_j($rvs['me'], '- ' . ajx($tmp), $rm['template'], 1, $rm['template'], 0);
} else {
$form .= hidden('', $rvs['me'], '');
}
//cache
if ($arb["cacheable"]) {
$rc["cache"] = checkbox_j($rvs['mh'], $rm['cache'], '');
} else {
$form .= hidden('', $rvs['mh'], '');
}
$rc["hide"] = checkbox_j($rvs['mv'], $rm['hide'], '');
//hide
if ($arb["nobr"] != '0') {
$rc["nobr"] = checkbox_j($rvs['mr'], $rm['nobr'], '');
} else {
$form .= hidden('', $rvs['mr'], '');
}
if ($arb["div"] != '0') {
$rc["div"] = checkbox_j($rvs['mi'], $rm['div'], '');
} else {
$form .= hidden('', $rvs['mi'], '');
}
if ($arb["ajax button"] != '0') {
$rc["ajax button"] = checkbox_j($rvs['mj'], $rm['js'], '');
} else {
$form .= hidden('', $rvs['mj'], '');
}
//script
if ($type != 'system') {
$oks = lj('popbt', 'popup_modsee__3_' . $mnb . '_1', 'script') . hlpbt('comline') . ' ';
$oks .= lj('popbt', 'popup_modsee__3_' . $mnb, nms(65)) . ' ';
}
//if($mod=='LOAD')$rc["edit"]=fast_sets('load');
//render
$bt .= ljb("popdel", "SaveR", $l . '_del\',\'' . $dvs, nms(43)) . ' ';
$bt .= ljb('popbt', "SaveR", $l . '_new\',\'' . $dvs, nms(44)) . ' ';
$bt .= ljb('popbt', "SaveR", $l . '_savb\',\'' . $dvs, nms(66)) . ' ';
$bt .= ljb('popsav', "SaveR", $l . '_sav\',\'' . $dvs, nms(57)) . ' ';
//master_config
$ret .= '<form id="savmod" action="javascript:SaveR(\'' . $l . '_sav\',\'' . $dvs . '\')">' . $form;
$ret .= on2cols($rc, 470, 5);
$ret .= '</form>';
$ret .= divs('', $bt . $oks);
return $ret;
}
function array_merge_px($r, $rb)
{
if ($r) {
$ka = array_keys_r($r, 0, 'k');
}
if ($rb) {
foreach ($rb as $k => $v) {
if (!$r[$ka[$v[0]]]) {
$r[] = $v;
}
}
}
return $r;
}
function inject_fonts()
{
$dr = 'fonts/';
$ra = msql_read('server', 'edition_typos', '');
$vra = array_keys_r($ra, 0);
$rb = msql_read('system', 'edition_typos', '');
$vrb = array_keys_r($rb, 0);
$rc = explore($dr, 'files', 1);
$vrf[] = 1;
if ($rc) {
foreach ($rc as $k => $v) {
list($nm, $xt) = split_right('.', $v, 1, 1);
//add
if ($xt == 'woff' or $xt == 'eot' or $xt == 'svg') {
// or $xt=='ttf'
if (!in_array($nm, $vra) && !in_array($nm, $vrb) && !in_array($nm, $vrf)) {
$rb[] = array($nm, 'user', '', '', '');
$vrf[] = $nm;
$add[] = $nm;
} elseif (!in_array($nm, $vra) && in_array($nm, $vrb)) {
$kb = in_array_b($nm, $vrb);
$rb[] = $ra[$kb];
$vrf[] = $nm;
$add[] = $nm;
}
}
}
}
foreach ($rb as $k => $v) {
if ($k != '_menus_') {
//del
if (!is_file($dr . $v[0] . '.woff') && !is_file($dr . $v[0] . '.eot') && !is_file($dr . $v[0] . '.svg')) {
unset($rb[$k]);
$del[] = $v[0];
}
}
}
if (!is_dir('msql/server')) {
mkdir('msql/server');
}
//sav
save_vars('msql/server/', 'edition_typos', $rb);
save_vars('msql/system/', 'edition_typos', $rb);
$ret .= 'table server/edition_typos updated' . br() . br();
$ret .= count($add) . ' elements added: ' . br() . ($add ? implode(br(), $add) . br() : '') . br();
$ret .= count($del) . ' elements deleted:' . br() . ($del ? implode(br(), $del) . br() : '') . br();
return $ret;
}
function spp_table($rid)
{
$dfb['_menus_'] = array('projet', 'poll');
$r = msql_read('', $_SESSION['sppnod'], '', 1);
//p($r);
if ($r) {
$ra = array_keys_r($r, 1);
arsort($ra);
foreach ($ra as $k => $v) {
$bt = ljb('txtbox', 'SaveJb', 'ob' . $k . '_plug___superpoll_spp*poll_' . $k . '_0\',\'' . $rid . '_plug___superpoll_spp*table', '-') . ' ';
$bt .= btn('txtred" id="ob' . $k, $r[$k][1] ? $r[$k][1] : 0);
$bt .= ljb('txtbox', 'SaveJb', 'ob' . $k . '_plug___superpoll_spp*poll_' . $k . '_1\',\'' . $rid . '_plug___superpoll_spp*table', '+') . ' ';
if (auth(4)) {
$bt .= ljb('txtbox', 'SaveJb', 'res_plug___superpoll_spp*del_' . $k . '\',\'' . $rid . '_plug___superpoll_spp*table', 'x') . ' ';
}
$ret .= divc('txtcadr', divc('imgr', $bt) . $r[$k][0]);
}
}
return $ret;
}
function mbd_css($cnn)
{
//pub_css
$r = msql_read('design', $_SESSION['qb'] . '_design_' . $_SESSION['prmd'], '');
if ($r) {
$r = array_keys_r($r, 1, 'k');
}
if ($r) {
foreach ($r as $k => $v) {
if (strpos($k, ':') === false && strpos($k, '.') === false && trim($k)) {
$ret .= ljb('', 'jumpvalue', 'cnn_' . $k, $k) . ' ';
}
}
}
return divc('nbp', $ret) . br() . assistant('cnn', 'embed_css', $cnn, '', '');
}
function rand_clr()
{
$r = colors();
$rb = array_keys_r($r, 0);
sort($rb);
$n = rand(0, count($rb));
return $rb[$n];
}
