mirror of https://github.com/BOINC/boinc.git
119 lines
3.3 KiB
PHP
119 lines
3.3 KiB
PHP
<?php
|
|
|
|
// controller script for storage simulator
|
|
//
|
|
// usage: ssim.php infile
|
|
//
|
|
// format of infile
|
|
// policy policyfile1
|
|
// ...
|
|
// policy policyfilen
|
|
// host_life_mean x1 ... xn
|
|
// connect_interval x
|
|
// mean_xfer_rate x
|
|
|
|
function parse_input_file($filename) {
|
|
$x = null;
|
|
$x->name = $filename;
|
|
$x->policy = array();
|
|
$x->policy_name = array();
|
|
$f = fopen($filename, "r");
|
|
if (!$f) die("no file $filename\n");
|
|
while (($buf = fgets($f)) !== false) {
|
|
$w = explode(" ", $buf);
|
|
switch ($w[0]) {
|
|
case "policy":
|
|
$pfile = trim($w[1]);
|
|
$x->policy[] = $pfile;
|
|
$g = fopen($pfile, "r");
|
|
$name = fgets($g);
|
|
fclose($g);
|
|
$x->policy_name[] = trim($name);
|
|
break;
|
|
case "host_life_mean":
|
|
$x->host_life_mean = array();
|
|
for ($i=1; $i<count($w); $i++) {
|
|
$x->host_life_mean[] = 86400 * (double)($w[$i]);
|
|
}
|
|
break;
|
|
case "connect_interval":
|
|
$x->connect_interval = (double)($w[1]);
|
|
break;
|
|
case "mean_xfer_rate":
|
|
$x->mean_xfer_rate = (double)($w[1]);
|
|
break;
|
|
case "file_size":
|
|
$x->file_size = (double)($w[1]);
|
|
break;
|
|
}
|
|
}
|
|
fclose($f);
|
|
return $x;
|
|
}
|
|
|
|
function make_graph($input, $prefix, $title, $index) {
|
|
$gp_filename = $input->name."_$prefix.gp";
|
|
$f = fopen($gp_filename, "w");
|
|
fprintf($f, "set terminal png small size 1024, 768
|
|
set yrange[0:]
|
|
set ylabel \"$title\"
|
|
set xlabel \"Mean host lifetime (days)\"
|
|
plot ");
|
|
$n = sizeof($input->policy);
|
|
for ($i=0; $i<$n; $i++) {
|
|
$p = $input->policy[$i];
|
|
$pname = $input->policy_name[$i];
|
|
$fname = $input->name."_$p.dat";
|
|
fprintf($f, "\"$fname\" using 1:$index title \"$pname\" with lines");
|
|
if ($i < $n-1) {
|
|
fprintf($f, ", \\");
|
|
}
|
|
fprintf($f, "\n");
|
|
}
|
|
fclose($f);
|
|
$png_filename = $input->name."_$prefix.png";
|
|
$cmd = "gnuplot < $gp_filename > $png_filename";
|
|
echo "$cmd\n";
|
|
system($cmd);
|
|
}
|
|
|
|
function parse_output_file($fname) {
|
|
$f = fopen($fname, "r");
|
|
if (!$f) {
|
|
die("no output file $fname\n");
|
|
}
|
|
$ft = (int)fgets($f);
|
|
$du = (double)fgets($f);
|
|
$ul = (double)fgets($f);
|
|
$dl = (double)fgets($f);
|
|
return array($ft, $du, $ul, $dl);
|
|
}
|
|
|
|
if ($argc != 2) {
|
|
die("usage: ssim.php infile\n");
|
|
}
|
|
$input = parse_input_file($argv[1]);
|
|
foreach ($input->policy as $p) {
|
|
$datafile = fopen($input->name."_$p.dat", "w");
|
|
if (!file_exists($p)) {
|
|
die("no policy file '$p'\n");
|
|
}
|
|
foreach ($input->host_life_mean as $hlm) {
|
|
$cmd = "ssim --policy $p --host_life_mean $hlm --connect_interval $input->connect_interval --mean_xfer_rate $input->mean_xfer_rate --file_size $input->file_size > /dev/null";
|
|
echo "$cmd\n";
|
|
system($cmd);
|
|
list($ft, $du, $ub, $db) = parse_output_file("summary.txt");
|
|
$hlmd = $hlm/86400;
|
|
$du_rel = $du/$input->file_size;
|
|
fprintf($datafile, "$hlmd $ft $du_rel $ub $db\n");
|
|
}
|
|
fclose($datafile);
|
|
}
|
|
|
|
make_graph($input, "ft", "Fault tolerance", 2);
|
|
make_graph($input, "du", "Relative disk usage", 3);
|
|
make_graph($input, "ub", "Upload bandwidth (Mbps)", 4);
|
|
make_graph($input, "db", "Download bandwidth (Mbps)", 5);
|
|
|
|
?>
|