#!/usr/bin/perl

# top stats
#
# CPU TTY     PID USERNAME PRI NI   SIZE    RES STATE    TIME %WCPU  %CPU COMMAND
#  3 pts/12 13833 me   241 20 30444K 18760K run      0:13 52.90 39.85 perl
#  3 pts/12 13833 me   241 20 45036K 33356K run      0:27 62.02 56.93 perl
#  0 pts/12 13833 me   241 20 48748K 37116K run      1:34 78.13 77.99 perl
#  3 pts/12 13833 me   241 20 53996K 42364K run      5:40 71.00 70.88 perl
#  3 pts/12 13833 me   241 20 72172K 60460K run     44:38 72.95 72.83 perl
# 
# Some file stats
# 
# -rw-r--r--   1 me     mine        2100352 May 12 11:47 mineOut
# -rw-r--r--   1 me     mine         221005 May 12 12:56 mineoutput.converted.to.other
# 
# -rw-r--r--   1 me     mine        2100352 May 12 11:47 mineOut
# -rw-r--r--   1 me     mine         239670 May 12 12:57 mineoutput.converted.to.other
# 
# -rw-r--r--   1 me     mine        2100352 May 12 11:47 mineOut
# -rw-r--r--   1 me     mine         261315 May 12 12:58 mineoutput.converted.to.other
# 
# -rw-r--r--   1 me     mine        2100352 May 12 11:47 mineOut
# -rw-r--r--   1 me     mine         989435 May 12 13:59 mineoutput.converted.to.other
#
# Thoroughput is around 18665 bytes to 21645 bytes per min -> ~20kb/min
# At this rate  2100352 bytes output will take 113 mins !
# Reality check : 728120 bytes in 1 hour (from 12:58 to 13:59) : 728120 / 60 = 12135 bytes / min -> ~10kb/min   

use strict;
use warnings;

use Tie::File;

use Data::Dumper;

# open an existing file in read-only mode
use Fcntl 'O_RDONLY';

# Unfortunately it seems, mine and other field names are different. Hence, we create a map between the two and replace the mine field name with the other one whereever available 
# This is how you do the mapping
# mine 																	<-> 									other
# If your mine and other field names are same, keep this mapping empty

our %fieldNameMapping = ();
#	qw(
# 	MSC_CDR_TYPE 																								RECORD_TYPE
# 	MSC_CDR_SEQ_NUM																							callIdentificationNumber
# 	MSC_CDR_REFER_NUM																						networkCallRef 
# 	MSC_CALL_START_TIME																					start_date_time_format
#   MSC_CALL_DURATION																						charge_duration_secs
#   MSC_PARTIAL_TYPE 																						msc_partial_type
#   AX_FIRST_CALLED_LOC_INFO																		firstCalledLocInformation
#	);
  # Put the remaining fields

our @array;
tie @array, 'Tie::File', 'inp', memory => 50_000_000, mode => O_RDONLY, recsep => "\n" or die $!;

our @arrayOfother = ();
tie @arrayOfother, 'Tie::File', 'mineoutput.converted.to.other' or die $!;

our $dx = 0;

our $recordID = 0;

our $recordHeader = undef;
our %recordBodyToWriteOut = ();
our $recordTrailer = undef;

for($dx = 0; $dx < @array; ++$dx)
{
	#if($array[$dx++] =~ /Level \(([0-9]+)\) "([^"]+)"/)
	if($array[1 + $dx] =~ /Level \(1\) "([^"]+)"$/)
	{
		if($array[2 + $dx] =~ /Level \(2\) "([^"]+)"$/)
		{
			if($array[3 + $dx] =~ /Record \(([0-9]+)\) "([^"]+)"$/)
			{
				$recordID = $1;
				print STDERR "[*]Got record type $2, number $recordID\n";
				
				# Write out the record in other format until we get end of record
				
				$dx += 3;
				
				#print "RECORD\n";
				$recordHeader = "RECORD\n"; # First value in the header
				
				$recordHeader .= "#addkey\n#filename FF\n#input_id 001\n";
				
				%recordBodyToWriteOut = (); # Reset the record body

					do
					{
						if($array[$dx++] =~ /"([^"]+)" = "([^"]+)"$/)
						{
							if($1 eq 'MSC_CDR_TYPE')
							{
								$recordHeader .= "#input_type $2\n#output_id\n#output_type $2\n#source_id SRC\n";
							}
							
							if(exists($fieldNameMapping { $1 }))
							{
								#print "F " . $fieldNameMapping { $1 } . " $2\n";
								$recordBodyToWriteOut { $fieldNameMapping { $1 } } = $2; 
							}
							else
							{
								#print "F $1 $2\n";
								$recordBodyToWriteOut { $1 } = $2;
							}
						}
					}

					until(
						($array[1 + $dx] =~ /End of Record \(${recordID}\)$/)
						&&
						($array[2 + $dx] =~ /End of Level \(2\)$/)
						&&
						($array[3 + $dx] =~ /End of Level \(1\)$/)
					);

					$recordTrailer = ".\n";  # First value in the Trailer
					
					$dx += 2;
					
					# Now write out the header, fields and trailer
					#print $recordHeader;
					push @arrayOfother, $recordHeader;

					# We want the fields to come out in sorted order
										
					foreach my $key (sort keys %recordBodyToWriteOut)
					{
						#print "F $key " . $recordBodyToWriteOut { $key } . "\n";
						push @arrayOfother, "F $key " . $recordBodyToWriteOut { $key } . "\n"; 
					}

					#print $recordTrailer;
					push @arrayOfother, $recordTrailer;
			}
		}
	}
}