// Cisco

Temp :=;
Temp1 :=;
Temp2 :=;

RECORD := 
CallerId=""
Dialed=""
    Temp1 = instruntil (",") // 1.
    ","
    Temp = instruntil (",") // 2.
    ","
    Temp = instruntil (",") // 3.
    ","
    Temp = instruntil (",") // 4.
    ","
    Temp = instruntil (",") // 5.
    ","
    Temp = instruntil (",") // 6.
    ","
    Output = instruntil (",") // 7.
    ","
    Temp = instruntil (",") // 8.
    ","
    Temp = instruntil (",") // 9.
    ","

    Input = substr(Temp,2,strlen(Temp)-1)

    Temp = instruntil (",") // 10.
    ","
    Temp = instruntil (",") // 11.
    ","
    Temp = instruntil (",") // 12.
    ","
    Temp = instruntil (",") // 13.
    ","
    Temp = instruntil (",") // 14.
    ","
    Temp = instruntil (",") // 15.
    ","
    Temp = instruntil (",") // 16.
    ","
    Temp = instruntil (",") // 17.
    ","
    Temp = instruntil (",") // 18.
    ","
    Temp = instruntil (",") // 19.
    ","
    Temp = instruntil (",") // 20.
    ","
    Temp = instruntil (",") // 21.
    ","
    Temp = instruntil (",") // 22.
    ","
    Temp = instruntil (",") // 23.
    ","
    Temp = instruntil (",") // 24.
    ","
    Temp = instruntil (",") // 25.
    ","
    Temp = instruntil (",") // 26.
    ","
    Temp = instruntil (",") // 27.
    ","
    Temp2 = instruntil (",") // 28.
    ","
    Temp = instruntil (",") // 29.
    ","
    Temp = instruntil (",") // 30.
    ","

    Dialed = substr(Temp,2,strlen(Temp)-1)

    Temp = instruntil (",") // 31.
    ","
    Temp = instruntil (",") // 32.
    ","
    Temp = instruntil (",") // 33.
    ","
    Temp = instruntil (",") // 34.
    ","
    Temp = instruntil (",") // 35.
    ","
    Temp = instruntil (",") // 36.
    ","
    Temp = instruntil (",") // 37.
    ","
    Temp = instruntil (",") // 38.
    ","
    Temp = instruntil (",") // 39.
    ","
    Temp = instruntil (",") // 40.
    ","
    Temp = instruntil (",") // 41.
    ","
    Temp = instruntil (",") // 42.
    ","
    Temp = instruntil (",") // 43.
    ","
    Temp = instruntil (",") // 44.
    ","
    Temp = instruntil (",") // 45.
    ","
    Temp = instruntil (",") // 46.
    ","
    Temp = instruntil (",") // 47.
    ","
    Temp1 = instruntil (",") // 48.dateTimeConnect
    ","

    StartUnixTime = atoi (Temp1)
    //StartUnixTime = StartUnixTime - 4*60*60

    //DurHour = 0
    //DurMinute = 2
    //DurSecond = 19

    Temp = instruntil (",") // 49.dateTimeDisconnect
    ","
    Temp = instruntil (",") // 50.
    ","
    Temp = instruntil (",") // 51.
    ","
    Temp = instruntil (",") // 52.
    ","
    Temp = instruntil (",") // 53.
    ","
    Temp = instruntil (",") // 54.
    ","
    Temp = instruntil (",") // 55.
    ","
    DurSecond = atoi(instruntil (",")) // 56.
    ","
    Temp = instruntil ("\x0a") // 57.
    "\x0a"


if (strlen(Dialed)==4)&&((strlen(Input)>4)||(strlen(Input)==0)) then
{
    CallerId=Input
    Input=Output
    Output=Dialed
    Dialed=""
    InputTrunk = 1
    OutputTrunk = 0
}
else if (strlen(Dialed)==4)&&(strlen(Input)==4) then
{
    Output=Dialed
    Dialed=""
    InputTrunk = 0
    OutputTrunk = 0
}
else
{
    Output=Temp2
    InputTrunk = 0
    OutputTrunk = 1
}

if Temp1 == 0 then
{SKIP}
else 
{WRITE}
;


goal := RECORD;