# ATSlog version 2.1.1 build 664 www.atslog.com  
# 
# VENDOR: Panasonic
# MODELS: KX-TD1232-RU
# AUTHOR: Alex Samorukov
# COMMENTS: Russian FirmWare
#
# TESTLOG: Panasonic KX-T1232-RU.txt
#
# Library for the Panasonic KX-TD1232 with russian firmware support. 
#
#
# (c) Alex Samorukov, samm@os2.kiev.ua, 2006
#


sub parsecurcalls() {
	while ($str=<PBX_DATA>)
	{
		$stringNumber++;
		# regexp
		if ($str =~ /(\d{2}\/\d{2}\/\d{2}) (.{2}:\d{2}.{2})   (\d{3}) (\d{2}) (.{30}) (\d{2}:\d{2}\'\d{2}) (.{10}) (.{2}) (\r)?$/){
			unitecurcalls();
		}else{
			if ($vars{debug} =~ /yes/i){
				if ($str !~ /^$/){
					print $str;
				};
			};
		};
	};
};

sub unitecurcalls() {
	$date=$1;
	$time=$2;
	$ext_number=$3;
	$line=$4;
	$dialed_number=$5;
	$call_duration=$6;
	$business_code=$7;
	$mode=$8;
	
	# mandatory fields
	#$TimeOfCall
	#$Forwarded
	#$Internally
	#$CO
	#$Way
	#$Number
	#$Duration
	# bonus
	# $Code
	$co=$line;
	
	
	if ($dialed_number=~/(\d+)/) 
	{
		$number=$1;
	}
	else {
		$number=0;
	}

	if($dialed_number =~ /<INCOMING>|<BXO„Ÿ™ˆ‰>/){
		$way='1';
	}else{
		$way='2';
	};
	
	if ($time=~(/(\d+):(\d{2})(.{2})/)) {
		$CallHour=&AmPmTo24($1,$3);
		$time=$CallHour.":".$2;
	}
	if ($date=~(/(\d{2})\/(\d{2})\/(\d{2})/)) {
		$Month=$1;
		$Day=$2;
		$Year=$3+2000;
		$timeofcall = "$Year-$Month-$Day $time:00";
	}
	
	
	$internally=$ext_number;
	if ($call_duration=~(/(\d{2}):(\d{2})\'(\d{2})/)) {
		$duration = (($1*60*60)+($2*60)+$3);
	}
	
	if($mode=~/(TR|FW|�P)/){
		$forwarded=1;
	}
	else {
		$forwarded =0;
	}
	
	$forwarder=0;
	
	if($business_code=~/(\d+)/){
		$code=$1;
	}
	else {
		$code=0;
	}
	if ($timeofcall ne ""){
		# We need to check that we had records for database
		$callsCount++;
	}
	
	#print("INSERT INTO calls (timeofcall, forwarded,internally,co,way,number, duration) VALUES  ('$timeofcall', '$forwarded', '$internally', '$co', '$way', '$number', '$duration');\n");
	WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
}

1;