spider tcl脚本编写

 

Logic MGCP_CALL { PCO_CALLER PCO_CALLEE } {

    PCO_CALLER {

        #发起摘机信号
        SendNTFY { SET O L/HD }
        #接收响应.这里接收的响应消息名为200
        RecvNTFY200
        #接收拨号数图,这里可以添加对接收消息中各个节点值的校验
        RecvRQNT { CHK D == "(XXXXXXXX)" }
        #调用底层AW发送响应
        SendRQNT200
        #主叫拨号
        SendNTFY { SET O %PCO_CALLEE.TeleNumber% }
        RecvNTFY200
        RecvRQNT
        SendRQNT200
        #设置监控点
        SetEvent 01
        RecvCRCX { CHK M == "RECVONLY" }
        SendCRCX200 -SDP
        #主叫听回铃音
        RecvRQNT { CHK S == "G/RT" }
        SendRQNT200
        WaitEvent 02
        #主被叫建立通话
        RecvMDCX { CHK M == "SENDRECV" }
        SendMDCX200 -SDP
    }

    PCO_CALLEE {

        #回应监控点