#!/usr/bin/perl
############################################################################################
#
#  Banner Display - 01/Apr/98
#
############################################################################################

if (!$ENV{REQUEST_METHOD}) {$DEBUG = 1;}
if (!$DEBUG) {
	$baseSite = "e:/worksite"; 
}
else {
	$baseSite = "/home/mirab/Public";
}

push (@INC, "$baseSite/cgi-bin");
require "cgilocal.pl5";
&Parse;

### GLOBALS ################################################################################
$glHTMLTemplate = "$baseSite/cgi-bin/banner.html";

&ValidateInput;
&ReturnNextBanner;

sub ValidateInput {
	if ($parse{count} !~ /\d+?/ and $parse{count} ne "<!--%COUNT%-->" and $parse{count} != "") {
		&Error("Invalid Input", "count is not a number, current value of count is $parse{count}");
	}
}

sub ReturnNextBanner {
	my $nextCount;
	if ($parse{count} ne "" or $parse{count} and $parse{count} ne "<!--%COUNT%-->") {
		&IncreaseCounter;
	}

	$nextCount = $parse{count}+1;
	&Header;
	&PrintFile ($glHTMLTemplate, "<!--%COUNT%-->", $nextCount);
}

sub IncreaseCounter {
}