#!/usr/local/bin/perl

require './samples-lib.pl';

&main;

sub main {
    &header( $text{'index_title'}, "", undef, 0, 1 );
    &body();
    &footer( "", $text{'index_title'} );
    &do_window();
}

sub body {
   print "<br>\n";
   print "A window will pop-up in 5 seconds.<br>\n";
   print "It will then print out 10 lines of data every 2 seconds.\n";
   print "<br>\n";
   print "<hr>\n";
   print "<br>\n";
   print "<a href=\"jterminal.cgi.txt\">[View Source]</a>\n";
   print "<br><br>\n";
}

sub do_window {
   sleep 5;
   &jterminal("debug", 200, 400);
   $counter = 0;

   while ($counter <= 10) {
      sleep 2;
      &jwrite("debug", "debug counter: $counter<br>\\n");
      $counter++;
   }
}
