short_name.inc"; require_once($file); } function show_app($app) { echo " Name: $app->name
Short name: $app->short_name
Description: $app->description
Created: ".date_str($app->create_time)." "; 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 "
"; show_button("bossa_admin.php?action=show_batches&app_id=$app->id", "Show batches", "Show batches"); } function show_apps() { $apps = BossaApp::enum(); start_table(); row1("Existing apps", 2); table_header("Name/description", ""); foreach ($apps as $app) { show_app($app); } end_table(); } function add_app_form() { echo "
"; start_table(); row1("Add app"); row2( "Name
Visible to users", "" ); row2( "Short name
Used in file and function names - no spaces or special characters", "" ); row2( "Description
Visible to users", "" ); row2("Average time per job", " seconds"); row2("Time limit per job", " seconds"); row2("Fraction of calibration jobs", ""); row2("Name of Bolt training course", ""); row2("", ""); end_table(); echo "
"; } function user_settings() { global $user; $flags = $user->bossa->flags; echo "
"; start_table(); row1("User settings"); $x = ($flags&BOLT_FLAGS_SHOW_ALL)?"checked":""; row2("Show hidden apps?", ""); $x = ($flags&BOLT_FLAGS_DEBUG)?"checked":""; row2("Show debugging output?", ""); row2("", ""); end_table(); echo "
"; } function show_all() { page_head("Bossa administration"); show_apps(); echo "

"; add_app_form(); echo "

"; user_settings(); page_tail(); } function job_duration($inst) { if ($inst->finish_time) { $d = $inst->finish_time - $inst->create_time; $d /= 60; $d = number_format($d, 2); $d = "$d min."; } else { $d = "---"; } return $d; } function job_show_instances($job) { $insts = BossaJobInst::enum("job_id=$job->id"); if (!count($insts)) { echo "---"; return; } start_table(); table_header("User", "Start", "Duration", "Result"); foreach ($insts as $inst) { $user = BoincUser::lookup_id($inst->user_id); $t = time_str($inst->create_time); $d = job_duration($inst); echo " app_id&user_id=$user->id>$user->name $t $d "; echo instance_summary($inst->get_info()); echo " "; } end_table(); } function show_batch($batch_id) { $batch = BossaBatch::lookup_id($batch_id); if (!$batch) error_page("No such batch"); include_app_file($batch->app_id); page_head("Jobs for batch $batch->name"); $jobs = BossaJob::enum("batch_id=$batch_id"); start_table(); table_header("ID", "Created", "State", "Instances"); foreach ($jobs as $job) { $t = time_str($job->create_time); $s = job_state_string($job->state); echo " $job->id id>(details)
"; echo job_summary($job); echo " $t $s "; job_show_instances($job); echo " "; } end_table(); page_tail(); } function show_batches($app_id) { $batches = BossaBatch::enum("app_id = $app_id"); $app = BossaApp::lookup_id($app_id); page_head("Batches ($app->name)"); start_table(); table_header("ID", "Name", "Calibration?", "Created", "Jobs", "Completed"); foreach ($batches as $batch) { table_row( "$batch->id id>(show jobs)", "$batch->name", $batch->calibration?"yes":"no", time_str($batch->create_time), BossaJob::count("batch_id=$batch->id"), BossaJob::count("batch_id=$batch->id and state=2") ); } end_table(); page_tail(); } function job_show_insts($job_id) { $job = BossaJob::lookup_id($job_id); include_app_file($job->app_id); page_head("Instances of job $job_id"); job_show_instances($job); page_tail(); } function calibration_job_string($inst, $job) { if ($inst->calibration) { $i = $job->get_info(); return "yes: ".instance_summary($i->answer); } else { return "no"; } } function show_user() { $user_id = get_int('user_id'); $app_id = get_int('app_id'); $user = BoincUser::lookup_id("$user_id"); BossaUser::lookup($user); $app = BossaApp::lookup_id($app_id); include_app_file($app_id); page_head("Bossa user ($app->name)"); echo user_summary($user); $insts = BossaJobInst::enum("user_id=$user_id"); start_table(); table_header("Job", "Calibration?", "Start", "Duration", "Result"); foreach ($insts as $inst) { $job = BossaJob::lookup_id($inst->job_id); table_row( "$inst->job_id job_id>(details)
".job_summary($job), calibration_job_string($inst, $job), time_str($inst->create_time), job_duration($inst), instance_summary($inst->get_info()) ); } end_table(); page_tail(); } $user = get_logged_in_user(); $db = BossaDb::get(); if (!$db) error_page("Can't connect to database server"); if (0) { if (!$db->table_exists('bossa_app')) { page_head("Create Bossa database"); $db_name = $db->db_name; echo " The database tables for Bossa don't seem to exist. To create them, go to ~/boinc/db and type 

mysql $db_name < bossa_schema.sql
Then reload this page. "; page_tail(); exit; } } 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')); $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; } $time_estimate = get_str('time_estimate'); $time_limit = get_str('time_limit'); $calibration_frac = get_str('calibration_frac' , true); $now = time(); $app_id = BossaApp::insert("(create_time, name, short_name, description, bolt_course_id, time_estimate, time_limit, calibration_frac) values ($now, '$name', '$short_name', '$description', $courseid, $time_estimate, $time_limit, $calibration_frac)"); 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_user': show_user(); exit; case 'show_batches': $app_id = $_GET['app_id']; show_batches($app_id); exit; case 'show_batch': $batch_id = $_GET['batch_id']; show_batch($batch_id); exit; case 'job_show_insts': $job_id = $_GET['job_id']; job_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'); ?>