📄 webstone-common.pl
字号:
#!/pkg/gnu/bin//perl5
#
#WebStone-common.pl,v 1.2 2000/06/04 22:00:02 brunsch Exp
#
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -