\n";
echo "$message\n";
echo "
\n";
}
#
# Tell the user how many PCs he is using.
#
$yourpcs = TBUserPCs($target_uid);
if ($yourpcs) {
echo "\n";
if (strcmp($uid, $target_uid))
echo "$target_uid is using $yourpcs PCs!\n";
else
echo "You are using $yourpcs PCs!\n";
echo "\n";
}
#
# Put a link down to the profile
#
echo "\n";
if ($EXPOSETEMPLATES) {
SHOWTEMPLATELIST("USER", 0, $uid, $target_uid);
}
#
# Lets show Experiments.
#
SHOWEXPLIST("USER", $uid, $target_uid);
#
# Lets show project and group membership.
#
$query_result =
DBQueryFatal("select distinct g.pid,g.gid,g.trust,p.name,gr.description, ".
" count(distinct r.node_id) as ncount ".
" from group_membership as g ".
"left join projects as p on p.pid=g.pid ".
"left join groups as gr on gr.pid=g.pid and gr.gid=g.gid ".
"left join experiments as e on g.pid=e.pid and g.gid=e.gid ".
"left join reserved as r on e.pid=r.pid and e.eid=r.eid ".
"left join group_membership as g2 on g2.pid=g.pid and ".
" g2.gid=g.gid and g2.uid='$uid' ".
"where g.uid='$target_uid' and ".
($isadmin ? "" : "g2.uid is not null and ") .
"g.trust!='" . TBDB_TRUSTSTRING_NONE . "' ".
"group by g.pid, g.gid ".
"order by g.pid,gr.created");
if (mysql_num_rows($query_result)) {
echo "
Project and Group Membership
\n";
echo "
| PID |
GID |
Nodes |
Name/Description |
Trust |
MailTo |
\n";
while ($projrow = mysql_fetch_array($query_result)) {
$pid = $projrow[pid];
$gid = $projrow[gid];
$name = $projrow[name];
$desc = $projrow[description];
$trust = $projrow[trust];
$nodes = $projrow[ncount];
if (TBTrustConvert($trust) != $TBDB_TRUST_NONE) {
echo "
|
$pid |
$gid | \n";
echo "$nodes | \n";
if (strcmp($pid,$gid)) {
echo "$desc | \n";
$mail = $pid . "-" . $gid . "-users@" . $OURDOMAIN;
}
else {
echo "$name | \n";
$mail = $pid . "-users@" . $OURDOMAIN;
}
echo "$trust | \n";
if ($MAILMANSUPPORT) {
# Not sure what I want to do here ...
echo "$mail | ";
}
else {
echo "$mail | ";
}
echo "
\n";
}
}
echo "
\n";
echo "
Click on the GID to view/edit group membership and trust levels.
\n";
}
#
# Widearea Accounts
#
SHOWWIDEAREAACCOUNTS($target_uid);
#
# User Profile.
#
echo "\n";
echo "
User Profile
\n";
#
# See if any mailman lists owned by the user. If so we add a menu item.
#
$mm_result =
DBQueryFatal("select owner_uid from mailman_listnames ".
"where owner_uid='$target_uid'");
SUBPAGESTART();
SUBMENUSTART("User Options");
#
# Permission check not needed; if the user can view this page, they can
# generally access these subpages, but if not, the subpage will still whine.
#
WRITESUBMENUBUTTON("Edit Profile", "moduserinfo.php3?target_uid=$target_uid");
if (!$wikionly && ($isadmin || !strcmp($uid, $target_uid))) {
WRITESUBMENUBUTTON("Edit SSH Keys",
"showpubkeys.php3?target_uid=$target_uid");
WRITESUBMENUBUTTON("Edit SFS Keys",
"showsfskeys.php3?target_uid=$target_uid");
WRITESUBMENUBUTTON("Generate SSL Cert",
"gensslcert.php3?target_uid=$target_uid");
WRITESUBMENUBUTTON("Show History",
"showstats.php3?showby=user&which=$target_uid");
if ($MAILMANSUPPORT && mysql_num_rows($mm_result)) {
WRITESUBMENUBUTTON("Show Mailman Lists",
"showmmlists.php3?target_uid=$target_uid");
}
}
if ($isadmin) {
if (!strcmp(TBUserStatus($target_uid), TBDB_USERSTATUS_FROZEN)) {
WRITESUBMENUBUTTON("Thaw User",
"freezeuser.php3?target_uid=$target_uid&action=thaw");
}
else {
WRITESUBMENUBUTTON("Freeze User",
"freezeuser.php3?target_uid=$target_uid&action=freeze");
}
WRITESUBMENUBUTTON("Delete User",
"deleteuser.php3?target_uid=$target_uid");
if (! strcmp($userstatus, TBDB_USERSTATUS_NEWUSER) ||
! strcmp($userstatus, TBDB_USERSTATUS_UNVERIFIED)) {
WRITESUBMENUBUTTON("Resend Verification Key",
"resendkey.php3?target_uid=$target_uid");
}
else {
WRITESUBMENUBUTTON("Send Test Email Message",
"sendtestmsg.php3?target_uid=$target_uid");
}
}
SUBMENUEND();
SHOWUSER($target_uid);
SUBPAGEEND();
if ($isadmin) {
echo "
User Stats
\n";
SHOWUSERSTATS($target_uid);
}
#
# Standard Testbed Footer
#
PAGEFOOTER();
?>