blob: 107e1d94890f0310ce7d2fc6810dad57502282e3 (
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#!/pkg/gnu/bin//perl5
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
@keylist = ();
html_begin("Setup");
show_model();
print CLIENT <<EOF
<FORM METHOD="POST" ACTION="$wd/bin/write-testbed.pl">
EOF
;
&gettestbed();
&getconfig();
print CLIENT <<EOF
</DL>
<P><INPUT TYPE="SUBMIT" VALUE="Write Configuration">
</FORM>
<HR>
<FORM METHOD="POST" ACTION="$wd/bin/move-filelist.pl">
<H3>Choose a Web site model:</H3>
<DL>
EOF
;
for $key (sort(keys %filelist)) {
print CLIENT "<DD><INPUT TYPE=RADIO NAME=filelist ";
if ($key eq "filelist") {
print CLIENT " CHECKED ";
}
print CLIENT " VALUE=\"$wd/conf/$key\"> $key: $filelist{$key}";
}
print CLIENT <<EOF
</DL>
<INPUT TYPE="SUBMIT" VALUE="Set Workload">
EOF
;
html_end();
# end of main program
sub gettestbed {
open(TESTBED, "$wd/conf/testbed");
while (<TESTBED>) {
if (/^\#|^(\w)*$/) { # do nothing
}
else {
( $textvalue, $thevalue ) = split( '=', $_ );
( $thevalue ) = split( '#', $thevalue);
$testbed{$textvalue} = $thevalue;
push(@keylist, $textvalue);
}
}
close(TESTBED);
open(HELPFILE, "$wd/doc/testbed.help");
while (<HELPFILE>) {
( $key, $textvalue ) = split( ':', $_ );
$helptext{$key} = $textvalue;
}
close(HELPFILE);
foreach $key (@keylist) {
print CLIENT "<P><DT>$helptext{$key}";
$thesize = length($testbed{$key}) + 5;
print CLIENT "<DD>$key <INPUT TYPE=TEXT NAME=$key ";
print CLIENT "SIZE=$thesize VALUE=$testbed{$key}>\n";
}
}
sub getconfig {
opendir(CONF, "$wd/conf") || die "open $wd/conf: $!";
%filelist = "";
foreach $file (sort readdir(CONF)) {
if ( $file =~ /^filelist.*/ ) {
$headtext = `head -1 $wd/conf/$file`;
$headtext =~ s/\#//;
( $headtext ) = split(':', $headtext);
$filelist{$file} = $headtext;
}
}
closedir(CONF);
}
# end
|
