Запись [f:_dev/_main.php] < dev.sky.1.001

<?php defined('START') and AUTH_OK or die;
 
$TOP = '';
 
switch ($PVAL):
case 'sky':
    list ($id, $n) = explode('.', $WVAL);
    $cbr = Record::ary($id, $rec = new Record);
    if ($rec->mess) $text = $rec->mess("<br>\n");
    else {
        $defs = $cbr[$n][2];
        require '_dev/main/parser_cbr.php';
        $text = ($err = sky_object($defs, $cbr, $id)) ? $err : Record::show_php($defs);
    }
    $TOP = "&gt; SKY FILE: {$cbr[$n][1]}";
    break;
case 'exit':
    setcookie('dev_cookie', '-empty-', floor(START_TS) + 10, PATH);
    jump();
case 'top':
    $tables = array_map('create_table', fetch(sql("show tables"), 0));
    $text = Record::show_php(implode(";\n\n", $tables) . ';');
#    $TOP = 'Database: `' . DB_NAME . '`';
    $TITLE = "Main - $TITLE";
    if (NOW != ($sqlnow = sql("+select now()"))) $TOP = '&gt; ' . sprintf(span_r, 'PHP-SQL time different!');
    break;
default: jump('?cb_list');
 
endswitch;
 
echo str_replace('%TITLE%', $TITLE, $start_html) . "<u>Main page</u> $TOP<hr></div> <!-- id=fixed -->";
 
if ('top' == $PVAL):
 
function php_authors() {
    ob_start();
    phpcredits(CREDITS_GROUP);
    return preg_replace("/^.*?<td[^>]*>([^<]+)<.*/si", "$1", ob_get_clean());
}
 
function mysqlauthors() { # 2do
    return '??'; # sql('SHOW AUTHORS') work from MySQL 5.1.3.
}
#if (function_exists('apache_get_version')) $ary += ['apache_get_version' => 'Apache version'];
$id = '+select count(1) from _dev_codebase where id';
?>
<table id="utbl" width="100%" height="80%" cellspacing="0" cellpadding="0"><tr>
<td valign="top" style="line-height:150%"><?=$text?></td>
<td width="35%" valign="top" style="padding-left:5px;border-left:2px solid silver;line-height:150%">
<u>DEV.SKY. version:</u> <?=ver()?><br>
<u>Under development:</u> <?=sprintf("%s (%s)",$u_my_app,$dev_rubrics[$u_my_rubric])?><br>
<u>SKY.'s authors see at:</u> <a href="<?=SKY?>authors" target="_blank">coresky.net/authors</a>
<div style="line-height:11px;margin:7px 0">
Count records ID <= 10000: <?=sql("$id <= 10000")?><br>
Count records ID <= 50000: <?=sql("$id <= 50000")?><br>
Count records ID >&nbsp; 50000: <?=sql("$id > 50000")?><br>
</div>
See (edit): <a href="?settings=dev" target="_blank">DEV's settings</a>
<hr>
GMT NOW PHP <?=gmdate(DATE_DT)?><br>
NOW PHP: <?=NOW . " ($u_php_tz)"?><br>
NOW MySQL: <?="$sqlnow ($u_sql_tz)"?>
<hr>
<u>MySQL version:</u> <?=mysqli_get_server_info($idc)?><br>
<u>Host info:</u> <?=mysqli_get_host_info($idc)?><br>
<u>MySQL protocol info:</u> <?=mysqli_get_proto_info($idc)?><br>
<u>MySQL's authors:</u> <?=mysqlauthors()?><br><br>
Also use: <a href="?utility=sql_query&sql=<?=urlencode('show variables')?>" target="_blank">DEV's MySQL client</a>
<hr>
<u>PHP version:</u> <?=PHP_VERSION?><br>
<u>Zend engine version:</u> <?=zend_version()?><br>
<u>PHP's core authors:</u> <?=php_authors()?><br>
<u>Loaded extensions:</u> <?=implode(', ',get_loaded_extensions())?><br><br>
See: <a href="?help=phpinfo" target="_blank">phpinfo()</a>
<hr>
Handly SQls:<br>
<a href="?utility=sql_query&sql=<?=urlencode('show table status')?>" target="_blank">show table status</a><br>
Globals: <br>
<a href="?utility=globals" target="_blank">?utility=globals</a><br>
</td>
</tr></table><?php
 
else: echo $text;
 
endif;