"
Simple UDP replay from the state files
"

PackageLoader fileInPackage: #Sockets.
FileStream fileIn: 'rtp_replay_shared.st'.


Eval [
    | replay file host dport |

    file := Smalltalk arguments at: 1 ifAbsent: [ 'rtpstream.state' ].
    host := Smalltalk arguments at: 2 ifAbsent: [ '127.0.0.1' ].
    dport := (Smalltalk arguments at: 3 ifAbsent: [ '4000' ]) asInteger.
    sport := (Smalltalk arguments at: 4 ifAbsent: [ '0' ]) asInteger.

    replay := RTPReplay on: file fromPort: sport.

    Transcript nextPutAll: 'Going to stream now'; nl.
    replay streamAudio: host port: dport.
]