##!/apps/cci/perl/bin/perl
use strict;
use warnings;

#&wantMeToWhat(); #default to __DATA__ section for test cases.

open my $BEFORE,'>','/tmp/before.txt' or die $!;
open my $AFTER, '>','/tmp/after.txt'  or die $!;

my $accountNumber;

#while(<>) {  #read from files named as args or from STDIN or die.
while(<DATA>) {  #default to __DATA__ section
    chomp;
    my($arrival,$type,$ip,$creation,$bSess,$uow,@data)=split /\|/;
    next unless defined $uow and $uow ne '';

    print $BEFORE "$_\n";

    if (($type==8) or ($type==90)) {

        if ($type==8) {
            my($lkupType,$status,$duration,$reqResp,$tDur,$tin,$ecn,$acctNum)=@data;

            if ($acctNum=~/~/) {
                $acctNum=&fixAcctNum($acctNum);
                $_=join('|',$arrival,$type,$ip,$creation,$bSess,$uow,
                        $lkupType,$status,$duration,$reqResp,$tDur,$tin,$ecn,$acctNum,@data);
            }
        }

        if ($type==90) {
            my($acctNumSource,$acctNumber,$pin,$TIN,$cardNumber,@data)=@data;

            if ($acctNumber=~/~/) {
                $acctNumber=&fixAcctNum($acctNumber);
                $_=join('|',$arrival,$type,$ip,$creation,$bSess,$uow,
                        $acctNumSource,$acctNumber,$pin,$TIN,$cardNumber,@data);
            }
        }
    }

    print $AFTER "$_\n";
}
close $BEFORE;
close $AFTER;

sub wantMeToWhat { die "pick a file and try again" if -t STDIN and not @ARGV; }

sub fixAcctNum {
    my $acct=$_[0];
    die "no acct" unless defined $acct and $acct ne '';
    $acct=~s/^.*([0-9]{16})$/$1/;
    return $acct;
}


__DATA__
1335252516|8|98.13.72.94|1335252516|/iSrt7cSmcHblzMmij9hWQ==|arb-ls-app45.wellsfargo.com:279e749d:136e1723194:2e77|6|s|9907|getCustomerInformation= = 742,getCustomer and searchParty  = 813, = 815,listProductsForCustomersand getBillPaymentService and listBankingAccessRelationshipsForCustomer = 212,aps/GetXaCustomerProfile=122|=2704|609863264|487358798275691|A8273429~Phone Bank~4868272451899601|HV01|N|N|| |PARTY_OF_NEVER_MIND|
1335252505|90|98.13.72.94|1335252505|/iSrt7cSmcHblzMmij9hWQ==|arb-ls-app45.wellsfargo.com:279e749d:136e1723194:2e77|IVR|E1196529~Phone Bank~4868272451899601|YES||4868272451899601|||Yes - IVR|||||||||||HGH||YES|No||||ARMAND MISER|00750208d24a2e03||||||||
1335337373|1|170.13.85.62|1335337373|e+QkVTspO/PLE8VTcF4Rtw==|arb-ls-app46.wellsfargo.com:-3a457cb4:136e6a577b9:575|CIV 72.0 B213|arb-ls-app46.wellsfargo.com|R1212472|SINGH, MI SARILEIAN |9085435|1823472| MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; MS-RTC LM 8|PB1|CRSSUPERVISOR=FALSE|OCS_BOB=FALSE|CRS_WD_OPS=FALSE|Roanoke|portal=false|prod_civ_72.0.7_arm-e|
1335337375|1|170.13.80.172|1335337375|Ztz+podd2LfGqmv+rrgqWg==|arb-ls-app44.wellsfargo.com:58d7efcf:136e8386192:-7c85|CIV 72.0 B213|arb-ls-app44.wellsfargo.com|R1112354|LARELEO, GIN A |1982734|2734526| MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; MS-RTC LM 8|PB1|CRSSUPERVISOR=FALSE|OCS_BOB=FALSE|CRS_WD_OPS=FALSE|Roanoke|portal=false|prod_civ_72.0.7_arm-e|

1335337203|2|98.101.32.12|1335337203|AlrtIfja/Bnn8iao83dAkg==|arb-ls-app43.wellsfargo.com:57577f2e:136e63d3155:5503|LogOff|false|SESSION_TIMED_OUT=true|
1335337203|2|98.40.205.81|1335337203|5prakri1MQVkFkqnaOqh7g==|cci-az-app45.wellsfargo.com:4e190bac:136e62eb160:-45c7|LogOff|false|SESSION_TIMED_OUT=true|

1335337200|28|170.13.86.111|1234578200|YlgK2f750MGF2jUPlD1LBQ==|arb-ls-app44.wellsfargo.com:4caf10f3:136e6531e62:68a2|BEGIN_CALL|true||4828553850489014||008f0208404a5c90|erlm_Over60=n,ecda_AuthType=PHON,ecda_DialedCC=1,RRequestedSkillCombination=,ecda_ANICC=1,ecda_Disp=Agent,PegLB=1,ServiceType=default,ecda_Auth2Tier=Z,RTenant=Phone_Bank,PegAGalabang-cc_PBConsumer=1,erlm_OfferAccepted=N,RVQID=017C6N7SFGFI11JT19DUJALAES08SE7J,ecda_final_cfg_data=mandatory_treatment_list:QA_PleaseHold_English_Cisco><overflow_timeout:14400><overflow_xfer_label:PB_Consumer><preroute_treatment_list:PBConsumer_Cisco><queue_pulse_condition:StatAgentsTotal=0><queue_pulse_seconds:120><queue_pulse_xfer_label:PB_Consumer><route_type:skill><statistic:+StatTimeInReadyState><target_queue:PBConsumer.GA><target_sites:alabang-cc><virtual_queue:alabang-cc_PBConsumer_VQ><origination_resource:AGENT><rp_redirect:><orig_sites:alabang-cc><section_used:alabang-cc_PBConsumer,erlm_skill=pb_consumer,ecda_CallConID=008f0208404a5c90,RTargetRequested=alabang-cc_PBConsumer,erlm_HAMA=n,ecda_Mandatory_Played=Y,ecda_AccessType=,ecda_IVR_DialedNum=8009564442,ecda_ani=4084645883,ecda_final_select=+,CustomerSegment=default,RTargetRuleSelected=,RTargetPlaceSelected=alabang_cc_9995550390,RTargetObjSelDBID=15479,ecda_UUID=213B00F9-1093F21B,RTargetAgentSelected=1196530,ecda_subskill=IVR,ecda_state=CA,xfer_Label=PB_Consumer,ecda_connid=008f0208404a5c90,ecda_Skill_Selected=alabang-cc_PBConsumer,PegTD=2,CBR-contract_DBIDs=,GCS_TransferringAgentName=richmond_ocs_22810,stat_target=alabang-cc_PBConsumer.GQ,CBR-IT-path_DBIDs=,CBR-actual_volume=,RRequestedSkills=  ,RTargetObjectSelected=alabang-cc_PBConsumer,ecda_TargetAlias=alabang-cc_PBConsumer,PegQT=1,ecda_OLT=22,erlm_AuthStatus=N,ecda_skill=pb_consumer,ecda_final_target=return:ok><n:99182983><vq:alabang-cc_PBConsumer_VQ><dn:9995550390><rdn:9995550390><switch:alabang-cc_cisco_i200><agent:1196530><place:alabang_cc_9995550390><target_location:ent_routing_ss_p><target_name:alabang-cc_PBConsumer><target_type:GA><stat_value:2786,ecda_AcctType=PIA,erlm_Extraction=N,ecda_hvc=HV00,previous_xfer_target=richmond-cc_FirstLevel.Q,erlm_PIAaccount=4828553850489014,ecda_OrigAgtBU=erlm,LBR_SNUM=279,LBR_ORIG=252:115,RVQDBID=207033,ecda_BRTrace=8009564442,NOD_OCS_Prod_CCIVR_AllSites,NOD_OCS_Prod_CCIVR_AllSites,m_ocs_OCSGeneral,PB_Consumer,alabang-cc_PBConsumer,RStrategyName=PB_Premise_Logic,CALLID=7B074240B10418ADE14E4400,RTargetTypeSelected=2,ecda_CBVersion=2.5.3f,ecda_AcctNumber=1235482758768714,ecda_ApplId=OCSI,ServiceObjective=,ecda_DialedNum=1234676442,ecda_OrigBU=ocsv,LBR_TS=235671767,PBCallCenter=richmond_ocs,ecda_disp=Agent,ecda_routed=return:ok|n:12354678|vq:alabang-cc_PBConsumer_VQ|dn:1235467390|rdn:1235768390|switch:alabang-cc_cisco_i200|agent:1196530|place:alabang_cc_3456750390|target_location:ent_routing_ss_p|target_name:alabang-cc_PBConsumer|target_type:GA|stat_value:2786,CBR-Interaction_cost=,erlm_COID=297,RStrategyDBID=2126,ecda_VQ=alabang-cc_PBConsumer_VQ,CallCenter=alabang-cc|
1335337201|28|98.47.141.177|1335337201|dbfYbYXc2PqKzYksy17STg==|cci-az-app44.wellsfargo.com:-2e0d4252:136e667f7b8:6463|LOGOUT|true||||||