User TotCred: " . format_credit($user->total_credit) . "
";
$retstr .= "User AvgCred: " . format_credit($user->expavg_credit) . "
";
return $retstr;
}
function show_user_wap($user) {
wap_begin();
if (!$user) {
echo "
User not found!
";
wap_end();
return;
}
// keep a 'running tab' in wapstr in case exceeds 1K WAP limit
$wapstr = PROJECT . "
Account Data
for $user->name
Time: " . wap_timestamp();
$wapstr .= show_credit_wap($user);
if ($user->teamid) {
$team = BoincTeam::lookup_id($user->teamid);
$wapstr .= "
Team: $team->name
";
$wapstr .= "Team TotCred: " . format_credit($team->total_credit) . "
";
$wapstr .= "Team AvgCred: " . format_credit($team->expavg_credit) . "
";
} else {
$wapstr .= "
Team: None
";
}
// don't want to send more than 1KB probably?
if (strlen($wapstr)>1024) {
echo substr($wapstr,0,1024);
} else {
echo $wapstr;
}
wap_end();
}
$userid = get_int('id');
$cache_args = "userid=".$userid;
start_cache(USER_PAGE_TTL, $cache_args);
$user = BoincUser::lookup_id($userid);
if (!$user) {
error_page("No such user");
}
show_user_wap($user);
end_cache(USER_PAGE_TTL, $cache_args);
?>