function msqt_build_from_template($nod, $tmp)
{
req('pop,tri');
list($dr, $nod) = split_right('/', $nod, 0);
if (!$dr) {
$dr = 'users';
}
$r = read_vars('msql/' . $dr . '/', $nod, '');
$mnu = $r['_menus_'];
unset($r['_menus_']);
//$rb=array_keys_r($r,0); asort($rb); $r=conform_order($r,$rb);
if ($r) {
foreach ($r as $k => $v) {
$tpl = $tmp;
if (is_array($v)) {
$n = count($v) - 1;
for ($i = $n; $i >= 0; $i--) {
if ($v[$i]) {
$tpl = str_replace(array('_' . $i, '_' . $mnu[$i]), $v[$i], $tpl);
} else {
$tpl = str_replace(array('_' . $i, '_' . $mnu[$i]), '', $tpl);
}
}
} else {
$tpl = str_replace(array('_0', '_' . $mnu), $v, $tpl);
}
$tpl = str_replace('_key', $k, $tpl);
$ret .= correct_txt($tpl, "", 'codeline');
}
}
return format_txt_r($ret, '', '');
}
function baz_u($d)
{
list($ob, $op) = split_right(':', $d);
list($od, $oq) = split_one('/', $op);
//echo $ob.'-'.$od.'-'.$oq.br();
if ($oq) {
switch ($od) {
case 'bal':
return bal($oq, $ob);
break;
case 'plug':
return plugin($oq, $ob);
break;
}
} else {
switch ($op) {
case 'br':
return br();
break;
case 'b':
return bal($op, $ob);
break;
case 'u':
return bal($op, $ob);
break;
}
}
return '(' . $d . ')';
}
function server()
{
list($dr, $nod) = split_right('/', $_GET['table'], 1);
$main = msql_read($dr, $nod, '');
//p($main);
if ($main) {
$dscrp = flux_xml($main);
}
$host = $_SERVER['HTTP_HOST'];
//$dscrp=str_replace('users/','http://'.$host.'/users/',$dscrp);
//$dscrp=str_replace('img/','http://'.$host.'/img/',$dscrp);
$xml = '<' . '?xml version="1.0" encoding="utf-8" ?' . '>' . "\n";
//iso-8859-1//
$xml .= '<rss version="2.0">' . "\n";
$xml .= '<channel>' . "\n";
$xml .= '<title>http://' . $host . '/msql/' . $_GET['table'] . '</title>' . "\n";
$xml .= '<link>http://' . $host . '/</link>' . "\n";
$xml .= '<description>' . count($main) . ' entries</description>' . "\n";
$xml .= $dscrp;
$xml .= '</channel>' . "\n";
$xml .= '</rss>' . "\n";
//$xml.='</xml>'."\n";
if ($_GET['bz2']) {
return bzcompress($xml);
}
if ($_GET["b64"]) {
return base64_encode($xml);
}
return utf8_encode($xml);
}
function msqdt_herit_overmenus($p, $o)
{
$r = sql('msg', 'qdd', 'rv', 'val="surcat"');
if ($r) {
foreach ($r as $k => $v) {
list($over, $cat) = split_right('/', $v, 1);
//root,action,type,button,icon,auth
$ra[] = array('Sections/' . $over, '/cat/' . $cat, '', $cat, 'url', '');
}
}
msql_modif('', ses('msqdt'), $ra, '', 'add', '');
return msqdt_build($p, $o);
}
function plug_table2img($d, $p)
{
list($dr, $nod) = split_right('/', $p, '');
$r = msql_read($dr, $nod, '');
unset($r['_menus_']);
//p($r);
if ($r) {
foreach ($r as $k => $v) {
$rb[$k] = array(image($d . $v, '', ''), $v);
$ret .= '<a title="' . $k . '::' . $v . '">' . image($d . $v, '', '') . $k . '::' . $v . '</a>';
}
}
//$ret=make_tables('',$rb,$csa,$csb);
return $ret;
}
function plug_dir2table($d, $p)
{
$r = explore($d);
//p($r);
list($dr, $nod) = split_right('/', $p, '');
if ($r) {
msql_modif($dr, $nod, msq_prep($r), array('src'), 'add', 'mdf');
}
$rb = msql_read($dr, $nod, '');
if (!$rb) {
return 'error';
}
//p($rb); //1d_array
return make_tables('', msq_prep($rb), $csa, $csb);
}
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 tardir($v)
{
//imgb/icons//avatar//bkg
list($dr, $dn) = split_right('/', $v, 1);
$lk = '_public/' . $v . '.tar.gz';
$r = walk_dir('' . $v, 'funcd');
if ($r) {
$sum = array_sum($r);
}
if ($sum) {
PclTarCreate($lk, '' . $v);
echo lkc('txtyl', $lk, $lk . 'modified') . br();
} else {
echo 'lk=' . $lk . br();
}
}
function post_treat_batch($v, $t, $p)
{
$todo = explode('|', $p);
//admin/edit_msql_j
foreach ($todo as $ka => $va) {
list($act, $pb) = split_one(':', $va, 0);
//global
if ($act == 'deltables' && $v) {
$v = del_tables($v);
} elseif ($act == 'delblocks' && $v) {
$v = correct_txt($v, ':q', 'correct');
} elseif ($act == 'stripconn' && $v) {
$v = correct_txt($v, 'stripconn', 'correct');
} elseif ($act == 'striplink' && $v) {
$v = correct_txt($v, 'striplink', 'correct');
} elseif ($act == 'delconn' && $pb && $v) {
$v = correct_txt($v, ':' . $pb, 'correct');
} elseif ($act == 'cleanmail' && $v) {
$v = convertmail($v);
} elseif ($act == 'delqmark' && $v) {
$v = del_qmark($v);
} elseif ($act == '-??') {
$v = str_replace('-??', '-', $v);
} elseif ($act == '???') {
$v = mb_ereg_replace("[?]{2,}", "", $v);
}
}
$r = explode("\n", $v);
$nbr = count($r);
foreach ($r as $k => $v) {
$cur = true;
//by_lines
foreach ($todo as $ka => $va) {
list($act, $pb) = split_right(':', $va, 0);
if ($cur != false) {
if ($act == 'line' && $k == $pb - 1) {
$cur = false;
} elseif ($act == 'del') {
if ($pb == 'title') {
$pb = $t;
}
$cur = str_replace($pb, '', $v);
} elseif ($act == 'line' && $pb == 'last' && $k == $nbr) {
$cur = false;
} elseif ($act == 'linewith' && strpos($v, $pb) !== false) {
$cur = false;
} elseif ($act == 'boldline' && $k == $pb - 1 && $v) {
$cur = '[' . $v . ':b]';
} elseif ($act == 'line' && $pb == 'title' && $t) {
$vb = clean_title(pre_clean(trim($v)));
$tb = $t;
if (strpos($vb, $tb) !== false) {
$cur = false;
} else {
$cur = $v;
}
} elseif ($act == 'del-link' && strpos($v, $pb) !== false) {
$cur = embed_detect($v, '§', ']');
} elseif ($act == 'linenolink' && $k == $pb - 1) {
list($no, $cur) = explode("§", substr($v, 0, -1));
} else {
$cur = $v;
}
}
}
$ret .= $cur . "\n";
}
$ret = clean_br($ret);
$ret = repair_tags($ret);
$ret = utflatindecode($ret);
return trim($ret);
}
function overcat()
{
$r = sql('id,msg', 'qdd', 'kv', 'ib="' . ses('qbd') . '" and val="surcat"');
if ($r) {
foreach ($r as $k => $v) {
list($ov, $cat) = split_right('/', $v, 1);
$rb[$cat] = array($ov, $k);
}
}
$r = sql('frm', 'qda', 'k', 'nod="' . ses('qb') . '" and substring(frm,1,1)!="_" order by frm');
$ja = 'scat_call___admin_overcatsav_';
$jb = 'scat_call___admin_overcatdel_';
$ret = helps('overcat') . hlpbt('overcats_menu') . br() . br();
if ($r) {
foreach ($r as $k => $v) {
$id = randid();
//if(isset($rb[$k]))unset($rb[$k]);
$j = $ja . ajx($k) . '_' . $rb[$k][1] . '_' . $id;
$ret .= $k . ' ' . inp($id, $rb[$k][0]) . lj('popbt', $j, 'ok') . ' ';
if ($rb[$k][1]) {
$ret .= lj('popbt', $jb . $rb[$k][1], 'x');
}
$ret .= br();
}
}
//if($rb)pr($rb);//unused cats
return $ret;
}
function msqdata($d, $id)
{
list($v, $k) = split_right('§', $d);
$k = $k ? $k : 1;
if ($v) {
$ra = array($v);
if ($k) {
$msg = sql('msg', 'qdm', 'v', 'id=' . $id);
$msg = str_replace($d . ':msq_data', $k . ':msq_data', $msg);
update('qdm', 'msg', $msg, 'id', $id);
}
$r = msq_create('art_' . $id, $ra, array('txt'), $k);
return $r[$k][0];
} else {
$ret = msql_read('', ses('qb') . '_art_' . $id, $k);
}
if (auth(3)) {
$ret .= msqlink('', ses('qb') . '_art_' . $id, $k);
}
return $ret;
}
function recup_get($dr)
{
if ($_POST['dig']) {
$_GET['dig'] = $_POST['dig'];
}
if ($_GET['msql']) {
return '/msql/' . $_GET['msql'] . '/page/';
}
if ($_SESSION['htacc'] && !$dr) {
list($g, $u) = detect_uget('tag cat admin module');
if ($_GET['search']) {
return '/search/' . $_GET['search'] . '/' . $_GET['dig'] . '/page/';
} elseif ($_GET['module']) {
list($o, $p) = split_right(':', $_GET['module']);
return '/module/' . $p . ($o ? '/' . $o : '') . '/page/';
} elseif ($_GET['context']) {
return '/context/' . $_GET['context'] . '/page/';
} elseif (!$g) {
return '/module/Home/page/';
} else {
return '/' . $g . '/' . $u . '/' . $_GET['dig'] . '/page/';
}
}
if ($_GET['search']) {
$ret = 'search=' . $_GET['search'];
} elseif ($_GET['module']) {
$ret = 'module=' . $_GET['module'];
} elseif ($_GET) {
foreach ($_GET as $k => $v) {
if ($k != 'page' && $k != 'callj' && $k != 'res' && $k != 'cat' && $k != 'tag' && $k != 'titles' && $k != 'bool' && $k != 'plug') {
$ret .= $k . '=' . $v . '&';
}
}
}
return '/' . $dr . '?' . $ret . 'page=';
}
function decompact_mod($d)
{
$r = split_right('§', $d, 1);
$p = split_right(':', $r[0], 1);
return array($p[0], $p[1], $r[1]);
}
function bub_overcats()
{
//mods/overcats
$r = sql('msg', 'qdd', 'rv', 'ib="' . ses('qbd') . '" and val="surcat"');
if ($r) {
foreach ($r as $k => $v) {
list($over, $cat) = split_right('/', $v, 1);
$ret[] = array($cat, 'link', 'cat', '//' . $cat, '', '', $over, 'url');
}
}
return $ret;
}
function slider_build($dir, $id, $opt)
{
//$dir.'+'.$id.'+'.$opt;
$hub = $_SESSION["qb"] . '_';
//$ret.=divd('popslide','');
if ($id == 'base') {
$nod = $dir;
} elseif (!$dir && $id) {
$r = sql('img', 'qda', 'v', 'id="' . $id . '"');
$re = explode("/", $r);
$predir = 'img/';
$nod = $hub . $id;
} elseif ($id == 'manual') {
// or (strpos($dir,'manual')!==false && $opt=='rebuild')
$predir = 'img/';
$nod = $hub . $_SESSION['read'] . 'manual';
$re = explode(",", str_replace("\n", "", $dir));
$opt = 'rebuild';
} elseif (strpos($dir, "/") !== false) {
$predir = 'users/' . $dir . '/';
$re = explore($predir);
$nod = $hub . str_replace("/", "", str_replace($_SESSION["qb"], "", $dir));
} else {
$nod = $dir;
$edit = 'ok';
list($hb, $nd) = split('_', $dir);
if (is_numeric($nd)) {
$dir = $dir;
} elseif (strpos($nd, 'manual') !== false) {
$edit = 'ok';
} else {
$rb = msql_read('gallery', $nod, '');
list($prd, $fil) = split_right('/', $rb[1][2], 1);
$predir = $prd . '/';
$dir = str_replace("users/", "", $prd);
$re = explore($predir);
}
}
$dor = ajx($dir, '');
$ret .= lj('popbt', 'popup_gallery', '<-') . ' ';
$ret .= lj('popbt', 'popup_slider__x_' . $dor . '_' . $id, picto('reload')) . ' ';
if ($edit) {
$ret .= lj('popsav', 'popup_slider__3x_' . $dor . '_' . $id . '_rebuild', "Rebuild") . ' ';
}
list($base, $table) = split('_', $nod);
if ($edit) {
$ret .= msqlink('gallery', $base . '_' . $table) . br();
} else {
$ret .= ljb("popbt", "insert_photo", $nod . '\',\'slider', "Slider (Flash)") . ' ';
$ret .= ljb("popbt", "insert_photo", $nod . '\',\'sliderJ', "SliderJ (Ajax)") . ' ';
$ret .= ljb("popbt", "insert_photo", $nod . '§1\',\'sliderJ', "SliderJ+thumbs") . br();
}
$ret .= br();
$dirg = 'msql/gallery/';
if (!is_dir($dirg)) {
mkdir($dirg);
}
$file = 'msql/gallery/' . $nod . '.php';
if ($re && (!is_file($file) or $opt == 'rebuild')) {
$r = slider_builder($re, $predir, $nod);
} else {
$r = msql_read('gallery', $nod, '');
}
$nodb = str_replace('_', '*', $nod);
if ($r['_menus_']) {
unset($r['_menus_']);
}
if ($r) {
foreach ($r as $k => $v) {
$img = image('gallery/mini/' . $v[1], '', '');
$rj = array('edit' . $k, 'plug', '', '', 'slider', 'slider*edit', $nodb, $k, '');
$imgnma = str_replace('*', '_', $v[0]);
$imgnm = jimg($v[2], $img) . br();
$imgnm .= call_func('popbt', $rj, $imgnma);
$datas[$imgnm] = array(divd('edit' . $k, $v[7]));
}
}
$ret .= make_tables('', $datas, 'txtred', 'txtblc" style="padding:4px;');
return popup($nod, $ret);
}
function val_to_mod_b($p)
{
$p = str_replace("\n", "", $p);
$r = explode(",", $p);
$n = count($r);
for ($i = 0; $i < $n; $i++) {
//$d='scroll'; $o='12';
list($comline, $t) = split_right('§', trim($r[$i]), 1);
list($code, $mod) = split_right(':', $comline, 1);
if (strpos($code, '/') !== false) {
list($p, $tb, $d, $o, $ch, $hd, $tp, $br) = explode("/", trim($code));
} else {
$p = trim($code);
$tb = '';
}
if (!$t) {
$t = $tb ? $tb : $p;
}
$ret[$t ? $t : $p] = array($mod, $p, $tb, $c, $d, $o, $ch, $hd, $tp, $br);
}
//($tb?$tb:$p)
return $ret;
}
function videoboard($p, $c, $o)
{
static $iv;
$iv++;
$ra = array();
require_once 'ajxf.php';
list($pa, $pb) = split_right('-', $p, 0);
if ($pa == 'priority') {
$pa = 11;
}
if ($pa == 'cat') {
$pa = 1;
}
if ($pa == 'tag') {
$pa = 5;
}
if (!is_numeric($pa)) {
$pb = $p;
$pa = 5;
}
if ($pb == 1) {
$pb = $_SESSION['frm'];
}
if (strpos($pb, '|') !== false) {
$rc = explode('|', $pb);
$nc = count($rc);
}
if ($nc > 0) {
foreach ($rc as $k => $v) {
$rab = tri_rqt((string) $v, $pa);
if ($rab) {
$ra = $rab;
}
}
} elseif ($pb) {
$ra = tri_rqt($pb, $pa);
} else {
$ra = $_SESSION['rqt'];
}
if ($ra) {
$ra = array_keys($ra);
$min = min($ra);
$r = search_conn($ra, $min, ':video');
$_SESSION['iv' . $iv] = $r;
if ($r) {
return divd('iv' . $iv, video_viewer($iv, $_SESSION['cur_div'], 0));
}
}
}
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 inject_sql($r, $d)
{
$d = str_replace(') VALUES', '),', $d);
$d = str_replace(array('`', ", ''", "''"), array('', ", '-'", "\\'"), $d);
$rb = explode("), '", $d);
//very bad
foreach ($rb as $k => $v) {
if (substr($v, 0, 6) == 'INSERT') {
$m = 1;
} else {
$m = 0;
}
$v = str_extract('(', $v, 0, 1);
list($key, $v) = split_right(", '", $v);
//echo $key.'-'.$v.br();
$v = trim($v);
$rd = '';
if ($m) {
$rc = explode(',', $v);
} elseif ($v) {
$rc = explode("', '", $v);
}
//p($rc);
foreach ($rc as $vc) {
if (substr($vc, 0, 1) == "'") {
$vc = substr($vc, 1);
}
if (substr($vc, -1) == "'") {
$vc = substr($vc, 0, -1);
}
$rd[] = trim($vc);
}
if ($m) {
$r['_menus_'] = $rd;
} elseif ($key && $rd) {
$r[trim($key)] = $rd;
}
}
return $r;
}
