#!/usr/bin/perl
# non-buffered.cgi - This will test the HTMLObject Base object in nonBuffer Mode# and in buffered mode in the same script.

use HTMLObject::Base;
use HTMLObject::CGILib;
use strict;
#use cgi_lib;

use vars '%input';

%input = ();
#cgi_lib::ReadParse(*input);
HTMLObject::CGILib::ReadParse(*input);

my $command = $input{command};

my $doc = HTMLObject::Base->new();

$doc->setCookie(name=>'testing', value => "non-buffered.cgi");

if ($command eq "test")  # display the non-buffered test page
{
  $doc->setTitle("non-Buffered Test Page");
  $doc->setFocus("body");
  $doc->print("<h1><center>This is the non-Buffered test page.</center></h1>\n");
  $doc->print("I am going to loop 10 times where I sleep for the current loops amount of time: <br>1 second, 2 seconds, etc. upto 10 seconds.<br>After each <b>sleep</b> I will display a message.<br>\n");
  $doc->print("I am going into non-Buffering mode now!<br><br><br>\n");
  $doc->startDisplaying;

  #$doc->setFocus("body");  # This should bomb out.

  for (my $i=1; $i <= 10; $i++)
  {
    sleep $i;
    $doc->print("<b>$i</b> seconds have now gone by.<br>\n");
  }
  $doc->print("<a href=\"/cgi-bin/non-buffered.cgi\">Return to main page</a>\n");
  $doc->endDisplaying;
}
else # display the start page (buffered mode)
{
  $doc->setTitle("Buffered Test Page");
  $doc->setFocus("body");
  $doc->print("<h1><center>This is the Buffered test page.</center></h1>\n");
  $doc->print("<a href=\"/cgi-bin/non-buffered.cgi?command=test\">Run non-Buffered test</a>\n");
  $doc->display();
}

exit 0;