sub SMSBcastCDR 
{
	my @array = @_; 
	foreach my $cdr_file (@array)
	{
		chomp $cdr_file;
		print "file name=$cdr_file\n";
		open (FPO,"$cdr_file") or die "Could not open $cdr_file\n";
		while (my $line = <FPO>)
		{
			#Tue Jun 09 2009 23:00:07.225|user2|KAuser2|2222|919846231229|1520095992858641|TextSMS|2009-Jun-09 23:00:07.225||150|Submitted||231229|0|Success|
			chomp ($line);
			my ($cdr_gen_time,$system_id,$msg_submission_time,$msg_delivery_time,$record_type,$last_failure_reason) = (split /\|/,$line)[0,1,7,8,10,14];
			#2009-Jun-09 23:00:07.225
			my ($year,$mon_txt,$day,$hr) = (split /[-:\s]+/, $msg_submission_time)[0,1,2,3];
			my $statsdate = "$hr:$year-$month_name{$mon_txt}-$day";
			if ($record_type eq "Flood_Control_Check")
			{
				#Mon Jul 19 2010 15:36:15.682
				$msg_submission_time=$cdr_gen_time;
				my ($mon_txt, $day, $year, $hr) =  (split /[-:\s]+/,$cdr_gen_time)[1,2,3,4];
				$statsdate = "$hr:$year-$month_name{$mon_txt}-$day";
			}
			#print "$record_type:$statsdate\n";
			if ($msg_submission_time ne "")
			{
				push (@date_list,$statsdate) unless $seen{$statsdate}++;
			}
			else
			{
				my ($txtdate, $time) = split(/\ /,$msg_delivery_time);
				my ($year,$mon_txt,$day) = split(/\-/,$txtdate);
				my $mon = $month_name{$mon_txt};
				my ($hr,$min,$sec) = split(/\:/,$time);
				$statsdate = "$hr:$year-$mon-$day";
				if ($msg_delivery_time ne "")
				{
					push (@date_list,$statsdate) unless $seen{$statsdate}++;
				}
			}
			$hour_info{$statsdate}{$hr}=0;
			$system_id_info{$statsdate}{$system_id} = 0;
			if ($record_type eq "Submitted")
			{
				$sub_data{$statsdate}{$system_id} ++;
				$sub_data{$statsdate}{'all'} ++;
			}
			elsif($record_type eq "DND_Check" || $record_type eq "Filter_Check" || $record_type eq "Special_Character_Check" || $record_type eq "Message_Length_Check" || $record_type eq "Invalid_Message" || $record_type eq "NID_Check" || $record_type eq "Mobile_No_Check" || $record_type eq "Flood_Control_Check")
			{
				push (@rej_error_list,$last_failure_reason) unless $rej_seen{$last_failure_reason}++;
				$rej_data{$statsdate}{$system_id} ++;
				$rej_data{$statsdate}{'all'} ++;
				$bcast_errcnt{$statsdate}{$system_id}{$last_failure_reason}++;
				$bcast_errcnt{$statsdate}{'all'}{$last_failure_reason}++;
			}
			elsif($record_type eq "SubmitResp")
			{
				if ($last_failure_reason ne "Success")
				{
					push (@rej_error_list,$last_failure_reason) unless $rej_seen{$last_failure_reason}++;
					$smsc_rej_data{$statsdate}{$system_id} ++;
					$smsc_rej_data{$statsdate}{'all'} ++;
					$bcast_errcnt{$statsdate}{$system_id}{$last_failure_reason}++;
					$bcast_errcnt{$statsdate}{'all'}{$last_failure_reason}++;
				}
			}
		}
		close (FP);
		`mv $cdr_file $bcastdir`;
	}
}

##</code><code>##

sub SMSCDR 
{
	my @array = @_;
	foreach my $cdr_file (@array)
	{
		chomp $cdr_file;
		print "File:::::: $cdr_file",$/;
		open (FPS,"$cdr_file") or die "Could not open $cdr_file\n";

		while (my $line = <FPS>)
		{
			chomp ($line);
			my (
					$msg_submission_time,#5
					$status,#8
					$record_type,#10
					$last_failure_reason,#12
					$orig_interface,#13
					$dcs,#15
					$segment_number ,#23
					$system_id ,#56
			   )= (split /\|/,$line) [4,7,9,11,12,14,22,55];
#Wed Jun 10 16:58:58 2009
			my ($mon_txt,$day,$hr,$year) =  (split /[-:\s]+/,$msg_submission_time)[1,2,3,6];
			my $statsdate = "$hr:$year-$month_name{$mon_txt}-$day";
#print "statsdate :$statsdate\n";
			push (@date_list,$statsdate) unless $seen{$statsdate}++;
			$hour_info{$statsdate}{$hr}=0;
			if (($orig_interface eq "SMPP") && ($record_type eq "Submit"))
			{
				my ($segment_no,$x) = split (/\//,$segment_number);
				if ((lc($segment_no) eq "none") || ($dcs eq "8") || ($dcs eq "16") || (($dcs eq "ASCII") && ($segment_no eq "1")))
				{
					$system_id_info{$statsdate}{$system_id}=0;
					if($sms_sub_data{$statsdate}{$system_id} eq "")
					{
						$sms_sub_data{$statsdate}{$system_id} = 0;
						$del_data{$statsdate}{$system_id} = 0;
						$undel_data{$statsdate}{$system_id} = 0;
						$exp_data{$statsdate}{$system_id} = 0;
					}
					$sms_sub_data{$statsdate}{$system_id} ++;
					$sms_sub_data{$statsdate}{'all'} ++;
					if ($status eq "Delivered")
					{
						$del_data{$statsdate}{$system_id} ++;
						$del_data{$statsdate}{'all'} ++;
						if ($last_failure_reason eq "SMSC_no_error")
						{
							$last_failure_reason = "First_Attempt_Delivered";
						}
						else
						{
							$last_failure_reason = "Delivered_After_Retry";
						}
						$del_errcnt{$statsdate}{$system_id}{$last_failure_reason} ++;
						$del_errcnt{$statsdate}{'all'}{$last_failure_reason} ++;
					}
					elsif ($status eq "Expired")
					{
						$exp_data{$statsdate}{$system_id} ++;
						$exp_data{$statsdate}{'all'} ++;
						push (@exp_rej_error_list,$last_failure_reason) unless $exp_seen{$last_failure_reason}++;
						$exp_errcnt{$statsdate}{$system_id}{$last_failure_reason} ++;
						$exp_errcnt{$statsdate}{'all'}{$last_failure_reason} ++;
					}
					else
					{
						$undel_data{$statsdate}{$system_id} ++;
						$undel_data{$statsdate}{'all'} ++;
						push (@undel_rej_error_list,$last_failure_reason) unless $undel_seen{$last_failure_reason}++;
						$undel_errcnt{$statsdate}{$system_id}{$last_failure_reason} ++;
						$undel_errcnt{$statsdate}{'all'}{$last_failure_reason} ++;
					}

				}
			}
		}
		close (FP);
		`mv $cdr_file $smscdr_archive_directory`;
	}
}