or download this
#!/usr/bin/perl -w
use strict;
...
08:17:21.479 ( 1528: 4132) [TMS] CCallEntryMsg::WriteCallData - valid
+ating CDR privacy for Call="00b0001288b4da335dc0010491ad632", partyID
+="2717", CtrlPartyID=""
08:17:21.479 ( 1528: 4132) [TMS] CCallEntryMsg::WriteCallData - EndOf
+List: after 3 entries, hr=0xC1170A2E
08:17:21.640 ( 1528: 4112) [TMS] NccDtcpMsgLegState : Processing L
+eg State Event