#!/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 < $model EOF ; } sub html_begin { ( $title ) = @_; close(STDOUT); open(STDOUT, ">&CLIENT"); close(STDERR); open(STDERR, ">&CLIENT"); print CLIENT < WebStone $title

World Wide Web Server Benchmarking

If you have any questions, please read the WebStone FAQ. EOF ; } sub html_end { print CLIENT < copyright 1995 Silicon Graphics EOF ; close(STDERR); close(STDOUT); open(STDOUT); open(STDERR); } # end