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;
}
function atomic_build($p, $o)
{
$r = msql_read('', 'public_atomic', '');
$rb['-'] = $r['_menus_'];
if (is_numeric($p)) {
$rb[] = msql_read('', 'public_atomic', $p);
} elseif ($p) {
foreach ($r as $k => $v) {
if (strtolower($v[0]) == strtolower($p)) {
$rb[$k] = $v;
}
}
}
//p($rb);
return make_table($rb);
}
function plug_ftext($d, $tx)
{
$nd = stext_log();
$ra = msql_read('', $nd . '_txt_ftxt', '1');
$msg = stripslashes($ra[1]);
$msg = html_entity_decode_b($msg);
if (!$ra && $nd) {
msql_modif('users', $nd . '_txt_ftxt', array('day', 'text'), '', 'one', 1);
}
$ret .= btd('bts', lj('', 'bck_plug__xd_ftext_ftext*j_ftxt__ftxt', picto(save))) . ' ';
$ret .= btd('bck', '') . hlpbt('ftext') . br();
if (!$tx) {
$ret .= txarea('ftxt', $msg, 54, 12);
}
return btd('plgtxt', $ret);
}
function sugg_recall()
{
$nod = nod('suggest');
$r = msql_read('', $nod, '');
$js = 'popup_call__3_ajxf_batch*preview_';
if ($r) {
foreach ($r as $k => $v) {
$j = ajx($v[2]);
$lnk = lka($v[2], picto('url'));
if (!$v[1]) {
$ret .= br() . lj('popbt', $js . $j . '_' . $k, $v[0] . ' ' . preplink($v[2])) . ' ' . $lnk;
}
}
}
return $ret;
}
function plug_slct()
{
$r = msql_read('system', 'program_plugs', '', 1);
//p($r);
//ksort($r);
foreach ($r as $k => $v) {
if ($v[2] == '1' && !$v[3] && !$v[5] && $v[1]) {
$rb = tri_tag(str_replace(' ', ',', $v[1]));
}
if ($rb) {
foreach ($rb as $kb => $vb) {
$ret[$vb][] = lkc('', '/plug/' . $k, $k);
}
}
}
return divc('', make_tabs($ret));
}
function plug_edf()
{
req('spe');
$r = msql_read('', $_SESSION['qb'] . '_edf', '');
unset($r['_menus_']);
$n = count($r);
for ($i = 1; $i <= $n; $i++) {
list($day, $month, $year) = split('/', $r[$i][0]);
$dat = mktime(0, 0, 0, $month, $day, $year);
$ra[$i] = $dat / 86400;
if ($i == 1) {
$dorigin = $dat;
$vorigin = $r[$i][1];
}
$day = ($dat - $dorigin) / 86400;
if ($ra[$i - 1]) {
$diffday = $ra[$i] - $ra[$i - 1];
}
if ($r[$i - 1][1]) {
$diffval = $r[$i][1] - $r[$i - 1][1];
}
if ($diffday) {
$val = round($diffval / $diffday, 2);
}
$re[] = array($r[$i][0], $r[$i][1], round($diffday), $diffval, $val);
//,$diffval*0.08
$rb[$day] = $val;
$rc[$day] = $r[$i][0];
}
for ($i = 1; $i <= $day; $i++) {
if ($rb[$i]) {
$key = $rc[$i];
} else {
$key = $i;
}
$rd[$key] = $rb[$i];
}
$ret = $day . ' days = ' . $val . ' units => ' . round($val / $day, 2) . ' unit/day ' . br();
$f = 'plug/_data/edf_graph.png';
graphics($f, $_SESSION['prma']['content'], 300, $rd, '000000', 'yes');
$ret .= image($f, '', '');
$rt = array('', 'date', 'count', 'days', 'units', 'average');
//,'price'
$ret .= make_tables($rt, $re, 'txtred', 'txtblc');
return $ret;
}
function plug_player()
{
$movie = '../fla/rss.swf';
//$js=script_for_flash_b($movie,"100%","100%",$fvar);
//Head::add('jscode',$js);
$clr = $_SESSION['clr'][$_SESSION['prmd']];
$clr = msql_read('design', $_SESSION["qb"] . '_clrset_1', '');
if (!$clr) {
$clr = msql_read('system', 'default_clr', '');
}
//p($clr);
$fvar = '&servr=http://' . $_SERVER['HTTP_HOST'] . '/&hub=' . $_SESSION["qb"] . '&clr1=' . $clr[1] . '&clr2=' . $clr[2] . '&clr3=' . $clr[3] . '&clr4=' . $clr[4] . '&clr5=' . $clr[5] . '&clr6=' . $clr[6] . '&clr7=' . $clr[7] . '&clr8=' . $clr[8];
//.'&read_art=&category=&background_img=&order=day_DESC''&nbj='.$_GET['nbj'].
//$ret=embed_flsh($movie,"100%","100%",$fvar);
$ret = embed_flsh_obj($movie, "100%", "100%", $fvar);
////player
return $ret;
}
function msqmerge_build($p, $o)
{
req('pop,spe,tri');
$r = explode(',', $p);
$ra = array();
if ($r && $p) {
foreach ($r as $k => $v) {
//echo $v;
$r = msql_read('', $v);
//pr($r);
if ($r) {
$ra += msqmerge($r, $v);
}
}
}
ksort($ra);
return make_table($ra);
}
function piclr_build($p)
{
$ra = msql_read('system', 'edition_colors', '', 1);
//foreach($ra as $k=>$v)$rb[$i]=$v;
$rb = array_keys($ra);
$rand = array(4, 12, 24, 78, 14, 19, 44, 21, 32, 79);
for ($i = 0; $i < 10; $i++) {
$css .= '.clr' . $i . '{background-color:' . $rb[$rand[$i]] . ';}' . "\n";
}
echo css_code($css);
$pi = msql_read('', 'public_pi', '1', 1);
$pi = substr($pi, 0, $p);
//bcscale(20);
$r = str_split(substr($pi, 2));
foreach ($r as $k => $v) {
$ret .= btn('clr' . $v, $v) . " \n";
}
return $ret;
}
function plug_htaccess($d)
{
$here = 'htaccess';
$default = msql_read('system', 'default_htaccess', 1);
$actual = read_file('.' . $here);
if (!$actual or $d) {
$actual = $default;
$ret .= btn('txtyl', 'default_loaded') . br();
}
$ret .= picto('alert�24') . ' ' . btn('txtcadr', 'critical_operations') . ' ';
$ret .= lj('txtbox', 'txt_plug__4_' . $here . '_' . $here . '*default', 'default') . ' ';
$ret .= lj('txtbox', 'cbk_plug__xd_' . $here . '_' . $here . '*mkdefault___txt', 'backup') . ' ';
$ret .= msqlink('system', 'default_htaccess') . ' ';
$ret .= lkc('txtx', '.htaccess', 'link') . ' ';
$ret .= hlpbt('htaccess') . ' ' . btd('cbk', '') . ' ';
$ret .= btd('bts', lj('txtbox', 'cbk_plug__xd_' . $here . '_' . $here . '*j___txt', 'save')) . br() . br();
$ret .= txarea('txt', $actual, 120, 26) . br();
$ret .= lkt('txtblc', 'http://htaccess.madewithlove.be/', 'tests');
return $ret;
}
function plug_cards()
{
req('pop');
$data = sql('msg', 'qdm', 'v', 'id="' . $_GET['cards'] . '"');
$data = str_replace('[cards:plug]', '', $data);
$obj = format_txt($data, 3, $_SESSION['read']);
$obj = nl2br($obj);
$size = msql_read('system', 'edition_cards', '');
//p($size);
$styl = '" style="float:left; width:' . $size['card_width'] . 'px; height:' . $size['card_height'] . 'px; margin:' . $size['card_margin'] . 'px; border:' . $size['card_border'] . ';';
for ($i = 0; $i < 10; $i++) {
$ret .= divc($styl, $obj);
}
if ($_GET['cards']) {
Head::add('csscode', '/css/' . $_SESSION['qb'] . '_design_' . $_SESSION['prmd'] . '.css');
return divc('" style="width:' . $size['page_width'] . 'px; padding:' . $size['page_padding'] . 'px;', $ret);
} else {
return lkt('txtx', '/plug/cards.php?cards=' . $_SESSION['read'], 'open');
}
}
