# ATSlog version 2.1.1 build 664 www.atslog.com  
# 
# VENDOR: Panasonic
# MODELS: KX-TD1232,KX-TDA600
# AUTHOR: Denis CyxoB, Alex Samorukov
#
# TESTLOG: Panasonic KX-TD1232.txt
# TESTLOG: Panasonic KX-TD1232 (P271F).txt
# TESTLOG: Panasonic KX-TD1232 (P271F)_2.txt
# TESTLOG: Panasonic KX-TDA600.txt
#
sub parsecurcalls() {
	while ($str=<PBX_DATA>)
	{
		$stringnumber++;
		if ($str =~ /(\d{2})\/(\d{2})\/(\d{2}) (\d{2})\:(\d{2})(.{2}) (.{5}) (\d{2}) (.{25}).{5} (\d{2}):(\d{2})\'(\d{2}) (.{10}) (.{2})/){
			unitecurcalls();
		}else{
			if ($vars{debug} =~ /yes/i){
				if ($str !~ /^\s*$/){
					print $str;
				};
			};
		};
	};
};

sub unitecurcalls() {
	my $Day='';my $Month='';
	# TDA600 has dd/mm/yy format
	if($vars{model} eq 'KX-TDA600'){
		$Day=$1;
		$Month = $2;
	}
	else { # 1232 has mm/dd/yy format
		$Month = $1;
		$Day=$2;
	}
	my $Year=$3+2000;
	
	my $code=$13;
	
	my $CallHour=&AmPmTo24($4,$6);
	
	if($14 eq 'FW' or $14 eq 'TR'){
		$forwarded =1;
	}else{
		$forwarded =0;
	};
	
	$CallMinute=$5;
	
	$internally=$7;
	
	$co=$8;
	
	$duration = (($10*60*60)+($11*60)+$12);
	$forIncoming=$9;
	
	$earlyIncoming=$10;
	
	$timeofcall = "$Year-$Month-$Day $CallHour\:$CallMinute\:00";
	
	if($forIncoming =~ /<I(NCOMING)?>\s*/i){
		$way='1';
		if ($forIncoming=~/(\d+)/) 
		{
			$number=$1;
		}
		else {
			$number=0;
		}
	}else{
		$way='2';
		$number=$forIncoming;
		if ($forIncoming=~/([\d*#P]+)/) 
		{
			$number=$1;
		}
		
	};
	
	if ($timeofcall ne ""){
		$callsCount++;
	}
	#print("$stringnumber $timeofcall $forwarded $internally $co $way $number $duration\n");
	WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
}

1;