. require_once("../inc/bossa_db.inc"); require_once("../inc/bolt_db.inc"); require_once("../inc/util_ops.inc"); function job_state_string($s) { switch ($s) { case 0: return "Embargoed"; case 1: return "In progress"; case 2: return "Completed"; } } function include_app_file($app_id) { $app = BossaApp::lookup_id($app_id); $file = "../inc/$app->short_name.inc"; require_once($file); } function show_bossa_app($app, $i) { $j = $i%2; 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_bossa_apps() { $apps = BossaApp::enum(); start_table(); row1("Existing apps", 2); table_header("Name/description", ""); $i = 0; foreach ($apps as $app) { show_bossa_app($app, $i++); } 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() { admin_page_head("Bossa administration"); show_bossa_apps(); echo "

"; add_app_form(); echo "

"; user_settings(); admin_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_opaque_data()); 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); admin_page_head("Jobs for batch $batch->name"); $jobs = BossaJob::enum("batch_id=$batch_id"); start_table(); table_header("ID", "Created", "State", "Instances"); $i = 0; foreach ($jobs as $job) { $t = time_str($job->create_time); $s = job_state_string($job->state); $j = $i++ % 2; echo " $job->id id>(details)
"; echo job_summary($job); echo " $t $s "; job_show_instances($job); echo " "; } end_table(); admin_page_tail(); } function show_batches($app_id) { $batches = BossaBatch::enum("app_id = $app_id"); $app = BossaApp::lookup_id($app_id); admin_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 | id>delete instances", "$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(); admin_page_tail(); } function job_show_insts($job_id) { $job = BossaJob::lookup_id($job_id); include_app_file($job->app_id); admin_page_head("Instances of job $job_id"); job_show_instances($job); admin_page_tail(); } function calibration_job_string($inst, $job) { if ($inst->calibration) { $i = $job->get_opaque_data(); return "yes: ".instance_summary($i->answer); } else { return "no"; } } function show_bossa_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); admin_page_head("$user->name ($app->name)"); $x = user_summary($user); if ($x) { echo "User info: $x
"; } $insts = BossaJobInst::enum("user_id=$user_id"); start_table(); table_header("Job", "Calibration?", "Start", "Duration", "Response"); 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_opaque_data()) ); } end_table(); admin_page_tail(); } function clear_batch_confirm($batch_id) { admin_page_head("Confirm delete instances"); echo " This will permanently delete all results from this batch.

Are you sure you want to do this?

Yes "; admin_page_tail(); } function clear_batch($batch_id) { admin_page_head("Deleting instances"); if (BossaJobInst::delete_aux("batch_id=$batch_id")) { echo "Job instances deleted."; $jobs = BossaJob::enum("batch_id=$batch_id"); foreach ($jobs as $job) { $job->update("priority_0=1"); } } else { echo "Database error."; } admin_page_tail(); } $user = get_logged_in_user(); $db = BossaDb::get(); if (!$db) error_page("Can't connect to database server"); if (!$db->table_exists('bossa_app')) { admin_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
mysql $db_name < bossa_constraints.sql
Then reload this page. "; admin_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'); if (!$time_estimate) $time_estimate = 60; $time_limit = get_str('time_limit'); if (!$time_limit) $time_limit = 3600; $calibration_frac = get_str('calibration_frac' , true); if (!$calibration_frac) $calibration_frac = 0; $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_bossa_user(); exit; case 'show_batches': $app_id = get_int('app_id'); show_batches($app_id); exit; case 'show_batch': $batch_id = get_int('batch_id'); show_batch($batch_id); exit; case 'job_show_insts': $job_id = get_int('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 'clear_batch_confirm': $batch_id = get_int('batch_id'); clear_batch_confirm($batch_id); exit; case 'clear_batch': $batch_id = get_int('batch_id'); clear_batch($batch_id); exit; case '': show_all(); exit; default: error_page("unknown action $action"); } Header('Location: bossa_admin.php'); ?>