home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 July & August / PCWorld_2003-07-08_cd.bin / Software / Komercni / Openoffice / f_0071 / webcast.pl
Perl Script  |  2000-09-18  |  600b  |  21 lines
  1. #!/usr/bin/perl
  2.  
  3. print "Content-type: text/html\n\n";
  4.  
  5. print "<HTML>";
  6.  
  7. print "<HEAD>";
  8. print "</HEAD>";
  9.  
  10. print "<FRAMESET ROWS=\"*,2\" BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>";
  11.     print "<FRAME SRC=\"./show.pl\" NAME=\"frame1\" SCROLLING=yes  RESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>";
  12.     print "<FRAME SRC=\"./poll.pl\" NAME=\"frame2\" SCROLLING=no NORESIZE MARGINWIDTH=0 MARGINHEIGHT=0 FRAMEBORDER=0>";
  13. print "</FRAMESET>";
  14.  
  15. print "<NOFRAMES>";
  16.  
  17. print "<BODY BGCOLOR=\"white\">";
  18.     print "<META HTTP-EQUIV=\"-REFRESH\" CONTENT=\"1;URL=./show.pl\">";
  19. print "</BODY>";
  20.  
  21. print "</HTML>";