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 output_pages_from_cache($http, $otp)
{
$npg = $_SESSION['prmb'][6];
$page = $_SESSION['page'];
$min = ($page - 1) * $npg;
$max = $page * $npg;
if (is_array($otp)) {
foreach ($otp as $id => $nb) {
if (is_numeric($id)) {
$i++;
if ($i >= $min && $i < $max) {
$mg = $http . '/imgc/' . first_img($nb[3]);
if (is_link($mg)) {
$ret .= btn('imgl', image($mg, '', 50));
}
$ret .= bal('h2', lka($http . '/' . $id, $nb[2]));
$ret .= btn('txtx', $nb[1]) . ' ';
if (rstr(27)) {
$ret .= btn('txtsmall', mkday($nb[0], 1)) . ' ' . pub_link($nb[9]) . ' ';
}
if (rstr(25)) {
$ret .= btn('txtsmall', art_length($nb[8]));
}
$ret .= br() . br();
}
}
}
}
$n_pages = nb_page($i, $npg, $page);
return $n_pages . $ret . $n_pages;
}
function plug_rssin($u)
{
req('pop,art,tri,spe');
Head::add('jslink', '/prog/utils.js');
if ($_GET['rssurl']) {
foreach ($_GET as $k => $v) {
if ($k == "rssurl") {
$u = $v;
} else {
$u .= '&' . $k . '=' . $v;
}
}
}
$u = str_replace('http://', '', $u);
if ($u) {
$alx = alx();
$rss = load_xml('http://' . $u, 1);
$ret .= bal('h1', lkt('', 'http://' . $u, preplink($u)));
$ret .= lkt("", '/?plug=rssin&rssurl=' . $u, picto('url'));
foreach ($rss as $k => $v) {
if ($v[1]) {
$ret .= pane_base($v[1], $v[0], "", rss_date($v[2]), "", $v[3], $alx);
}
}
}
return $ret;
}
function uds_btn($r)
{
$rb = array('vocable', 'name', 'planet', 'unit', 'math');
$ret = $rb[$r[2]] ? ' (' . $rb[$r[2]] . ') ' : ' ';
$ret .= lj('', 'popup_search___' . ajx($r[0]), picto('search', 16)) . ' ';
if ($r[3]) {
$ret .= ' [' . $r[3] . '] ';
}
$ret .= ud_glyphe($r[0]) . br();
return hr() . bal('b', $r[0]) . $ret . divc('justy', nl2br(stripslashes($r[1])));
}
function plug_deploy($deploy)
{
$qb = $_SESSION['qb'];
$USE = $_SESSION['USE'];
$raed = suj_of_id($deploy);
$nl = $_GET['nl'] ? $_GET['nl'] : "nl";
if ($deploy && $USE) {
//prep
list($qauth, $subj) = sql('name,suj', 'qda', 'r', 'id="' . $deploy . '"');
$msg = sql('msg', 'qdm', 'v', 'id="' . $deploy . '"');
if ($USE == $qauth or auth(5)) {
$http = host();
if (!$_POST['dpl']) {
reqp('mail');
$qmail = mail_list_tosend();
$ret .= form("/?read={$deploy}&deploy={$deploy}&nl=nlb", txarea('dpl" maxlength="1000', $qmail, 40, 10) . br() . checkbox("dpf", "ok", "html", 1) . checkbox("multiple", "ok", "each_one", 1) . input2('submit', "send", nms(50), 'popbt'));
} else {
$htacc = urlread($deploy);
$_SESSION['nl'] = $nl;
//deploy
if ($_POST['dpf'] == "ok") {
$mail_format = "html";
$txt = format_txt($msg, $nl, $deploy);
$txt = html_entity_decode($txt);
$txt = str_replace('href="/', 'href="' . $http . '/', $txt);
$msg = lkc("", $http . $htacc, bal("h2", $subj));
$msg .= divc("panel justy", $txt);
} else {
$mail_format = "txt";
$msg = clean_internaltag($msg);
$msg = html_entity_decode($msg);
}
$_SESSION['nl'] = "";
//send
$sender = sql('mail', 'qdu', 'v', 'name="' . $USE . '"');
$lstm = str_replace("\n", ",", $_POST['dpl']);
$lstm = str_replace("\r", ",", $lstm);
$listmail = explode(",", trim($lstm));
if ($_POST['multiple'] == "ok" && is_array($listmail)) {
$sentto = send_mail_r($listmail, $mail_format, $qb . ' :: ' . $raed, $msg, $sender, $htacc);
} else {
$sentto = $_POST['dpl'];
$vm = str_replace(array(",", ";", "\n", " "), ",", $sentto);
send_mail($mail_format, $vm, $qb . ' :: ' . $raed, $msg, $sender, $htacc);
}
$ret .= lkc("popbt", '/?read=' . $deploy, 'article ' . $deploy . ' sent to: ' . $sentto);
}
} else {
$ret .= btn("popdel", "forbidden");
}
}
//if($_POST['dpl'])return $ret;
return $ret;
}
function readerurl($a, $b, $f)
{
$f = ajxg($f);
req('tri,pop');
if ($f) {
list($suj, $ret, $rec, $defid, $defs) = vacuum($f, '');
}
$ret = format_txt_r($ret, '3', '');
$ret = nl2br(embed_p($ret));
return bal('h2', $suj) . $ret;
}
function plug_ummdico($p, $o)
{
//umm_sav();
ses('qu', 'umm_dico');
$ret = bal('h3', 'Recherche sur le dictionnaire des vocables');
$ret .= input(1, 'search', '', '') . ' ';
$ret .= checkbox('chk', '1', 'phonétique', 0);
$ret .= lj('txtbox', 'ucbk_plug___ummdico_ud*search_1_2_search|chk', 'chercher') . br() . br();
$ret .= divd('ucbk', '') . br();
//callback
return $ret;
}
function plug_gallery($q)
{
if ($q == "gl") {
$q = "";
}
$img_d = sql('img', 'qda', 'v', 'id="' . $_SESSION['read'] . '"');
$img_d = substr($img_d, 0, 1) == '/' ? substr($img_d, 1) : $img_d;
$img_d = str_replace("/", ",", $img_d);
if ($q == "auto") {
$s = "";
} elseif ($q == "manual") {
$s = $q;
$imgs = str_replace(",", ",\n", $img_d);
} elseif ($q == "dir") {
$s = $q;
$dirs = br() . plugin('dsnav', 'gl', 'users/' . $_SESSION['qb']);
} else {
$s = $q;
}
$ret .= bal("b", "source:") . ' ';
if (!$q) {
//gallerygl
if ($img_d) {
$ret .= lj('popbt', 'popup_gallery__x_auto', "auto") . ' ';
$ret .= lj('popbt', 'popup_gallery__x_manual', "manual") . ' ';
}
$ret .= lj('popbt', 'popup_gallery__x_dir', "user/directory");
} else {
$ret .= lj("popbt", 'popup_gallery', $q == "dir" ? "user_directory" : $q);
}
if ($imgs) {
$ret .= br() . txarea('dpl', $imgs, 40, 10, atd('source') . atc('popw') . ats('border:1px solid black'));
}
//pb name=src
if ($dirs) {
$ret .= $dirs;
}
if ($q != "dir" && $q) {
$ret .= br() . bal("b", "type:") . ' ';
$ret .= ljb("popbt", "insert_photo", $s . '\',\'', "Thumbnails") . ' ';
$ret .= ljb("popbt", "insert_photo", $s . '\',\'2', "Ajax") . ' ';
$ret .= ljb("popbt", "insert_photo", $s . '\',\'1', "Flash") . ' ';
$ret .= lj("popbt", 'popup_slider_' . ($s == 'manual' ? 'source' : '') . '_3x_' . $s . '_' . $_SESSION['read'], "Slider") . ' ';
}
return $ret;
}
function vmailsend($id, $o, $res)
{
req('pop,spe,tri,mod');
$http = host();
$htacc = urlread($id);
list($from, $to, $txt, $suj) = ajxr($res);
if (strpos($to, "@") !== false) {
$suj = sql('suj', 'qda', 'v', 'id="' . $id . '"');
$msg = divc("panel justy", $txt);
$msg .= lkc("", $http . $htacc, bal("h2", $suj));
$msg .= divc("panel justy", read_msg($id, "nlb"));
send_mail("html", $to, $suj, $msg, $from ? $from : hostname(), $htacc);
return btn("popbt", nms(34) . ' ' . nms(79) . ' ' . nms(36) . ': ' . $to);
} else {
return btn("popdel", 'error' . $to);
}
}
function umnb_j($p, $o = '', $res = '')
{
list($p, $o) = ajxp($res, $p, $o);
//base 12
$n = base_convert($p, 10, 12);
//nominations base 6
$r_c = array(0 => 'OU', 1 => 'I', 2 => 'I', 3 => 'I', 4 => 'I', 5 => 'I', 6 => 'O', 7 => 'O', 8 => 'O', 9 => 'O', 'a' => 'O', 'b' => 'O');
//chiffres
$r_u = array(0 => 'O', 1 => 'AS', 2 => 'EN', 3 => 'EDOO', 4 => 'ES', 5 => 'EGO', 6 => 'AEE', 7 => 'ANA', 8 => 'ANMA', 9 => 'ADA', 'a' => 'AS', 'b' => 'ADEN');
//décimales
$r_d = array(0 => '', 1 => 'D', 2 => 'K', 3 => '?', 4 => '?', 5 => '?');
$r = str_split($n);
//p($r);
$nb = count($r);
//nb de chiffres
$ra = array($r_c, $r_u, $r_d);
//theory
//le zéro de chaque décimale base 12 est préfixé d'un incrément de demi-décimale $r_c: I, O
$decimale12 = floor($p / 12);
if ($decimale12 == $p / 12) {
$indicatif_zero = $r_c[$decimale12];
}
//foreach($r as $k=>$v)$ren.=$umnb_pic($r[$i]).' ';
for ($i = $nb - 1; $i >= 0; $i--) {
$ren .= umnb_pic($r[$i]) . $r[$i] . br();
}
if ($nb == 1) {
$res = $r_c[$r[0]] . '-' . $r_u[$r[0]];
}
if ($nb == 2) {
$res = $r_d[$r[0]] . '' . $r_c[$r[1]] . '-' . $indicatif_zero . $r_u[$r[1]];
}
$ret = lka('/plug/umnb/' . $p, picto('link')) . ' ';
$ret .= lj('', $o . '_plug__2_umnb_umnb*j_' . ($p - 1) . '_' . $o, picto('previous')) . ' ';
$ret .= lj('', $o . '_plug__2_umnb_umnb*j_' . ($p + 1) . '_' . $o, picto('next')) . ' ';
$ret .= bal('b', $p) . ' (' . bal('b', $n) . ' en base 12, décimale ' . $decimale12 . '): ';
$ret .= bal('h3', $res);
$ret .= $ren;
return $ret;
}
function plug_rss($hub, $preview)
{
if ($hub) {
$_GET['hub'] = $hub;
}
if ($preview == '=' or !$preview) {
$preview = 2;
}
if (!$hub) {
return slct_menus(ses('mn'), '/plug/rss/', '', '', '', 'kv');
}
require_once '../prog/lib.php';
req('pop,art');
require '../plug/sys.php';
require '../plug/lib.php';
$fnod = $_SESSION["qb"] . '_cache';
$main = msql_read_b('users', $fnod, '', 1);
$nb_arts = count($main);
$lastid = lastid('qda');
$last_art = $main[$lastid];
$newest = key($main);
$oldest = array_pop($main);
$nb_days = round((time() - $oldest[0]) / 86400);
$cache = 1;
$f = '../plug/_data/' . $_SESSION["qb"] . '_' . $newest . '_' . $preview . '.xml';
if (is_file($f) && !$_GET['rebuild'] && $cache) {
return read_file($f);
} else {
$http = host();
if ($preview) {
req('tri,pop,art');
}
//spe,mod
$xml .= '<' . '?xml version="1.0" encoding="iso-8859-1"?' . '>' . "\n";
$xml .= '<rss version="2.0">' . "\n";
$xml .= '<channel>' . "\n";
$xml .= bal('title', $_SESSION['qb']) . "\n";
$xml .= bal('link', $http) . "\n";
$xml .= bal('description', $nb_arts . ' articles / ' . $nb_days . ' days - preview=' . $preview . ' - static url=' . $http . substr($f, 2)) . "\n";
$xml .= bal('language', 'fr') . "\n";
$xml .= bal('lastBuildDate', date("r", $last_art[0])) . "\n";
if ($main) {
$xml .= flux_xml($main, $preview) . "\n";
}
$xml .= '</channel>' . "\n";
$xml .= '</rss>' . "\n";
write_file($f, $xml);
rss_del_old($newest);
}
//eye
eye('rss');
return $xml;
}
function conn_icon($v, $rp)
{
$r = array('k' => 'strike', 'l' => 'small');
if ($r[$v]) {
return bal($r[$v], $v);
}
if ($v == 's') {
return btn('stabilo', $v);
}
if ($v == 'r') {
return btn('txtclr', $v);
}
return $rp[$v] ? picto($rp[$v], '16') : $v;
}
function plug_codeview($dr, $f, $fc = '')
{
if ($dr == 'param') {
$dr = $f = '';
}
require_once 'params/_connectx.php';
if (!$f && $fc) {
$f = sql_b('select page from _sys where name="' . $fc . '"', 'v');
}
if (strpos($f, '.') === false && $f) {
$f .= '.php';
}
if ($fc == 'all') {
$fc = '';
}
$ret .= lj('', 'codeview_plugin___codeview_' . $dr . '_' . $f . '_' . ajx($fc), picto('reload')) . ' ';
if ($dr == 'save') {
$_GET['sav'] = 1;
$dr = $_SESSION['dr'];
$dr == 'plug' ? savefunc_plug() : savefunc();
} else {
$_GET['sav'] = 0;
}
//if($dr=='all')$dr='';
$dr = $dr ? $dr : 'progb';
$_SESSION['dr'] = $dr;
$_SESSION['file'] = $f;
$_SESSION['func'] = $fc;
if ($dr != 'params') {
list($rep, $res) = functions_list($dr, $f);
}
if (auth(6)) {
$ret .= btn('nbp', cv_btn('progb', $dr) . cv_btn('plug', $dr) . (auth(5) ? cv_btn('save', $dr) : '')) . ' ';
}
//cv_btn('all',$dr).
$nbfunc = count($_SESSION['rec']);
if (!$nbfunc) {
$nbfunc = rse('COUNT(id)', '_sys');
}
$ret .= bal('small', $nbfunc . ' functions') . ' ';
$jp = ajx(substrpos($f, '.'));
//list
if ($rep) {
ksort($rep);
array_unshift($rep, '...');
} else {
$rep[] = '...';
}
$ret .= slct_sj($rep, $f, 'codeview_plugin__15_codeview_' . ajx($dr) . '_');
//page
if ($f && auth(6)) {
$ret .= lj('', 'popup_plupin___codev_' . $dr . '_' . $jp, picto('editxt')) . ' ';
if ($dr == 'plug') {
$ret .= lj('', 'popup_plupin___' . $jp, picto('window')) . ' ';
}
}
//list
$rec = array_values($_SESSION['rec']);
array_unshift($rec, 'all');
//if($rec)ksort($rec);
if ($f) {
$ret .= slct_sj($rec, $fc, 'codeview_plugin__15_codeview_' . ajx($dr) . '_' . ajx($f) . '_');
}
//func
if ($fc && auth(6)) {
$ret .= lj('', 'popup_plupin___codev_' . $dr . '_' . $jp . '_' . ajx($fc), picto('editxt')) . ' ';
if ($dr == 'plug') {
$ret .= lj('', 'popup_plup___' . $jp . '_' . ajx($fc), picto('window')) . ' ';
}
}
//search
$ret .= input1('funcsrch', $fc, 8) . ' ' . lj('popbt', 'popup_plup___codeview_findfunc___funcsrch', 'find') . ' ' . lj('popbt', 'popup_plup___coremap_coremap___funcsrch', 'map');
if ($dr != 'save_all') {
return divd('codeview', $rea . $ret . $res);
}
}
function fav_art($id, $rtg = '')
{
$im = minimg(sql('img', 'qda', 'v', 'id=' . $id), 'h');
$day = sql('day', 'qda', 'v', 'id=' . $id);
$dat = mkday($day) . ' ';
if ($rtg) {
$tag = fav_tag_maker($rtg) . ' ';
}
//$del=plugin('like',$id,1).' ';
$suj = bal('h4', suj_of_id($id) . ' ');
if ($id) {
return divc('txtcadr', $im . $dat . $tag . $del . lj('', 'popup_popart__3_' . $id . '_3', $suj));
}
}
function current_step($mn)
{
$step = $_SESSION['step'];
$menu = bal("p", $step . '. ' . $mn[$step]);
$connect = test_connection();
$c = "okay";
switch ($mn[$step]) {
case "directories":
$l = list_of_dirs();
foreach ($l as $k => $v) {
if (!is_dir($v)) {
$no = "ok";
}
}
if ($no) {
$ret = instlink('make_dirs', '=');
} else {
$ret = $c;
}
break;
//instlink('make_dirs','remove');
//instlink('make_dirs','remove');
case "phpini":
$ret = 'php version: ' . $_SESSION['phpv'] . br();
if ($_SESSION['phpv'] >= 5.3) {
if (!is_file('.user.ini')) {
w_ini();
$ret .= 'php>5.3 : phpini a été installé, pour voir les erreurs';
} else {
$ret = $c;
}
} else {
$ret .= 'php<5.3 : phpini n\'a pas besoin d\'être installé';
}
break;
case "connexion":
if ($connect == 'pas de connexion') {
$ret = instlink('connexion', '=');
} else {
$ret = $c;
}
break;
case "databases":
if ($connect != "pas de connexion") {
if (!mysql_num_rows(mysql_query('SHOW TABLES'))) {
$ret = instlink('install_databases', '=');
} else {
$ret = $c;
}
}
w_master_p();
break;
case "program":
$nbp = count($_SESSION['progam']);
$_SESSION['progam'] = '';
if (count(dl_dirs()) == $nbp) {
$ret = $c;
} else {
$ret = dl_prog();
}
break;
case "htaccess":
if (!is_file('.htaccess')) {
$ret = instlink('htacc', '=');
} else {
$ret = $c;
}
break;
case "usefull":
$ret = instlink('usefull', '=');
break;
case "philum":
$ret = instlink('philum', '=');
break;
case "fin":
$ret = 'Si ' . lien('/', 'tout va bien') . ', ' . lien('?fin==', 'auto-supprimer') . ' ce fichier';
break;
}
return $menu . $ret;
}
function find_navigation($id)
{
$ib = ib_of_id($id);
if (is_numeric($ib) && $ib != $id) {
list($idb, $suj) = ser("id,suj", $_SESSION['qda'] . ' WHERE id="' . $ib . '"');
if ($suj) {
$nav = bal('h4', lka(urlread($idb), pictxt('paste', $suj)) . ' ' . popart($idb));
}
if ($idb != ses('read')) {
return find_navigation($idb) . $nav;
}
}
}
public static function generate()
{
return header_html() . bal('head', self::get());
}
#
#
#
#
#
#
#
#
#
#
# get settings
require "../settings.php";
require "../core-settings.php";
# decide what to do
if (isset($_GET["id"])) {
$OUTPUT = bal($_GET["id"]);
} else {
# Display error
$OUTPUT = "<li> Error : Invalid Trial Balance Number.";
}
require "../template.php";
function bal($id)
{
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($id, "num", 1, 20, "Invalid Trial Balance number.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
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 make_ban($here, $t)
{
$qb = ses('qb');
$htacc = subdom($qb);
$banim = 'img/ban_' . $qb . '.jpg';
if (file_exists($banim)) {
return lkc("", $htacc, img($banim));
} else {
return bal('h1', lka($htacc, $t ? $t : $_SESSION['mn'][$qb]));
}
}
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 find_navigation($id)
{
$ib = ib_of_id($id);
if (is_numeric($ib) && $ib != $id && $ib) {
//$nav=pane_art($ib,'');
$nav = bal('h4', lka(urlread($ib), pictxt('topo', suj_of_id($ib))) . ' ' . popart($ib));
if ($ib != ses('read')) {
return find_navigation($ib) . $nav;
}
}
}
{
}
function foo($x, $y)
{
return $x == $y;
}
$x = new X();
foo($x, $x);
$x = new X();
$y = new stdClass();
function baz($r, $s)
{
switch ($r) {
case $s:
echo 'arg ';
break;
default:
echo 'def ';
}
}
baz($x, $y);
function bal($r, $s)
{
if ($r == $s) {
echo 'arg ';
} else {
echo 'def ';
}
}
bal($x, $y);
printf("\n");
function mk_table($d)
{
list($doc, $opt) = good_param($d);
if ($opt == 'div') {
return mk_dtable($doc);
}
if ($opt && !is_numeric($opt)) {
$doc = str_replace(array($opt == 'auto' ? ' ' : $opt, "\n"), array('|', '¬'), $doc);
}
$doc = str_replace(array('|¬', "¬\n"), '¬', $doc);
if (substr(trim($doc), -1) == "¬") {
$doc = substr(trim($doc), 0, -1);
}
$taba = 'tr';
$tabb = 'td';
$tabc = "table";
$tr = explode('¬', $doc);
if (!$opt) {
$csb = '';
}
foreach ($tr as $k => $tra) {
$td = explode('|', $tra);
$ia++;
$trb = '';
if ($opt) {
$csa = '';
if ($opt > 1) {
if ($ia / 2 == round($ia / 2)) {
$csa = 'txtblc';
} else {
$csa = 'txtx';
}
}
if ($ia == 1) {
$csa = 'txtcadr';
}
}
foreach ($td as $kb => $tda) {
$re .= balc($tabb, $csa, $tda);
$trb .= trim($tda);
}
if (str_replace(':', '', $trb)) {
$ret .= bal($taba, $re);
}
$re = '';
}
return balc($tabc, $csb, $ret);
}
function pagup($t, $d, $p = '')
{
$popa = div(atd('popa') . atc('popa') . ats('margin:auto; display:inline-block;'), ljb('', 'Close', 'popup', picto('close')) . $p . bal('small', $t));
return div(ats(''), $popa . div(atd('popu') . atc('') . ats('margin:auto;'), $d));
}
function sconn_defs_r($d, $xf)
{
list($pdb, $xfb) = split_one(':', $d, 1);
if ($xfb) {
$d = sconn_defs_r($pdb, $xfb);
}
//join
switch ($xf) {
case "b":
return bal('b', $d);
break;
case "i":
return bal('i', $d);
break;
case "u":
return bal('u', $d);
break;
case "h":
return bal('h3', $d);
break;
case "h1":
return bal('h1', $d);
break;
case "h2":
return bal('h2', $d);
break;
case "h4":
return bal('h4', $d);
break;
case "k":
return bal('strike', $d);
break;
case "l":
return bal('small', $d);
break;
case "e":
return bal('sup', $d);
break;
case "q":
return bal('blockquote', $d, '');
break;
case 'c':
return btn("txtclr", $d);
break;
case 's':
return btn("stabilo", $d);
break;
case 'r':
return pub_clr($d . '§dd0000');
break;
case "list":
return make_li_b($d);
break;
case "color":
return pub_clr($d);
break;
case 'css':
return pub_css($d);
break;
case 'font':
return pub_font($d);
break;
case 'size':
return pub_size($d);
break;
case 'color':
return pub_clr($d);
break;
case 'html':
return pub_html($d);
break;
case 'web':
return weblink($d);
break;
default:
return $d . ($xf ? ':' . $xf : '');
break;
}
}
function siteclics($src)
{
$id = ses('read');
if ($id) {
$src = $_SESSION['rqt'][$id][9];
}
$r = sql('lu', 'qda', 'rv', 'mail LIKE "%' . $src . '%"');
foreach ($r as $k => $v) {
$n += $v;
}
return bal('h3', $src) . divc('', $n . ' vues');
}
function canvas($d, $w, $h)
{
return balb('canvas', atd('myCanvas') . atb('width', $w) . atb('height', $h) . atc(''), 'error') . bal('script', 'var c=document.getElementById("myCanvas");
var ctx=c.getContext("2d"); ctx.font="12px Arial"; ' . $d);
}
function api_titles($ra)
{
if (!$ra['nbarts']) {
$ra['nbarts'] = api_query_nb($ra);
}
$t = $ra['link'];
if (rstr(3) && !$ra['minday'] && !$ra['nodig']) {
$ra['minday'] = ses('nbj');
}
$com = implode_k($ra, ',', ':');
$ret = hidden('', 'hid' . $ra['rid'], $com);
if ($nb = $_GET['nboc']) {
$nboc = ' ' . btn('small', nbof($nb, 19));
}
if ($t && $ra[$t]) {
if ($ra['minday'] > 1) {
$pg = '/' . $ra['minday'];
}
if ($ra['page'] > 1) {
$pg .= '/page/' . $ra['page'];
}
$lk = eradic_acc($t) . '/' . $ra[$t] . $pg;
$ret .= bal('h3', lka($lk, $ra[$t] . $nboc));
} elseif ($ra['t']) {
$ret .= divd('titles', bal('h3', $ra['t'] . $nboc));
}
$ret .= lj('popbt', 'popup_apicom_hid' . $ra['rid'], nbof($ra['nbarts'], 1)) . ' ';
if (rstr(3) && !$ra['nodig']) {
$ret .= api_dig($ra) . br();
}
if (!$ra['nopages']) {
$ret .= api_pages($ra);
}
return bal('header', $ret);
}
