function canvas($d, $id, $s = '')
{
$s = $s ? $s : $_SESSION['graphsz'];
list($w, $h) = split('-', $s);
$w = $w ? $w : 200;
$h = $h ? $h : 60;
$ret = balc('canvas', '" id="canvas' . $id . '" width="' . $w . 'px" height="' . $h . 'px" style="border:1px dotted grey;', '');
$ret .= cnvs_com($d, $id);
return $ret;
}
function sugg_import($f, $o = '', $res = '')
{
list($f, $o) = ajxp($res, $f, $o);
if (substr($f, 0, 4) != 'http') {
return;
}
req('tri,pop');
$_GET['urlsrc'] = $f;
list($suj, $msg) = vacuum($f, '');
$msg = format_txt($msg, '', '');
$ret = balc('h2', '', clean_title($suj)) . br() . $msg;
return $ret;
}
function radio_r($r)
{
foreach ($r as $k => $v) {
if (is_array($v)) {
$rt = radio_r($v);
if ($rt) {
$ret .= balc('ul', 'pubart', $rt);
}
} elseif ($v) {
$ret .= llj('popbt', 'popup_radioedit__x__' . ajx($v) . '', $v);
}
}
return $ret;
}
function node_build($b, $url, $date, $freq, $prio)
{
$ret .= '<' . $b . '>' . "\n";
//url//sitemap
$ret .= balc('loc', '', $url) . "\n";
if ($date) {
$ret .= balc('lastmod', '', $date) . "\n";
}
if ($freq) {
$ret .= balc('changefreq', '', $freq) . "\n";
}
if ($prio) {
$ret .= balc('priority', '', $prio) . "\n";
}
//if($video)$ret.=balc('video:video','',balc('video:content_loc','',$prio))."\n";
$ret .= '</' . $b . '>' . "\n";
return $ret;
}
function flux_xml($main)
{
$lst = $_GET['last'];
foreach ($main as $k => $v) {
if ($k > $lst or !$lst) {
$i++;
$xml = balc('key', '', htmlentities($k));
if (is_array($v)) {
foreach ($v as $ka => $va) {
$xml .= balc('' . $ka, '', parse_msg_xml($va));
}
} else {
$xml .= balc('0', '', htmlentities($v));
}
//val
$ret .= balc('item', '', $xml) . "\n";
}
}
return str_replace(htmlentities(" "), " ", $ret);
}
function m_archives($cyear)
{
$first = sql('day', 'qda', 'v', 'nod="' . ses('qb') . '" AND re>0 LIMIT 1');
//$last=last_art('');
if (!$first) {
$first = 0;
}
$first_year = date("y", $first);
$actual_year = date("y");
$ts_year = date("y", $_SESSION['daya']);
$nbsec_in_month = 86400 * 30;
//60*60*24;
$nbsec_in_year = 31536000;
//60*60*24*365=mktime(0,0,0,1,1,1);
$current_year = $cyear ? $cyear : $ts_year;
for ($year = $actual_year; $year >= $first_year; $year--) {
$mk = mktime(0, 0, 0, 1, 1, $year);
$y_name = date("Y", $mk);
$nbay = nb_arts($mk + $nbsec_in_year, $mk);
$css = date("y", $mk) == $current_year ? 'active' : '';
$ret .= balc("li", $css, lj("", 'archives_archives___' . $year, $y_name . ' (' . $nbay . ')'));
if ($year == $current_year) {
$goto = '/?module=All&nbj=30';
for ($ia = 12; $ia > 0; $ia--) {
$month = mktime(0, 0, 1, $ia, 1, $year);
$nbdayinmonth = date("t", $month);
$m_name = date("M", $month);
$m_nb = date("m", $month);
$nbam = nb_arts($month + $nbsec_in_month, $month);
//$monthbefore
$css = date("Ym", $_SESSION['daya']) == $y_name . $m_nb ? 'active' : '';
if ($nbam) {
$ret .= llk($css, $goto . '&timetravel=' . $nbdayinmonth . '-' . $ia . '-' . $year, '- ' . $m_name . ' (' . $nbam . ')');
}
}
}
}
return $ret;
}
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 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 = 'btch' . randid();
$rel = lj('', 'popup_call__x_ajxf_batch*preview_' . ajx($f) . '_', pictit('reload', nms(101))) . ' ';
///$sav=saveiec(ajx($f),'',$rid,'','','x','',$suj);
//$sav=blj('',$rid,'call___spe-ajxf_newartcat_'.ajx($f),picto('download'));
if (auth(6)) {
$titl .= $rel . urledt($f) . ' ';
}
$titl .= lkt('', $f, picto('url'));
if (auth(6)) {
$titl .= newartcat($f);
}
$ret .= bal('section', balc('article', '', $titl . div($sty, $msg)));
//$_SESSION['vacuum'][$f]='';
return popup(preplink($f), $ret, $w);
}
function stats($keys, $r)
{
if ($r) {
foreach ($r as $k => $v) {
$tot++;
foreach ($v as $ka => $va) {
if ($ka == 'fai') {
$ra[$ka][$va] += 1;
}
if ($ka == 'film') {
$ra[$ka][$va == 1 ? 'oui' : 'non'] += 1;
}
if ($ka == 'musique') {
$ra[$ka][$va == 1 ? 'oui' : 'non'] += 1;
}
if ($ka == 'jeuxvideo') {
$ra[$ka][$va == 1 ? 'oui' : 'non'] += 1;
}
if ($ka == 'codepostal') {
$ra[$ka][substr($va, 0, 2)] += 1;
}
if ($ka == 'type_courrier') {
$ra[$ka][$va] += 1;
}
if ($ka == 'date_courrier') {
$ra[$ka][strftime("%G %B %d", $va)] += 1;
}
if ($ka == 'date_collecteIP') {
$ra[$ka][strftime("%G %B %d", $va)] += 1;
}
}
}
}
//p($ra);
$ret .= balc('h2', '', 'Total') . $tot . br() . br();
foreach ($ra as $k => $v) {
$ret .= balc('h2', '', $k);
if (substr($k, 0, 4) == 'date') {
krsort($v);
} else {
arsort($v);
}
$ret .= make_table_b(asci_graph($v)) . br();
}
return $ret;
}
function mktable_empty($r)
{
//p($r);
$n = max(array_keys($r));
ksort($r);
for ($i = 1; $i <= $n; $i++) {
if (is_array($r[$i])) {
$nb = max(array_keys($r[$i]));
$td = '';
ksort($r[$i]);
for ($o = 1; $o <= $nb; $o++) {
$td .= balc('td', '', $r[$i][$o]);
}
$tr .= balc('tr', '', $td);
}
}
$ret = balc('table', '', $tr);
return divs('width:100%; overflow:auto; height:auto;', $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 make_tables($rt, $r, $csa, $csb, $o = '')
{
if (is_array($rt)) {
foreach ($rt as $k => $v) {
$td .= balc('td', $csa, $v);
}
}
$tr = balc('tr', $csa, $td);
if ($r) {
foreach ($r as $k => $v) {
$td = $o ? balc('td', $csb, $k) : '';
if (is_array($v)) {
foreach ($v as $ka => $va) {
$td .= balc('td', $csb, $va);
}
} else {
$td .= balc('td', $csb, $v);
}
$tr .= balc('tr', '', $td);
}
}
return balc('table', '" align="top', $tr);
}
function msql_links($p, $o, $l, $d, $t)
{
$defs = msql_read('', $_SESSION['qb'] . '_' . $p, '', 1);
if ($defs) {
foreach ($defs as $k => $v) {
if ($o == 'mail') {
$v[0] = $va = $k;
} elseif ($v[1] == '_' or !$v[1]) {
$va = preplink($v[0]);
} else {
$va = $v[1];
}
if ($v) {
$ret .= llk("", $l . $v[0], $va);
}
}
}
if ($d == 'scroll') {
$ret = scroll_b($defs, $ret, $o);
}
if ($ret) {
return $t . balc("ul", "panel", $ret);
}
}
function mktable_empty($r)
{
//p($r);
$n = max(array_keys($r));
ksort($r);
for ($i = 1; $i <= $n; $i++) {
if (is_array($r[$i])) {
$nb = max(array_keys($r[$i]));
$td = '';
ksort($r[$i]);
for ($o = 1; $o <= $nb; $o++) {
$td .= balc('td', '', $r[$i][$o]);
}
$tr .= balc('tr', '', $td);
}
}
return balc("table", '', $tr);
}
function plug_draw($w, $h)
{
if (!$w) {
$w = 400;
}
//currentwidth();
Head::add('jslink', '/js/jquery.js');
Head::add('jscode', draw_js());
Head::add('csscode', draw_css());
$ret = balc('canvas', '" id="canvas" width="' . $w . 'px" height="' . $h . 'px', '');
$r = array('black', 'white', 'blue', 'green', 'yellow', 'orange', 'brown', 'red', 'indigo', 'violet', 'pink', 'cyan');
$n = count($r);
for ($i = 0; $i < $n; $i++) {
$c = '" style="background: none repeat scroll 0% 0% ' . $r[$i] . ';" data-couleur="' . $r[$i];
$cl .= balc('li', '', lka($c, $r[$i]));
}
$ret .= balc('ul', '" id="couleurs', $cl);
$inp = label('largeur_pinceau', '', '', 'width');
$inp .= input('range', 'largeur_pinceau', 5, '" min="2" max="20" size=1');
//$inp.=balc('output','" id="output','pixels');
$inp .= input('reset', 'reset', 'reset', '');
$inp .= input('button', 'save', 'save', '');
$ret .= '<form id="largeurs_pinceau">' . $inp . '</form>';
return $ret;
}
function plug_taxonav($p, $o)
{
req('mod,spe');
$r = collect_hierarchie_d("reverse", $o);
if (is_numeric($p)) {
$r = $r[$p];
}
if ($r) {
$ret = build_titl($r, $p > 0 ? suj_of_id($p) : $p, 1);
$ret .= balc("ul", "taxonomy", make_menus_rb($r, '', 1, $o));
$ret .= lkc('', '/module/taxonav/' . ajx($p) . '/' . yesno($o), offon($o) . ' ' . nms(129));
} else {
$ret = nms(11) . ' ' . nms(16);
}
return $ret;
}
function make_table_bypage($r, $csa, $csb)
{
if ($r["_menus_"]) {
foreach ($r["_menus_"] as $k => $v) {
$td .= balc("td", $csa, $v);
}
$tr = balc("tr", '', $td);
unset($r["_menus_"]);
}
$n = count($r) + 1;
$page = $_SESSION['page'];
$npg = 1000;
req('spe');
$ret = nb_page($n, $npg, $page, '');
$min = ($page - 1) * $npg;
$max = $page * $npg;
if (is_array($r)) {
foreach ($r as $k => $v) {
$td = "";
$i++;
if ($i >= $min && $i < $max && is_array($v)) {
foreach ($v as $ka => $va) {
$td .= balc("td", $csb, $va);
}
}
if ($td) {
$tr .= balc("tr", "", $td);
}
}
}
return $ret . balc("table", '', $tr) . $ret;
}
function catarts()
{
if ($_SESSION['auth'] >= 6) {
$ret = edit_categories();
}
$csa = 'txtbox" align="center';
$css = 'txtx';
$r = sql('frm', 'qda', 'k', 'nod="' . ses('qb') . '" ORDER BY frm');
$rt = balc("tr", "", balc("td", $csa, nms(9)) . balc("td", $csa, 'nb'));
if ($_SESSION['auth'] >= 6) {
$lk = '/?admin=categories&modif=';
} else {
$lk = '/section/';
}
if ($r) {
foreach ($r as $k => $v) {
$lnkcat = lka($lk . $k, $k);
$rt .= bal("tr", balc("td", $css, $lnkcat) . balc("td", $css, $v));
}
}
$ret .= bal("table", $rt);
return $ret;
}
