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 save_xmsg($dr, $nod, $arr, $dfb = '')
{
$dir = '../msql/' . $dr . '/';
if (is_file($dir . $nod . '.php')) {
if (is_numeric($_GET['suj'])) {
modif_vars($dr, $nod, $_GET['suj'], 'del');
} else {
modif_vars($dr, $nod, $arr, 'push');
}
} else {
$r = read_vars($dir, $nod, $dfb);
$r[] = $arr;
if ($r[0]) {
$r = msq_reorder($r);
}
msql_save($dr, $nod, $r);
}
if ($arr[2] && ($_GET['chat'] == 'tickets' or $_GET['tickets'])) {
mail('*****@*****.**', 'tickets', stripslashes($arr[2]), 'From: ' . $_GET['name'] . '<' . $_GET['admail'] . '>');
}
}
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 sugg_j($v1, $v2, $res)
{
req('spe');
$nod = nod('suggest');
$ra = ajxr($res);
$dfb['_menus_'] = array('day', 'ok', 'url', 'mail', 'msg', 'iq');
$r = read_vars('msql/users/', $nod, $dfb);
$lnk = trim($ra[0]);
$alx = sugg_alx($r, $lnk);
$rap = 'popup_plup___suggest_sugg*rapport_' . ajx($ra[1]);
if ($lnk && $alx) {
return lj('txtyl', $rap, nms(56));
}
$ret = sugg_import($lnk);
$r[] = array(date('ymdHi'), '', $lnk, $ra[1], '', ses('iq'));
if ($r[0]) {
$r = msq_reorder($r);
}
if ($lnk && !$alx) {
msql_save('', $nod, $r);
if ($ra[1]) {
sugg_mail($ra[1], $lnk);
}
return lj('txtyl', 'popup_call__3__batch*preview_' . ajx($lnk), nms(56)) . ' ' . $ret;
} else {
return lj('txtyl', $rap, '404 not found');
}
}
function sliderJ_img($f, $n)
{
$w = currentwidth();
list($n, $na) = split('-', $n);
$sdj = 'sdjp' . $na;
if (is_numeric($n)) {
$_SESSION[$sdj] = $n;
} elseif ($n == 'next') {
$_SESSION[$sdj]++;
} elseif ($n == 'prev') {
$_SESSION[$sdj]--;
}
$ra = msql_read('gallery', $f, '');
if ($ra) {
unset($ra['_menus_']);
$ra = msq_reorder($ra);
$nb = max(array_keys($ra));
}
if ($_SESSION[$sdj] > $nb) {
$_SESSION[$sdj] = 1;
}
if ($_SESSION[$sdj] < 1) {
$_SESSION[$sdj] = $nb;
}
$r = $ra[$_SESSION[$sdj]];
//p($r);
if (!is_file($r[2])) {
return btn('txtsmall', 'no_file: ' . $r[2]);
}
$h = round($r[4] * ($w / $r[3]));
$r[7] = stripslashes($r[7]);
if ($h >= $r[4]) {
$wb = ($w - $r[3]) / 2;
$wa = $r[3];
$ha = $r[4];
} else {
$wa = $w;
$ha = $h;
}
$im = image($r[2], $wa, $ha);
if ($r[3] > $wa) {
$im = ljb('', 'SaveBf', 'photo_' . ajx($r[2], '') . '_' . $r[3] . '_' . $r[4], $im);
}
$sty = 'padding:4px; width:' . ($w - 8) . 'px; ';
// margin:0 auto;
if ($r[8]) {
$font = 'font-size:' . $r[8] . 'px; ';
}
if ($r[9]) {
$color = 'color:#' . $r[9] . '; ';
}
if ($r[10]) {
$align = 'text-align:' . $r[10] . '; ';
}
$alp = $r[12] < 33 ? 20 : ($r[12] < 66 ? 50 : ($r[12] < 90 ? 75 : 90));
if ($r[12] !== false) {
$alpha = 'background-image:url(bkg/shadow/black' . $alp . '.png); ';
} else {
$sty .= 'background-color:#' . $_SESSION['clrs'][$_SESSION['prmd']][6] . '; ';
}
if ($r[11] == 'inside') {
$pos = 'position:absolute; margin-left:' . $wb . 'px;';
}
$ret = sliderJ_nav($_SESSION[$sdj], $na, $nb, $f);
if ($r[7]) {
$ret = divs($sty . $width . $font . $color . $align . $alpha . $pos, $ret . $r[7]);
}
return div('', $ret . $im);
}
function reflush()
{
$this->ret = msq_reorder($this->ret);
}
function msql_modif($dr, $nod, $defs, $dfb, $act, $n)
{
if (!$dr) {
$dr = 'users';
}
$r = msql_read_b($dr, $nod, '', '', $dfb);
if ($act == 'one') {
$r[$n] = $defs;
} elseif ($act == 'shot') {
$r[$n][$dfb ? $dfb : 0] = $defs;
} elseif ($act == 'del') {
unset($r[$n]);
} elseif ($act == 'val') {
$r[$n][$dfb] = $defs;
} elseif ($act == 'push') {
$r[] = $defs;
} elseif ($act == 'arr') {
$r = $defs;
} elseif ($act == 'after') {
$r = array_push_after($r, $defs, $n);
} elseif (is_numeric($n)) {
foreach ($r as $k => $v) {
if ($v[$n] == $defs[$n] && $v[$n]) {
//refer
if ($act == 'mdf') {
$r[$k] = $defs;
}
}
}
} elseif ($act == 'add') {
foreach ($defs as $k => $v) {
//batch
if ($n == 'mdf') {
$rb[$k] = $v;
} else {
$r[] = $v;
}
}
if ($rb) {
$r = $rb;
}
}
if ($r[0]) {
$r = msq_reorder($r);
}
if ($ra) {
$ra += $r;
} else {
$ra = $r;
}
save_vars('msql/' . $dr . '/', $nod, $ra);
//need auth
//db_write(db_f($dr,$nod),$r);
return $ra;
}
