boinc/html/inc/team.inc

572 lines
19 KiB
PHP

<?php
// This file is part of BOINC.
// http://boinc.berkeley.edu
// Copyright (C) 2008 University of California
//
// BOINC is free software; you can redistribute it and/or modify it
// under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation,
// either version 3 of the License, or (at your option) any later version.
//
// BOINC is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with BOINC. If not, see <http://www.gnu.org/licenses/>.
require_once("../inc/util.inc");
require_once("../inc/boinc_db.inc");
require_once("../inc/forum_db.inc");
require_once("../inc/forum.inc");
require_once("../inc/sanitize_html.inc");
require_once("../inc/countries.inc");
require_once("../inc/credit.inc");
require_once("../inc/team_types.inc");
require_once("../inc/time.inc");
require_once("../inc/stats_sites.inc");
function team_search_form($params) {
echo '<form name="form" action="team_search.php">';
start_table();
row2('<b>'.tra('Search criteria (use one or more)').'</b>', '');
row2(tra('Key words').'<br><span class="note">'.tra('Find teams with these words in their names or descriptions').'</span>',
'<input name="keywords" value="' . htmlspecialchars($params->keywords) . '">');
row2_init(tra('Country'), '');
echo '<select name="country"><option value="" selected>---</option>';
$country = $params->country;
if (!$country || $country == 'None') $country = "XXX";
print_country_select($country);
echo "</select></td></tr>\n";
row2(tra('Type of team'), team_type_select($params->type, true));
$checked = $params->active?"checked":"";
row2(tra('Show only active teams'), "<input type=checkbox name=active $checked>");
row2("", "<input type=submit name=submit value=\"".tra('Search')."\">");
end_table();
echo '</form>';
}
function foundership_transfer_link($user, $team) {
$now = time();
if ($team->ping_user == $user->id) {
if (transfer_ok($team, $now)) {
return tra('Requested by you, and founder response deadline has passed.').'
<br>
<a href="team_founder_transfer_form.php">'.tra('Complete foundership transfer').'</a>.
';
} else {
$deadline = date_str(transfer_ok_time($team));
return '<a href="team_founder_transfer_form.php">'.tra('Requested by you').'</a>; '.tra('founder response deadline is %1', $deadline);
}
}
if (new_transfer_request_ok($team, $now)) {
if ($team->userid == $user->id) {
return tra('None');
} else {
return '<a href="team_founder_transfer_form.php">'.tra('Initiate request').'</a>';
}
}
return '<a href="team_founder_transfer_form.php">'.tra('Deferred').'</a>';
}
function display_team_page($team, $user) {
global $team_name_sites;
page_head("$team->name");
echo sanitize_html($team->name_html);
echo "<p>";
start_table();
row1(tra('Team info'));
if (strlen($team->description)) {
row2(tra('Description'), sanitize_html($team->description));
}
if (strlen($team->url)) {;
if (strstr($team->url, "http://")) {
$x = $team->url;
} else {
$x = "http://$team->url";
}
row2(tra('Web site'), "<a href=$x>$x</a>");
}
if (!no_computing()) {
row2(tra('Total credit'), format_credit_large($team->total_credit));
row2(tra('Recent average credit'), format_credit_large($team->expavg_credit));
$x = "";
shuffle($team_name_sites);
foreach ($team_name_sites as $t) {
$url = $t[0];
$site_name = $t[1];
$encoding = $t[2];
if ($encoding == "hashlc") {
$key = md5(strtolower($team->name));
} else if ($encoding == 'hash') {
$key = md5($team->name);
} else {
$key = urlencode($team->name);
}
$x .= "<a href=$url".$key.">$site_name</a><br>\n";
}
row2(tra('Cross-project stats'), $x);
}
row2(tra('Country'), $team->country);
row2(tra('Type'), team_type_name($team->type));
if ($team->forum && is_forum_visible_to_user($team->forum, $user)) {
$f = $team->forum;
row2('<a href="team_forum.php?teamid='.$team->id.'">'.tra('Message board').'</a>',
tra('Threads').': '.$f->threads.'<br>'.tra('Posts').': '.$f->posts.'<br>'.tra('Last post').': '.time_diff_str($f->timestamp, time())
);
}
if ($user) {
if ($user->teamid != $team->id) {
if ($team->joinable) {
$tokens = url_tokens($user->authenticator);
row2("",
'<a href="team_join.php?'.$tokens.'&amp;teamid='.$team->id.'">'.tra('Join this team').'</a>
<br><span class="note">'.tra('Note: if \'OK to email\' is set in your project preferences, joining a team gives its founder access to your email address.').'</span>'
);
} else {
row2(tra("Not accepting new members"), "");
}
}
if (($user->teamid == $team->id)) {
if (($user->id == $team->userid)) {
if ($team->ping_user) {
$deadline = date_str(transfer_ok_time($team));
row2(tra('Foundership change requested'),
'<a href="team_change_founder_form.php?teamid='.$team->id.'">'.tra('Respond by %1', $deadline).'</a>'
);
}
} else {
row2(tra('Team foundership change'), foundership_transfer_link($user, $team));
}
}
}
row1(tra('Members'));
row2(tra('Founder'), user_links($team->founder));
if (count($team->admins)) {
$first = true;
$x = "";
foreach ($team->admins as $a) {
if ($first) {
$first = false;
} else {
$x .= " | ";
}
$x .= user_links($a);
}
row2(tra('Admins'), $x);
}
$x = "0";
if (count($team->new_members)) {
$first = true;
$x = "";
foreach ($team->new_members as $a) {
if ($first) {
$first = false;
} else {
$x .= " | ";
}
$x .= user_links($a);
}
}
row2(tra('New members in last day'), $x);
row2(tra('Total members'), "$team->nusers (<a href=team_members.php?teamid=$team->id&amp;offset=0&amp;sort_by=expavg_credit>".tra('view')."</a>)");
row2(tra('Active members'), "$team->nusers_active (<a href=team_members.php?teamid=$team->id&amp;offset=0&amp;sort_by=expavg_credit>".tra('view')."</a>)");
row2(tra('Members with credit'), "$team->nusers_worked (<a href=team_members.php?teamid=$team->id&amp;offset=0&amp;sort_by=total_credit>".tra('view')."</a>)");
end_table();
}
function display_team_members($team, $offset, $sort_by) {
$n = 20;
$admins = BoincTeamAdmin::enum("teamid=$team->id");
// there aren't indices to support sorting by credit.
// set the following variable to disable sorted output.
// (though since caching is generally used this shouldn't needed)
//
$nosort = false;
if ($sort_by == "total_credit") {
$sort_clause = "total_credit desc";
} else {
$sort_clause = "expavg_credit desc";
}
start_table();
echo '<tr>
<th>'.tra('Name').'</th>
';
if (!no_computing()) {
if ($nosort) {
echo '
<th>'.tra('Total credit').'</th>
<th>'.tra('Recent average credit').'</th>
';
} else {
if ($sort_by == "total_credit") {
echo '<th>'.tra('Total credit').'</th>';
} else {
echo "<th><a href=team_members.php?teamid=$team->id&amp;sort_by=total_credit&amp;offset=$offset>".tra('Total credit')."</a></th>";
}
if ($sort_by == "expavg_credit") {
echo '<th>'.tra('Recent average credit').'</th>';
} else {
echo "<th><a href=team_members.php?teamid=$team->id&amp;sort_by=expavg_credit&amp;offset=$offset>".tra('Recent average credit').'</a></th>';
}
}
}
echo '
<th>'.tra('Country').'</th>
</tr>
';
if ($nosort) {
$users = BoincUser::enum("teamid=$team->id limit $offset,$n");
} else {
$users = BoincUser::enum("teamid=$team->id order by $sort_clause limit $offset,$n");
}
$j = $offset + 1;
foreach ($users as $user) {
$user_total_credit = format_credit_large($user->total_credit);
$user_expavg_credit = format_credit($user->expavg_credit);
$x = user_links($user);
if ($user->id == $team->userid) {
$x .= ' ['.tra('Founder').']';
} else if (is_team_admin_aux($user, $admins)) {
$x .= ' ['.tra('Admin').']';
}
echo "<tr class=row1>
<td align=left>$j) $x
";
if (!no_computing()) {
echo "
<td align=right>$user_total_credit</td>
<td align=right>$user_expavg_credit</td>
";
}
echo "
<td align=center>$user->country</td>
</tr>
";
$j++;
}
echo "</table>";
if ($offset > 0) {
$new_offset = $offset - $n;
echo "<a href=team_members.php?teamid=$team->id&amp;sort_by=$sort_by&amp;offset=$new_offset>".tra('Previous %1', $n)."</a> | ";
}
if ($j == $offset + $n + 1) {
$new_offset = $offset + $n;
echo "<a href=team_members.php?teamid=$team->id&amp;sort_by=$sort_by&amp;offset=$new_offset>".tra('Next %1', $n)."</a>";
}
}
// check that the team exists
//
function require_team($team) {
if (!$team) {
error_page(tra('No such team.'));
}
}
function is_team_founder($user, $team) {
return $user->id == $team->userid;
}
// check that the user is founder of the team
//
function require_founder_login($user, $team) {
require_team($team);
if ($user->id != $team->userid) {
error_page(tra('This operation requires foundership.'));
}
}
function is_team_admin($user, $team) {
if (!$user) return false;
if ($user->id == $team->userid) return true;
$admin = BoincTeamAdmin::lookup($team->id, $user->id);
if ($admin) return true;
return false;
}
// use this when you're displaying a long list of users
// and don't want to do a lookup for each one
//
function is_team_admin_aux($user, $admins) {
foreach ($admins as $a) {
if ($a->userid == $user->id) return true;
}
return false;
}
function require_admin($user, $team) {
if (!is_team_admin($user, $team)) {
error_page(tra('This operation requires team admin privileges'));
}
}
function new_member_list($teamid) {
$new_members = array();
$yesterday = time() - 86400;
$deltas = BoincTeamDelta::enum("teamid=$teamid and timestamp>$yesterday and joining=1 group by userid");
if (count($deltas)) {
foreach ($deltas as $delta) {
$u = BoincUser::lookup_id($delta->userid);
if ($u->teamid == $teamid) {
$new_members[] = $u; // they might have later quit
}
}
}
return $new_members;
}
function admin_list($teamid) {
$u = array();
$admins = BoincTeamAdmin::enum("teamid=$teamid");
foreach ($admins as $admin) {
$user = BoincUser::lookup_id($admin->userid);
$u[] = $user;
}
return $u;
}
function team_table_start($sort_by, $type_url) {
echo "<tr>
<th>".tra('Rank')."</th>
<th>".tra('Name')."</th>
<th>".tra('Members')."</th>
";
if ($sort_by == "total_credit") {
echo "
<th><a href=top_teams.php?sort_by=expavg_credit".$type_url.">".tra('Recent average credit')."</a></th>
<th>".tra('Total credit')."</th>
";
} else {
echo "
<th>".tra('Recent average credit')."</th>
<th><a href=top_teams.php?sort_by=total_credit".$type_url.">".tra('Total credit')."</a></th>
";
}
echo "
<th>".tra('Country')."</th>
<th>".tra("Type")."</th>
</tr>
";
}
function show_team_row($team, $i) {
$team_expavg_credit = format_credit_large($team->expavg_credit);
$team_total_credit = format_credit_large($team->total_credit);
echo"<tr class=row1>
<td>$i</td>
<td><a href=team_display.php?teamid=$team->id>$team->name</a></td>
<td align=right>".$team->nusers."</td>
<td align=right>$team_expavg_credit</td>
<td align=right>$team_total_credit</td>
<td>$team->country</td>
<td>".team_type_name($team->type)."</td>
</tr>\n";
}
function user_join_team($team, $user) {
user_quit_team($user);
$res = $user->update("teamid=$team->id");
if ($res) {
$now = time();
BoincTeamDelta::insert("(userid, teamid, timestamp, joining, total_credit) values ($user->id, $team->id, $now, 1, $user->total_credit)");
return true;
}
return false;
}
function user_quit_team($user) {
if (!$user->teamid) return;
$user->update("teamid=0");
$team = BoincTeam::lookup_id($user->teamid);
if ($team && $team->ping_user=$user->id) {
$team->update("ping_user=-ping_user");
}
BoincTeamAdmin::delete("teamid=$user->teamid and userid=$user->id");
$now = time();
BoincTeamDelta::insert("(userid, teamid, timestamp, joining, total_credit) values ($user->id, $user->teamid, $now, 0, $user->total_credit)");
}
function team_edit_form($team, $label, $url) {
global $team_types;
echo "<form method=post action=$url>\n";
if ($team) {
echo "<input type=hidden name=teamid value=$team->id>\n";
}
if ($team->seti_id) {
echo "<p><span class=error>".tra("WARNING: this is a BOINC-wide team. If you make changes here, they will soon be overwritten. Edit the %1BOINC-wide team%2 instead.", "<a href=http://boinc.berkeley.edu/teams/>", "</a>")
."</span>
<p>
";
}
echo '
<p>
'.tra('%1Privacy note%2: if you create a team, your project preferences (resource share, graphics preferences) will be visible to the public.', '<b>', '</b>').'
<p>
';
start_table();
row2(tra('Team name, text version').'
<br><span class="note">'.tra('Don\'t use HTML tags.').'</span>',
"<input name=name type=text size=50 value='$team->name'>"
);
row2(tra('Team name, HTML version').'
<br><span class="note">
'.tra('You may use %1limited HTML tags%2.', '<a href="html.php" target="_new">', '</a>').'
'.tra('If you don\'t know HTML, leave this box blank.').'</span>',
"<input name=name_html type=text size=50 value=\"".str_replace('"',"'",$team->name_html)."\">"
);
row2(tra('URL of team web page, if any').':<br><font size=-2>('.tra('without "http://"').')
'.tra('This URL will be linked to from the team\'s page on this site.'),
"<input name=url size=60 value='$team->url'>"
);
row2(tra('Description of team').':
<br><span class="note">
'.tra('You may use %1limited HTML tags%2.', '<a href="html.php" target="_new">', '</a>').'
</span>',
"<textarea name=description cols=60 rows=10>$team->description</textarea>"
);
row2(tra('Type of team').':', team_type_select($team->type));
row2_init(tra('Country'),
"<select name=country>"
);
print_country_select($team->country);
echo "</select></td></tr>\n";
$x = $team->joinable?"checked":"";
row2(tra("Accept new members?"), "<input type=checkbox name=joinable $x>");
row2("",
"<input type=submit name=new value='$label'>"
);
end_table();
echo "</form>\n";
}
// decay a team's average credit
//
function team_decay_credit($team) {
$avg = $team->expavg_credit;
$avg_time = $team->expavg_time;
$now = time(0);
update_average($now, 0, 0, $avg, $avg_time);
$team->update("expavg_credit=$avg, expavg_time=$now");
}
// if the team hasn't received new credit for ndays,
// decay its average and return true
//
function team_inactive_ndays($team, $ndays) {
$diff = time() - $team->expavg_time;
if ($diff > $ndays*86400) {
team_decay_credit($team);
return true;
}
return false;
}
function team_count_members($teamid) {
return BoincUser::count("teamid=$teamid");
}
// These functions determine the rules for foundership transfer, namely:
// - A transfer request is allowed if either:
// - there is no active request, and it's been at least 60 days
// since the last request (this protects the founder from
// being bombarded with frequest requests)
// - there's an active request older than 90 days
// (this lets a 2nd requester eventually get a chance)
// - Suppose someone (X) requests foundership at time T.
// An email is sent to the founder (Y).
// The request is "active" (ping_user is set to X's ID)
// - If Y declines the change, an email is sent to X,
// and the request is cleared.
// - If Y accepts the change, an email is sent to X
// and the request is cleared.
// - After T + 60 days, X can become founder
// - After T + 90 days, new requests are allowed even if there's
// an active request, i.e. after the 60 days elapse X has another
// 30 days to assume foundership before someone elase can request it
//
function new_transfer_request_ok($team, $now) {
if ($team->ping_user <= 0) {
if ($team->ping_time < $now - 60 * 86400) {
return true;
}
return false;
}
if ($team->ping_time < $now - 90 * 86400) {
return true;
}
return false;
}
// the time at which we can actually change foundership
// if the founder hasn't responded
//
function transfer_ok_time($team) {
return $team->ping_time + 60*86400;
}
function transfer_ok($team, $now) {
if ($now > transfer_ok_time($team)) return true;
return false;
}
// Make a team; args are untrusted, so cleanse and validate them
//
function make_team(
$userid, $name, $url, $type, $name_html, $description, $country
) {
$name = BoincDb::escape_string(strip_tags($name));
if (strlen($name) == 0) return null;
$name_lc = strtolower($name);
$url = BoincDb::escape_string(strip_tags($url));
if (strstr($url, "http://")) {
$url = substr($url, 7);
}
$name_html = BoincDb::escape_string($name_html);
$description = BoincDb::escape_string($description);
if (!is_valid_country($country)) {
$country = 'None';
}
$country = BoincDb::escape_string($country); // for Cote d'Ivoire
$clause = sprintf(
"(userid, create_time, name, name_lc, url, type, name_html, description, country, nusers, expavg_time) values(%d, %d, '%s', '%s', '%s', %d, '%s', '%s', '%s', %d, unix_timestamp())",
$userid,
time(),
$name,
$name_lc,
$url,
$type,
$name_html,
$description,
$country,
0
);
$id = BoincTeam::insert($clause);
if ($id) {
return BoincTeam::lookup_id($id);
} else {
return null;
}
}
$cvs_version_tracker[]="\$Id$"; //Generated automatically - do not edit
?>