blob: f16d626f2ad19ee1c375df5b738ec961f4ecec1a (
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
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/pkg/gnu/bin//perl5
#
#$Id$
#
# write new values from form to $wd/conf/testbed, and run WebStone
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
html_begin("Current Configuration");
&show_model();
&write_data();
print CLIENT <<EOF
<HR>
<FORM METHOD="POST" ACTION="$wd/bin/runbench.pl">
<P><INPUT TYPE="SUBMIT" VALUE="Run WebStone">
</FORM>
</DL>
EOF
;
html_end();
# end main
sub write_data {
rename("$wd/conf/testbed", "$wd/conf/testbed.bak") ||
die "rename testbed: $!\n";
open(TESTBED, ">>$wd/conf/testbed") || die "open testbed: $!\n";
print CLIENT "<PRE>";
foreach $key (@keylist) {
$$key =~ s/\+/ /g;
$newvalue = "$key=\"$$key\"\n";
print CLIENT $newvalue;
print TESTBED $newvalue;
}
print CLIENT "</PRE>";
close(TESTBED);
}
# end
|
