callagent: Add the AUEP command..
This commit is contained in:
parent
a50bb20cdb
commit
868399d80c
|
@ -31,6 +31,13 @@ Object subclass: MGCPCommand [
|
|||
yourself
|
||||
]
|
||||
|
||||
MGCPCommand class >> create: anEndpoint transId: aTransId [
|
||||
^ (self new)
|
||||
transactionId: aTransId;
|
||||
endpoint: anEndpoint;
|
||||
yourself
|
||||
]
|
||||
|
||||
verb: aVerb [
|
||||
<category: 'private'>
|
||||
verb := aVerb.
|
||||
|
@ -78,7 +85,7 @@ Object subclass: MGCPCommand [
|
|||
cr; nl.
|
||||
|
||||
"write the parameters"
|
||||
params do: [:each |
|
||||
self params do: [:each |
|
||||
out
|
||||
nextPutAll: each;
|
||||
cr; nl.
|
||||
|
@ -138,3 +145,14 @@ MGCPCommand subclass: MGCPDLCXCommand [
|
|||
yourself
|
||||
]
|
||||
]
|
||||
|
||||
MGCPCommand subclass: MGCPAUEPComamnd [
|
||||
<comment: 'I represent an AUEP message'>
|
||||
<category: 'MGCP-Callagent'>
|
||||
|
||||
MGCPAUEPComamnd class >> createAUEP: anEndpoint transId: aTransId [
|
||||
^ (self create: anEndpoint transId: aTransId)
|
||||
verb: 'AUEP';
|
||||
yourself
|
||||
]
|
||||
]
|
||||
|
|
Reference in New Issue