mirror of https://github.com/BOINC/boinc.git
85 lines
2.1 KiB
PHP
Executable File
85 lines
2.1 KiB
PHP
Executable File
#! /usr/bin/env php
|
|
<?php
|
|
|
|
// Job submission and control script for TreeThreader application
|
|
// from the Institute for Computing Technology in Beijing
|
|
//
|
|
|
|
define("PROJECT", "http://casathome.ihep.ac.cn/");
|
|
|
|
function usage() {
|
|
global $argv;
|
|
die("
|
|
Usage:
|
|
$argv[0] submit sequence_file (submit batch, print batch ID)
|
|
$argv[0] get_output batch_id (show URL of output file)
|
|
\n");
|
|
}
|
|
|
|
function get_auth() {
|
|
return trim(file_get_contents("auth"));
|
|
}
|
|
|
|
function do_http_op($xml, $file=null) {
|
|
$ch = curl_init(PROJECT."tree_threader.php");
|
|
curl_setopt($ch, CURLOPT_POST, 1);
|
|
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
|
|
if ($file) {
|
|
$fields = array('request' => $xml, 'seq_file' => "@$file");
|
|
} else {
|
|
$fields = "request=$xml";
|
|
}
|
|
if (!curl_setopt($ch, CURLOPT_POSTFIELDS, $fields)) {
|
|
die("curl_setopt failed\n");
|
|
}
|
|
$reply = curl_exec($ch);
|
|
if (!$reply) return array(null, "HTTP error");
|
|
$r = simplexml_load_string($reply);
|
|
if (!$r) return array(null, "Can't parse reply XML: <pre>".htmlentities($reply)."</pre>");
|
|
return array($r, null);
|
|
}
|
|
|
|
function handle_submit() {
|
|
global $argc, $argv;
|
|
if ($argc != 3) usage();
|
|
if (!is_file($argv[2])) die("seq file missing");
|
|
$auth = get_auth();
|
|
$req_xml = "
|
|
<tt_request>
|
|
<action>submit</action>
|
|
<auth>$auth</auth>
|
|
</tt_request>
|
|
";
|
|
list($reply, $errmsg) = do_http_op($req_xml, $argv[2]);
|
|
if ($errmsg) die("Error: $errmsg\n");
|
|
print_r($reply);
|
|
echo "batch ID: ".(int)$reply->batch_id."\n";
|
|
}
|
|
|
|
function handle_get_output() {
|
|
global $argc, $argv;
|
|
if ($argc != 3) usage();
|
|
$batch_id = $argv[2];
|
|
//$auth = $argv[3];
|
|
$auth = get_auth();
|
|
$req_xml = "
|
|
<tt_request>
|
|
<action>get_output</action>
|
|
<batch_id>$batch_id</batch_id>
|
|
<auth>$auth</auth>
|
|
</tt_request>
|
|
";
|
|
list($reply, $errmsg) = do_http_op($req_xml);
|
|
if ($errmsg) die("Error: $errmsg\n");
|
|
echo (string)$reply->url, "\n";
|
|
}
|
|
|
|
if ($argc < 2) usage();
|
|
switch ($argv[1]) {
|
|
case "submit": handle_submit(); break;
|
|
case "get_output": handle_get_output(); break;
|
|
default: usage();
|
|
}
|
|
|
|
?>
|