sd/res/webview/webview.pl

   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>";