blob: e2185670cb4c9e0ea735c8d664fb6b885dbbd590 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
st> transport := SIPUdpTransport startOn: '172.16.254.33'.
st> useragent := SIPUserAgent createOn: transport.
st> transport start.
"Create a call"
st> sdpfile := nil.
st> call := SIPCall fromUser: 'sip:1000@on-waves.com' host: '172.16.1.72' port: 5060 to: 'sip:9198@172.16.1.72' on: useragent
st> call createCall: sdpfile.
st> stdin next
"Try to hangup an active call"
st> call hangup
"Try to cancel a non active call"
st> call cancel
"Try to terminate either by hangup or by cancel"
st> call terminate
|
