boinc/html/ops/bossa_admin.php

<?php

require_once("../inc/bossa_db.inc");
require_once("../inc/bolt_db.inc");
require_once("../inc/util_ops.inc");

function show_bapp($app) {
    echo "<tr>
        <td>Name: $app->name<br>
            Short name: $app->short_name<br>
            Description: $app->description<br>
            Created: ".date_str($app->create_time)."
        </td>
        <td>
    ";
    if ($app->hidden) {
        show_button("bossa_admin.php?action=unhide&app_id=$app->id", "Unhide", "Unhide this app");
    } else {
        show_button("bossa_admin.php?action=hide&app_id=$app->id", "Hide", "Hide this app");
    }
    echo "<br>";
    show_button("bossa_admin.php?action=show_jobs&app_id=$app->id", "Show jobs", "Show jobs");
    echo "<br><form action=".$app->short_name."_workgen.php>
        Create <input name=njobs size=5> new jobs
        <input type=submit value=OK>
        </form>
    ";
}

function show_apps() {
    $apps = BossaApp::enum();
    start_table();
    row1("Existing apps", 2);
    table_header("Name/description", "");
    foreach ($apps as $app) {
        show_bapp($app);
    }
    end_table();
}

function add_app_form() {
    echo "
        <form action=bossa_admin.php method=get>
        <input type=hidden name=action value=add_app>
    ";
    start_table();
    row1("Add app");
    row2(
        "Name<span class=note><br>Visible to users</span>",
        "<input name=app_name>"
    );
    row2(
        "Short name<span class=note><br>Used in file and function names - no spaces or special characters</span>",
        "<input name=short_name>"
    );
    row2(
        "Description<span class=note><br>Visible to users</span>",
        "<textarea name=description cols=60></textarea>"
    );
    row2(
        "Min confidence sum for consensus",
        "<input name=min_conf_sum value=2>"
    );
    row2(
        "Min confidence fraction for consensus",
        "<input name=min_conf_frac value=\"0.5\">"
    );
    row2("Max job instances", "<input name=max_instances value=5>");
    row2("Name of Bolt training course", "<input name=training_course>");
    row2("", "<input type=submit submit value=\"Create app\">");
    end_table();
    echo "</form>";
}

function user_settings() {
    global $user;
    $flags = $user->bossa->flags;
    echo "<form action=bossa_admin.php method=get>
        <input type=hidden name=action value=update_user>
    ";
    start_table();
    row1("User settings");
    $x = ($flags&BOLT_FLAGS_SHOW_ALL)?"checked":"";
    row2("Show hidden apps?", "<input type=checkbox name=show_all $x>");
    $x = ($flags&BOLT_FLAGS_DEBUG)?"checked":"";
    row2("Show debugging output?", "<input type=checkbox name=debug $x>");
    row2("", "<input type=submit value=\"Update user\">");
    end_table();
    echo "</form>";
}

function show_all() {
    admin_page_head("Bossa administration");
    show_apps();
    echo "<p>";
    add_app_form();
    echo "<p>";
    user_settings();
    admin_page_tail();
}

function show_jobs($app_id) {
    $app = BossaApp::lookup_id($app_id);
    echo "<h2>Jobs for $app->name</h2>";
    $jobs = BossaJob::enum("app_id=$app_id");
    foreach ($jobs as $job) {
        echo "<pre>\n";
        print_r($job);
        echo "</pre>\n";
        echo "
            <a href=bossa_admin.php?action=show_insts&job_id=$job->id>Show instances</a>
            <hr>
        ";
    }
}

function show_insts($job_id) {
    echo "<h2>Job instances</h2>";
    $jis = BossaJobInst::enum("job_id=$job_id");
    foreach ($jis as $ji) {
        echo "<pre>\n";
        print_r($ji);
        echo "</pre><hr>\n";
    }
}


$user = get_logged_in_user();
BossaUser::lookup($user);

$action = get_str('action', true);
switch ($action) {
case 'add_app':
    $name = BossaDb::escape_string(get_str('app_name'));
    $short_name = get_str('short_name');
    $description = BossaDb::escape_string(get_str('description'));
    $min_conf_sum = get_str('min_conf_sum');
    $min_conf_frac = get_str('min_conf_frac');
    $max_instances = get_str('max_instances');
    $training_course = get_str('training_course' ,true);
    if (strlen($training_course)) {
        $course = BoltCourse::lookup_name($training_course);
        if (!$course) {
            error_page("No course named $training_course");
        }
        $courseid = $course->id;
    } else {
        $courseid = 0;
    }
    $now = time();
    $app_id = BossaApp::insert("(create_time, name, short_name, description, min_conf_sum, min_conf_frac, max_instances, bolt_course_id) values ($now, '$name', '$short_name', '$description', $min_conf_sum, $min_conf_frac, $max_instances, $courseid)");
    if ($courseid) {
        $course->update("bossa_app_id=$app_id");
    }
    Header('Location: bossa_admin.php');
    exit();
case 'update_user':
    $flags = 0;
    if (get_str('show_all', true)) $flags |= BOLT_FLAGS_SHOW_ALL;
    if (get_str('debug', true)) $flags |= BOLT_FLAGS_DEBUG;
    $user->bossa->update("flags=$flags");
    $user->bossa->flags = $flags;
    Header('Location: bossa_admin.php');
    exit();
case 'show_jobs':
    $app_id = $_GET['app_id'];
    show_jobs($app_id);
    exit();
case 'show_insts':
    $job_id = $_GET['job_id'];
    show_insts($job_id);
    exit();
case 'hide':
    $app_id = get_int('app_id');
    $app = BossaApp::lookup_id($app_id);
    if (!$app) error_page("no such app");
    $app->update("hidden=1");
    break;
case 'unhide':
    $app_id = get_int('app_id');
    $app = BossaApp::lookup_id($app_id);
    if (!$app) error_page("no such app");
    $app->update("hidden=0");
    break;
case '':
    show_all();
    exit();
default:
    error_page("unknown action $action");
}
Header('Location: bossa_admin.php');


?>