su_hosts.php

<?php

// This file is part of BOINC.
// http://boinc.berkeley.edu
// Copyright (C) 2017 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/host.inc");
require_once("../inc/su_schedule.inc");
require_once("../inc/su.inc");

// show list of user's hosts, minimal info, link to details
//
function su_show_user_hosts($user) {
    $hosts = BoincHost::enum(
        "userid=$user->id and total_credit=0 order by domain_name, rpc_time desc"
    );
    page_head(tra("Your computers"));
    if (count($hosts) == 0) {
        echo tra("No computers yet");
        page_tail();
        return;
    }
    start_table("table-striped");
    row_heading_array(array(
        tra("Computer name")."<br><small>".tra("Click for details")."</small>",
        tra("Operating system"),
        tra("Last contact"),
        tra("Remove")."<br><small>".tra("... if this is a duplicate or the computer is no longer running BOINC")."</small>"));
    $now = time();
    foreach($hosts as $h) {
        $link = sprintf('<a class="btn btn-success" href="su_hosts.php?action=del&host_id=%d">%s</a>',
            $h->id,
            tra("Remove")
        );
        row_array(array(
            sprintf("<a href=%s>%s</a>",
                "su_hosts.php?action=summary&host_id=$h->id", $h->domain_name
            ),
            $h->os_name,
            time_diff_str($h->rpc_time, $now),
            $link
        ));
    }
    end_table();
    page_tail();
}

function su_hide_host($user) {
    $id = get_int("host_id");
    $h = BoincHost::lookup_id($id);
    if (!$h || $h->userid != $user->id) {
        error_page("no such host");
    }
    $h->update("total_credit=-1");      // otherwise unused field
}

function su_host_project_select($user, $host) {
    page_head(tra("How projects are chosen for %1", $host->domain_name));
    echo tra('To decide which projects this computer should work for, we compute a "score" for each project.  The components of the score are:');
    echo sprintf("
        <ul>
        <li><b>%s</b>: %s
        <li><b>%s</b>: %s
        <li><b>%s</b>: %s
        </ul>",
        tra("Keyword score"),
        tra("How well your keyword preferences match the project's keywords."),
        tra("Platform score"),
        tra("-1 if the project has no programs that will run on the computer; 0 if it does; +0.1 if one of them uses a GPU or VirtualBox."),
        tra("Allocation score"),
        tra("How much work is owed to the project; this changes from one day to the next.")
    );
    echo tra("We then choose the highest-scoring projects (at least 2) that together can use all the computer's processors."
    );
    echo "
        <p>
    ";
    $projects = rank_projects($user, $host, null, false);
    start_table("table-striped");
    $x = array(
        tra("Project"),
        tra("Keyword score"),
        tra("Platform score"),
        tra("Allocation score"),
        tra("Score")
    );
    foreach ($host->resources as $r) {
        $x[] = tra("Can use %1?", human_resource_name($r));
    }
    $x[] = tra("Opted out?");
    row_heading_array($x);
    foreach($projects as $p) {
        $x = array(
            "<a href=su_show_project.php?id=$p->id>$p->name</a>",
            $p->keyword_score,
            $p->platform_score,
            number_format($p->allocation_score, 3),
            number_format($p->score, 3)
        );
        foreach ($host->resources as $r) {
            $x[] = can_use($p, $host, $r) ? "yes" : "no";
        }
        $x[] = $p->opt_out?tra("Yes"):"";
        row_array($x);
    }
    end_table();

    echo tra("Given the above info, this computer would do work for these projects:");
    echo "
    <p>
    ";
    $projects = select_projects_resource($host, $projects);
    start_table("table-striped");
    $x = array(tra("Project"), tra("Score"));
    foreach ($host->resources as $r) {
        $x[] = "Use $r?";
    }
    row_heading_array($x);
    foreach($projects as $p) {
        $x = array(
            "<a href=su_show_project.php?id=$p->id>$p->name</a>",
            $p->score,
        );
        foreach ($host->resources as $r) {
            $x[] = $p->use[$r] ? tra("Yes") : tra("No");
        }
        row_array($x);
    }
    end_table();
    page_tail();
}

function su_host_detail($host) {
    page_head(tra("Computer hardware and software"));
    start_table("table-striped");
    show_host_hw_sw($host);
    end_table();
    page_tail();
}

function su_host_project_accounting($host) {
    page_head(tra("Projects for which this computer has done work"));
    $ps = SUHostProject::enum("host_id=$host->id");
    start_table("table-striped");
    row_heading_array(array(
        tra("Name"),
        tra("CPU FLOPS"),
        tra("CPU time"),
        tra("GPU FLOPS"),
        tra("GPU time"),
        tra("# jobs success"),
        tra("#jobs fail")
    ));
    foreach ($ps as $p) {
        $project = SUProject::lookup_id($p->project_id);
        row_array(array(
            $project->name,
            $p->cpu_time, $p->cpu_ec,
            $p->gpu_time, $p->gpu_ec,
            $p->njobs_success, $p->njobs_fail
        ));
    }
    end_table();
    page_tail();
}

function su_host_summary($host) {
    page_head(tra("Computer details"));
    start_table("table-striped");
    $view = tra("View");
    row2(tra("Name"), $host->domain_name);
    row2(
        tra("Hardware/software details"),
        "<a href=su_hosts.php?action=detail&host_id=$host->id>$view</a>"
    );
    row2(tra("Last contact"), time_str($host->rpc_time));
    row2(
        tra("How projects are chosen for this computer"),
        "<a href=su_hosts.php?action=project_select&host_id=$host->id>$view</a>"
    );
    row2(
        tra("Projects for which this computer has done work"),
        "<a href=su_hosts.php?action=project_accounting&host_id=$host->id>$view</a>"
    );
    show_host_detail($host);
    end_table();
    page_tail();
}

$user = get_logged_in_user();
$action = get_str("action", true);
switch ($action) {
case "del":
    su_hide_host($user);
    su_show_user_hosts($user);
    break;
case "summary":
    $host = BoincHost::lookup_id(get_int("host_id"));
    su_host_summary($host);
    break;
case "detail":
    $host = BoincHost::lookup_id(get_int("host_id"));
    su_host_detail($host);
    break;
case "project_select":
    $host = BoincHost::lookup_id(get_int("host_id"));
    $host = populate_score_info($host, null);
    su_host_project_select($user, $host);
    break;
case "project_accounting":
    $host = BoincHost::lookup_id(get_int("host_id"));
    su_host_project_accounting($host);
    break;
default:
    su_show_user_hosts($user);
}