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