package Fusion::Countdown;

use strict;

my $buffer_flusher = <<EOT x 48; # approx 3.5k
<!-- ************************************************************** -->
EOT

sub New
{
	my $package = shift;
	my $text_only_input = shift;

	die "bad text_only_input ($text_only_input)"
		if ( defined($text_only_input) and $text_only_input ne "textonly" );
	my $text_only = $text_only_input eq "textonly";

	my $self = {
		count => 0,
		text_only => $text_only,
		destroyed => 0,
	};
	bless $self, $package;

	_print_javascript_code()
		if ( not $text_only );

	return $self;
}

sub start_count
{
	my $self = shift;
	my $name = shift;

	if ( $self->{text_only} ) {
		print qq[$name -- <font size="-1">1</font>\n];
		$self->{count} = 1;
	} else {
		print "<script> start_ticker(" . _javascript_literal_string($name) . "); </script>\n";
	}
	print $buffer_flusher;
}

sub count
{
	my $self = shift;

	if ( $self->{text_only} ) {
		my $number = ++$self->{count};
		print qq[<font size="-1">$number</font>\n];
	} else {
		print "<script> do_tick(); </script>\n";
	}

	print $buffer_flusher;
}

sub done
{
	my $self = shift;
	my $message = shift;

	if ( $self->{text_only} ) {
		print " -- $message<br>";
	} else {
		print "<script> finish_ticker(" . _javascript_literal_string($message) . "); </script>\n";
	}

	print $buffer_flusher;
};

sub done_all_counts
{
	my $self = shift;

	if ( $self->{text_only} ) {
		; # do nothing
	} else {
		print "<script> finish_ticking(); </script>\n";
	}

	$self->{destroyed} = 1;
};

sub DESTROY
{
	my $self = shift;

	$self->done_all_counts()
		if ( ! $self->{destroyed} );
}

sub mark_error
{
	my $self = shift;

	if ( $self->{text_only} ) {
		; # do nothing
	} else {
		print "<script> mark_error(); </script>\n";
	}
}

###############################

sub _javascript_literal_string
{
	my $text = shift;

	# compress spaces
	$text =~ s/\n/ /g;
	$text =~ s/\s+/ /g;

	# turn into javascript code
	return Fusion::Toolbox::javascript_literal_string($text);
}

sub _print_javascript_code
{

	print <<'EOT';

<STYLE TYPE="text/css">
	<!--
	body {OVERFLOW:scroll;OVERFLOW-X:hidden}
	#dek {POSITION:absolute;TOP:100;LEFT:100;VISIBILITY:visible;Z-INDEX:200;width:450;}
	//-->
</STYLE>

<SCRIPT TYPE="text/javascript">
<!-- Written by: David Harris (dharris@drh.net) -->
<!--

var popwidth = 450;
var location_x = 100;
var location_y = 100;

var nav,old,iex=(document.all);
var hide_box_to_side = 0;

if(navigator.appName=="Netscape")
{
	(document.layers)?nav=true:old=true;
}

if( !iex && !nav )
{
	old = 1;
}

var box_html_prefix = (''
+ "<table width="+popwidth+" border=0 cellpadding=1 cellspacing=0 bgcolor=black><tr><td>"
 + "<table width='100%' border=0 cellpadding=0 cellspacing=0><tr><td bgcolor='#5456A2'>"
  + "<table border=0 cellpadding=4 cellspacing=0><tr><td><font face='helvetica,arial' size=2 color=white>"
   + "<b>Processing your request...</b>"
  + "</font></td></tr></table>"
 + "</td></tr><tr><td bgcolor=dddddd valign=top>"
  + "<table width='100%' border=0 cellpadding=4 cellspacing=0><tr><td height=150 valign=top>"
   + "<font color=black face=verdana size=2>"
);

var box_html_postfix = (''
   + "</font>"
  + "</td></tr><tr><td align=right>"
   + "<font color=black face=verdana size=2>"
    + "[<a onclick='close_box_link(); return false;' href='javascript:close_box_link()'>close box</a>]"
   + "</font>"
  + "</td></tr></table>"
 + "</td></tr></table>"
+ "</td></tr></table>"
);

var box_welcome_message = "initializing progress box...";

var box_newline = nav ? "\n" : "<br>";

function box_get_html (nav,message)
{
	if (nav) {
		return(''
		+ box_html_prefix
		+ '<form name=status_form><font size="+0"><textarea name=status_content cols=35 rows=8 wrap=virtual>'
		+ message
		+ '</textarea></font></form>'
		+ box_html_postfix
		);
	} else {
		return(box_html_prefix + message + box_html_postfix);
	}
}

if(!old)
{
	document.write("<DIV ID=dek>" + box_get_html(nav,box_welcome_message) + "</DIV>");
	var skn=(nav)?document.dek:dek.style;
}

function popup(msg)
{
	if (!old) {
		skn.width = popwidth;
		hide_box_to_side = 0;
		if(nav)
		{
			document.dek.document.status_form.status_content.value = msg;
			skn.visibility = "visible";
		}
		else
		{
			dek.innerHTML = box_get_html(nav,msg);
			skn.visibility = "visible";
		}
		update_box_location();
	}
}

function update_box_location()
{
	skn.left = location_x;
	skn.top = hide_box_to_side ? -1000 : location_y;
}

function kill()
{
	if(!old)
	{
		hide_box_to_side = 1;
		skn.visibility="hidden";
		skn.width=0;
		update_box_location();
	}
}

// this fixes a problem where the first time the box is written in IE
// the height= parameter does not work for some reason
popup(box_welcome_message);
popup(box_welcome_message);

var text_status = '';

var done_ticking = 0;
var ticker_number = 1;

var ticks_on_own;
var timer_needs_restart;
var tick_number;

var auto_close_box = 1;

function append_text(text)
{
	text_status += text;
	popup(text_status);
}

function close_box_link()
{
	if ( done_ticking )
		kill();
}

function start_ticker(msg)
{
	if (old) {
		document.write(msg + ' -- 1');
		tick_number = 1;
	} else {
		ticker_number += 1;
		ticks_on_own = 0;
		timer_needs_restart = 0;
		tick_number = 1;
		append_text(msg + ' -- 1');
		setTimeout('handle_ticker_timeout('+ticker_number+');', 1000);
	}
}

function do_tick()
{
	if (old) {
		tick_number += 1;
		document.write(' ' + tick_number);
	} else {
		ticks_on_own = 0;
		if ( timer_needs_restart ) {
			timer_needs_restart = 0;
			tick_number += 1;
			append_text(' ' + tick_number);
			setTimeout('handle_ticker_timeout('+ticker_number+');', 1000);
		}
	}
}

function finish_ticker(msg)
{
	if (old) {
		document.write(' -- ' + msg + '<br>');
	} else {
		ticker_number += 1;
		append_text(' -- ' + msg + box_newline);
	}
}

function finish_ticking()
{
	if (old) {
		document.write('Done processing your request<p>');
	} else {
		done_ticking = 1;
		if ( auto_close_box ) {
			append_text(box_newline + '(box will close in five seconds)');
			setTimeout('kill();', 5000);
		} else {
			append_text(box_newline + '(click the button below to close this box)');
		}
	}
}

function mark_error()
{
	auto_close_box = 0;
}

function handle_ticker_timeout(orig_ticker_number)
{
	if ( ticker_number == orig_ticker_number && ! done_ticking ) {
		ticks_on_own += 1;
		if ( ticks_on_own > 3 ) {
			timer_needs_restart = 1;
		} else {
			tick_number += 1;
			append_text(' ' + tick_number);
			setTimeout('handle_ticker_timeout('+orig_ticker_number+');', 1000);
		}
	}
}

//-->
</SCRIPT>

EOT

}