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

Версия 1.001

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
<?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 3317);
    $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([
        [$isprintf('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;