blob: 81071504f1a91a0f62f582e6e5db29ab89d6705e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/pkg/gnu/bin//perl5
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
require('flush.pl');
# force flush after every write or print
$| = 1;
html_begin("In Progress");
print CLIENT "<H3><CENTER>Running WebStone</CENTER></H3><PRE>";
show_model();
&flush(CLIENT);
&flush(STDOUT);
&start_runbench();
print CLIENT <<EOF
<TITLE>WebStone Completed</TITLE>
</PRE><CENTER>
<FORM METHOD=POST ACTION="http://localhost:$html_port$wd/bin/view-results.pl">
<INPUT TYPE="submit" VALUE="View Results">
</CENTER>
EOF
;
html_end();
sub start_runbench {
$command = "cd $wd/bin; ./runbench";
system($command);
}
# end
|
