#!/usr/local/bin/perl 
#
#
 
   print "Content-type: text/html\n\n";
   print "<TITLE>AIP WWW Forum</TITLE>";
   print "  <FRAMESET ROWS=\"20%,*\">  ",
	 "  <FRAME SRC = \"head.cgi\">"	,		 
         "  <FRAMESET COLS = \"50%,*\">  ",
         "  <FRAME SRC=\"list.cgi?$ARGV[0]\"  ", 
         "  SCROLLING =\"yes\"  ",
         "  NAME=\"contents\" MARGINWIDTH=10 MARGINHEIGHT=10  ",
         "  RESIZE>",
         "  <FRAME SRC=\"read_all.cgi?$ARGV[0]\" ",
         "  NAME=\"message\"  SCROLLING=\"yes\"  ",
         "  NORESIZE>",
         "  <FRAME SRC=\"tail.cgi\" ",
         "  NAME=\"footer\"  SCROLLING=\"no\"  ",
         "  NORESIZE></frameset></frameset> ",
         " <no frameset><h2>this browther can't use frames</h2>",
         "I recommend you use a browther which can use frames.<p>",
         "</no frameset> ";