?? 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 + -