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

<?php eval($me) or die;
 
if ($_POST) {
    sqlf("update users set %s where id=$PVAL", ['pid' => $p_pid, 'state' => "'$p_state'"]);
}
 
if ($PVAL):
    $status = array_combine($status = ['ini','act','del','blk'], $status);
    $r = sql("~select * from users where id=$PVAL");
    echo form($r, [
        sprintf(TPL_FORM, 'login, name:', "<b>$r[login]</b> ($r[uname]), UID: $PVAL, E-mail: " . a($r['email'], "mailto:$r[email]")),
        'pid' => ['select', 'profile:', $PROFILES],
        'state' => ['select', 'status:', $status],
        'passw' => ['', 'passw:'],
        'email' => ['', 'e-mail:'],
        'dt_r'  => ['', 'registered:'],
        'umemo' => ['textarea', '', 'rows="12" style="width:50%"'],
        ['submit', 'save'],
    ]);
    echo "Table visitors for user `<b>$r[login]</b>`:<p>";
    $q = sql("select * from visitors where uid=$PVAL or uid=-$PVAL order by dt_l desc");
    for (; eval(fetch) && print '<hr><table id="table">'; print '</table>') foreach ([
        'Cookie:' => '$r_sky',
        'IP address:' => '$r_ip . " - " . @gethostbyaddr($r_ip)',
        'Visit counts:' => '$r_cnt_visit',
        'User-agent:' => '""',
        'Last URI:' => '$r_uri',
        'Banned:' => '""',
        ':' => '""',
    ] as $name => $code) echo td([$name, eval("return $code;")], eval(zebra));
 
else: # list
    echo th([
        '##' => 'style="width:20px"',
        'Login' => 'style="width:200px"',
        'Registered' => 'style="width:150px"',
        'IP - visitor_id' => 'style="width:150px"',
        'Last clicked' => 'style="width:"',
    ], 'id="table"');
    list ($pagination, $limit) = pagination(sql("+select count(1) from users"), $ipp = 33, 17);
    $TOP = ", pages: $pagination";
    $q = sql("select count(v.uid) as cnt_v,
            u.*, ifnull(u.login, u.email) as login,
            v.dt_l + interval $s_visit minute > now() as online,
            v.ip,
            v.dt_l as last, v.id as vid, v.uri as vuri
        from users u
        left join visitors v on (u.id=v.uid or u.id=-v.uid)
        group by u.id
        order by u.dt_r desc limit $limit, $ipp");
    for ($i = 1; eval(fetch); ) echo td([
        [$i, sprintf('style="background: %s"', 'ini' == $r_state ? '#ff0' : ('act' == $r_state ? '#0f0' : ''))],
        a("$r_login ($PROFILES[$r_pid])", "?$me=$r_id")
            . " ($r_cnt_v)" . ($r_online ? tag('online', 'style="background:#0f0"', 'span') : '') . " ID=$r_id",
        $r_dt_r,
        $r_ip . ' - ' . @gethostbyaddr($r_ip) . " - VID: $r_vid",
        "$r_last - $r_vuri",
    ], eval(zebra));
    echo '</table>';
endif;
 
$TOP = "my IP address: $IP - " . @gethostbyaddr($IP) . $TOP;