diff --git a/callagent/MGCPTransaction.st b/callagent/MGCPTransaction.st index f38efba..517073d 100644 --- a/callagent/MGCPTransaction.st +++ b/callagent/MGCPTransaction.st @@ -156,10 +156,23 @@ MGCPTransactionBase subclass: MGCPTransaction [ ^ self sendData ] + startSingleShot [ + + state := self class stateStarted. + self started. + + ^ self sendDataDirect + ] + sendData [ - | datagram | self startRetransmitTimer. + self sendDataDirect + ] + + sendDataDirect [ + + | datagram | datagram := Sockets.Datagram data: (command asDatagram) address: (Sockets.SocketAddress byName: endpoint trunk destIp)