ACE/apps/JAWS/clients/WebSTONE/bin/WebStone-common.pl

   1 #!/pkg/gnu/bin//perl5
   2 #
   3
   4 1;
   5
   6 sub show_model {
   7     $model = `head -1 $wd/conf/filelist`;
   8     $model =~ s/\#//;
   9     ( $model ) = split(':', $model);
  10
  11     print CLIENT <<EOF
  12 <P><STRONG>
  13 <A HREF=\"$wd/bin/WebStone-setup.pl\">$model
  14 </A></STRONG>
  15 EOF
  16     ;
  17 }
  18
  19 sub html_begin {
  20
  21     ( $title ) = @_;
  22
  23     close(STDOUT);
  24     open(STDOUT, ">&CLIENT");
  25     close(STDERR);
  26     open(STDERR, ">&CLIENT");
  27
  28     print CLIENT <<EOF
  29 <HTML>
  30 <HEAD>
  31 <TITLE>WebStone $title</TITLE>
  32 <A HREF="$wd/doc/WebStone.html">
  33 <IMG SRC="$wd/doc/webstone.gif" ALT="WebStone" BORDER=0 ></A>
  34 <H1>World Wide Web Server Benchmarking</H1>
  35 <DL>
  36 <DT><EM>If you have any questions, please read the
  37 <A HREF="$wd/doc/FAQ-webstone.html">WebStone FAQ</A>.</EM>
  38 <HR>
  39 EOF
  40     ;
  41
  42 }
  43
  44 sub html_end {
  45
  46     print CLIENT <<EOF
  47 <HR>
  48 <ADDRESS><A HREF="$wd/doc/LICENSE.html">copyright 1995 Silicon Graphics</A>
  49 </ADDRESS>
  50 </BODY>
  51 </HTML>
  52 EOF
  53     ;
  54
  55     close(STDERR);
  56     close(STDOUT);
  57     open(STDOUT);
  58     open(STDERR);
  59 }
  60
  61 # end