1*cdf0e10cSrcweir#!/usr/bin/perl 2*cdf0e10cSrcweir 3*cdf0e10cSrcweirprint "Content-type: text/html\n\n"; 4*cdf0e10cSrcweir 5*cdf0e10cSrcweirprint "<HTML>"; 6*cdf0e10cSrcweir 7*cdf0e10cSrcweirprint "<HEAD>"; 8*cdf0e10cSrcweirprint "</HEAD>"; 9*cdf0e10cSrcweir 10*cdf0e10cSrcweirprint "<FRAMESET ROWS=\"*,2\" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>"; 11*cdf0e10cSrcweir print "<FRAME SRC=\"./show.pl\" NAME=\"frame1\" SCROLLING=yes RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>"; 12*cdf0e10cSrcweir print "<FRAME SRC=\"./poll.pl\" NAME=\"frame2\" SCROLLING=no NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>"; 13*cdf0e10cSrcweirprint "</FRAMESET>"; 14*cdf0e10cSrcweir 15*cdf0e10cSrcweirprint "<NOFRAMES>"; 16*cdf0e10cSrcweir 17*cdf0e10cSrcweirprint "<BODY BGCOLOR=\"white\">"; 18*cdf0e10cSrcweir print "<META HTTP-EQUIV=\"-REFRESH\" CONTENT=\"1;URL=./show.pl\">"; 19*cdf0e10cSrcweirprint "</BODY>"; 20*cdf0e10cSrcweir 21*cdf0e10cSrcweirprint "</HTML>";