#!/usr/bin/perl -w

no warnings qw(uninitialized);

use TAP3::Tap3edit;
use Data::Dumper;

printDir(".");

sub printDir {

    opendir(DIR, $_[0]);

    local(@files);
    local(@dirs);

    (@files) = readdir(DIR);

    foreach $file (@files) {

        if (-f $file and substr($file,0,2) eq "CD" ) {

            my $tap3 = TAP3::Tap3edit->new;

            my $tap_file = $file;
            $tap3->decode($tap_file) or die $tap3->error;

            my $struct=$tap3->structure;
            my $Tracker = $struct->{'transferBatch'};

            if (defined $Tracker) {

                my $rectag = $struct->{'transferBatch'}->{'networkInfo'}->{'recEntityInfo'};

                map { $_->{'recEntityType'} = 4 if ( $_->{'recEntityType'} > 6) } @$rectag;

                my $calleventtag = $struct->{'transferBatch'}->{'callEventDetails'};

                my @indexes = reverse (grep { exists $calleventtag->[$_]->{'supplServiceEvent'} } 0..$#$calleventtag);

                my $sup_event_cnt = $#indexes;

                foreach my $index (@indexes) {
                    splice (@$calleventtag , $index,1);
                }

                my $total_events_cnt = $struct->{'transferBatch'}->{'auditControlInfo'}->{'callEventDetailsCount'};
                $struct->{'transferBatch'}->{'auditControlInfo'}->{'callEventDetailsCount'} = $total_events_cnt - $sup_event_cnt-1;

                if ( exists $struct->{'transferBatch'}->{'batchControlInfo'}->{'operatorSpecInformation'} ) {
                    delete $struct->{'transferBatch'}->{'batchControlInfo'}->{'operatorSpecInformation'};
                }

                if ( exists $struct->{'transferBatch'}->{'auditControlInfo'}->{'operatorSpecInformation'} ) {
                    delete $struct->{'transferBatch'}->{'auditControlInfo'}->{'operatorSpecInformation'};
                }

                foreach (0..$#$calleventtag) {

                    # 1st next if
                    next if ( ! exists $calleventtag->[$_]->{'mobileOriginatedCall'});

                    if ( exists $calleventtag->[$_]->{'mobileOriginatedCall'}->{'basicCallInformation'}->{'destinationNetwork'} ) {
                        delete $calleventtag->[$_]->{'mobileOriginatedCall'}->{'basicCallInformation'}->{'destinationNetwork'};
                    }

                    if (
                        exists $calleventtag->[$_]->{'mobileOriginatedCall'}->{'basicCallInformation'}->{'chargeableSubscriber'}->{'simChargeableSubscriber'}->{'msisdn'}
                        && $calleventtag->[$_]->{'mobileOriginatedCall'}->{'basicCallInformation'}->{'chargeableSubscriber'}->{'simChargeableSubscriber'}->{'msisdn'} !~ m/^5519/
                    ) {
                        delete $calleventtag->[$_]->{'mobileOriginatedCall'}->{'basicCallInformation'}->{'chargeableSubscriber'}->{'simChargeableSubscriber'}->{'msisdn'};
                    }

                    if (
                        exists $calleventtag->[$_]->{'mobileOriginatedCall'}->{'camelServiceUsed'}
                        && $calleventtag->[$_]->{'mobileOriginatedCall'}->{'camelServiceUsed'}->{'camelServiceKey'} != 80
                    ) {
                        delete $calleventtag->[$_]->{'mobileOriginatedCall'}->{'camelServiceUsed'};
                    }

                    ## 2th next if
                    next if (! exists $calleventtag->[$_]->{'gprsCall'});

                    if ( exists $calleventtag->[$_]->{'gprsCall'}->{'gprsBasicCallInformation'}->{'gprsDestination'}->{'accessPointNameOI'} ) {
                        delete $calleventtag->[$_]->{'gprsCall'}->{'gprsBasicCallInformation'}->{'gprsDestination'}->{'accessPointNameOI'};
                    }

                }


                $tap3->encode("$tap_file")  or  die $tap3->error;
            }

        }

    }

    closedir(DIR);
}