# ATSlog version 2.1.1 build 664 www.atslog.com
#
# VENDOR: LG
# MODELS: LDK-100,LDK-300,ARIASOHO
# AUTHOR: Alex Samorukov samm@os2.kiev.ua
#
# TESTLOG: LG LDK-300.txt
# TESTLOG: LG LDK-300 with CID.txt
#
# First version was contributed by Sergey K. sak17[at]mail.ru,


sub parsecurcalls() {
    while ($str=<PBX_DATA>)
    {
		$stringNumber++;
		if ($str =~ /(\d{4}) (.{5}) (\d{3}) (\d{2}:\d{2}:\d{2}) (\d{2}\/\d{2}\/\d{2}) (\d{2}:\d{2}) (.{20}) (.{2}) (.{5}) (.{11}) (.{12})/){
			unitecurcalls();
		}else{
			#print("$stringNumber\n");
			if ($vars{debug} =~ /yes/i){
				if ($str !~ /^$/){
					print $str;
				};
			};
        };
    };
};

sub unitecurcalls() {
	my $no=$1;
	my $sta=$2;
	my $co=$3;
	my $call_duration=$4;
	my $date=$5;
	my $time=$6;
	my $dialed_number=$7;
	my $act=$8;
	my $cnt=$9;
	my $cost=$10;
	my $account_code=$11;
	
	
	$co=int($co);
	$forwarded=0;
	
	if ($dialed_number=~/(\d+)/)
	{
		$number=$1;
	}
	else {
		$number=0;
	}
	
	if($dialed_number =~ /^[IG]/){
		$way='1';
		$forwarded=0;
	}
	elsif($dialed_number =~ /^O/){
		$way='2';
		$forwarded=0;
	}
	elsif($dialed_number =~ /^T/){
		$way='2';
		$forwarded=1;
	}
	elsif($dialed_number =~ /^t/){
		$way='1';
		$forwarded=1;
	}
	
	if ($date=~(/(\d{2})\/(\d{2})\/(\d{2})/)) {
		$Month=$2;
		$Day=$1;
		$Year=$3+2000;
		$timeofcall = "$Year-$Month-$Day $time:00";
	}
	
	if ($call_duration=~(/(\d{2}):(\d{2}):(\d{2})/)) {
		$duration = (($1*60*60)+($2*60)+$3);
	}
	
	
	if ($TimeOfCall ne ""){
		$callsCount++;
	}
	
	my $internally=int($sta);
	#print("$timeofcall, $forwarded, $internally, $co, $way, $number, $duration\n");
	WriteRecord($timeofcall, $forwarded, $internally, $co, $way, $number, $duration);
};

1;