blob: 0e3ddd80cebaad40df97a2c23b6b702e0eda912e (
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
|
#!/pkg/gnu/bin//perl5
#
1;
sub show_model {
$model = `head -1 $wd/conf/filelist`;
$model =~ s/\#//;
( $model ) = split(':', $model);
print CLIENT <<EOF
<P><STRONG>
<A HREF=\"$wd/bin/WebStone-setup.pl\">$model
</A></STRONG>
EOF
;
}
sub html_begin {
( $title ) = @_;
close(STDOUT);
open(STDOUT, ">&CLIENT");
close(STDERR);
open(STDERR, ">&CLIENT");
print CLIENT <<EOF
<HTML>
<HEAD>
<TITLE>WebStone $title</TITLE>
<A HREF="$wd/doc/WebStone.html">
<IMG SRC="$wd/doc/webstone.gif" ALT="WebStone" BORDER=0 ></A>
<H1>World Wide Web Server Benchmarking</H1>
<DL>
<DT><EM>If you have any questions, please read the
<A HREF="$wd/doc/FAQ-webstone.html">WebStone FAQ</A>.</EM>
<HR>
EOF
;
}
sub html_end {
print CLIENT <<EOF
<HR>
<ADDRESS><A HREF="$wd/doc/LICENSE.html">copyright 1995 Silicon Graphics</A>
</ADDRESS>
</BODY>
</HTML>
EOF
;
close(STDERR);
close(STDOUT);
open(STDOUT);
open(STDERR);
}
# end
|