#---------------------------------------------------------------------------------------
# Convert supplied date to Epoch time
#---------------------------------------------------------------------------------------
sub toEpoch
{
	my $date = shift;
	my ($epoch, @suppliedTime, @suppliedDate);
	
	my @tempdate = split/\s/, $date;
	@suppliedTime = split/:/, $tempdate[1];
	if (uc($tempdate[0]) eq "EVERY") {
		#print "\t\t**This will return the epoch to this time TODAY**\n";
		$epoch = timelocal(0, $suppliedTime[1], $suppliedTime[0], (localtime)[3], (localtime)[4], ((localtime)[5]+1900));
	}
	else {
		@suppliedDate = split/-/, $tempdate[0];
		$epoch = timelocal(0, $suppliedTime[1], $suppliedTime[0], $suppliedDate[0], ($suppliedDate[1] - 1), $suppliedDate[2]);
	}
	
	return($epoch);
}