function ummo_toa()
{
    $r = msql_read('', 'ummo_umtoa', '', '1');
    foreach ($r as $k => $v) {
        list($aeon, $xee) = explode('-', $k);
        $ra[$aeon][$xee] = $v;
    }
    ksort($ra);
    foreach ($ra as $k => $v) {
        ksort($v);
        foreach ($v as $ka => $va) {
            $rb[] = array($k, $ka, $va);
        }
    }
    foreach ($rb as $k => $v) {
        list($aeon, $xee, $txt) = $v;
        $day = ($aeon - 1) * 6000 + $xee;
        list($nxaeon, $nxxee, $nxday) = $rb[$k + 1];
        $nxday = ($nxaeon - 1) * 6000 + $nxxee;
        $length = $nxday > 0 ? $nxday - $day : 200;
        if ($aeon == 3 && !$nn) {
            $nn = 11750;
            $earth_year = umtoa_equiv($day);
            $rc[] = array(3, 0, 'Nuit Noire', $day, $length + $nn, $earth_year);
        }
        $earth_year = umtoa_equiv($day + $nn);
        $rc[] = array($aeon, $xee, $txt, $day + $nn, $length, $earth_year);
    }
    //pr($rc);
    return $rc;
}

function radio_edit($nod, $dr, $md, $id = '')
{
    $id = $id ? $id : $_SESSION['read'];
    $nd = 'radio' . $id;
    if (!$nod) {
        $nod = $_SESSION['qb'] . '_' . $nd;
    }
    $nodb = str_replace('_', '*', $nod);
    if ($dr) {
        $ret .= radio_build($dr, $nod);
    }
    $r = msql_read('radio', $nod, '');
    $ret .= msqlink('radio', $_SESSION['qb'] . '_' . $nd);
    if ($r[$md]) {
        foreach ($r[$md] as $k => $v) {
            $ky .= $md . '.' . $k . '|';
            $edit .= input2('text', '"id="' . $md . '.' . $k, $v) . btn('txtsmall', $r['_menus_'][$k]) . br();
        }
        $edit .= ljb('popbt', 'SaveR', 'popup_radiosav_' . $nodb . '__' . $k . '\',\'' . $ky, 'save');
    }
    $ret .= divc('edit', $edit);
    if ($r) {
        foreach ($r as $k => $v) {
            foreach ($v as $ka => $va) {
                $datas[$k][] = $va;
            }
            if ($k != '_menus_' && $k != $md) {
                $datas[$k][] = ljb('popbt', 'SaveJ', 'popup_radioedit___' . $nodb . '__' . $k, 'edit');
            }
        }
    }
    $ret .= make_divtable($datas);
    return popup('build_playlist', $ret);
}

function udc_build($p)
{
    if ($p == '1' && auth(6)) {
        $r = udc_source();
    }
    $r = msql_read('users', 'ummo_umvoc_1', '', 1);
    if ($r) {
        foreach ($r as $k => $v) {
            $ra[$v[0]] = $v;
        }
    }
    ksort($ra);
    if ($ra) {
        foreach ($ra as $k => $v) {
            //if(strpos($v[3],'Eyaoloowa')!==false){}
            //$rb[$k][]=divc('title',$k);
            $rb[$k][] = lj('', 'popup_plup___umvoc_ud*glossary_' . ajx($k), $k) . ' ';
            $f = 'users/ummo/glyphes/' . strtoupper($k) . '.png';
            $rb[$k][] = is_file($f) ? udc_imz($f, 6) : '';
            //$rb[$k][]=is_file($f)?image('/'.$f,'',''):'';
            $rb[$k][] = stripslashes($v[1]);
            $rb[$k][] = lj('', 'popup_search___' . ajx($k), picto('search', 16));
            $rb[$k][] = $v[3];
        }
    }
    return make_table($rb);
}

function pray_sav($p, $o, $res = '')
{
    list($p, $o) = ajxp($res, $p, $o);
    //echo $p.'-'.$o.'-'.$res;
    //$r=db_read('ummo/pray/1511');
    $r = msql_read('', 'ummo_pray_1', '', '');
    if ($r) {
        foreach ($r as $k => $v) {
            if ($v[0] == $p && $v[1] == $o) {
                $id = $k;
            }
        }
    }
    if ($id) {
        unset($r[$id]);
    } else {
        $r[] = array($p, $o, 1);
    }
    msql_modif('users', 'ummo_pray_1', $r, $dfb, 'arr', '');
    db_write('ummo/pray/1511', $r);
    //if(!$id)modif_vars('users','ummo_pray_1',array($p,$o,1),'push');
    //else modif_vars('users','ummo_pray_1',array($id=>array($p,$o,0)),'mdf');
    $ret = pray_build($p, $o, $r);
    return $ret;
}

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 fav_com_edt($k)
{
    $r = msql_read('', ses('qb') . '_coms', $k);
    $ret .= fav_com_form($r[2], $r[1]);
    $ret .= lj('', 'plgfavs_plug___favs_fav*com*mdf_' . $k . '__comn|comv', pictxt('save', 'modif'));
    return $ret;
}

function plug_negcss($p, $o)
{
    if ($n = $_SESSION['prmb'][5]) {
        $nod = ses(qb) . '_auto';
    } else {
        $nod = ses(qb) . '_design_' . $_SESSION['prmd'];
    }
    $f = 'css/' . $nod . '_neg.css';
    $tima = ftime('css/' . $nod . '.css', 'ymdhi');
    $timb = ftime($f, 'ymdhi');
    if ($tima > $timb) {
        req('styl');
        if ($n = $_SESSION['prmb'][5]) {
            if ($n < 4) {
                $r = msql_read('system', 'default_css_' . $n);
            } elseif (is_numeric($n)) {
                $r = msql_read('design', 'public_design_' . $n);
            }
        } else {
            $r = msql_read('design', $nod);
        }
        $clr = $_SESSION['clrs'][$_SESSION['prmd']];
        foreach ($clr as $k => $v) {
            if ($v) {
                $klr[$k] = invert_color($v, 0);
            }
        }
        $_SESSION['clrs'][$_SESSION['prmd']] = $klr;
        build_css($f, $r);
    }
}

function color_j($p, $o, $res = '')
{
    $r = msql_read('system', 'edition_colors', '', '1');
    foreach ($r as $k => $v) {
        $ret .= divs('background-color:#' . $v, $k);
    }
    return $ret;
}

function patch_fav()
{
    $r = msql_read('', ses('qb') . '_fav', '', '1');
    p($r);
    foreach ($r as $k => $v) {
        $rb = explode(' ', $v);
        //foreach($rb as $vb)insert('qdd','("","'.$vb.'","fav","'.$k.'")');
    }
}

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 ug_r()
{
    $r = msql_read('users', 'ummo_umvoc_1', '', 1);
    if ($r) {
        foreach ($r as $v) {
            $rb[$v[0]] = $v[1] . ($v[3] ? ' [' . stripslashes($v[3]) . ']' : '');
        }
    }
    return $rb;
}

function build_sitemap($hub)
{
    $main = msql_read('users', $hub . '_cache', '');
    if ($main["_menus_"]) {
        unset($main["_menus_"]);
    }
    if ($main) {
        $ret = flux_sitmap($main);
    }
    return $ret;
}

function links_all()
{
    $r = msql_read('', 'public_defcons', '', 1);
    $r = array_keys($r);
    sort($r);
    if ($r) {
        foreach ($r as $k => $v) {
            $ret .= $v . br();
        }
    }
    return $ret;
}

function mails_list()
{
    $r = msql_read('', $_SESSION['qb'] . '_mails', '', 1);
    if ($r) {
        foreach ($r as $k => $v) {
            if ($v[2]) {
                $ret[$v[0]] = $v[1] . '<' . $v[0] . '>';
            }
        }
    }
    return $ret;
}

 /**
  * @public
  * @method __construct
  */
 public function __construct()
 {
     //params of you App are in an msql table named (hub)_twit
     $r = msql_read('', ses('qb') . '_twit', '', 1);
     $this->_oauth_token = $r[1];
     $this->_oauth_token_secret = $r[2];
     $this->_oauth_consumer_key = $r[3];
     $this->_oauth_consumer_secret = $r[4];
     $this->_oauth_nonce = md5(rand());
     $this->_oauth_signature_method = 'HMAC-SHA1';
     $this->_oauth_timestamp = time();
     $this->_oauth_version = '1.0';
 }

function plug_hlp($d)
{
    $r = msql_read('system', 'program_plugs', $d, '1');
    $v = $r[0];
    $hlp = msql_read('lang', 'program_plugs', $d);
    $ret = btn('small', $r[1] . '/' . $d . ' (' . $v . ')') . ' ';
    //$ret.=lj('grey','bubble_text___'.ajx($v).'_'.$hlp,picto('help'));
    //$ret.=bubble('grey','text',ajx($v).'_'.$hlp,picto('help'));
    if ($hlp) {
        $ret .= togbub('text', ajx($hlp) . '__panel', btn('grey', picto('help'))) . ' ';
    }
    return $ret;
}

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 plug_msqtemplate($nod, $tmp)
{
    //require_once('plug/msqads.php');
    $ret = lj('txtbox', 'msqt_plug___msqtemplate_plug*msqtemplate_' . ajx($nod) . '_' . ajx($tmp), picto('reload')) . br();
    if ($tmp) {
        $tpl = msql_read('users', $_SESSION['qb'] . '_template', $tmp);
        if (!$tpl) {
            $tpl = msql_read('users', 'public_template', $tmp);
        }
        $ret .= msqt_build_from_template($nod, $tpl);
    } elseif ($nod) {
        $ret .= msqt_read($nod, 0);
    }
    return divd('msqt', stripslashes($ret));
}

function channel($p, $t, $d = '')
{
    $ra = explode(' ', $p);
    foreach ($ra as $ka => $va) {
        list($kab, $vab) = split(':', $va);
        $sc[$vab] = $kab;
    }
    if ($sc['site']) {
        require_once 'plug/microxml.php';
        $site = 'http://' . $sc['site'];
        $t = lka($site, $sc['site'] . '/' . $sc['hub']);
        $load = clkt($sc['site'] . '/msql/users/' . $sc['hub'] . '_cache');
    } else {
        $load = msql_read('users', $sc['hub'] . '_cache', '', 1);
    }
    if ($load) {
        if ($sc['cat']) {
            $load = channel_tri($load, $sc['cat'], 1);
        }
        if ($sc['parent']) {
            $load = channel_tri($load, $sc['art'], 10);
        }
        if ($sc['art']) {
            $load = channel_tri($load, $sc['art'], '');
        }
        if ($sc['tag']) {
            $load = channel_tri($load, $sc['tag'], 5);
        }
        if ($sc['last']) {
            $load = splice($load, $sc['last']);
        }
        $t = build_titl($load, !$t ? $sc['hub'] : $t, 1, $sc['hub']);
        if ($d == 'articles') {
            if ($site) {
                $ret .= output_pages_from_cache($site, $load);
            } else {
                $ret .= output_pages($load, 2, '');
            }
        } elseif ($load) {
            foreach ($load as $k => $v) {
                $re[] = llk('', $site . '/' . $k, html_entity_decode($v[2]));
            }
            $ret = implode('', $re);
            $ret = balc('ul', 'panel pubart', $ret);
        }
    }
    return $t . $ret;
}