#!/usr/bin/perl -w


$[ = 1;                 
$, = ',';               
$\ = "\n";              



if (! open CDR_DETAILS, "cdr_details.1") {
    die "couldn't open cdr_details.1: $! ";
    }

open CDR_TDM, ">cdr_tdm.csv";

$XDRFILE="DUMMY";

while (<CDR_DETAILS>) {
	chomp;
	@ITEM = split(',',$_,9999);
	$r++;
	print "Record number: $r";
	$i=0;
	$CDRDATE = $ITEM[1];
	print "CDRDATE: $CDRDATE";
	$CDRTIME = $ITEM[2];
	$CDRTIME =~ s/^0*//g;
	if ($CDRTIME le "0") { $CDRTIME="0"; }
	print "CDRTIME: $CDRTIME";
	$CLI1 = $ITEM[3];
	print "CLI1: $CLI1";
	$CLI2 = $ITEM[7];
	print "CLI2: $CLI2";
	if ( $ITEM[8] ne $XDRFILE) {
	    print "$ITEM[8]!= $XDRFILE opening file!";
	    $XDRFILE = $ITEM[8];
	
	    if (! open XDR, "$XDRFILE") {
		die "couldn't open $XDRFILE :$!";
	    }
         }
	
		
	
	foreach (<XDR>) {
     		chomp;      
    		@Fld = split(',', $_, 9);
    
    		if ($Fld[2] eq ${CDRDATE} && $Fld[3] eq ${CDRTIME} && $Fld[5] eq ${CLI1} && $Fld[7] eq ${CLI2}) {
        	select CDR_TDM;
		print $_;
		select STDOUT;
	
    }
}
	seek XDR,0,0;
}