cgi-bin/about/server_room.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use CXGN::Page;
   4 my $page = CXGN::Page->new;
   5 $page->send_content_type_header();
   6
   7 print <<EOHTML;
   8 <html>
   9   <head>
  10     <meta http-equiv="Refresh" content="120" />
  11   </head>
  12   <frameset rows="150,50,*">
  13       <frame name="temp" src="/about/temp.pl?deg=C&amp;mode=current" />
  14       <frame name="logged_in" src="/about/loggedin.pl" />
  15       <frame name="spong" src="http://rubisco.sgn.cornell.edu/spong-cgi/www-spong.cgi/bygroup/" />
  16   </frameset>
  17 </html>
  18 EOHTML