function natwords()
{
$r = sql_inner('msg', 'qdm', 'qda', 'id', 'vr', ' ' . ses('qda') . '.day>"' . calc_date(1) . '"');
foreach ($r as $k => $v) {
$ra = addwords($v, $ra);
}
//p($ra);
$ra = array_flip($ra);
return $ra;
}
function cache_html($read)
{
if (!is_dir('cache')) {
mkdir('cache');
}
$f = 'cache/' . $read . '_' . mkday() . '.txt';
// or $_SESSION['USE']
if (!is_file($f) or $_GET['rebuild_cachart']) {
$out = build_blocks();
$rout = implode('', $out);
write_file($f, $rout);
return $rout;
} else {
return read_file($f);
}
$f = 'cache/' . $read . '_' . mkday(calc_date(1)) . '.txt';
if (is_file($f)) {
unlink($f);
}
}
function dayslength($qb, $limit)
{
$r = array(1, 7, 10, 90, 365, 720, 1440, 2920, 5840, 11680);
//16y,32,64//,23360,46720
for ($i = 0; $i < 9; $i++) {
$nbj = $r[$i];
$nb = sql('count(id)', 'qda', 'v', 'nod="' . ses('qb') . '" and day>"' . calc_date($nbj) . '"');
if ($nb > $limit) {
$i = 9;
}
}
return $nbj;
}
function rech_catag($cat, $tag, $utg, $n)
{
$wh = 'select ' . ses('qda') . '.id from ' . ses('qda') . '';
if ($tag) {
$idtag = sql('id', 'qdt', 'v', 'tag="' . $tag . '"');
$wh .= ' inner join ' . ses('qdta') . ' on ' . ses('qdta') . '.idart=' . ses('qda') . '.id and ' . ses('qdta') . '.idtag="' . $idtag . '"';
}
$wh .= ' where nod="' . ses('qb') . '" and re>0 and day>"' . calc_date($n) . '"';
if ($n > 7) {
$wh .= ' and day<"' . calc_date(time_prev($n)) . '"';
}
if ($cat) {
$wh .= ' and frm="' . $cat . '"';
}
if ($cat or $tag) {
$rb = sql_b($wh . ' order by ' . ses('qda') . '.id desc', 'k');
}
return $rb;
}
while ($row = $fzgfahrten->fetch_assoc()) {
$query = "SELECT fzpe.ANKUNFT, fzpe.ABFAHRT, l.PUBDIVALINNAM, hsb.NR HSBNR, hs.NR, hs.NAME, hs.XKOORD, hs.YKOORD FROM fahrzeitprofilelement fzpe " . "LEFT JOIN linie l ON fzpe.LINNAME = l.NAME " . "LEFT JOIN linienroutenelement lre ON fzpe.LRELEMINDEX = lre.INDEX AND fzpe.LINROUTENAME = lre.LINROUTENAME " . "LEFT JOIN haltepunkt hp ON lre.HPUNKTNR = hp.NR " . "LEFT JOIN haltestellenbereich hsb ON hp.HSTBERNR = hsb.NR " . "LEFT JOIN haltestellen hs ON hsb.HSTNR = hs.NR " . "WHERE fzpe.LINROUTENAME = '" . $row["LINROUTENAME"] . "' AND fzpe.FZPROFILNAME = " . $row["FZPROFILNAME"] . " " . "ORDER BY fzpe.INDEX ASC ";
if ($fahrten = $mysqli->query($query)) {
$count += $fahrten->num_rows;
$count--;
$row_1 = $fahrten->fetch_assoc();
while ($row_0 = $fahrten->fetch_assoc()) {
$entry["Ab_HSTB_Nr"] = $row_1["HSBNR"];
$entry["Ab_HST_Nr"] = $row_1["NR"];
$entry["Ab_HST_Name"] = $row_1["NAME"];
$entry["ABFAHRT"] = calc_date($row["ABFAHRT"], $row_1["ABFAHRT"]);
$entry["LINIE"] = $row_1["PUBDIVALINNAM"];
$entry["An_HSTB_Nr"] = $row_0["HSBNR"];
$entry["An_HST_Nr"] = $row_0["NR"];
$entry["An_HST_Name"] = $row_0["NAME"];
$entry["ANKUNFT"] = calc_date($row["ABFAHRT"], $row_0["ANKUNFT"]);
$entry["DAUER"] = calc_length($row_1["ABFAHRT"], $row_0["ANKUNFT"]);
$entry["Ab_X"] = $row_1["XKOORD"];
$entry["Ab_Y"] = $row_1["YKOORD"];
$entry["An_X"] = $row_0["XKOORD"];
$entry["An_Y"] = $row_0["YKOORD"];
array_push($batch, $entry);
$row_1 = $row_0;
}
/* free result set */
$fahrten->free();
}
}
/* free result set */
$fzgfahrten->free();
$count = count($batch);
function play_req($wh)
{
$qda = $_SESSION['qda'];
$slct = $qda . '.id,' . $qda . '.ib,' . $qda . '.day,mail,frm,suj,img,nod,thm,name,lu,re,host';
if ($_SESSION['lang'] != 'all') {
$in = lang_req();
}
$wh = 'nod="' . $_SESSION['qb'] . '" ' . $wh;
if ($dig = get('dig')) {
$dayb = calc_date($dig);
$daya = calc_date(time_prev($dig));
} else {
$dayb = ses('dayb');
$daya = ses('daya');
}
$wh .= ' and ' . $qda . '.day<' . $daya;
if ($dayb) {
$wh .= ' and ' . $qda . '.day>' . $dayb;
}
return array($slct, $in, $wh, $qda . '.' . prmb(9), ' group by ' . $qda . '.id');
}
function define_interm3()
{
$sql = 'select cat,tag,idart from ' . ses('qdt') . '
inner join ' . ses('qdta') . ' on ' . ses('qdt') . '.id=' . ses('qdta') . '.idtag
inner join ' . ses('qda') . ' on ' . ses('qda') . '.id=' . ses('qdta') . '.idart
where day>' . calc_date(7) . '';
$r = sql_b($sql, 'kkk');
//
foreach ($r as $k => $v) {
$rb[$v[0]][$v[1]][] = $v[2];
//interm
$rc[$v[2]][$v[0]][] = $v[1];
//meta
}
return $r;
}
function dig_it($n, $send, $rid = '')
{
$r = define_digr();
$g = $_GET[$send];
if (!$r[$n]) {
$r[$n] = $n >= 365 ? round($n / 365, 2) : $n;
}
$cur = $r[$n];
$nprev = time_prev($n);
$r[$n] .= ' ' . ($n < 365 ? plurial($cur, 3) : plurial($cur, 7));
if ($n != 1 && $n != 7) {
$r[$n] = $r[$nprev] . ' ' . nms(36) . ' ' . $r[$n];
}
//from
if ($n > 365) {
$r[$n] = date('Y', calc_date($n));
}
//from
//$dig=$_GET['dig']?$_GET['dig']:$_SESSION['nbj'];
if ($_SESSION['rstr'][3] != '1') {
if ($rid) {
$ret = slctmenusja($r, 'load' . $rid . '_api___' . $send . ':' . ajx($g) . '_', $n);
} else {
$ret = slct_menus($r, htacb($send, $g, 'dig'), $n, "active", "", "");
}
}
return btn('nb_pages', $ret);
}
function dayslenght($qb, $limit)
{
$r = array(1, 7, 10, 90, 365, 720, 1440, 2920, 5840);
//16y
for ($i = 0; $i < 9; $i++) {
$nbj = $r[$i];
$nb = rse('count(id)', $_SESSION['qda'] . ' WHERE day>"' . calc_date($nbj) . '"');
if ($nb > $limit) {
$i = 9;
}
}
return $nbj;
}
function list_tags($idart, $cat)
{
//tag_list()
$wh = 'and cat="' . $cat . '" and day>"' . calc_date(30) . '" order by tag';
$r = artags('idtag,tag', $wh, 'kv');
return add_tag_btn($r, $idart, $cat);
}
function videoplaylist($p = 7)
{
$qda = ses('qda');
$qdm = ses('qdm');
//$ra=$_SESSION['rqt'];
return sql_b('select ' . $qda . '.id from ' . $qda . ' inner join ' . $qdm . ' on ' . $qda . '.id=' . $qdm . '.id where nod="' . ses('qb') . '" and re>="1" and day>' . calc_date($p ? $p : ses('nbj')) . ' and (msg like "%:video%" or msg like "%:popvideo%") order by id desc', 'k');
}
function make_artlist($qr)
{
$sqlm = $_SESSION['sqlimit'];
$admin = $_GET['admin'];
$dig = $_GET['dig'] ? $_GET['dig'] : $_SESSION['nbj'];
$sqlm = 'AND day <' . $_SESSION['daya'] . '';
if ($dig) {
$sqlm .= ' AND day>"' . calc_date($dig) . '" AND day<"' . calc_date(time_prev($dig)) . '"';
}
if ($admin == 'all_arts') {
$wh = '';
} elseif ($admin == 'my_arts') {
$wh .= 'AND name="' . $_SESSION['USE'] . '"';
} elseif ($admin == 'users_arts') {
$wh .= 'AND name!="' . $_SESSION['USE'] . '"';
} elseif ($admin == 'sys_arts') {
$wh .= 'AND frm="_system"';
$sqlm = '';
} elseif ($admin == 'trash') {
$wh .= 'AND frm="_trash"';
$sqlm = '';
} elseif ($admin == 'not_published') {
$wh .= 'AND re="0"';
}
if ($_GET['cat']) {
$wh = ' AND frm="' . $_GET['cat'] . '" AND re>="1"';
}
if ($_GET['triart']) {
$tri = $_GET['triart'];
} else {
$tri = 'id';
}
if ($_GET['triorder'] == 1) {
$tri .= ' ASC';
} elseif ($_GET['triorder'] == 2) {
$tri .= ' DESC';
} else {
$tri .= ' DESC';
}
$ordr = $tri ? ' ORDER BY ' . $tri : '';
if ($admin == 'categories') {
$sqlm = '';
$ordr = '';
}
$sql = 'nod="' . ses('qb') . '" ' . $wh . ' ' . $sqlm . $ordr;
$req = sql(implode(',', $qr), 'qda', 'q', $sql);
while ($data = mysql_fetch_array($req)) {
foreach ($qr as $v) {
$ret[$data['id']][$v] = $data[$v];
}
}
return $ret;
}
function exportation($pub, $node, $topic, $sub)
{
$USE = $_SESSION['USE'];
$go = 'popup_export__pop_';
if ($USE != "") {
if ($part != "" or $pub != "") {
if ($node != $USE) {
$ret .= lj("popw", $go . $pub, "export:");
} else {
$ret .= btn("popw", "import:");
}
if ($node) {
$ret .= lj("popbt", $go . $pub . '_' . $node, $node);
}
if ($topic) {
$ret .= lj("popbt", $go . $pub . '_' . $node . '_' . $topic, $topic) . ' :: ';
}
if (!$node) {
//menus:hubs && count($_SESSION['mn'])>1
$ret .= slctmenusj($_SESSION['mn'], $go . $pub . '_', $_SESSION['qb'], ' ');
}
}
$lineb = sql('frm', 'qda', 'k', "nod='{$node}' AND day>" . calc_date(360) . ' ORDER BY frm');
if (count($_SESSION['mn']) > 1 && $lineb) {
$ret .= slctmenusj($lineb, $go . $pub . '_' . $node . '_', '', ' ');
}
}
if ($topic != "" && !$sub) {
//topic
$lk = $go . $pub . '_' . $node . '_' . $topic . '_';
$ret .= lj("popdel", $lk . 'ok', 'save in: ' . $topic);
if ($_SESSION['dayb']) {
$sqlt = 'AND day>' . $_SESSION['dayb'] . '';
}
$req = sq('id,suj', 'qda', 'where nod="' . $node . '" AND frm="' . $topic . ' ' . $sqlt . ' ORDER BY id DESC LIMIT 100');
if ($req) {
while ($data = mysql_fetch_array($req)) {
$rte .= lj('', $lk . $data["id"], $data["suj"]) . br();
}
}
if ($rte) {
$ret .= ' ' . btn('txtx', 'or affiliate to:') . br() . divc('nbp', $rte);
}
}
if ($sub != "") {
$tosave = import($node, $pub, $USE, $topic, $_SESSION['qb'], $sub);
//sub
$ret = lkc("popw", '/?read=' . $tosave, 'saved in ' . $node . '/' . $topic . '/' . $tosave);
}
return $ret;
}
// or $_SESSION['prmb'][0]!=$_SESSION['qb']
//master_params
if (!$_SESSION['qd'] or $cache_refresh == "ok") {
master_params('../params/_' . $db, $qd, $aqb, $subd);
}
//hubs
if (!$_SESSION['mn'] or $cache_refresh == "ok") {
define_hubs();
}
//qb :: need $mn
if (!$_GET['nbj'] && $cache_refresh == "ok") {
define_qb($defo);
}
$qb = $_SESSION['qb'];
if ($_GET['nbj']) {
$_SESSION['dayb'] = calc_date($_GET['nbj']);
} else {
$_SESSION['dayb'] = calc_date(30);
}
//$_SESSION['nbj']=dayslength($_SESSION['qb'],50);
//deductions
$read = $_GET['read'];
$cache_refresh = deductions_from_read($read, $cache_refresh);
//qb_in
if (!$_SESSION['qbin'] or $cache_refresh) {
define_config();
}
//rss
if ($_GET['hub']) {
$_SESSION["qb"] = $_GET['hub'];
}
function list_tags($idart, $cat)
{
//tag_list()
if (rstr(3) && !is_numeric($cat)) {
$limit = ' and day>"' . calc_date(30) . '"';
}
$wh = 'and cat="' . $cat . '"' . $limit . ' order by tag';
$r = artags('idtag,tag', $wh, 'kv');
return add_tag_btn($r, $idart, $cat);
}
function plug_stats($c, $n, $res = '')
{
static $i;
$i++;
if ($i == 2) {
return;
}
$c = $c ? $c : 'nbv';
$n = $n ? $n : 7;
ses('png', 1);
list($w, $h) = split('_', $res);
ses('stw', $w ? $w : 550);
ses('sth', $h = $h ? $h : 100);
$day_max_known = sql('day', 'qds', 'v', 'qb="' . ses('qb') . '" and day<"' . date('ymd') . '" order by id desc limit 1');
if ($day_max_known < date('ymd', calc_date(1))) {
$ret = stat_solid($day_max_known);
}
//if(ses('png'))$ret.=stat_graph($c,$n,$res).br().br();
//else $ret.=divd('graph',stat_canvas($c,$n,$res)).br().br();
$ret .= stat_read($c, $n) . br();
$ret .= stat_board($c, $n, $res);
//stat_upd();
return divd('stat', $ret);
}
function api_mod_rq($v)
{
$ra = explode_k($v, '&', '=');
$ra['hub'] = ses('qb');
if ($ra['nbdays']) {
$ra['minday'] = $ra['nbdays'];
unset($ra['nbdays']);
}
if ($ra['hours']) {
$ra['mintime'] = calc_date($ra['hours'] / 24);
}
$ra['order'] = $ra['order'] ? $ra['order'] : prmb(9);
$ra['preview'] = $ra['preview'] ? slct_media($ra['preview']) : slct_media();
//if(ses('frm')=='Home')$ra['t']=nms(69);
return api_defaults_rq($ra);
}
