sub RrdTimeLoop
{
	my $self = @_;

#	foreach my $eventName (sort keys %VAR::CDR_EVENT_COUNT)
#	{
#		print $eventName . "\n";
#		my $startTime = $VAR::CDR_FIRST_EVENT_TIME{$eventName};
#		my $endTime = $VAR::CDR_LAST_EVENT_TIME{$eventName};
#		print $startTime . "\n";
#		print $endTime . "\n";
#		
#		for (my $i = $startTime; $i < $endTime; $i = $i + 86400)
#		{
#			if($VAR::CDR_EVENT_COUNT{$eventName}{$i})
#			{
#				next;
#			}
#			else
#			{
#				
#				$VAR::CDR_EVENT_COUNT{$eventName}{$i} = 0;
#			}
#		}
#	}


foreach my $eventName (sort keys %VAR::CDR_EVENT_COUNT)
{
		print $eventName . "\n";
		my $startTime = $VAR::CDR_FIRST_EVENT_TIME{$eventName};
		my $endTime = $VAR::CDR_LAST_EVENT_TIME{$eventName};
		print $startTime . "\n";
		print $endTime . "\n";
		my $loopTime = $startTime;
		while ($loopTime < $endTime)
		{
			if ($VAR::CDR_EVENT_COUNT{$eventName}{$loopTime})
			{
				$loopTime = $loopTime + 86400;
			}
			else
			{
				$VAR::CDR_EVENT_COUNT{$eventName}{$loopTime} = 0;
				$loopTime = $loopTime + 86400;
			}
			
		}		
		
}



	return 1;
}